Jump to content

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sergio Sartori

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

Recommended Posts

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;
 

Share this post


Link to post
Share on other sites

Boa tarde.

O primeiro passo é estudar o demo do componente.

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
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.

  • Like 1

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...