Erro ao tentar ler o campo "ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF"

[Mega Online]

Estou Carregando o XML de compra do fornecedor, mas está apresentando erro na hora de ler as informações do XML, em Anexo.

Não é todos XML que apresentam BUG, não hora de ser carregado pelo componente do ACBR, mas acontece alguns casos, deste erro.

Pra resolver geralmente baixo o xml do site da SEFAZ, mas este xml ele está abrindo normalmente pelo browser, e por outro software como o "DANFEVIEW ".

Trecho Código:

      frmPrincipal.ACBrNFe.NotasFiscais.Clear;
      frmPrincipal.ACBrNFe.NotasFiscais.LoadFromFile(caminho_xml );

//Linha do Bug Abaixo

     vCNPJ_Fornecedor_NFe := Copy(frmPrincipal.ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 2) + '.' +
        Copy(frmPrincipal.ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 3, 3) + '.' +
        Copy(frmPrincipal.ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 6, 3) + '/' +
        Copy(frmPrincipal.ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 9, 4) + '-' +
        Copy(frmPrincipal.ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 13, 2);

 

35170446054219000174550010066178681938405200-nfe.xml

35170446054219000174550010066185711498818475-nfe.xml

[Juliana Tamizou]

Boa tarde.

Qual é o erro apresentado?

Att.

[Mega Online]

List index out of bounds (0)

[BigWings]

28 minutos atrás, Luciano Carvalho disse:

35170446054219000174550010066178681938405200-nfe.xml

35170446054219000174550010066185711498818475-nfe.xml

O problema é a codificação desses arquivos, que está em UTF-16.

O MOC determina que os arquivos XML estejam em UTF-8, e contenham o cabeçalho <?xml version="1.0" encoding="UTF-8"?>, o que esses arquivos não tem.

Uma simples conversão de encoding num editor de texto resolve o problema (e reduz o tamanho do arquivo pela metade).

[Celso Marigo Junior]

Esse erro indica que você está tentando ler uma posição inexistente na string, nesse caso Emit.CNPJCPF. O índice das posições do copy não deveriam começar em 0 (zero)?

Ao invés de fazer essa copia louca ai, use a função FormatarCNPJouCPF da unit ACBrValidador, algo como abaixo:

vCNPJ_Fornecedor_NFe := FormatarCNPJouCPF(frmPrincipal.ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF);

 

[Mega Online]

E você tem um exemplo de como converter o arquivo do XML de UTF-16 para UTF-8, tenho que fazer de maneira automática, já que o usuário não saberá fazer está conversão.

[BigWings]

18 minutos atrás, Luciano Carvalho disse:

E você tem um exemplo de como converter o arquivo do XML de UTF-16 para UTF-8, tenho que fazer de maneira automática, já que o usuário não saberá fazer está conversão.

    SL := TStringList.Create;
    try
      SL.LoadFromFile(OpenDialog1.FileName);
      SL.SaveToFile(OpenDialog1.FileName, TEncoding.UTF8);
    finally
      SL.Free;
    end;

    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, False);

Delphi XE5.

[Mega Online]

16 horas atrás, BigWings disse:

    SL := TStringList.Create;
    try
      SL.LoadFromFile(OpenDialog1.FileName);
      SL.SaveToFile(OpenDialog1.FileName, TEncoding.UTF8);
    finally
      SL.Free;
    end;

    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, False);

Delphi XE5.

Como eu Utilizo o Delphi 7, não funcionou o comando, consegui converter com o código abaixo: 

        //Converter Arquivo XML em UTF-8
        try
          vXMLDoc := TXMLDocument.Create(self);
          vXMLDoc.LoadFromFile(caminho_xml); 
          vXMLDoc.Version := '1.0';
          vXMLDoc.Encoding := 'UTF-8';
          vXMLDoc.SaveToFile(caminho_xml);
        finally
          vXMLDoc.Free;
        end;