Obter as mensagens de erro no método Enviar

[andre@prodez]

Boa noite a todos.

Seguindo orientação do .txt da pasta de exemplos do ACBrNFSe, tentei tratar os retornos de erros ao gerar/enviar um lote RPS (provedor GINFES):

 ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ x ].Codigo
 ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ x ].Mensagem
 ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ x ].Correcao
 

Gero apenas uma NFS-e por lote, portanto acesso ela sempre por meio do índice [0], no entanto, sempre que utilizo os métodos acima para retornar o erro após uma exceção gerada no método Enviar, é retornado o erro:

"List index out of bounds (0)" - como se estivesse acessando um índice inválido.

Por favor, alguém poderia me indicar de que forma devo utilizar os métodos acima para obter as mensagens de erro (ou se existi uma outra maneira para isso), pois olhando o projeto de exemplo não consegui identificar.

Agradeço a atenção.

André Luis.

[Italo Giurizzato Junior]

Bom dia André,

Antes de ler essas propriedades é preciso verificar se existe mensagens de erros disponíveis.

Faça algo do tipo

if  ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno.Count > 0 then

begin

     for x := 0 to ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno.Count -1 do

     begin

         xCodigo := ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ x ].Codigo;
         xMensagem := ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ x ].Mensagem;
         xCorrecao := ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[ x ].Correcao;

     end;

end;

[andre@prodez]

Bom dia Italo.

Obrigado pelo retorno.

Vou fazer alguns testes e qq lhe comunico.

Mas o interessante é que num dos momentos que testei essas propriedades de retorno de mensagens de erro, eu havia preenchido (propositalmente) a NFS-e sem informar o ISS, o que no provedor GINFES gera um erro ao tentar enviar, e mesmo assim retornava que o índice [0] não existia, ou seja, que estava sem mensagens de erro.

De qq forma vou refazer os testes e qq coisa entre em contato.

Obrigado.

André Luis.

[Italo Giurizzato Junior]

Andre,

Veja que você esta checando se ocorreu algum erro no envio.

Se algum data estiver errado não será retornado nesse momento e sim ao Consultar o Lote, este sim retorna as Rejeições caso o RPS enviado não seja processado com sucesso.