Boa tarde @Datacaixa.
O problema ainda persiste?
Veja o resultado que obtive ao realizar um teste com a cidade de Araraquara/SP atendida pelo provedor Ginfes.
Sugiro que faça o seguinte:
Veja se você não possui fontes alterados localmente. Os mesmos são indicados pelo SVN com uma bolinha vermelha ao lado da unit.
Caso afirmativo, resolva essas alterações.
Verifique se você não possui nenhum .bpu ou .dcu perdidos em sua máquina em locais que não deveriam estar.
Geralmente quando compila um pacote manualmente ele adiciona em Users\Public\Documents\Embarcadero\Studio\VersaodoSeuDelphi\
Reinstale o ACBr com a opção "Apagar Arquivos Antigos" no instalador marcada, para que ele apague .dcus e .bpus antigos e gere novos.
Repita o teste.
Também é válido rever na sua aplicação como é o processo que faz para capturar estas mensagens de erro.
Veja como é feito no programa exemplo:
procedure TfrmACBrNFSe.ChecarResposta(aMetodo: TMetodo);
var
i: Integer;
procedure ListaDeErros(aErros: TNFSeEventoCollection);
var
i: Integer;
begin
if aErros.Count > 0 then
begin
memoLog.Lines.Add(' ');
memoLog.Lines.Add('Erro(s):');
for i := 0 to aErros.Count -1 do
begin
memoLog.Lines.Add('Código : ' + aErros[i].Codigo);
memoLog.Lines.Add('Mensagem: ' + aErros[i].Descricao);
memoLog.Lines.Add('Correção: ' + aErros[i].Correcao);
memoLog.Lines.Add('---------');
end;
end;
end;
//...
begin
//...
with ACBrNFSeX1.WebService do
begin
case aMetodo of
//...
tmConsultarLote:
begin
with ConsultaLoteRps do
begin
memoLog.Lines.Add('Método Executado: ' + MetodoToStr(tmConsultarLote));
memoLog.Lines.Add(' ');
memoLog.Lines.Add('Parâmetros de Envio');
memoLog.Lines.Add('Numero do Prot: ' + Protocolo);
memoLog.Lines.Add('Numero do Lote: ' + NumeroLote);
memoLog.Lines.Add(' ');
memoLog.Lines.Add('Parâmetros de Retorno');
memoLog.Lines.Add('Situação Lote : ' + Situacao);
memoLog.Lines.Add('ID Nota : ' + idNota);
memoLog.Lines.Add('Sucesso : ' + BoolToStr(Sucesso, True));
ListaDeResumos(Resumos, tmConsultarLote);
LoadXML(XmlEnvio, WBXmlEnvio, 'temp1.xml');
LoadXML(XmlRetorno, WBXmlRetorno, 'temp2.xml');
ListaDeErros(Erros);
ListaDeAlertas(Alertas);
end;
end;
//...
end;
end;
end;