diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 3c6b865e..4df1cc52 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -114,7 +114,7 @@ uses Windows, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf, uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App, uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase, - uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, + uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils, uNumUtils, uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController, uBizDetallesAlbaranCliente, uFacturasClienteReportController, DateUtils, Forms, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente, @@ -1036,8 +1036,9 @@ begin AFechaVencimiento := IncDay(AFechaVencimiento, - DayOf(AFechaVencimiento)); ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; - + ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); + ARecibos.DESCRIPCION := CifraToLetras(ARecibos.IMPORTE); ARecibosClienteController.Guardar(ARecibos); Inc(i); Next;