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
This commit is contained in:
David Arranz 2008-09-25 16:17:32 +00:00
parent 40d7c0eb73
commit 83200cc39b
3 changed files with 12 additions and 7 deletions

File diff suppressed because one or more lines are too long

View File

@ -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;

View File

@ -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'