erro ao enviar e consultar

[microbit]

Bom dia, estou com um problema, ao mandar o comando 'enviar', logo em seguida eu mando o 'consultar', mas se o comando 'enviar' deu algum erro, por exemplo: NCM invalido, ao dar o comando 'consultar', ele zera o arquivo xml, vou mandar o código fonte.

if(modo.Text='Assincrono') then
        NFe.Enviar(1, false)
      else
        NFe.Enviar(1, false, true);

    except

      on e: Exception do begin

        if(NFe.Consultar()) then
        begin

 

Seguindo o código, que eu consegui com a ajuda do pessoal da ACBR mesmo, se der algum erro ali no enviar, ele entra no try, mas ao consultar ele zera o arquivo xml, e o erro que deu para exemplo é NCM invalido.

[Italo Giurizzato Junior]

Boa tarde,

Após o envio só usamos o Consultar caso tenha ocorrido erro durante o envio.

No seu caso não existe erro e sim rejeição da nota pelo simples fato de uma informação no caso o NCM ser inválido.

Sendo assim, é preciso realizar um tratamento melhor nessa rotina.

[microbit]

O tratamento que você diz é verificar todos os campos do xml ou colocar algum retorno nesses comando?

Se for retorno dos comando, você pode me mandar um exemplo?

Grato pela resposta.

 

[Italo Giurizzato Junior]

Bom dia,

Após o envio devemos ler as seguintes propriedades:

   nStat     := ACBrNFe.WebServices.Enviar.cStat;
   sMotivo   := ACBrNFe.WebServices.Enviar.xMotivo;

Se nStat for diferente de 100 significa que ocorreu rejeição e o motivo da mesma encontra-se em xMotivo.

No caso de rejeição você deve apresentar ao usuário o conteúdo de xMotivo para que o mesmo faça a correção.

Por outro lado se ocorreu algum erro ao enviar ou receber o retorno da SEFAZ uma exceção será levantada ao sim entra em ação o Try.