Erro Leitura Xml

[Gabriel Souza Lopes]

Boa tarde,

ao fazer download do xml de nota destinada pelo AcBr, o xml que é retornado não está reconhecendo

o caractere de indicador ordinal (°). O arquivo não carrega no navegador nem consigo importar no sistema que desenvolvemos aqui na firma, devido ao problema na estrutura.

Ao abrir no Notepad++ onde deveria ter o indicador ordinal está o seguinte código "xBO". Ao retirar o caractere o carregamento do arquivo funciona normalmente. Se colocar manualmente no arquivo o caracter também funciona normalmente

Editado 18 Março, 2015 por Gabriel Souza Lopes

[Tiago Ravache]

Poste um exemplo por favor

[Gabriel Souza Lopes]

Pronto, mensagem original atualizada com a imagem, e mais um detalhe, se eu fizer o download manual no site da receita, o xml vem certinho, codificando certo o indicador ordinal

[Juliomar Marchetti]

na verdade é um carácter que está ali presente!

que enconding está o arquivo? utf-8 ou ansi?

[Gabriel Souza Lopes]

É que fazendo o download pelo AcBr vem com UTF-8, mas se baixo pelo site da receita vem sem a marcação da codificação, creio que seja ANSI. E somente o do AcBr que dá o problema na leitura

[Juliomar Marchetti]

vamos tirar a dúvida !

abra os arquivos com o notepad++ e no item do menu codificação ou encoding!

assim teremos a certeza

[Gabriel Souza Lopes]

No notepad ambos aparecem como UTF-8 (Sem BOM), porém somente no arquivo do AcBr existe a tag <?xml version="1.0" encoding="UTF-8"?>. E outro detalhe, se converto esse mesmo arquivo para ANSI carrega normalmente o XML.

[Juliomar Marchetti]

Bom dia

poderia colar o trecho de seu código que faz a gravação e pega o xml do componente?

se for grande anexe o mesmo!

[Gabriel Souza Lopes]

Bom dia, segue o código  da função que faz o download : 

 

ConfiguraCompNFe;

    ACBrNFe1.DownloadNFe.Download.CNPJ := cdsEmpresaCNPJEMPRESA.AsString;

    ACBrNFe1.DownloadNFe.Download.Chaves.Clear;

    for i := 0 to ChaveNF.Count - 1 do

    begin

      ACBrNFe1.DownloadNFe.Download.Chaves.Add.chNFe := ChaveNF.Strings;

    end;

    ACBrNFe1.Download;

 

 

    for i := 0 to ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.retNFe.Count - 1 do

    begin

      if ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.retNFe.Items.cStat <> 140 then

      begin

        ShowMessage(ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.retNFe.Items.xMotivo);

        Continue;

      end;

 

      NFE := ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.XML;

 

      strPathArquivo := ACBrNFe1.Configuracoes.Arquivos.GetPathNFe(cdsPesNotaFiscalDTEMISSAONF.AsDateTime) +'\'+

                        ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.retNFe.Items.chNFe + '-nfe.xml';

 

      ACBrNFe1.NotasFiscais.Clear;

      try

        XmlNFE := TStringList.Create;

        XmlNFE.Text := NFE;

        XmlNFE.SaveToFile(strPathArquivo);

 

        DmFiscal.XMLDocFiscal(ttxUpload, ACBrNFe1.WebServices.DownloadNFe.retDownloadNFe.retNFe.Items.chNFe, tdfNFe, cdsPesNotaFiscalDTEMISSAONF.AsDateTime);

 

        ACBrNFe1.NotasFiscais.LoadFromFile(strPathArquivo);

        Result  := True;

      except

        on E: Exception do

          Raise Exception.Create('Arquivo XML da NF-e inválido.'+ E.Message);

      end;

      FreeAndNil(XmlNFE);

    end;

[Tiago Ravache]

Gabriel, não sei se vc olhou a classe TNFeDownloadNFe, ela possui uma function TratarResposta, e pelo que entendi do que li nessa function o arquivo já é salvo com o nome chave_de_acesso-nfe.xml na pasta configurada na propriedade PathSalvar, pelo que vi no seu código vc chama o Download e depois salva o conteúdo da stringlist em um arquivo de nome semelhante, é isso mesmo? Vc já tinha visto esse detalhe da TratarResposta da classe NFeDownloadNFe?

[Gabriel Souza Lopes]

Não consegui encontrar a classe. É no AcBrNfe?

[Tiago Ravache]

ACBrNFeWebServices.pas linha 3761

[Gabriel Souza Lopes]

Descobri o que era. Falta substituir esse caractere p ANSI, na function ParseText, da unit ACBrUtil. 

[Tiago Ravache]

Vc alterou a unit ACBrUtil.pas? Funcionou 100%?

 

Importante analisar se as alterações não terão impactos em outros pontos ok?

[Gabriel Souza Lopes]

Sim sim, 100%,  só acrescentei o código dos caracteres no replace para conversão de UTF-8 para ANSI.

Segue a Unit com o acréscimo do seguinte código :

 

    Texto := AnsiString(StringReplace(String(Texto), '&deg;', '°', [rfReplaceAll]));//indicador ordinal masculino

    Texto := AnsiString(StringReplace(String(Texto), '&ordf;', 'ª', [rfReplaceAll]));//indicador ordinal feminino

 

 

ACBrUtil.pas

ACBrUtil.pas

Editado 20 Março, 2015 por Gabriel Souza Lopes

[Gabriel Souza Lopes]

Bom dia!

Somente gostaria de saber se tem alguma novidade quanto a atualização do ACBr, se caso foi autorizada a alteração proposta acima ... 

[Gabriel Souza Lopes]

Alguma novidade???

[Rômulo da Costa de Souza]

Boa tarde Pessoal,

estou tendo o mesmo problema, porém no xml que estou baixando contém acentuação e acaba dando o mesmo problema, quando acrescento no inicio do xml baixado

<?xml version="1.0" encoding="UTF-8"?>

consigo ver os caracteres especiais, andei dando uma olhada em alguns tópicos mais antigos e percebi que algum tempo atrás tínhamos o seguinte tratamento 

FRetornoWS := TiraAcentos(ParseText(StrStream.DataString{, True));

porém foi retirado porque acabava mudando a estrutura do xml, alguém teria alguma ideia para corrigirmos isso, ou terei que pegar o xml salvo e efetuar ajustes antes de importar o mesmo?

[Rômulo da Costa de Souza]

Bom dia Pessoal,

Só para relatar meu testes, testei no Trunk e os arquivos "-down-nfe.xml" e "-down-nfe-soap.xml", ocorre o mesmo problema ao tentar abrir no IE, ai resolvi migrar para o Trunk2 e os arquivos "-down-nfe.xml" e "-down-nfe-soap.xml" abrem normalmente no IE, porém segue o mesmo problema entre o Trunk e o Tunk2 no arquivo "-nfe.xml", se alguém tiver alguma ideia de como podemos resolver isso, ideias são bem vindas e posso modificar os códigos sem problemas, ai posto aqui no fórum as correções, também vou continuar analisando os códigos.

[Rômulo da Costa de Souza]

Bom dia Pessoal

De novo eu, no trunk2 analisei os códigos e consegui corrigir, na unit "pcnRetDownloadNFe" na linha 238 devemos comentar o seguinte código:
{FretNFe.Items.FprocNFe := IIF(Pos(ENCODING_UTF8, FretNFe.Items.FprocNFe) > 0,
                                           '',
                                           '<' + ENCODING_UTF8 + '>') +
                                       FretNFe.Items.FprocNFe;}

porque isso, se analisar o código na hora que efetuamos o Envio dos Dados para o WebServices recebemos um retorno UTF8 e convertemos para um formato nativo de String usado pelo IDE: FPRetornoWS := ParseText(FPRetornoWS, True, True);

a partir deste momento estamos trabalhando com uma string, e o problema realmente ocorria na hora que era chamado a função Gravar, porque dentro da função Gravar tínhamos o seguinte código UTF8Str := ConverteXMLtoUTF8(ConteudoXML); para converter para UTF8, porem dentro da função "ConverteXMLtoUTF8" ela testa para ver se já tem "'<?xml version="1.0" encoding="UTF-8"?>'" e como já tinha acabava não convertendo de string para UTF8.

Pessoal se alguém tiver alguma ideia melhor favor postarem para que possamos cada vez mais melhor este componente, vou dar uma analisada na trunk para ver se conseguimos corrigir isso também.

[Italo Giurizzato Junior]

Bom dia Rômulo,

Muito obrigado pela colaboração, já esta disponível no Trunk2.

[Rômulo da Costa de Souza]

Bom dia Italo,

Ajustei também no Trunk, segue em anexo as alterações.

Fontes.rar

[Daniel Simoes]

Prezados,

Apliquei diversas modificações em ACBrDFeComum e ACBrNFe, referente a esse (eterno) problema de Encoding... Seria tão mais simples se o Delphi XE usasse UTF8, assim como todas as linguagens de programação modernas o fazem...

Por favor leiam o Change-Log.txt dos pacotes modificados... e repitam os testes...

Eu concordo com a modificação promovida pelo @Rômulo da Costa de Souza...  a analise dele, no post acima, está perfeita...

[Italo Giurizzato Junior]

Bom dia Rômulo,

Seguindo as orientações do Daniel, por favor atualize todos os fontes de todas as pastas e refaça os testes.

[Rômulo da Costa de Souza]

Bom dia Pessoal,

Obrigado pela Atenção Daniel, Italo, vou atualizar os fontes e efetuar novos testes.