Jump to content

Sergio Sartori

Membros
  • Content Count

    7
  • Joined

  • Last visited

Community Reputation

1 Neutral

1 Follower

About Sergio Sartori

  • Rank
    Novato

Recent Profile Visitors

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

  1. Boa noite. Alguem poderia me ajudar, como que faço calculo icms, icmsst venda empresa normal para simples nacional NFE ? já olhei no exemplo do acbr, mas lá não tem calculos de tributos. pelos menos eu não encontrei. desde já agradeço.
  2. 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.?
  3. 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;
  4. Obrigado Ricardo Rohde. Isso mesmo valeu.
  5. 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...