Jump to content
Fórum Script Brasil
  • 0

QuickReport


Pirambu!
 Share

Question

Estou com tela de pesquisa, quando listo os itens pesquisados, abro o Relatorio no QuickReport normal, mesmo que eu feche o relatorio e abro novamente, mas quando eu fecho o Form de pesquisa e abrir novamente, e listo os memos itens ou outros, no QuickReport apareçe em branco.

Para Abrir estou a Tela de pesquisa estou usando este codigo:

IF FPESQ_LISTPECAS = NIL THEN
Application.CreateForm(TFPESQ_LISTPECAS, FPESQ_LISTPECAS);
FPESQ_LISTPECAS.SHOWMODAL;
E para abrir o Relatorio:
IF RPESQ_LISTPECAS = NIL THEN
 Application.CreateForm(TRPESQ_LISTPECAS, RPESQ_LISTPECAS);
 RPESQ_LISTPECAS.QuickRep1.Preview;
e para Fechar:
Action:=Cafree;
FPESQ_LISTPECAS:= nil;

Action:=Cafree;
RPESQ_LISTPECAS:= nil;

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0
mas quando eu fecho o Form de pesquisa e abrir novamente, e listo os memos itens ou outros, no QuickReport apareçe em branco
.

esse problema acontece em virtude da maneira como voce cria e destroi o form ... tente assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
     if RPESQ_LISTPECAS= Nil then
        RPESQ_LISTPECAS:= TRPESQ_LISTPECAS.Create(self);
     except
      ShowMessage('Erro na criação do relatório!!');
      exit;
     end;

     RPESQ_LISTPECAS.PreviewModal;
end;

abraço

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.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...