Ver Mensaje Individual
  #11  
Antiguo 15-07-2013
negrokau negrokau is offline
Miembro
NULL
 
Registrado: abr 2011
Posts: 210
Reputación: 14
negrokau Va por buen camino
Talking

sabes, les comento que no puedo hacer funcionar el master / detail
para que esten mas informados sobre mi consulta es sobre el movimiento de gruas de una fecha a otra.

-uso 2 subdetail, subdetail1 para la cabecera y subdetail2 para el detalle.
-tambien 2 query, query1 para la cabecera y query2 para el detalle.

en el sql de query1 (cabecera) pongo la siguiente consulta:
Código SQL [-]
select * from ORDEN_SALIDA WHERE ESTADO<>'ANULADO' AND GRUA2=:CON AND FECHA_LLEGADA between :FECHA1 AND :FECHA2 ORDER BY FECHA_LLEGADA

en el sql de query2 (detalle) pongo la siguiente consulta:
Código SQL [-]
select * from DET_ORDEN_SALIDA WHERE COD_DET=:CON

-en el dataset del subdetail1 le asigno el query1 de la cabecera y en el dataset del subdetail2 le asigno el query2 del detalle.
-en la propiedad master del subdetail2 le asigno el subdetail1.
-en el evento afterprint del subdetail1 le asigno los parametros del query2

Código Delphi [-]
procedure TF_REPORTES.QRSubDetail1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
Query2.Close;
Query2.Params[0].Value:=Q_ORDENES1.FieldValues['COD_ORDEN'];
Query2.Open;
End;

-en el la propiedad dataset del reporte le asigno el query1 y en el evento StartPage asigno los parametros del query1.

Código Delphi [-]
procedure TF_REPORTES.QuickRep1StartPage(Sender: TCustomQuickRep);
begin
Query1.Close;
Query1.Params[0].Value:=F_REP_ORDEN.DBLookupComboBox1.Text;
Query1.Params[1].Value:=F_REP_ORDEN.MASKEDIT1.Text;
Query1.Params[2].Value:=F_REP_ORDEN.MASKEDIT2.Text;
Query1.Open;
end;

mi problema es que en el reporte genera las paginas sin parar....
me darian un consejo amigos.... xq ya intente todo lo que me indicaron pero hasta aca llegue...
Responder Con Cita