diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 014758bf..fc5936f0 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1077,12 +1077,12 @@ begin ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; + ADiasMas := 0; if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0) or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0) or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then begin ADiaVencimiento := DayOf(AFechaVencimiento); - ADiasMas := 0; while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1) and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2) and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do