ACBrNFeMonitor2 - DANFE com RaveCB -> Contingência em FS-DA

[JSantos]

Pessoal,

encontrei mais alguma coisa estranha!

Ao emitir um DANFE em contingência FS-DA, está sendo impresso o seguinte conteúdo em 45º no DANFE:

"NFe não autorizada pala SEFAZ (SEM VALIDADE FISCAL)"

Problema constatado em produção!

Em regime de teste isto não ocorre, talvez por já existir o conteúdo de alerta para ambiente de teste.

Abraço!

[JSantos]

Pessoal,

dando uma olhada no código, localizei o problema:

Arquivo: ACBrDANFeCBRaveRetrato.pas e ACBrDANFeCBRavePaisagem.pas.

No arquivo ACBrDANFeCBRaveRetrato.pas, no trecho abaixo, não é contemplada a possibilidade de emissão do DANFE em contingência sem que a mensagem referida não seja exibida, já o que no xml não haverá status da NFe.

if Ide.TpAmb=taHomologacao then

begin //homologação

SetFont(FontNameUsed,25);

FontColor:=clSilver;

Bold:=True;

Underline:=True;

GotoXY(FFirstX+5,YY);

FontRotation:=45;

Print('AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL');

end

else if ((procNFe.cStat = 101) or (NFeCancelada)) then

begin //NFe Cancelada

SetFont(FontNameUsed,25);

FontColor:=clRed;

Bold:=True;

Underline:=True;

GotoXY(FFirstX+80,YY-80);

FontRotation:=45;

Print('NFe Cancelada');

end

else if (procNFe.cStat <> 100 ) then // Acabei incluindo: and (Ide.tpEmis <> teFSDA) para resolver temporariamente o problema com FSDA

begin //Não autorizada

SetFont(FontNameUsed,25);

FontColor:=clRed;

Bold:=True;

Underline:=True;

GotoXY(FFirstX+5,YY);

FontRotation:=45;

if procNFe.cStat <= 0 then

Print('NFe não autorizada pela SEFAZ(SEM VALIDADE FISCAL)') <-- Local onde a mensagem é impressa

else

Print(IntToStr(procNFe.cStat) + '-' +procNFe.xMotivo);

end;

[juaumkiko]

Enviado correção para o SVN.

Revisao 2169

Obrigado pela Ajuda

Joao Henrique