Erro no XML baixado pelo ACBrNFE

[Rodrigo Galvan]

Agora a tarde começou a gerar este erro ao baixar as notas fiscais.

First chance exception at $00007FFF9B4C5299. Exception class EDOMParseError with message
'Caractere inválido encontrado no texto.

Line: 1
<?xml version="1.0" encoding="UTF-8"?><n'.
 

 

para baixar uso  ACBrNFe.DistribuicaoDFePorChaveNFe(41, fdqEmpresacnpj.AsString,fdqNotasFiscaischaveacesso.AsString);

anexo xml baixado

42181282951310000156558900020935621084109070-nfe.xml

[Italo Giurizzato Junior]

Boa tarde Rodrigo,

O problema desse XML é uma vogal com acento na palavra: ITAJAI.

[Rodrigo Galvan]

Como faço para retirar estes acentos? no componente está marcado "Retira acento = True".

[Rodrigo Galvan]

Resolvi usando uma função para remover os acentos:

Function RemoveAcentos(Str: String): String;
{ Remove caracteres acentuados de uma string }
Const
  ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
  SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
Var
  x: integer;
Begin
  For x := 1 to Length(Str) do
  Begin
    if pos(Str[x], ComAcento) <> 0 Then
    begin
      Str[x] := SemAcento[pos(Str[x], ComAcento)];
    end;
  end;
  Result := Str;
end;

ai no código fiz assim

Xml := docZip.Items[i].Xml;
ACBrNFe.NotasFiscais.Add.Xml := Xml;
Xml := RemoveAcentos(Xml);
ArqXML := TStringStream.Create(Xml);

Parou de dar problemas. Obrigado pela ajuda indicando onde estava o problema.

 

Podem marcar como Resolvido.

Editado 29 Dezembro, 2018 por Rodrigo Galvan
Finalizar topico

[Amarildo de Matos]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.