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);