Nota Denegada

[Ademir P. Voigt]

Bom dia Pessoal!

Estou com o seguinte problema:

Tenho relatos de alguns clientes nossos que estão recebendo mensagem de nota denegada (irregularidade fiscal do destinatário)

Pesquisei sobre o assunto e verificamos que realmente procede.

O que preciso fazer é, nesse caso, postar essa informação no banco de dados, e alterar a numeração da próxima NFe, pois o numero dessa nota fica como denegada no sefaz.

O problema é que não consigo pegar o status 110, 301 ou 302, pq o ACBR exibe a mensagem e na sequência aborta a operação.

Já tentei fazer conforme alguns exemplos que vi no forum, mas o problema é que o sistema não retorna para minha rotina após a mensagem de uso denegado.

Tentei fazer assim:

if MyQrNFemodelo.AsString = '55' then
  begin
  ACBrNFe1.Enviar(vNumLote, True);
  end
else
  begin
  ACBrNFe1.Enviar(vNumLote, True, True);
end;

ACBrNFe1.WebServices.Retorno.Executar;

      for I := 0 to ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Count - 1 do
      begin
        // Verificando Código da Situação do Documento Fiscal e se esta Autorizado o uso
        if ACBrNFe1.NotasFiscais.Items[I].Confirmada then
        begin
          Autorizada := 'SIM';
          COD_SIT := '00';
        end
        else
        begin
          Autorizada := 'NAO';

          case (ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[I]
            .cStat) of
            110:
              begin
                COD_SIT := '04';
                ShowMessage('Uso Denegado');
                memoLog.Lines.Add('cMsg NFE: ' +
                  IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
                memoLog.Lines.Add('xMsg NFE: ' +
                  ACBrNFe1.WebServices.Retorno.xMsg);
              end;
            301:
              begin
                COD_SIT := '04';
                ShowMessage('Uso Denegado: Irregularidade fiscal do emitente');
                memoLog.Lines.Add('cMsg NFE: ' +
                  IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
                memoLog.Lines.Add('xMsg NFE: ' +
                  ACBrNFe1.WebServices.Retorno.xMsg);
              end;
            // Uso Denegado: Irregularidade fiscal do emitente
            302:
              begin
                COD_SIT := '04';
                ShowMessage
                  ('Uso Denegado: Irregularidade fiscal do destinatário');
                memoLog.Lines.Add('cMsg NFE: ' +
                  IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
                memoLog.Lines.Add('xMsg NFE: ' +
                  ACBrNFe1.WebServices.Retorno.xMsg);
              end;
            // Uso Denegado: Irregularidade fiscal do destinatário

          else
            COD_SIT := '00';
          end;

        end;
      end;

Como faço para recuperar o cstatus e postar no meu banco as devidas informações?

[Alexsandro Lopes]

 if (ACBrNFe1.WebServices.Retorno.cStat=110) or (ACBrNFe1.WebServices.Retorno.cStat=301) or
    (ACBrNFe1.WebServices.Retorno.cStat=302) or (ACBrNFe1.WebServices.Retorno.cStat=303) then
   begin
    // aqui eu faço minha rotina para pegar a nota e colocar dentro de uma pasta com nome de nfe-denegada
   end;