From c0250fee9fb26f724c462a1f10bd511e2bfe6bf9 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 23 Dec 2008 10:48:13 +0000 Subject: [PATCH] =?UTF-8?q?Ticket=20#114=20->=20En=20una=20ficha=20de=20pr?= =?UTF-8?q?esupuesto,=20sin=20haber=20hecho=20ning=C3=BAn=20cambio,=20siem?= =?UTF-8?q?pre=20dice=20que=20hay=20cambios=20pendientes.=20Se=20ha=20rees?= =?UTF-8?q?crito=20el=20comportamiento=20de=20'GetModified'=20en=20el=20ed?= =?UTF-8?q?itor=20de=20presupuesto.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@814 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Views/uEditorPresupuestoCliente.pas | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index 782a4400..a832fffc 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -105,7 +105,7 @@ implementation uses uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, - uBizDireccionesContacto, uDialogUtils, uFactuGES_App; + uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils; {$R *.dfm} @@ -232,10 +232,15 @@ end; function TfEditorPresupuestoCliente.GetModified: Boolean; begin - Result := inherited GetModified; + // inherited; <- No llamar al padre porque queremos tratamiento especial. + if ReadOnly then + Result := False + else begin + Result := DataTableModified(dsDataTable.DataTable); - if not Result then - Result := frViewDocumentosPresupuestoCliente1.Modified; + if not Result then + Result := frViewDocumentosPresupuestoCliente1.Modified; + end; end; function TfEditorPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;