Caros,
Quando há erro na RPS ao enviar uma nota para o servidor de São paulo ( ProSP ) retorna '0' na variável FProtocolo em vez de '' e passa direto na linha 2340 - if FProtocolo <> '' then
Dá erro logo mais abaixo List out of bounds em 2354 - FNotasFiscais.Items.NFSe.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.Numero; porque não há nota fiscal retornada.
Dessa forma não retorna a mensagem de erro do servidor.