diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index b2bd4216..e298db0a 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1062,6 +1062,12 @@ begin else AFechaVencimiento := IncDay(AFechaVencimiento, (AFactura.Cliente.VENCIMIENTO_FACTURAS - DayOf(AFechaVencimiento))); end; + + //Comprobamos que la fecha de vencimiento no sea febrero si es asi hay que tratarlo + if (AFactura.Cliente.VENCIMIENTO_FACTURAS > 28) + and (MonthOf(AFechaVencimiento) = 3) and (DayOf(AFechaVencimiento) < 3) then + AFechaVencimiento := IncDay(AFechaVencimiento, - DayOf(AFechaVencimiento)); + ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100);