Tratando o retorno

[felipeiw]

Pessoal estou testando o codigo abaixo, no caso de autorizada funciona, entra no IF e grava tudo certinho, mas nao funciona quando a nota foi denegada, o que estou fazendo de errado ?

  ACBrNFe.Enviar(0,True);


  nfecha := ACBrNFe.WebServices.Retorno.ChaveNFe;

  nfepro := ACBrNFe.WebServices.Retorno.Protocolo;

  nfemot := ACBrNFe.WebServices.Retorno.xMotivo;

  nferec := ACBrNFe.WebServices.Retorno.Recibo;


  // Autorizada ou Denegada

  if (ACBrNFe.WebServices.Retorno.cStat in [100,110]) then

  begin

    // Autorizada

    if (ACBrNFe.WebServices.Retorno.cStat in [100]) then

    begin

      NotasC.Edit;

      NotasCNFECHA.Value := nfecha;

      NotasCNFEREC.Value := nferec;

      NotasCNFEPRO.Value := nfepro;

      NotasC.Post;

      NotasC.ApplyUpdates(0);

    end;


    // Denegada

    if (ACBrNFe.WebServices.Retorno.cStat in [110]) then

    begin

      NotasC.Edit;

      NotasCNFECHA.Value := nfecha;

      NotasCNFEREC.Value := nferec;

      NotasCNFEPRO.Value := nfepro;

      NotasCNOTCAN.Value := 'D';

      NotasC.Post;


      Receber.First;

      while not(Receber.Eof) do

        Receber.Delete;


      try

        Transacao := SQLConnection.BeginTransaction(TDBXIsolations.ReadCommitted);


        NotasC.ApplyUpdates(0);

        Receber.ApplyUpdates(0);


        SQLConnection.CommitFreeAndNil(Transacao);

      except

        on e:exception do

        begin

          Mensagem('ERRO','Ocorreram Erros Durante a Gravação. Os Dados Serão Descartados !'+#13+e.Message);

          SQLConnection.RollbackFreeAndNil(Transacao);

          Close;

          Exit;

        end;

      end;

    end

Abs e obrigado

[Kiko Fernandes]

Não me recordo em qual NT mas se não me engano é de 2011, o webservice passou a retornar os códigos:

301 - Uso Denegado: Irregularidade fiscal do emitente.

302 - Uso Denegado: Irregularidade fiscal do destinatário.

Págs. 41/42 do Manual de Integração do Contribuinte.

[felipeiw]

mas o estranho que colocando um breakpoint no primeiro if (if (ACBrNFe.WebServices.Retorno.cStat in [100,110]) then), percebo que o sistema nao passa por ele quando retorna o erro de denegada.

Abs e obrigado

[Angelo Gomes]

Acho q dentro do comando Enviar que vc usa, qdo dá rejeitada ou denegada, ele levanta uma exception, por isso não passa no if. To chutando, não tenho certeza.

[felipeiw]

Angelo é isso mesmo, coloquei um ApplicationEvents1 e deu pra ter certeza disso, entao como posso estar fazendo para passar pelo if, sera q usando um try except ?

Obrigado

[igor]

geralmente é isso que se faz

[felipeiw]

Galera estou retornando esse topico, porque nao consegui faze-lo funcionar, realmente no enviar() levanta uma except, alguem poderia me ajudar a montar essa parte do codigo ?

Abs e obrigado

[igor]

posta o codigo com o try except que a gente tenta ajudar

[felipeiw]

Obrigado Igor, o codigo é exatamente o que esta acima do topico.

Abs

[igor]

Se o codigo é igual falta vc colocar try except no enviar