Danfe Fortes Report

[hleorj]

Solicito as devidas modificacoes Para o seguintes casos para notas denegadas

205    Rejeição: NF-e está denegada na base de dados da SEFAZ
301    Uso Denegado: Irregularidade fiscal do emitente    WS
302    Uso Denegado: Irregularidade fiscal do destinatário

Em :

Unit ACBrNFeDANFeRLPaisagem.pas

Na 
  procedure TfrlDANFeRLPaisagem.InitDados;

   De
       if FNFe.procNFe.cStat = 110 then

    Para
      if FNFe.procNFe.cStat = [110,205,301,302] then

 

   De
      if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155] then

   Para
     if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155,205,301,302] then

 

Unit ACBrNFeDANFeRLRetrato;

Na
 procedure TfrlDANFeRLRetrato.InitDados;

   De
     If FNFe.procNFe.cStat = 110 then

    Para
      if FNFe.procNFe.cStat = [110,205,301,302] then

   De
      if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155] then

   Para
     if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155,205,301,302] then

Unit ACBrNFeDANFeRLSimplificado;

Na
  procedure TfrlDANFeRLSimplificado.RLb04_DestinatarioBeforePrint(  Sender: TObject; var PrintIt: boolean);  

  De
     If FNFe.procNFe.cStat = 110 then

    Para
      if FNFe.procNFe.cStat = [110,205,301,302] then

   De
      if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155] then

   Para
     if not FNFe.procNFe.cStat in [100, 101, 110, 151, 155,205,301,302] then

 

Grato.

[Juliomar Marchetti]

Boa tarde

Anexe o arquivo para que efetuemos o merge!

[hleorj]

Diversos ajuste :

              Nova identacao
              Remocao de comentarios
              Ajustes para Nota denegada
              Remocao de Variaveis
              Nova Estrutura em case
              Remocao de If nao necessarios para danfe

 

Danfe.rar