Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Recibos de cliente: arreglo de fallo en la migración a DA5 (ImporteTotalModificado). Duplicaba las filas.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@228 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-15 10:43:13 +00:00
parent bd56a0e670
commit 84b9f0c6f3
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -147,7 +147,7 @@ uses
Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs, Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants, uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
uRecibosClienteReportController, uBizContactos, uRecibosClienteReportController, uBizContactos, uDADelta,
schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente, schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente,
uIEditorElegirRecibosCliente, uDataModuleRecibosCliente, uIEditorFechaPago; uIEditorElegirRecibosCliente, uDataModuleRecibosCliente, uIEditorFechaPago;
@ -685,11 +685,10 @@ begin
end; end;
function TRecibosClienteController.ImporteTotalModificado(ARecibosCliente : IBizRecibosCliente; var ImporteRestante: Currency) : Boolean; function TRecibosClienteController.ImporteTotalModificado(ARecibosCliente : IBizRecibosCliente; var ImporteRestante: Currency) : Boolean;
//var var
// HayCambio: TDADeltaChange; HayCambio: TDADeltaChange;
begin begin
Result := False; Result := False;
{
ImporteRestante := 0; ImporteRestante := 0;
HayCambio := ARecibosCliente.DataTable.Delta.FindChange(ARecibosCliente.RecNo); HayCambio := ARecibosCliente.DataTable.Delta.FindChange(ARecibosCliente.RecNo);
if (Assigned(HayCambio)) and if (Assigned(HayCambio)) and
@ -699,7 +698,6 @@ begin
if ImporteRestante <> 0 then if ImporteRestante <> 0 then
Result := True; Result := True;
end; end;
}
end; end;
function TRecibosClienteController.Guardar(ARecibosCliente: IBizRecibosCliente): Boolean; function TRecibosClienteController.Guardar(ARecibosCliente: IBizRecibosCliente): Boolean;