EnviarSincrono [mensagens de erro]

Eptus · 8 Novembro, 2017

Boa tarde,

Estou integrando com o provedor Fiorilli, que utiliza a versão 2.01. Como os serviços assíncronos dele só são executados a noite, estou utilizando o o método síncrono.

O lote está sendo recusado por causa que o item não está cadastrado na lista de serviços (sei porque vi no arquivo).

Mas estou tentando capturar os erros através deste código só que o componente dá um [access violation]

ACBrNFSe.EnviarSincrono(M_NFSeLote);

If (ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Count > 0) Then Begin
For I := 0 To ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Count - 1 Do Begin
WSCodigo := ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Items.Codigo;
WSMensagem := ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Items.Mensagem;
WSCorrecao := ACBrNFSe.WebServices.EnviarSincrono.RetornoNFSe.ListaNfse.MsgRetorno.Items.Correcao;
WSErros := WSErros + IfThen(WSErros <> '',#13+#10,'') + WSCodigo + ' - ' + WSMensagem + #13+#10 + ' [Correção: ' + WSCorrecao + ']';
End;
Gera_LogNFSe(3, fdTblVenda_NFSeCabNo_Docto.Value, fdTblVenda_NFSeCabCod_IDRegistro.Value,'{ENVIARSINCRONO_v2}', WSErros, False);
End;