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;