ACBR NFE Alterar uma NFe para entrada no meu ERP

[Jobel]

Tenho um documento xml - Nfe carregado com o acbr nfe usando o comando loadfromfile.

Após carregar quero alterar o campo xped que está vazio para o real numero da ordem de compra e a partir dai gerar um novo arquivo xml para ser carregado pelo meu sistema.

Obviamente o arquivo original será mantido para fins de controle e compliance, mas para evitar o retrabalho do nosso fiscal preciso já entrar com a ordem de compra correta neste campo.

Este campo tem um valor para cada produto.

 

Tentei fazer algo to tipo :

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(arquivo); <------------- Carrego o arquivo original enviado pelo fornecedor. Ele esta sem a informação que preciso para automatizar o processo de validação interna.

ACBrNFe1.NotasFiscais.Items[N].NFe.Det.Items.Prod.xPed  := Produto_xPed;   <------------- este campo que quero mudar no arquivo xml.

ACBrNFe1.NotasFiscais.GravarXML('c:\temp\'+ xml_id + '.xml');  <---------------------- este arquivo xml será carregado dentro do meu ERP apenas acrescentando a  "Ordem de Compra" no campo indicado pelo manual do contribuinte.

 

No final recebo um erro de ponteiro.

 

Alguma forma de fazer isto funcionar desta forma?

[RicardoVoigt]

4 minutos atrás, Jobel disse:

ACBrNFe1.NotasFiscais.Items[N].NFe.Det.Items[ i ].Prod.xPed  := Produto_xPed; 

Att

Ricardo

[Jobel]

Prezado,

Esta dando o erro de ponteiro conforme informei.

[Jobel]

Estou usando :

 

ACBrNFe1.NotasFiscais.Items[Item].NFe.Det.Items[Item].Prod.xPed := Produto_xPed; <------------- aqui ocorre o erro.

ACBrNFe2.NotasFiscais.GravarXML('c:\temp\'+ xml_id + '.xml');

[BigWings]

1 hora atrás, Jobel disse:

Após carregar quero alterar o campo xped que está vazio para o real numero da ordem de compra e a partir dai gerar um novo arquivo xml para ser carregado pelo meu sistema.

Qualquer alteração no XML torna ele inválido, então estará carregando um XML inválido para o sistema.

25 minutos atrás, Jobel disse:

ACBrNFe1.NotasFiscais.Items[Item].NFe.Det.Items[Item].Prod.xPed := Produto_xPed; <------------- aqui ocorre o erro.

Está usando a mesma variável (Item) para acessar nota fiscal e item de nota.

26 minutos atrás, Jobel disse:

ACBrNFe2.NotasFiscais.GravarXML('c:\temp\'+ xml_id + '.xml');

Está tentando gravar por outra instância do componente, diferente da que carregou e alterou.

[Jobel]

Somente escrevi errado. 

Mas acho que já identifiquei o problema. 

ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Items[Item].Prod.xPed := Produto_xPed; 

Onde item começa com zero e não com 1.

 

De qualquer forma obrigado pela ajuda.