Jump to content

Sergio Sartori

Membros
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

1 Neutral

About Sergio Sartori

  • Rank
    Novato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Boa tarde a todos. pessoal alguem poderia me ajudar? estou desenvolvendo nfe e não tenho muita experiencia nesta area, como que Calcular vICMSST CST 10, 30, 70 ou 90 regime normal venda dentro e fora do estado.?
  2. 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;
  3. Obrigado Ricardo Rohde. Isso mesmo valeu.
  4. o acbrnfe1 não esta reconhecendo ipvista. como que eu resolvo isso? lguem pode me judar. With ACBrNFe1.NotasFiscais.Add do begin Nfe.Ide.indPag := ipVista ; <- esta dando erro end;
×
×
  • Create New...