Retorno Envio

[kmkeila]

Caros Amigos,

 

Já tenho este problemas faz tempo e nunca consegui resolver, não encontrei uma solução :

 

Ao enviar somente uma NFe pelo método :

 

ACBrNFe1.Enviar(vNumLote,True);

 

Se esta NFe estiver com algum erro, é me retornado o erro através de showmessage, até ai tudo bem.

o problema é que não consigo pegar o cStat para gravar no meu banco o código do erro.

 

Eu uso o comando da seguinte forma :

 

....

ACBrNFe1.Enviar(vNumLote,True);

 

 

If cStat = 100) Then

Begin

  Update Nota_Fiscal 

  Set cStat = 100 ; -- Aceita com sucesso !

else

Begin

  Set cStat =  ; -- Rejeitada ! 

end ;

 

O Problema é que quando é rejeitada não consigo pegar o cStat, pq parece que tem um abort. após o showmessage

com a mensagem de erro. e não executa no me sistema os comandos abaixo de "  ACBrNFe1.Enviar(vNumLote,True);" ;

 

Resultado disso, se retornar o erro de Lote em Processamento por exemplo, não consigo guardar este status

no banco para impedir que ele envie a nota novamente e de duplicidade. 

Nota : O Lote em Processamento foi só um exemplo .

 

 

Obrigada !

 

 

 

 

[Régys Silveira]

Na verdade é uma exception, você precisa tratar ela com um bloco try except.

[kmkeila]

Simples assim, resolvido !

 

Obrigadaaa !