From 26cb2a7a9277ff5dee2679c8e38a85a4e7b488d1 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 8 Feb 2012 18:11:25 +0000 Subject: [PATCH] #800: Que en la lista de facturas/cobros de un cliente se tenga en cuenta lo que esta pagado y lo que no git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@43 93f398dd-4eb6-7a46-baf6-13f46f578da2 --- .../InformeListadoFacturasRecibosCliente.fr3 | 26 +++++++++---------- .../Reports/uRptFacturasCliente_Server.dfm | 19 +++++++++++--- 2 files changed, 29 insertions(+), 16 deletions(-) diff --git a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 index 38b5e12..e254edf 100644 --- a/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 +++ b/Source/Informes/InformeListadoFacturasRecibosCliente.fr3 @@ -1,20 +1,20 @@ - + - - - - - - + + + + + + - + - - + + @@ -52,11 +52,11 @@ - - + + - + diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 245fc59..b005ed4 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -1237,9 +1237,10 @@ object RptFacturasCliente: TRptFacturasCliente Default = True SQL = 'select ID_EMPRESA,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITU' + - 'ACION, NIF_CIF, FECHA_EMISION, FECHA_VENCIMIENTO, IMPORTE_TOTAL'#10 + - #10'from V_RECIBOS_cliente'#10'where {where}'#10'order by FECHA_EMISION, NO' + - 'MBRE_CLIENTE'#10#10 + 'ACION, NIF_CIF, FECHA_EMISION, FECHA_VENCIMIENTO, IMPORTE_TOTAL,' + + ' case when SITUACION = '#39'COBRADO'#39' THEN IMPORTE_TOTAL ELSE 0 end a' + + 's IMPORTE_COBRADO'#10#10'from V_RECIBOS_cliente'#10'where {where}'#10'order by' + + ' FECHA_EMISION, NOMBRE_CLIENTE'#10#10 StatementType = stSQL ColumnMappings = < item @@ -1277,6 +1278,10 @@ object RptFacturasCliente: TRptFacturasCliente item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' + end + item + DatasetField = 'IMPORTE_COBRADO' + TableField = 'IMPORTE_COBRADO' end> end> Name = 'ListadoRecibos' @@ -1320,6 +1325,10 @@ object RptFacturasCliente: TRptFacturasCliente item Name = 'IMPORTE_TOTAL' DataType = datCurrency + end + item + Name = 'IMPORTE_COBRADO' + DataType = datCurrency end> end> JoinDataTables = <> @@ -1782,6 +1791,10 @@ object RptFacturasCliente: TRptFacturasCliente item Name = 'IMPORTE_TOTAL' DataType = datCurrency + end + item + Name = 'IMPORTE_COBRADO' + DataType = datCurrency end> Params = <> LogChanges = False