Não estou conseguindo inserir mais de um produto no XML alguem pode me ajudar por favor.

[Sergio Sartori]

Boa tarde a todos. 

se possível  alguém poderia me explicar como que eu faço para inserir + de um produto no xml?

estou fazendo assim :  mas somente de 5 produtos só grava o ultimo no xml.

 

//******************************************************************************
// produtos
//******************************************************************************
  vItens:= 0;
  Produto := NotaF.NFe.Det.Add;
  Produto.Prod.nItem:= vItens;
  vItens := 0;
  dmnfe.cdsNfe_itens.First;
  while not dmnfe.cdsNfe_itens.Eof do
  begin
  Inc(vItens);
  Produto.Prod.nItem    := vItens; // Número sequencial, para cada item deve ser incrementado
  Produto.Prod.cProd    := IntToStr(dmnfe.cdsNfe_itensCPROD.AsInteger);//'123456';
  Produto.Prod.cEAN     := dmnfe.cdsNfe_itensCEAN.AsString;
  Produto.Prod.xProd    := dmnfe.cdsNfe_itensXPROD.AsString;
  Produto.Prod.NCM      := dmnfe.cdsNfe_itensNCM.AsString; // Tabela NCM disponível em http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm
  Produto.Prod.EXTIPI   := '';
  Produto.Prod.CFOP     := IntToStr(dmnfe.cdsNfe_itensCFOP.AsInteger);
  Produto.Prod.uCom     := dmnfe.cdsNfe_itensUCOM.AsString;
  Produto.Prod.qCom     := dmnfe.cdsNfe_itensQCOM.AsFloat;
  Produto.Prod.vUnCom   := dmnfe.cdsNfe_itensVUNCOM.AsFloat;
  Produto.Prod.vProd    := dmnfe.cdsNfe_itensVPROD.AsFloat;
  Produto.Prod.cEANTrib := dmnfe.cdsNfe_itensCEANTRIB.AsString;
  Produto.Prod.uTrib     := 'UN';
  Produto.Prod.qTrib     := 1;
  Produto.Prod.vUnTrib   := 100;

  Produto.Prod.vOutro    := 0;
  Produto.Prod.vFrete    := 0;
  Produto.Prod.vSeg      := 0;
  Produto.Prod.vDesc     := 0;

//  Produto.Prod.CEST := dmnfe.cdsNfe_itensCest.AssTring;
  dmnfe.cdsNfe_itens.Next;
  end;

  Produto.infAdProd := 'Informacao Adicional do Produto';

 ACBrNFe1.NotasFiscais.Items[0].GravarXML('Teste.xml', ExtractFilePath(ParamStr(0)));
 ACBrNFe1.NotasFiscais.Clear;
 

[Juliana Tamizou]

Boa tarde.

O primeiro passo é estudar o demo do componente.

Att.

[BigWings]

33 minutos atrás, Sergio Sartori disse:

  Produto := NotaF.NFe.Det.Add;

O método Det.Add é o que cria o item no componente, então essa linha tem que estar dentro do loop.

[Sergio Sartori]

Obrigado deu certo, isto não esta no demo do acbr.  

Obrigado.

[Sergio Sartori]

BigWings 

sua dica foi, perfeita.

Obrigado por sua atenção.