From 69116ac2954b80f059e32d68bddd7a9551081972 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 15 Jul 2008 09:14:12 +0000 Subject: [PATCH] Se arregla fallo en la asignacion del importe de cabecera cuando se actualizan los detalles, se debe usar el controller del editor ya que existe el maestro detalle(observadores), que lanza el refresco de la cabecera cuando los detalles se modifican, si hacemos un controllerdetalles nuevo se pierde esta relacion git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@278 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Facturas de cliente/Views/uEditorFacturaCliente.pas | 9 +-------- .../Views/uEditorFacturaProveedor.pas | 9 +-------- 2 files changed, 2 insertions(+), 16 deletions(-) diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index d60a680d..8dc44a0e 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -355,14 +355,7 @@ begin // Si la factura tiene detalles hay que mirar si los descuentos y otros campos // para los artículos hay que cambiarlos. if (FFactura.Detalles.RecordCount > 0) then - begin - FDetallesController := TDetallesFacturaClienteController.Create; - try - FDetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Cliente); - finally - FDetallesController := NIL; - end; - end; + FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Cliente); end; procedure TfEditorFacturaCliente.pgPaginasChanging(Sender: TObject; diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas index 0d63c0a3..a3d9f6a3 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas @@ -332,14 +332,7 @@ begin // Si la factura tiene detalles hay que mirar si los descuentos y otros campos // para los artículos hay que cambiarlos. if (FFactura.Detalles.RecordCount > 0) then - begin - FDetallesController := TDetallesFacturaProveedorController.Create; - try - FDetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor); - finally - FDetallesController := NIL; - end; - end; + FController.DetallesController.ActualizarDetalles(FFactura.Detalles, FFactura.Proveedor); end; procedure TfEditorFacturaProveedor.pgPaginasChanging(Sender: TObject;