From 16ebcab0396e45db034ec0605960bfb8d92564cf Mon Sep 17 00:00:00 2001 From: david Date: Fri, 23 Jan 2009 15:08:03 +0000 Subject: [PATCH] Pedidos de proveedor: fallo al duplicar un pedido y colocar un 0 en ID_FACTURA. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@878 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Pedidos a proveedor/Model/uBizPedidosProveedor.pas | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas index 40c1d988..2db5c9e6 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas @@ -62,6 +62,7 @@ type procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override; // procedure SetINCIDENCIASValue(const aValue: IROStrings); override; procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; + procedure SetID_FACTURAValue(const aValue: Integer); override; procedure IMPORTE_NETOOnChange(Sender: TDACustomField); procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); @@ -295,6 +296,14 @@ begin inherited; end; +procedure TBizPedidoProveedor.SetID_FACTURAValue(const aValue: Integer); +begin + if (aValue = 0) then + SetFieldNull(DataTable, fld_PedidosProveedorID_FACTURA) + else + inherited; +end; + procedure TBizPedidoProveedor.SetID_FORMA_PAGOValue(const aValue: Integer); begin if (aValue = 0) then