Erro no QuickRep1.preview

Question

Galera t� com esse c�digo para fazer impress�o [code:1:e65da46327]procedure TF_RELATORIO_LANCAMENTO_FORM.imprimirClick(Sender: TObject);begin   dm.sdsLancamento.Close;   dm.sdsLancamento.CommandText:=...

Rpatricia · Answer

Ol� jpaulossPrimeiro verifica se voc� deu um CreateForm no seu form onde voc� tem seu quickreport, pois voc� t� tentando acessar um objeto que ainda n�o foi criado na mem�riae antes do seu[code:1:55c4e580f6] R_LANCAMENTO.QuickRep1.Preview; [/code:1:55c4e580f6]tamb�m tente usar assim[code:1:55c4e580f6] R_LANCAMENTO.QuickRep1.Prepare; [/code:1:55c4e580f6]Espero que ajude!  :wink: absPatr�cia...

Jpauloss · Answer

[quote:bbb07bd4e8=�rpatricia�]Ol� jpaulossPrimeiro verifica se voc� deu um CreateForm no seu form onde voc� tem seu quickreport, pois voc� t� tentando acessar um objeto que ainda n�o foi criado na mem�riae antes do seu[code:1:bbb07bd4e8] R_LANCAMENTO.QuickRep1.Preview; [/code:1:bbb07bd4e8]tamb�m tente usar assim[code:1:bbb07bd4e8] R_LANCAMENTO.QuickRep1.Prepare; [/code:1:bbb07bd4e8]Espero que ajude!  :wink: absPatr�cia[/quote:bbb07bd4e8]O problema � que estou usando em MDI.Coloquei assim[code:1:bbb07bd4e8] R_LANCAMENTO.QuickRep1.Preview; R_LANCAMENTO:=TR_LANCAMENTO.CREATE(SELF);[/code:1:bbb07bd4e8]...

Jpauloss · Answer

Ao contr�rio.[code:1:1da9f1cafe]R_LANCAMENTO:=TR_LANCAMENTO.CREATE(SELF);R_LANCAMENTO.QuickRep1.Preview;[/code:1:1da9f1cafe]...

Jpauloss · Answer

Coloquei o formstyle=fsNormal e meu c�digo ta assim

procedure TF_RELATORIO_LANCAMENTO_FORM.btnSemValorClick(Sender: TObject);
begin
  if (projeto.Text=��) then begin
   ShowMessage(�Selecione projeto!�);
   exit
   end
   else
   R_LANCAMENTO_SEM_VALORES2.sdsRelLancamentoProjeto.Close;
   R_LANCAMENTO_SEM_VALORES2.sdsRelLancamentoProjeto.CommandText:=�select lancamento_projeto.*, � +
                                 �cast(total as float) as total_flt, � +
                                 �grupo.descricao_grupo, grupo.cod_grupo, � +
                                 �material.descricao, � +
                                 �material.un, material.preco_unitario, � +
                                 �projeto.nome_projeto � +
                                 �from lancamento_projeto, projeto, grupo � +
                                 �inner join material on  � +
                                 �lancamento_projeto.cod_ordenado_m = material.cod_ordenado � +
                                 �and grupo.id_grupo = lancamento_projeto.cod_grupo_fk � +
                                 �where cod_projeto_lancamento=:cod_projeto_lancamento�;
   R_LANCAMENTO_SEM_VALORES2.sdsRelLancamentoProjeto.ParamByName(�cod_projeto_lancamento�).AsString:=projeto.Text;
   R_LANCAMENTO_SEM_VALORES2.sdsRelLancamentoProjeto.Open;

   R_LANCAMENTO_SEM_VALORES2.cdsRelLancamentoProjeto.Close;
   R_LANCAMENTO_SEM_VALORES2.cdsRelLancamentoProjeto.Open;
   R_LANCAMENTO_SEM_VALORES2.cdsRelLancamentoProjeto.Refresh;

   R_LANCAMENTO_SEM_VALORES2.ShowModal;
   R_LANCAMENTO_SEM_VALORES2.QuickRep1.PreviewModal;

E o erro � o mesmo

---------------------------
Debugger Exception Notification
---------------------------
Project MATERIAIS.exe raised exception class EAccessViolation with message �Access violation at address 00631517 in module �MATERIAIS.exe�. Read of address 0000035C�. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Que fa�o?

Jpauloss · Answer

up...

Djjunior · Answer

que me lembre voce n�o d� um showmodal no form que o quick est� seria somente um create e um preview.

vc detectou em que [u:56ee62402b]linha[/u:56ee62402b] est� o erro ?

se voc� deu um close/OPen na query n�o vejo sentido em dar um refresh logo em seguinda.

Jpauloss · Answer

[quote:108ca7955c=�djjunior�]que me lembre voce n�o d� um showmodal no form que o quick est� seria somente um create e um preview.vc detectou em que [u:108ca7955c]linha[/u:108ca7955c] est� o erro ?se voc� deu um close/OPen na query n�o vejo sentido em dar um refresh logo em seguinda.[/quote:108ca7955c]O erro esta dando na linha[code:1:108ca7955c] R_LANCAMENTO_SEM_VALORES2.sdsRelLancamentoProjeto.CommandText:=�select [/code:1:108ca7955c]Que fa�o?...

Djjunior · Answer

Tipo kde o Create do R_LANCAMENTO_SEM_VALORES2 ?

Pelo que pude ver no seu c�digo ele n�o est� criado ainda por isso o erro. tente quando parar neste item dar um ctrl+f7 para ver o conte�do dele ... deve estar null d� o create antes de come�ar a mexer nele

Jpauloss · Answer

[quote:f8cebc6be2=�djjunior�]Tipo kde o Create do R_LANCAMENTO_SEM_VALORES2 ?Pelo que pude ver no seu c�digo ele n�o est� criado ainda por isso o erro. tente quando parar neste item dar um ctrl+f7 para ver o conte�do dele ... deve estar null d� o create antes de come�ar a mexer nele[/quote:f8cebc6be2]Que c�digo coloco?...

Djjunior · Answer

Na sua linha:R_LANCAMENTO:=TR_LANCAMENTO.CREATE(SELF);tem um erro grave... o self, o formul�rio n�o pode ser �pai� dele mesmo, use o Application em vez de self.e essa linha que vir antes de qualquer referencia que vc for fazer do R_LANCAMENTO e no fim n�o se esque�a de dar um free nele fa�a algo do tipo[code:1:d70caf3e8a]R_LANCAMENTO:=TR_LANCAMENTO.CREATE(SELF);try  ... seus c�digos  R_LANCAMENTO.QuickRep1.Preview;finally  R_LANCAMENTO.FREE;end;[/code:1:d70caf3e8a]...

Jpauloss · Answer

[quote:1b058f24fe=�djjunior�]Na sua linha:R_LANCAMENTO:=TR_LANCAMENTO.CREATE(SELF);tem um erro grave... o self, o formul�rio n�o pode ser �pai� dele mesmo, use o Application em vez de self.e essa linha que vir antes de qualquer referencia que vc for fazer do R_LANCAMENTO e no fim n�o se esque�a de dar um free nele fa�a algo do tipo[code:1:1b058f24fe]R_LANCAMENTO:=TR_LANCAMENTO.CREATE(SELF);try  ... seus c�digos  R_LANCAMENTO.QuickRep1.Preview;finally  R_LANCAMENTO.FREE;end;[/code:1:1b058f24fe][/quote:1b058f24fe]Valeu! funcinou....

Wanderok · Answer

:D:D:D...

F�rum Erro no QuickRep1.preview #351036