En la banda QRSubDetail estan los datos del padre:
Código Delphi
[-]procedure TqrReportePersonal.QRSubDetailNeedData(Sender: TObject; var MoreData: Boolean);
begin
MoreData:=(not qPersona.Eof);
if MoreData then
begin
qrLabel1.Caption:=qPersona.FieldByName('PERSONA_NOMBRE').AsString;
.
.
.
end;
if qPersona.FieldByName('PERSONA_TIPO').AsString='P' then //ES "PADRE"
begin
qHijos.ParamByName('padre').asstring :=qPersona.FieldByName('PERSONA_CLAVE').AsString;
qHijos.Open;
end;
end;
En la banda ChildBand (hija de la anterior) estaria el detalle, es decir, los hijos:
Código Delphi
[-]
procedure TqrReportePersonal.ChildBandBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
while not qHijos.eof do
begin
qrLabel1.Caption:=qHijos.FieldByName('PERSONA_NOMBRE').AsString;
.
.
.
qHijos.Next;
PrintBand:=true;
end;
PrintBand:=true;
qPersona.Next;
inc(cont);
qHijos.Close;
end;
El tema es que, los datos del padre me aparecen bien, pero los datos de hijo, siempre me aparece sólo el último de ellos, como si en la Banda Child se estuviera escribiendo sobre la misma linea. Al hacer seguimiento recorre todos los hijos, pero solo despliega el último.
alguna idea?