Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corregido error en unidades subidas.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@295 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-28 15:21:50 +00:00
parent b68b3e630a
commit 38f46dea84
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -50,8 +50,6 @@ type
function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente; function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente); procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
end; end;
@ -115,7 +113,6 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente); procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer);
procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer);
end; end;

3
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -276,8 +276,9 @@ begin
bEsNuevo := FFactura.EsNuevo; bEsNuevo := FFactura.EsNuevo;
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
FFactura.Edit;
FFactura.ID_SUBCUENTA := frViewListaSubCuentas1.IdSubCuenta;
FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue); FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue);
FController.SetIdSubcuenta(FFactura, frViewListaSubCuentas1.IdSubCuenta);
{$ENDIF} {$ENDIF}
FController.Guardar(FFactura); FController.Guardar(FFactura);