From 84b9f0c6f3fcadd860a55b28af33fda363a8b67a Mon Sep 17 00:00:00 2001 From: david Date: Tue, 15 Jan 2008 10:43:13 +0000 Subject: [PATCH] =?UTF-8?q?Recibos=20de=20cliente:=20arreglo=20de=20fallo?= =?UTF-8?q?=20en=20la=20migraci=C3=B3n=20a=20DA5=20(ImporteTotalModificado?= =?UTF-8?q?).=20Duplicaba=20las=20filas.?= 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@228 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uRecibosClienteController.pas | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index 6e3d627c..d2f23362 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -147,7 +147,7 @@ uses Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, - uRecibosClienteReportController, uBizContactos, + uRecibosClienteReportController, uBizContactos, uDADelta, schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente, uIEditorElegirRecibosCliente, uDataModuleRecibosCliente, uIEditorFechaPago; @@ -685,11 +685,10 @@ begin end; function TRecibosClienteController.ImporteTotalModificado(ARecibosCliente : IBizRecibosCliente; var ImporteRestante: Currency) : Boolean; -//var -// HayCambio: TDADeltaChange; +var + HayCambio: TDADeltaChange; begin Result := False; -{ ImporteRestante := 0; HayCambio := ARecibosCliente.DataTable.Delta.FindChange(ARecibosCliente.RecNo); if (Assigned(HayCambio)) and @@ -699,7 +698,6 @@ begin if ImporteRestante <> 0 then Result := True; end; -} end; function TRecibosClienteController.Guardar(ARecibosCliente: IBizRecibosCliente): Boolean;