From 83200cc39b23589bff7b5913eeba1730222d78f4 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 25 Sep 2008 16:17:32 +0000 Subject: [PATCH] Ticket #145 -> En el informe de presupuestos, ocultar los 0. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@622 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Informes/InfPresupuestoCliente.fr3 | 10 +++++----- .../Reports/uRptPresupuestosCliente_Server.pas | 5 +++++ .../Reports/uRptWordPresupuestoCliente.dfm | 4 ++-- 3 files changed, 12 insertions(+), 7 deletions(-) diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index b5e6bfe5..4d5a7023 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -73,9 +73,9 @@ - - - + + + @@ -101,7 +101,7 @@ - + diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas index ad9dbae8..b6d3d396 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas @@ -152,6 +152,11 @@ end; procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer); begin + tbl_Cabecera.Active := False; + tbl_Capitulos.Active := False; + tbl_Detalles.Active := False; + tbl_Resumen.Active := False; + tbl_Cabecera.ParamByName('ID').AsInteger := AID; tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID; tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsInteger := AID; diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm index 1a37fca8..e54ed648 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm @@ -272,7 +272,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente 'TO as CONCEPTO_RTF, CANTIDAD,'#10' UNIDAD_MEDIDA, IMPORTE_UNIDAD,' + ' DESCUENTO, IMPORTE_PORTE,'#10' IMPORTE_TOTAL, VISIBLE, FECHA_ALT' + 'A, FECHA_MODIFICACION'#10' FROM'#10' PRESUPUESTOS_CLIENTE_DETALLES'#10' ' + - ' WHERE {Where}'#10' AND (VISIBLE) <> 0'#10' AND (ID_PRESUPUESTO = ' + + ' WHERE {Where}'#10' AND (VISIBLE <> 0)'#10' AND (ID_PRESUPUESTO = ' + ':ID_PRESUPUESTO)'#10' ORDER BY ID_PRESUPUESTO, POSICION'#10 StatementType = stSQL ColumnMappings = < @@ -368,7 +368,7 @@ object RptWordPresupuestoCliente: TRptWordPresupuestoCliente item Name = 'CONCEPTO' DataType = datString - Size = 254 + Size = 32765 end item Name = 'CONCEPTO_RTF'