From 5dc869ac9b011e2b699e08192e5ac3c307246c42 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 4 Jun 2008 16:12:28 +0000 Subject: [PATCH] git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@428 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uFacturasClienteController.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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;