From 38f46dea84236369e9c7237a7cbb9241a6420bc5 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 28 Jul 2008 15:21:50 +0000 Subject: [PATCH] Corregido error en unidades subidas. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@295 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Controller/uFacturasClienteController.pas | 3 --- .../Facturas de cliente/Views/uEditorFacturaCliente.pas | 3 ++- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 7ad60a01..87d73fa7 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -50,8 +50,6 @@ type function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente; procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente); - - procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer); end; @@ -115,7 +113,6 @@ type procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente); - procedure SetIdSubcuenta (AFactura: IBizFacturaCliente; const IdSubCuenta: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaCliente; const Ignorar: Integer); end; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 8dc44a0e..3a0f24f8 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -276,8 +276,9 @@ begin bEsNuevo := FFactura.EsNuevo; {$IFDEF CONTABILIDAD} + FFactura.Edit; + FFactura.ID_SUBCUENTA := frViewListaSubCuentas1.IdSubCuenta; FController.SetIgnorarContabilidad(FFactura, frViewListaSubCuentas1.eContabilizar.EditValue); - FController.SetIdSubcuenta(FFactura, frViewListaSubCuentas1.IdSubCuenta); {$ENDIF} FController.Guardar(FFactura);