Problema XML baixado pela DistribuiçãoDFe

[Felipe Augusto R.]

Após a inclusão do ParseText na linha 435 da Unit pcnRetDistDFeInt, conforme imagem abaixo, o XML baixado pelo método "ACBrNFe1.DistribuicaoDFePorChaveNFe(cUF, vCNPJ, vChave)" não abre em alguns programas que fazem leitura do xml, como por exemplo, no internet explorer.
Descobri pois alguns contadores disseram não estar conseguindo realizar a importação nos programas que utilizam, mas caso baixem o mesmo XML pelo portal da NFe, funciona normalmente.

Para ter certeza que o problema passou a ocorrer após a inclusão do ParseText, dei um revert, compilei e baixei os XMLs novamente. 
Todos os XMLs passaram a abrir normalmente no Internet Explorer.

Anexei os XMLs de exemplo. O após a atualização (com problema) inicia "ComParse" e o anterior a atualização, que funciona normalmente, tem o nome iniciado por "SemParse".

Obs: Testei as combinações possíveis das propriedades "RetiraAcento" e "RetiraEspaco" e o problema ainda ocorre.
Poderiam ajudar por favor a identificar/corrigir o problema? 
A princípio estou utilizando a versão anterior à modificação, mas gostaria de manter os fontes atualizados.
Desde já, obrigado.

ComParse-32180917586530000166550010000389501190558750-nfe.xml

SemParse32180917586530000166550010000389501190558750-nfe.xml

[Allan Wolski]

Boa tarde!

Estamos enfrentando o mesmo problema aqui na empresa após atualização dos fontes do ACBr.
O XML fica inválido devido a função ParseText substituir entidades de referência pelo seu respectivo operador, como por exemplo &lt; para  <.

A motivação desta alteração pode ser visualizada na postagem abaixo.

Não sei qual seria a melhor opção neste caso.
Talvez o @Daniel Simoes possa nos auxiliar.

[fernandobs]

Bom dia Srs.

Após atualizar os fontes  passei a ter o mesmo problema, seguindo a orientação do colega Felipe Augusto R., voltando apenas o conteúdo da linha 435 da Unit pcnRetDistDFeInt, voltou a baixar corretamente os XML respeitando a acentuação.

Obrigado.

[Daniel Simoes]

verificando...

[Daniel Simoes]

Enviei um possível ajuste para o SVN...

[Allan Wolski]

Bom dia, @Daniel Simoes

Com este ajuste os valores são carregados corretamente nas propriedades do componente, porém ainda é necessário converter o XML para gravar no banco de dados.
Pensei em usar a função DecodeToString ao invés do ParseText para setar a variável StrDecod.

StrDecod := DecodeToString(UnZip(DecodeBase64(StrAux)), True);

O que você acha Daniel?

[Daniel Simoes]

Não compreendi...

pode anexar um exemplo do XML, como ficou ?

[Allan Wolski]

O XML fica com caracteres inválidos, igual o exemplo enviado na outra postagem que motivou estas alterações.
Para gravar corretamente no banco de dados eu uso a função ConverteXMLtoNativeString, porém ela remove a declaração do XML.

A codificação fica correta utilizando a função DecodeToString sem remover a declaração do XML.

Editado 10 Janeiro, 2019 por Allan Wolski

[Italo Giurizzato Junior]

Bom dia Allan,

De qual propriedade você esta pegando o XML para salvar no banco de dados?

[Allan Wolski]

Bom dia, Italo!

ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].XML

 

[Daniel Simoes]

31 minutos atrás, Allan Wolski disse:

O XML fica com caracteres inválidos, igual o exemplo enviado na outra postagem que motivou estas alterações.
Para gravar corretamente no banco de dados eu uso a função ConverteXMLtoNativeString, porém ela remove a declaração do XML.

A codificação fica correta utilizando a função DecodeToString sem remover a declaração do XML.

Allan,

O XML tem que ficar com os "Entity code",  e em UTF8... caso contrário ele será um XML inválido...

Foi justamente essa a modificação promovida...

Abrir o XML no Internet Explorer, exibe ele corretamente ?

[Allan Wolski]

Daniel, segue o XML em anexo para melhor compreensão do problema.
Lembrando que o arquivo foi resgatado do banco de dados, salvo através da propriedade que mencionei anteriormente.

35190123318607000381550030000048821999893621.xml

[Daniel Simoes]

Isso pode ter sido causado, no seu processo de salvar e ler do BD...

Eu acho pouco provável que esteja errado, porque estamos salvando o XML resultante imediatamente após as operações de Descompactação e decodificação da Base64.. Ou seja... é como foi enviado pelo SEFAZ

Se possível, por favor anexe o conteúdo em Base64, da Tag <DocZip>, referente ao XML acima

[Allan Wolski]

Sim, e basicamente eu resolvo isso com a função ConverteXMLtoNativeString.
Apenas sugeri em utilizar o DecodeToString ao invés do ParseText diretamente na variável StrDecod, visto que a mesma é chamada dentro do ParseText.

Desta forma solucionaria ambos os problemas, pois não teria o replace dos "entity code".

[Daniel Simoes]

Mas quando atribuímos os valores das Tags para dentro das propriedades do Objeto, ambas operações são necessárias.... Transformar a String de UTF8 para a String Nativa da IDE, e substituir os entity code