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

Arreglo vencimientos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@629 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-26 12:43:32 +00:00
parent 26547ddecc
commit f23ba29a2f
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -1087,10 +1087,11 @@ begin
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2) and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2)
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do
begin begin
Inc(ADiaVencimiento);
Inc(ADiasMas);
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
ADiaVencimiento := 0; ADiaVencimiento := 1
else
Inc(ADiaVencimiento);
Inc(ADiasMas);
end; end;
end; end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas); AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);

7
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -899,10 +899,11 @@ begin
and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2) and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2)
and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do
begin begin
Inc(ADiaVencimiento);
Inc(ADiasMas);
if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
ADiaVencimiento := 0; ADiaVencimiento := 1
else
Inc(ADiaVencimiento);
Inc(ADiasMas);
end; end;
end; end;
AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas); AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);