Boa tarde, eu consegui resolver o problema de acordo com um tipo diferente de consulta.
Mudei as seguinte opções:
Código antigo que retornava o erro
FACBr.WebServices.ConsSitLoteRPS.Protocolo := AModel.Envio.NumeroProtocolo;
FACBr.WebServices.ConsSitLoteRPS.NumeroLote := AModel.Envio.NumeroLote;
FACBr.WebServices.ConsSitLoteRPS.Executar();
Result := StrToSituacaoLoteRPS(vOK, FACBr.WebServices.ConsSitLoteRPS.Situacao);
Código com a solução
FACBr.WebServices.ConsLote.Protocolo := AModel.Envio.NumeroProtocolo;
FACBr.WebServices.ConsLote.NumeroLote := AModel.Envio.NumeroLote;
FACBr.WebServices.ConsLote.Executar();
Result := StrToSituacaoLoteRPS(vOK, FACBr.WebServices.ConsLote.Situacao);
Segundo o um colega, na versão 2.00 da ABRASF não tem como consultar a situação do RPS.
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.