Falha na acentuação de Danfe no XE

[Júlio Cesar Campos]

Bom dia.

Estou perdendo muito tempo para tentar corrigir algo que imagino que deveria ser simples.

Estamos migrando nossa aplicação de Delphi 7 para XE e vários ajustes estão sendo necessários.

Um que não estou conseguindo resolver é o problema da acentuação dos caracteres no Danfe.

Seguem os fatos e testes que realizei:

No delphi 7 vai de boa.

Tentei retirar os assentos, conforme esse tópico e não resolveu:

 

Esse outro tópico não teve resolução, mas aplicando o mesmo teste realizado pelo @tobexy, no showmessage há diferença nos resultados, no impresso não há.

Por fim, tentei o que foi postado neste tópico 

Meus fontes(do fortes) já estavam atualizados, mas reinstalei da mesma forma. Não houve mudanças.

Segue em anexo o xml e o pdf para testes.

HOMOLOGACAO_113-procNFe.PDF Homologacao_113-procNFe.XML

[Júlio Cesar Campos]

No código, atribuo o valor de um TStringList ao banco, sem formatação.

e na impressão:

ACBrNFe1.NotasFiscais.LoadFromString( QArq.FieldByname('arquivo').AsString );

ACBrNFe1.NotasFiscais.Items[0].Imprimir;

 

Para garantir que não fosse o processo de salvar no banco e capturar, tentei salvar em base64 e depois decodificar. Não mudou em nada.

[Júlio Cesar Campos]

Não achei como editar. O xml do primeiro post está incorreto. O desse é o correto.

Mais um fato interessante, se eu salvo o XML e dou loadfromfile e imprimo, vai de boa. Não consegui fazer o loadfromstring carregar os assentos.

Homologacao_113-procNFe.XML

[Júlio Cesar Campos]

Uma última informação.

Se eu tiro o utf-8 do começo do meu texto xml, no XE vai pois a função EhUTF8 retorna false. 

Acho que já tenho um meio de trabalhar para resolver agora.