diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 7cd59a01..3e8c2b3c 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
@@ -1099,6 +1099,7 @@ var
   i: Integer;
   ADiaVencimiento: Integer;
   ADiasMas: Integer;
+  BSemaforo: Boolean;
 
 begin
   if not Assigned(AFactura) then
@@ -1139,6 +1140,7 @@ begin
       begin
         AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
         ADiasMas := 0;
+        BSemaforo := False;
         if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0)
         or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0)
         or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then
@@ -1149,7 +1151,21 @@ begin
           and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do
           begin
             if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
-              ADiaVencimiento := 1
+            begin
+              ADiaVencimiento := 1;
+
+              //Controlamos con una variable semaforo que no nos quedemos en un bucle infinito
+              //intentando encontrar el dia de pago establecido para el cliente (es el caso de tener
+              //asignado el dia de pago 30 y llegar febrero en el que no se encuentra dicho dia, o
+              //tener como dia de pago los días 31 y en el caso de meses de 30 dias no encontrarlo.
+              if BSemaforo then
+              begin
+                ADiasMas := 0;
+                Break
+              end
+              else
+                BSemaforo := True;
+            end
             else
               Inc(ADiaVencimiento);
             Inc(ADiasMas);
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 7e3da985..50d27dd1 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -909,6 +909,7 @@ var
   i: Integer;
   ADiaVencimiento: Integer;
   ADiasMas: Integer;
+  BSemaforo: Boolean;  
 
 begin
 
@@ -949,6 +950,7 @@ begin
       begin
         AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
         ADiasMas := 0;
+        BSemaforo := False;
         if (AFactura.Proveedor.VENCIMIENTO_FACTURAS_1 <> 0)
         or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_2 <> 0)
         or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_3 <> 0) then
@@ -959,7 +961,21 @@ begin
           and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do
           begin
             if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then
-               ADiaVencimiento := 1
+            begin
+              ADiaVencimiento := 1;
+
+              //Controlamos con una variable semaforo que no nos quedemos en un bucle infinito
+              //intentando encontrar el dia de pago establecido para el cliente (es el caso de tener
+              //asignado el dia de pago 30 y llegar febrero en el que no se encuentra dicho dia, o
+              //tener como dia de pago los días 31 y en el caso de meses de 30 dias no encontrarlo.
+              if BSemaforo then
+              begin
+                ADiasMas := 0;
+                Break
+              end
+              else
+                BSemaforo := True;
+            end
             else
                Inc(ADiaVencimiento);
             Inc(ADiasMas);