From f23ba29a2f7f49f2c32828cb0d2b63a6304ef4b6 Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 26 Sep 2008 12:43:32 +0000 Subject: [PATCH] Arreglo vencimientos git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@629 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uFacturasClienteController.pas | 7 ++++--- .../Controller/uFacturasProveedorController.pas | 7 ++++--- 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index e20a04cf..014758bf 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1087,10 +1087,11 @@ begin and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2) and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do begin - Inc(ADiaVencimiento); - Inc(ADiasMas); if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then - ADiaVencimiento := 0; + ADiaVencimiento := 1 + else + Inc(ADiaVencimiento); + Inc(ADiasMas); end; end; AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas); diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 20b98902..dcb32740 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -899,10 +899,11 @@ begin and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2) and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do begin - Inc(ADiaVencimiento); - Inc(ADiasMas); if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then - ADiaVencimiento := 0; + ADiaVencimiento := 1 + else + Inc(ADiaVencimiento); + Inc(ADiasMas); end; end; AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas);