ACBRNfe Envio de E-mail do XML com BOM 

[Wanderley Trevisan]

Bom dia pessoal,

Meus clientes estão recebendo o XML que eu envio pelo ACBR automaticamente com um caractere estranho. Lendo sobre o assunto parece ser algo com conversão UTF-8 etc etc etc.....

<?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">

Alguém já passou por este problema?

 

Obrigado.

[Daniel Simoes]

O ACBr não acrescenta o BOM nos XMLs... pode ser que seja algo na sua rotina de gravar eles em Disco ou BD

[Wanderley Trevisan]

Eu faço esta conversão para Salvar no banco de dados:

 Principal.QXML.Edit;
 Principal.QXMLXML_Retorno.asWideString := StringReplace( Principal.ACBrNFe1.NotasFiscais.Items[0].XML , 'UTF-8','UTF-16' , [rfReplaceAll] );
 Principal.QXML.Post;

Mas no SQL Server está perfeito, o problema está apenas no envio do e-mail já com o XML carregado no componente.

 

[Wanderley Trevisan]

Daniel,

Eu exporto o conteúdo do banco de dados e gero um arquivo temporário para depois carregá-lo no componente:

 MemoXML.Lines.SaveToFile(ExtractFileDir(Application.ExeName)+'\Nfe\Temp\temp.xml', TEncoding.UTF8 );
 MemoXML.Free;

 Principal.ACBrNFe1.NotasFiscais.Clear;
 Principal.ACBrNFe1.NotasFiscais.LoadFromFile(ExtractFileDir(Application.ExeName)+ '\Nfe\Temp\temp.xml');

 

Algo errado?

 

[Daniel Simoes]

54 minutos atrás, Wanderley Trevisan disse:

 MemoXML.Lines.SaveToFile(ExtractFileDir(Application.ExeName)+'\Nfe\Temp\temp.xml', TEncoding.UTF8 );

Isso aqui adiciona o BOM...

Sugestão, grave no Banco como Binário (se for o caso até Zip antes)

Trate o campo como AsString ou AsAnsiString

[Wanderley Trevisan]

Daniel,

Consegui resolver fazendo da seguinte forma, caso alguém passe pelo mesmo problema:

Principal.ACBrNFe1.NotasFiscais.LoadFromString(Principal.QAuxiliar.FieldByName('XML').asAnsiString);

Usando o LoadFromString ao invés do LoadFromFile.

Obrigado.

[Juliana Tamizou]

Obrigado por reportar.

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