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'