Ir para conteúdo
Fórum Script Brasil
  • 0

Impressão No Quickreport


jo_user

Pergunta

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 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 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.

Editado por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...