Erro ao tentar imprimir um Evento após a impressão do DANFe

[jpsleao]

Boa noite!!!

Estou migrando o meu sistema para o trunk2 e estou indo bem.

Só estou com um problema e talvez vcs possam me ajudar.

Estou usando o Fast Report Completo em modo retrato.

Tenho uma nota emitida e gerei uma cce para ela.

Se eu visualizar o DANFe e depois tento visualizar a impressão da CCe, dá um erro de access violation.

Parece que na impressão do evento da cce, ele tenta buscar alguma informação da NFe.

Se imprimo o evento e depois tento imprimir o DANFe, funciona blzinha.

Desde já, agradeço a ajuda de todos.

[jpsleao]

Uma solução temporária que acabei de achar, foi incluir uma linha na função PrepareReportEvento, da unit ACBrNFeDANFEFR.

function TACBrNFeDANFEFR.PrepareReportEvento: Boolean;
var
 wProjectStream: TStringStream;
begin
  FdmDanfe.SetDataSetsToFrxReport;
  FdmDanfe.NFe := nil;

 

Por algum motivo, quando se visualiza um DANFe, fica alguma sujeira nesta propriedade.

Q que por sua vez, gera o erro de access violation na linha 1900 da unit ACBrNFeDANFEFRDM, na função TACBrNFeFRClass.frxReportBeforePrint.

Pois o Assigned(NFe) retorna verdadeiro, mas não existe nada dentro do objeto NFe  e ao tentar acessar a propriedade NFe.Ide.modelo gera o erro.

[jpsleao]

Boa noite a todos!!!

Está acontecendo a mesma coisa comigo.

Utilizei a solução temporária acima.

Alguém sabe se irão corrigir isso no SVN ??

Segue em anexo o arquivo corrigido.

O build q usei foi o 11920, para aplicar a solução acima.

ACBrNFeDANFEFR.pas