Ler XML rebebido (compras) para uso gerencial.

[Vinibarr Vinibarr]

Olá pessoal.

Peguei um sistema para fazer manutenção e tem uma rotina que não está funcionando. Essa rotina lê um xml recebido de um fornecedor, e monta uma interface para facilitar a inserção dos dados do XML no sistema.

Porém ocorre uma falha; parece que o XML não é carregado, apesar de eu apontar corretamente o arquivo.

Usei o demo do ACBR e tive o mesmo problema; logo, tem alguma coisa que não estou sabendo fazer. 

O bloco do código do demo do ACBR é o seguinte:

 

procedure TfrmACBrNFe.btnCarregarXMLEnviarClick(Sender: TObject);
begin
  OpenDialog1.Title := 'Selecione a NFe';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFe (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;

  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, False);

    with ACBrNFe1.NotasFiscais.Items[0].NFe do

 

Nessa ultima linha, nunca tem items; o items[0] está nulo e dá pau de acesso.

Existe algo que eu tenha que fazer antes, algum pré requisito, alguma configuração ?

- Modelo de documento: acredito que esteja fazendo certo.

- Versão do XML: acredito que esteja fazendo certo.

O que será que estou fazendo de errado ? Estou com ACBR atualizado.

Agradeço a todos por qualquer dica, palpite, norte, luz e etc.

Muito obrigado antecipadamente.

[BigWings]

9 minutos atrás, Vinibarr Vinibarr disse:

Agradeço a todos por qualquer dica, palpite, norte, luz e etc.

- Verifique se está carregando um XML NFe válido.

- Tente a mesma rotina com outros arquivos XML.

[Vinibarr Vinibarr]

Acabei de tentar com um xml emitido pelo próprio estabelecimento (nesse caso, emitido e processado pela tecnospeed) e também não leu; deve ter algum detalhe bobo que estou deixando escapar.

Agora, BigWings disse:

- Verifique se está carregando um XML NFe válido.

- Tente a mesma rotina com outros arquivos XML.

 

[Dercide Alvarez]

@Vinibarr Vinibarr

Minha rotina de leitura funciona normalmente....

Talvez você não esteja usando as sintaxe correta, tente assim :

 

    for I := 0 to ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Count-1 do
    begin
      with ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items do
      begin
             Descricao            := Prod.xProd;
             Quantidade        := Prod.qCom;
             Unitario              := Prod.vUnCom;

             ValorTotal         := Prod.vProd;

 

Dercide.