Ir para conteúdo
  • Cadastre-se

dev botao

Ler XML rebebido (compras) para uso gerencial.


Vinibarr Vinibarr
Ver Solução Respondido por Dercide Alvarez,
  • Este tópico foi criado há 1588 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link para o comentário
Compartilhar em outros sites

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.

 

Link para o comentário
Compartilhar em outros sites

  • Solution

@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.

 

  • Curtir 3
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1588 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.