Erro: "input is not proper utf-8" ao carregar xml do provedor BHISS em Homologação

[Tiago Ropke]

Na hora de carregar um XML (ACBrNFSe1.NotasFiscais.LoadFromFile) emitido com sucesso em homologação no Provedor BHISS Porto Alegre dá o erro: "input is not proper utf-8". O erro acontece porque em homologação o xml retornado vem com a seuginte tag preenchida assim: 

Citar

<OutrasInformacoes>NFS-e gerada em ambiente de teste. NÃO TEM VALOR JURÍDICO NEM FISCAL.</OutrasInformacoes>

Se retirar o acento dessas palavras o carregamento funciona.

Fiz  a seguinte alteração na unit BHISS.LerXml de 

Citar

function TNFSeR_BHISS.NormatizarXml(const aXml: string): string;
begin
  Result := StringReplace(aXml, '&>', ' ', [rfReplaceAll]);
end;

para:

Citar

function TNFSeR_BHISS.NormatizarXml(const aXml: string): string;
begin
  Result := StringReplace(aXml, '&>', ' ', [rfReplaceAll]);
  Result := TiraAcentos(Result);
end;

Fiz essa alteração e funcionou. Acho que pode ser um jeito de resolver esse problema. 

 

[Juliomar Marchetti]

Se quer contribuir anexe o arquivo alterado

[Tiago Ropke]

Claro! Segue em anexo o arquivo. 

BHISS.LerXml.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-2634

[Italo Giurizzato Junior]

Bom dia Tiago,

Já esta no SVN.

[Tiago Ropke]

Bom dia!

Obrigado! 

[Juliomar Marchetti]

Obrigado por reportar.

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