Lista de Rejeições NFS-e (Envio Sincrono)

[EGOS Soluções]

Boa tarde a todos, gostaria de saber se tem como eu pegar via componente a lista de rejeições do retorno do NFS-e. Obrigado

[Italo Giurizzato Junior]

Boa tarde,

Segue um exemplo:

            if ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Count > 0 then
            begin

                   // as linhas abaixo é interessante colocar em um loop, pois pode ser retornado mais de uma rejeição
                   sStat   := ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Items[0].Codigo;
                   sMotivo := ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Items[0].Mensagem;
            end
            else
            begin
                   sStat   := '';
                   sMotivo := '';
            end;
 

[Carlos Hendrik Oliveira]

Em 21/01/2019 at 16:15, Italo Jurisato Junior disse:

Boa tarde,

Segue um exemplo:

            if ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Count > 0 then
            begin

                   // as linhas abaixo é interessante colocar em um loop, pois pode ser retornado mais de uma rejeição
                   sStat   := ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Items[0].Codigo;
                   sMotivo := ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Items[0].Mensagem;
            end
            else
            begin
                   sStat   := '';
                   sMotivo := '';
            end;
 

Bom dia, Italo

simulei um erro (tentei enviar um rps com um número de lote que já havia sido transformado em nota), o componente AcbrNFSe gerou um exceção e quando foi tentar verificar se a propriedade MsgRetorno era maior que zero, deu erro de access violation.

Neste caso, como proceder?

 

Obrigado.

 

 

[Italo Giurizzato Junior]

Boa noite Carlos,

É preciso "debugar" para saber o local exato que ocorre o AV.