Download XML - ACBr x Portal SEFAZ

[Victor Tadashi]

Ao fazer o Download de um xml através do comando:

TACBrNFe.WebServices.DownloadNFe.Executar;

Costumo salvar este retorno:

String(ACBrNFeDownload.WebServices.DownloadNFe.retDownloadNFe.retNFe.Items[0].procNFe);

Quando algum Emitente possui os caracteres "&", e  o Download é feito pelo portal, esse carácter vem como "&"
Já pela ACBr vem normal.

Essa situação vai ocorrer com todos os caracteres especiais ? "Ç", "&", etc ?
Porque essa diferença ?
Tem alguma forma de retornar pela ACBr o mesmo "formato" trazido pelo portal ?

[André Ferreira de Moraes]

Poste o arquivo com final -soap para analisarmos o retorno do SEFAZ.

[Victor Tadashi]

O que seria esse arquivo com final -soap ? 

[Victor Tadashi]

Bom como eu não entendi, vou postar o que eu identifiquei até agora.

Utilizamos o método GetDocBinding do XMLDoc do próprio Delphi, e esse cara não aceita um XML que contenha os caracteres "&", "<", ">" e mais alguns outros.

Segue em anexo os XML baixados pela ACBr e pelo Portal da Sefaz.

41160876745561000181550030002287071006222812_Sefaz.xml

Edit1.xml

 

PS.: Se precisar eu tenho um protótipo para simular esta situação.

Editado 29 Agosto, 2016 por Victor Tadashi

[André Ferreira de Moraes]

Os dois arquivos são iguais.

Configure o componente para salvar todos os arquivos enviados e recebidos dos webservices, faça um download e anexe os arquivos que serão gerados.

[Victor Tadashi]

Desculpe a falha, anexei os arquivos errados:

 

41160876745561000181550030002287071006222812_Sefaz.xml

41160876745561000181550030002287071006222812_sysmo.xml

[Victor Tadashi]

Bom, dando continuidade a duvida, agora surgiu mais um XML, só que com outro problema.
Note que quando baixado pela ACBr, temos os: "<" BR ">" e "<" Fonte IBPT ">".

 

 

 

43160889962781000109550010001020251762946811.xml

43160889962781000109550010001020251762946811_Sefax.xml

Editado 2 Setembro, 2016 por Victor Tadashi

[Victor Tadashi]

No primeiro caso, do '&', quem vai fazer a conversão é este trecho:

{ Resposta sempre é UTF8, ParseTXT chamará DecodetoString, que converterá
    de UTF8 para o formato nativo de  String usada pela IDE }
  FPRetornoWS := ParseText(FPRetornoWS, True, True);

Unit: ACBrDFeWebService

 

Vou iniciar uma analise, para ver qual impacto teria, uma alteração nesse trecho.
Gostaria,se possível, ir discutindo isso com vocês. 

Obrigado.

[Victor Tadashi]

Pensei em criar uma property na unit ACBrDFeWebService, FEncodingAsUTF8 com default true, oque acham ?

Editado 5 Setembro, 2016 por Victor Tadashi

[Victor Tadashi]

Bom, antes de fazer a alteração, resolvi dar um update no componente.
Haviam algumas alterações do dopi, mas não parece ter sido suficiente.

Apos a atualização, o meu problema passa a ser em outro lugar, agora na unit ACBrNFeWebServices

{ Processsa novamente, chamando ParseTXT, para converter de UTF8 para a String
    nativa e Decodificar caracteres HTML Entity }
  FRetDownloadNFe.Free;    // Limpa a lista
  FRetDownloadNFe := TRetDownloadNFe.Create;

  FRetDownloadNFe.Leitor.Arquivo := ParseText(FPRetWS);
  FRetDownloadNFe.LerXml;

Novamente no ParseText. O que acham dessa sugestão ?

 

ACBrNFeWebServices.pas