Acbrdanfecbraveretrato Imprimindo Autorizado Quando Denegado

[darlananogueira]

Prezados,

 

emitindo NF-e, tive retorno de uso Denegado, ao observar danfe, verifiquei que esta imprimindo protocolo de autorização.

 

Segue a correção

 

 

Unit ACBrDANFeCBRaveRetrato

 

Aproximadamente linha 488

 

codigo existente

if (ACBrNFe.NotasFiscais.Items[FNFIndex].NFe.procNFe.cStat = 110) then

               Box([fsLeft,fsTop],PosX,YPos,aWidth,aHeigthPadrao,'PROTOCOLO DE DENEGAÇÃO',aProtocolo,taCenter,True)

 

alterado para

if (ACBrNFe.NotasFiscais.Items[FNFIndex].NFe.procNFe.cStat = 110) or (ACBrNFe.NotasFiscais.Items[FNFIndex].NFe.procNFe.cStat = 205) or (ACBrNFe.NotasFiscais.Items[FNFIndex].NFe.procNFe.cStat = 301) or (ACBrNFe.NotasFiscais.Items[FNFIndex].NFe.procNFe.cStat = 302)  then

               Box([fsLeft,fsTop],PosX,YPos,aWidth,aHeigthPadrao,'PROTOCOLO DE DENEGAÇÃO',aProtocolo,taCenter,True)

 

Tentei usar o operador in, mas deu erro de subrange... e não investiguei o motivo...

Estou encaminhando o XML para testes, caso desejem...

Grata,

Darlana

 

31140705229436000170550020001051061758826880-nfe.xml

31140705229436000170550020001051061758826880-nfe.xml