Delphi 7 y Quick Report --- Ayuda Agrupamiento!!!

[seb@]

hola foro!!!, tengo un problema con respecto a quick report y agrupamiento. trabajo con D7 y Quick Report 4.04
Mi problema es el siguiente: en un AdoQry, tengo los siguientes datos:

id_medico	id_paciente
----------------------------
4404	 	440627
4404 	 	440627
4404	 	292604
237592	292604
237592	440627

lo quiero hacer en el reporte es agrupar los medicos con los pacientes, deberia quedar asi:

medico	paciente
-----------------
4404	
	440627
	440627
	292604
237592
	292604
	440627

En el reporte lo que hice fue agregar las siguientes bandas:
TQRBand (PageHeader)
TQRGroup (Group Header) -> En expression tengo el campo: id_medico. En la banda tambien pongo el id_medico para que se imprima
TQRBand (Detail) -> Pongo el id_paciente para que se imprima
TQRBand (Group Footer) -> Vacio

Cuando lo ejecuto me sale:

4404
     440627

Solo el primer registro. Si alguien me puede dar una mano agradecido. De antemano Gracias!

[ecfisa]

Hola seb@.

Pone las tablas en relación master/detail:

ADOQueryMedicos:

Código SQL [-]
SELECT ID FROM MEDICOS

ADOQueryPacientes:

Código SQL [-]
SELEC ID FROM PACIENTES WHERE PACIENTES.ID = :ID

Y relaciona la propiedad DataSource de ADOQueryPacientes con el TDataSource asociado a ADOQueryMedicos.

Luego en QuickReport:

TQuickRep:
  DataSet <- ADOQueryMedicos (maestro)

TQRBand:
  BandType <- rbDetail  
TQRDBLabel <-Data 
  DataField <- ID (médicos)
  DataSet <- ADOQueryMedicos

TQRSubDetail:
  DataSet <- ADOQueryPacientes (detalle)
TQRDBLabel 
  DataField <- ID (pacientes)
  DataSet <- ADOQueryPacientes

Saludos

[seb@]

en que momento se inicializa el qry de pacientes? o en que evento?
saludos y gracias!

[ecfisa]

Empezado por seb@

en que momento se inicializa el qry de pacientes? o en que evento?
saludos y gracias!

Hola seb@.

Los ADOQueries los podes inicializar en diseño o ejecución indistintamente. Una vez establecida la relación maestro/detalle, el reporte traerá los datos.

Te adjunto un ejemplo similar basado en customer y ordes de dbdemos.mdb (vienen con Delphi 7) para que puedas revisarlo con tranquilidad.

Saludos

[seb@]

Gracias por la ayuda ahi, lo pude solucionar,
lo hice así:

un solo qry con los datos medicos y pacientes ordenados por medicos.

el dataset del reporte con el Qry mencionado.
un QRBand --> rbPageHeader
un TQRGroup --> en expression id_medico y en la misma banda los datos del medico
un TQRSubDetail --> bando para datos del paciente
un QRBand --> rbGroupFooter

Funciona bien, gracias por la ayuda.!!

[[AzidRain]]

Como lo hiciste al final es la mejor forma ya que no tienes que mover las tabals y puedes sacar reportes por grupos aunque las tablas no estén relacionadas en la BD. La clave es crear el query correcto que fue lo que hiciste.