Jump to content
Fórum Script Brasil
  • 0

Impressão No Quickreport


jo_user

Question

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.

Edited by Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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.

Edited by Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link to comment
Share on other sites

  • 0

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 _")

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...