Como adicionar mais de um produto no XML

[dmonteiro]

Boa noite amigos,

Como faço para adicionar mais de um produto no XML usando o Det.Add.Prod ?

Seria só informar mais um Det.Add.Prod.nItem no código que o componente já entenderia e criaria mais uma TAG de produto dentro do XML?!

 

Agradeço desde já.

[Juliomar Marchetti]

Boa noite

chegou a olhar no svn a pasta Exemplos?

nela tem um exemplo de como fazer o uso do componente 

[dmonteiro]

Bom dia,

Sim Juliomar, estou usando o exemplo "ACBRNFe Demo" que tem lá, mas no código dele só mostra fazendo 1 item apenas.

Algum outro exemplo específico lá que tenha o que preciso?

Ou se puder colar um trechinho de um código teu aqui.

[Juliomar Marchetti]

13 minutos atrás, dmonteiro disse:

Bom dia,

Sim Juliomar, estou usando o exemplo "ACBRNFe Demo" que tem lá, mas no código dele só mostra fazendo 1 item apenas.

Algum outro exemplo específico lá que tenha o que preciso?

Ou se puder colar um trechinho de um código teu aqui.

sim tem o projeto do ACBrMonitorPLUS com uma unit só para NF-e e lá adiciona diversos produtos.

[FSoftware]

7 horas atrás, dmonteiro disse:

Ou se puder colar um trechinho de um código teu aqui.

Você deve ter uma estrutura de repetição para os produtos e o trecho ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add faz com que um novo grupo de produtos seja criado. Algo assim:

while not qr.Eof do
begin
  with ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add do
  begin
    Prod.cProd := qr.FieldByName('ID').AsString;
    Prod.xProd := qr.FieldByName('PRODUTO').AsString;
  
    // Demais campos necessários para a geração da NF-e
  end;

  qr.Next;
end;

 

[dmonteiro]

Em 04/05/2018 at 18:36, FSoftware disse:

Você deve ter uma estrutura de repetição para os produtos e o trecho ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add faz com que um novo grupo de produtos seja criado. Algo assim:

while not qr.Eof do
begin
  with ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Add do
  begin
    Prod.cProd := qr.FieldByName('ID').AsString;
    Prod.xProd := qr.FieldByName('PRODUTO').AsString;
  
    // Demais campos necessários para a geração da NF-e
  end;

  qr.Next;
end;

 

Muitooo obrigado FSoftware, resposta simples e elucidativa.

O uso deste "Items[0]" era o que eu precisava aprender. Apliquei no meu código dentro de minha estrutura de repetição e BINGO, gerou os itens.

Vou avançar aqui no desenvolvimento e precisando posto de novo.

Obrigado tb Juliomar.