Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pedidos de proveedor: fallo al duplicar un pedido y colocar un 0 en ID_FACTURA.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@878 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-01-23 15:08:03 +00:00
parent 8ee700ad8a
commit 16ebcab039
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
View File

@ -62,6 +62,7 @@ type
procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override; procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override;
// procedure SetINCIDENCIASValue(const aValue: IROStrings); override; // procedure SetINCIDENCIASValue(const aValue: IROStrings); override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_FACTURAValue(const aValue: Integer); override;
procedure IMPORTE_NETOOnChange(Sender: TDACustomField); procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@ -295,6 +296,14 @@ begin
inherited; inherited;
end; 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); procedure TBizPedidoProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
begin begin
if (aValue = 0) then if (aValue = 0) then