Impressão No Quickreport

[jo_user]

Pessoal boa tarde, estou tentando imprimir dados no QuickReport, quando dou um select funciona perfeitamente, porém, eu preciso navegar num conteúdo e deste conteúdo preencher linha a linha o relatório, por exemplo:

while representantes.eof do
       begin
          white pedido do
            begin
            sql.add('select pedido from pedidos where repres = :rep');
            ParamByname('rep).asInteger := RepresentantesCod.asInteger;
           Open;
            end;
       end;

Este Exemplo só ilustra a minha situação, porém, no select de dentro do while eu quero apresentar no relatório.

Obrigado pela Atenção.

Editado Agosto 30, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Micheus]

jo_user, voce pode trabalhar com uma banda detail para listar os dados dos representantes e uma banda subdetail para os dados do pedido.

Dê uma olhada neste post que fala sobre mestre/detalhe (detail/subdetail)

[jo_user]

Concordo, porém, preciso filtrar os dados primeiro, exemplo:

select DISTINCT CEP, NUM_CASA, COMPLEMENTO FROM MEMBROS

Union

select DISTINCT CEP_DEP, NUMEND_DEP, COMPLEMENTO_DEP FROM DEPENDENTE

order by 1

(primeiro faço este select e no conteúdo do mesmo é que quero apresentar informações no relatório)

DMigreja.IBQrelatDist.Open; (esta tabela representa o resultado do select acima)
    DMigreja.IBQrelatDist.First;
    while not (DMigreja.IBQrelatDist.Eof) do
        begin
            with DMigreja.IBQrelatorio do
              begin
                //DMigreja.IBQrelatorio.sql.Clear;
               // DMigreja.IBQrelatorio.close;
                sql.Add('select CEP, NUM_CASA, COMPLEMENTO,');
                sql.Add('NOME, ENDERECO,    ''Membro    '' as');
                sql.Add(' Tipo from  MEMBROS ');
                sql.Add(' where (CEP = :CEP) AND (NUM_CASA = :NUM) AND');
                sql.Add('(COMPLEMENTO = :COMP)');
                sql.Add('Union');
                sql.Add('select CEP_DEP, NUMEND_DEP, COMPLEMENTO_DEP,');
                sql.Add(' NOME_DEP, ENDERECO_DEP,   ''Dependente'' as ');
                sql.Add('Tipo from DEPENDENTE');
                sql.Add(' where (CEP_DEP = :CEP) AND (NUMEND_DEP = :NUM) AND');
                sql.Add('(COMPLEMENTO_DEP = :COMP)');
                sql.Add('order by 5');
                ParamByName('CEP').AsString := DMigreja.IBQrelatDistCEP.AsString;
                ParamByName('NUM').AsInteger := DMigreja.IBQrelatDistNUM_CASA.AsInteger;
                ParamByName('COMP').AsString := DMigreja.IBQrelatDistCOMPLEMENTO.AsString;
                Open;
              end;
             DMigreja.IBQrelatDist.Next;
        end;
                               DMigreja.IBQrelatorio.Open;
       FrmRelatEnd.QcRelatorio.Preview;
       FrmRelatEnd.Release;

(não consigo apresentar linha a linha o resultado do select dentro do while.

Editado Agosto 30, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Micheus]

isso vai ser complicado...

bem, quando você utiliza o Quickreport para o relatório, você não tem que fazer este loop com while - isso é coisa de relatório no esquema do DOS.

nessa "relação" membro/dependente não há um campo de relacionamento (tipo, no dependente apontando para o membro)? ela é feita pelos campos CEP, NUM_CASA, COMPLEMENTO?

Como você pretende que seja o resultado do seu relatório. Aparentemente você quer listar os registros ordenados pelo campo NOME. é isto?

estou achando que você está complicando as coisas mais do que precisa, só que faltam estas informações para avaliar.

por favor observe minhas edições em seus post: utilize as tag [_CODE] código do seu programa _")