DANFERaveCB - Erro ao imprimir CCe logo após DANFE

[Filipe Sortica]

Olá a todos!

Estou fazendo os testes finais da impressão da Carta de Correção eletrônica.

Está funcionando bem, estou conseguindo imprimir.

O único problema que tive foi ao imprimir uma CC-e logo após ter impresso um DANFe.

Recebo o seguinte erro:

Access violation at address 0947462A in module 'libpolinfe.dll'. Read of address FFFFFFD0

O erro ocorre na seguinte linha (linha 472, na unit "ACBrDANFeCBRave.pas"):

procedure ImprimirEventoRave(aACBrNFe:TACBrNFe;

                            aSite,

                            aEmail,

[...]

var EventoRave:TEventoRave;

    rvPDF:TRvRenderPDF;

    rvTXT:TRvRenderText;

    rvHTML:TRvRenderHTML;

    rvRTF:TRvRenderRTF;

begin

  EventoRave:=TEventoRave.Create(nil);

  EventoRave.ACBrNFe := aACBrNFe;

  EventoRave.FNumNFe := 1;


  if TACBrNFeDANFERaveCB(aACBrNFe.DANFE).Fonte = ftCourier then

     EventoRave.FontNameUsed := 'Courier New'

  else

     EventoRave.FontNameUsed := 'Times New Roman';

  EventoRave.FontSizeIdentDoc_Outros := NotaUtil.SeSenao(Pos('Courier',EventoRave.FontNameUsed)>0,9,10);


  rvPDF:=TRvRenderPDF.Create(DANFeRave);                    <<---------- Nesta linha.....

  rvPDF.OnDecodeImage:=DANFeRave.RaveDecodeImage;

  rvTXT:=TRvRenderText.Create(DANFeRave);

  rvHTML:=TRvRenderHTML.Create(DANFeRave);

  {$IFNDEF VER150}

  rvHTML.OnDecodeImage:=DANFeRave.RaveDecodeImage;

  {$ENDIF}

  rvRTF:=TRvRenderRTF.Create(DANFeRave);

  {$IFNDEF VER150}

  rvRTF.OnDecodeImage:=DANFeRave.RaveDecodeImage;

  {$ENDIF}

  try

    rvPDF.EmbedFonts:=False;

    rvPDF.ImageQuality:=90;

    rvPDF.MetafileDPI:=300;

    rvPDF.UseCompression:=False;

    rvPDF.Active:=True;

    EventoRave.EmailDoEmitente:=aEmail;

    EventoRave.SiteDoEmitente:=aSite;

    [...]

Será que alguém já passou por isso?

[André Ferreira de Moraes]

Troque nesta rotina ImprimirEventoRave todas as menções a DANFeRave por EventoRave.

[Filipe Sortica]

Olá André!

É isso aí. Resolveu!

Muito obrigado!

[Cristiano]

Outra:

 

Quais comandos utilizo para imprimir a CC-e? (Se no caso existir impressão no ACBrNFeMonitor 0.7.2.1)

 

OBS: Estamos gerando normalmente a CC-e com o comando: "NFe.Cartadecorrecao(<arquivo.ini>)"

 

[jorge andrade]

NFe.ImprimirEvento(cPathXMLEvento,cPathXMLNFe)

[Cristiano]

Sim Jorge. Usei esse comando mas deu erro aqui pra mim a primeira vez:

 

"ERRO: Imprimir"

 

Mas descobri o que foi: tem q marcar no ACBrNFeMonitor Modelo "Rave CB", aí funciona corretamente.

 

Sabe me dizer se no Modelo "Rave" irá funcionar futuramente?

[juaumkiko]

Sim Jorge. Usei esse comando mas deu erro aqui pra mim a primeira vez:

 

"ERRO: Imprimir"

 

Mas descobri o que foi: tem q marcar no ACBrNFeMonitor Modelo "Rave CB", aí funciona corretamente.

 

Sabe me dizer se no Modelo "Rave" irá funcionar futuramente?

 

Não posso afirmar pois não sei dos planos dos mantenedores do projeto, mas o Rave foi descontinuado e a embarcadero adotou o Fast Report como gerenciador de relatórios oficial do Delphi.

 

Logo imagino que a tendência é somente realizar melhorias nas versões dos Danfes/Eventos em Fast Report, Quick e Fortes.

Mesmo pq o Rave tem o código fechado e se não abrirem o código dele ele morrerá de vez.

 

A nevrona não lança mais atualizaçoes para o Rave a algum tempo. E não é de hoje que ela irrita todos nós com os constantes bugs que nunca são solucionados.

 

[]´s