Delphi - Problema con Rep master detail

 
Vista:

Problema con Rep master detail

Publicado por OscaRo (2 intervenciones) el 13/08/2009 12:08:36
Saludos.

Veran mi problema es que el reporte se muestra incompleto.

Tengo una banda detail, que tiene en su evento before print el codigo para imprimir los subdetalles en la banda subdetail, el problema es que solo muestra un solo registro de detalle,
pero la sumatoria del detalle se muestra bien, como si estuvieran todos ahi.

Aqui les paso el codigo que estoy usando.

function TfrmRepSalidas.Ejecutar(Fecha1, Fecha2 : TDateTime) : boolean;
var
f1, f2, campos : String;
begin
//Esto se ejecuta al pedir el reporte.

f1 := FormatDateTime('yyyy-mm-dd', Fecha1);
f2 := FormatDateTime('yyyy-mm-dd', fecha2);

campos := 'salida_id, fecha_salida, s.clave_vehiculo, v.marca, v.modelo, ' +
' folio_salida, kilometraje, clave_empleado, ' +
' comentarios, total_siva, total_civa ';

Comando := 'select ' + campos +
' from salidas_taller s ' +
' left join catalogo_vehiculos v ' +
' on v.clave_vehiculo = s.clave_vehiculo ' +
' where fecha_salida between ' + QuotedStr(f1) + ' and ' + QuotedStr(f2) +
' order by fecha_salida desc, salida_id desc ';

Result := ( MD.DoSelect( zqRep, Comando) );
if ( Result ) then
begin
QuickRep1.PreviewModal;
end
else
begin
MessageBox( self.Handle, 'No se encontraron salidas en el periodo solicitado.', 'Información', MB_ICONINFORMATION or MB_OK);
end;

end;


procedure TfrmRepSalidas.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if( not zqRep.IsEmpty ) then
begin
zqRepChild.ParamByName('folio').AsString := zqRep.fieldbyname('folio_salida').AsString;
zqRepChild.Open;
end;
end;


y el siguiente codigo se encuentra en la propiedad SQL.text del objeto query detalle (zqRepChild)

select
clave_producto, descripcion, cantidad, costo_siva, costo_civa,
total_siva, total_civa
from movimientos
where
folio=:folio

Cualquier ayuda gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder