Erro Ao Imprimir Cc-E Dataset Destinatario, Emitente, Eventos Não Existe

[Diego Jacaúna]

Olá Pessoal,

 

Estou tentando implantar a carta de correção porém tanto pela minha aplicação quanto pelo exemplo estou encontrando o seguinte erro quando tento imprimir pelo FastReport com o Arquivo Eventos.fr3:

 

DataSet "Destinatario" does not Exist

DataSet "Emitente" does not Exist

DataSet "Eventos" does not Exist

 

Tentei abrir o Relatório e constatei que não existe nenhum DataSet nele. Gostaria de saber como posso resolver este problema. Não vi nenhum DataModule para que eu possa ativar estes DataSets.

 

Existe algum modo de eu poder registar esses DataSets?

 

Desde já agradeço pela atenção.

 

[Juliomar Marchetti]

Boa tarde

conforme o Isaque já postou em um outro tópico que ele criou para informar

foi removido o datamodulo justamente pra resolver esse problema!

veja senão tem arquivos antigos nos fontes ou de compilação, refaça a instalação e novamente use para testar

[Fernando Dutra]

Boa Tarde Juliomar, tudo bem?

 

Estou com este mesmo problema e reparei em uma questão. Se eu imprimir uma Danfe, e em seguida for imprimir uma CC-e qualquer, ele imprimi sem problemas. Seu eu for imprimir a CC-e sem ter utilizado o método imprimir ele dá o erro citado acima. Eu desinstalei e instalei novamente os componentes e o problema persiste. Vou continuar procurando o problema caso eu encontre postarei uma mensagem. Obrigado!

 

Atenciosamente,

Fernando Dutra.

[Fernando Dutra]

Boa Noite Juliomar, tudo bem?

 

Eu acredito que achei o problema. No método do "PrepareReportEvento" eu acrescentei o método "SetDataSetsToFrxReport" que estava faltando. Somente no processo de "PrepareReport" do Danfe tinha este método sendo executado. Segue abaixo o código que implementei. Favor me comunicar caso eu esteja errado. Obrigado!

 

 

  function TACBrNFeDANFEFR.PrepareReportEvento: Boolean;

begin

  FdmDanfe.SetDataSetsToFrxReport; //Incluso a criação de DataSets no PrepareReportEvento

  if Trim(FastFileEvento) <> '' then

  begin

    if FileExists(FastFileEvento) then

      FdmDanfe.frxReport.LoadFromFile(FastFileEvento)

    else

      raise EACBrNFeDANFEFR.CreateFmt('Caminho do arquivo de impressão do EVENTO "%s" inválido.', [FastFileEvento]);

  end

  else

    raise EACBrNFeDANFEFR.Create('Caminho do arquivo de impressão do EVENTO não assinalado.');

 

  FdmDanfe.frxReport.PrintOptions.Copies := NumCopias;

 

  // preparar relatorio

  if Assigned(ACBrNFe) then

  begin

    if assigned(TACBrNFe(ACBrNFe).EventoNFe) then

    begin

      FdmDanfe.Evento := TACBrNFe(ACBrNFe).EventoNFe;

      FdmDanfe.CarregaDadosEventos;

    end

    else

      raise EACBrNFeDANFEFR.Create('Evento não foi assinalado.');

 

    if TACBrNFe(ACBrNFe).NotasFiscais.Count > 0 then

    begin

      FdmDanfe.frxReport.Variables['PossuiNFe'] := QuotedStr('S');

      FdmDanfe.NFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe;

      FdmDanfe.CarregaDadosNFe;

    end;

 

    Result := FdmDanfe.frxReport.PrepareReport;

  end

  else

    raise EACBrNFeDANFEFR.Create('Propriedade ACBrNFe não assinalada.');

end;

 

Atenciosamente,

Fernando Dutra.

[Juliomar Marchetti]

por favor anexe o arquivo alterado para aplicar a correção ao svn

[Diego Jacaúna]

A solução do Fernando deu certo porém ocorreu outro erro:

 

Undeclared Identifier : 'TITULO CONTEXTO'.

 

Se alguém souber uma solução agradeço.

[Fernando Dutra]

Bom Dia Srs., tudo bem?

 

Segue o arquivo alterado e em relação ao problema acima acredito que atualizando o arquivo "EVENTOS.fr3" resolverá o problema. Espero te ajudado. Obrigado!

 

Atenciosamente,

Fernando Dutra.

ACBrNFeDANFEFR.pas

[Juliomar Marchetti]

Alterações aplicadas ao svn!

favor recompilar tudo e testar novamente