Acbrnfe - Danfe Em Fastreport Não Exibe A Marca D'agua Para Nfe Denegada

windsoft · 18 Fevereiro, 2015

Na impressão do Danfe em fastreport não está sendo exibida a mensagem de DENEGAÇÃO DE USO quando o status da NFe é 301,302 ou 303, somente quando é 110.

Fiz a alteração no trecho de código abaixo que resolveu o problema.

      if not (FNFe.Ide.tpEmis in [teContingencia, teFSDA, teSVCAN, teSVCRS, teSVCSP]) then
      begin
        //prioridade para opção NFeCancelada
        if (FDANFEClassOwner.NFeCancelada) or
           ((DFeUtil.NaoEstaVazio(FNFe.procNFe.nProt)) and
            (FNFe.procNFe.cStat in [101,151,155])) then
          FieldByName('Mensagem0').AsString := 'NFe Cancelada'
        else if ( FNFe.procNFe.cStat = 110 ) or
                ( FNFe.procNFe.cStat = 301 ) or
                ( FNFe.procNFe.cStat = 302 ) or
                ( FNFe.procNFe.cStat = 303 ) then
          FieldByName('Mensagem0').AsString := 'NFe denegada pelo Fisco'
        else if ((DFeUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe)) and
                 (DFeUtil.EstaVazio(FNFe.procNFe.nProt))) then
          FieldByName('Mensagem0').AsString := 'NFe sem Autorização de Uso da SEFAZ'
        else if (FNFe.Ide.tpImp = tiSimplificado) then
           FieldByName('Mensagem0').AsString := 'EMISSÃO NORMAL'
        else
          FieldByName('Mensagem0').AsString := '';
      end
      else
        FieldByName('Mensagem0').AsString := '';

A unit corrigida está anexo.

Por favor disponibilizem esta correção no repositório para toda comunidade.

Abraço e obrigado a todos.

ACBrNFeDANFEFRDM.pas