From aa2c5dbd7288c5115842fe824d4efa4eafce86f6 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 4 Jun 2008 17:32:05 +0000 Subject: [PATCH] =?UTF-8?q?Peque=C3=B1os=20cambios=20en=20recibos=20de=20c?= =?UTF-8?q?liente?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@433 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Informes/InfReciboCliente.fr3 | 12 +++++++----- .../Controller/uFacturasClienteController.pas | 2 +- Source/Servidor/FactuGES_Server.dpr | 3 ++- Source/Servidor/FactuGES_Server.dproj | 4 ++++ 4 files changed, 14 insertions(+), 7 deletions(-) diff --git a/Source/Informes/InfReciboCliente.fr3 b/Source/Informes/InfReciboCliente.fr3 index 494bf2c3..2c246ba6 100644 --- a/Source/Informes/InfReciboCliente.fr3 +++ b/Source/Informes/InfReciboCliente.fr3 @@ -1,8 +1,10 @@ - + + + @@ -37,8 +39,7 @@ - - + @@ -67,8 +68,9 @@ - - + + + diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 4df1cc52..bdf7a087 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1038,7 +1038,7 @@ begin ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); - ARecibos.DESCRIPCION := CifraToLetras(ARecibos.IMPORTE); + ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE); ARecibosClienteController.Guardar(ARecibos); Inc(i); Next; diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 59f4440f..2fdb3594 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -123,7 +123,8 @@ uses schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas', - schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas'; + schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas', + uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule}; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 1df4dc67..95df3bb2 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -185,6 +185,10 @@ + +
RptRecibosCliente
+ TDataModule +
srvRecibosCliente
TDataAbstractService