Retorno Nfe Cstat

[kmkeila]

Caros amigos, 

 

Me ajudem,

 

Uso o código abaixo : 

 

...

    GeraNfe ;

    ACBrNFe1.NotasFiscais.Assinar             ;

    ACBrNFe1.Enviar('1',false) ;

 

...

    QryNota.ParamByName('CSTATUS').AsInteger := StrToint(cStat) ;

    QryNota.ParamByName('CHNFE').AsString       := ChNFe           ;

    QryNota.ExecSql ;

 

 

Quando a NFe é aceita dá tudo certo, mas quando ocorre rejeição, não consigo pegar

o código da rejeição, só aparece o messagebox dizendo a rejeição exemplo :

 

Rejeição : Total da BC ICMS difere do somatório dos itens,

 

    Como posso pegar o cStat do Erro, para gravar na minha tabela o código do erro quando rejeitada ;

 

Me parece que quando a nota está OK, prossegue , mas quando tem erro, o ACBr aborta e não continua 

para gerar o cStat, só dá a mensagem conforme descrito acima.

 

Espero ter sido clara.

 

 

Grata desde já !

 

 

   

[Isaque Pinheiro]

Após o comando enviar você de fazer o tratamento do código de retorno da propriedade cStat do tipo, faça uma pesquisa no fórum para saber todos os valores de retorno possíveis.

   if fACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat = 100 then
      ???  // Autorizada
   else
   if fACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat = 105 then
      ???  // Pendente
   else
   if fACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat = 110 then
      ???  // Denegada
   else
   if fACBrNFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].cStat > 200 then
      ??? // Rejeitada

[kmkeila]

Isaque ,

 

Muito Obrigada pela ajuda, meu código depois do enviar é este abaixo

 

   ACBrNFe1.Enviar ;

 

  For i := 0 to ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Count -1 Do

    Begin

       cStat       := IntToStr(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.cStat) ;

       xMotivo   := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.xMotivo  ;

       nRec      := ACBrNFe1.WebServices.Retorno.Recibo ;

       nProt      := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.nProt    ;

       ChNFe   := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe    ;

    end;

 

 

O problema é que se a nota for rejeitada, não passa pelo For , aparece o messagebox

dizendo o erro exemplo 'BC ICMS difere do somatório dos itens '  , e não faz o For.

 

Desde já te agradeço !

[kmkeila]

 

Editado 13 Outubro, 2013 por kmkeila

[kmkeila]

Isaque ,

 

Muito Obrigada pela ajuda, meu código depois do enviar é este abaixo

 

   ACBrNFe1.Enviar ;

 

  For i := 0 to ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Count -1 Do

    Begin

 

      O problema é que se a nota for rejeitada, não passa pelo For , aparece o messagebox

      dizendo o erro exemplo 'BC ICMS difere do somatório dos itens '  , e não passa por aqui !

 

       cStat       := IntToStr(ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.cStat) ;

       xMotivo   := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.xMotivo  ;

       nRec      := ACBrNFe1.WebServices.Retorno.Recibo ;

       nProt      := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.nProt    ;

       ChNFe   := ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items.chNFe    ;

    end;

 

 

Desde já te agradeço !

 

[freitagnx]

frmNfe.notafiscal.Enviar(vNumLote, False, Sincrono);

 If (frmNfe.notaFiscal.WebServices.Retorno.NFeRetorno.ProtNFe.Count > 0) then

 

Me retorna um Access violation.

 

Att.

 

Leonardo Freitag

[mfb admnet sistemas]

kmkeila,

O problema é que se a nota for rejeitada, não passa pelo For , aparece o messagebox

Ou seja ocorre um abort apos o metodo envia.

Está acontecendo também conosco e não conseguir tratar.

Alguem pode ajudar ?

 

[RickMao]

Gente como disse o mfb admnet sistemas, acontece o abort aí não tem o retorno.

 

Faço assim:

      if (Trim(Nota.NotasFiscais.Items.NFe.procNFe.xMotivo)<>'') then
      begin
        NFCeModel.istatu := Nota.NotasFiscais.Items.NFe.procNFe.cStat;
        NFCeModel.status := Nota.NotasFiscais.Items.NFe.procNFe.xMotivo;
      end
      else
      begin
        NFCeModel.istatu := Nota.WebServices.Retorno.cMsg; //Retorno com o Código do erro
        NFCeModel.status := Nota.WebServices.Retorno.xMsg; //Retorno com a Mensagem do erro
      end;