Sergio Fuchs

Bom dia
Tem alguns XML's que tem uma tag inválida que causa uma erro na ConsultaDFe
Exception que acontece na hora da Consulta
ErrEACBrXmlException with message 'Extra content at the end of the document

Abaixo a TAG no xml com problema.
<xDescServ>Créditos para solicitar o download de 2.000 chaves de NFe ou CTe </br> </br>Inscrição estadual do tomador: 252696654 </br> </br>Valor aprox. dos tributos (24,91% ) Lei da Transparência nº12.741/12. </br>Fonte: IBPT</xDescServ>

Em anexo tem o Xml completo.
Aqui fiz a seguinte alteração para conseguir processar o xml e funcionou.

Na Unit ACBrXmlBase
Dentro da Função: RemoverCaracteresDesnecessarios
Adicionei na linha 250:
Result := FaststringReplace(Result, '</br>', ';', [rfReplaceAll]);
Esta função já esta tratando o '<br >' e '<br>', somente esta faltando tratar o '</br>'
2500000029945.xml

Adicionei o arquivo com a alteração que eu fiz, e o motivo é o problema no inicio do Tópico.
Na função ConsultarDFe na leitura do xml em anexo,  dá um erro na linha Document.LoadFromXml(Arquivo), pq o XML não esta válido tem um "<br>" no meio da tag xOutInf.
 
A Alteração foi esta abaixo, adicionei a linha:
Arquivo := RemoverCaracteresDesnecessarios(Arquivo)

E assim removeu o <br> q estava inválido e processou a leitura sem nenhum erro.


Se tem outro lugar que seria mais correto para fazer esta alteração, me avisem que eu posso testar aqui.
PadraoNacional.LerXml.pas