murilo cosme da silva

Já vi mais minha duvida é na variação do cst, no caso se for cst040, mando toda as tag e o componente lança de acordo com o st ? with ICMS do begin CST := cst00; ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBC := 100; ICMS.pICMS := 18; ICMS.vICMS := 18; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST:= 0; ICMS.vBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; end;

Boa noite como disse em outro tópico que estava acostumado com outro componente estou com uma dificuldade de entender como preencher os st de icms dos itens. Alguém pode me da uma exemplo. é assim que estou tentando preencher: if sSTProd = '101' then begin PreparaICMS(sSTProd); with ICMS do begin CST := cstICMSSN; ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBC := ICMS.vBC; ICMS.pICMS := ICMS.pICMS; ICMS.vICMS := ICMS.vICMS; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := ICMS.pMVAST; ICMS.pRedBCST:= ICMS.pRedBCST; ICMS.vBCST := ICMS.vBCST; ICMS.pICMSST := ICMS.pICMSST; ICMS.vICMSST := ICMS.vICMSST; ICMS.pRedBC := ICMS.pRedBC; end; Agradeço desde já as contribuições de ajuda.

como ta xml <?xml version="1.0"?> -<NFe xmlns="http://www.portalfiscal.inf.br/nfe"> -<infNFe Id="NFe26141020344939000180550010000001401000000703" versao="2.00"> -<ide> <cUF>26</cUF> <cNF>00000070</cNF> <natOp>VENDA DE MERCADORIA ADQUIRIDA OU RECEBIDA DE TERCEIRO</natOp> <indPag>0</indPag> <mod>55</mod> <serie>1</serie> <nNF>140</nNF> <dEmi>2014-10-15</dEmi> <dSaiEnt>2014-10-15</dSaiEnt> <tpNF>1</tpNF> <cMunFG>2611606</cMunFG> <tpImp>1</tpImp> <tpEmis>1</tpEmis> <cDV>3</cDV> <tpAmb>2</tpAmb> <finNFe>1</finNFe> <procEmi>0</procEmi> <verProc>2.0.5</verProc> </ide> -<emit> <CNPJ>20344939000180</CNPJ> <xNome>V J B PRODUTOS ODONTOLOGICOS EIRELE ME</xNome> <xFant>V J B PRODUTOS ODONTOLOGICOS EIRELE ME</xFant> -<enderEmit> <xLgr>RUA CARLOS GOMES</xLgr> <nro>044</nro> <xBairro>MADALENA</xBairro> <cMun>2611606</cMun> <xMun>RECIFE</xMun> <UF>PE</UF> <CEP>50720100</CEP> <cPais>1058</cPais> <xPais>Brasil</xPais> <fone>8132276079</fone> </enderEmit> <IE>057863202</IE> <IEST>00000000000000</IEST> <CRT>3</CRT> </emit> -<dest> <xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome> -<enderDest> <xLgr>RUA ALBA VALDEZ</xLgr> <nro>017</nro> <xBairro>TIMBI</xBairro> <cMun>2603454</cMun> <xMun>CAMARAGIBE</xMun> <UF>PE</UF> <CEP>54774430</CEP> <cPais>1058</cPais> <xPais>Brasil</xPais> </enderDest> <IE>5897694</IE> </dest> -<total> -<ICMSTot> <vBC>0.00</vBC> <vICMS>0.00</vICMS> <vBCST>0.00</vBCST> <vST>0.00</vST> <vProd>22.20</vProd> <vFrete>0.00</vFrete> <vSeg>0.00</vSeg> <vDesc>0.00</vDesc> <vII>0.00</vII> <vIPI>0.00</vIPI> <vPIS>0.37</vPIS> <vCOFINS>1.69</vCOFINS> <vOutro>0.00</vOutro> <vNF>22.20</vNF> </ICMSTot> </total> -<transp> <modFrete>0</modFrete> </transp> -<infAdic> <infCpl>Val aprox Tributos: R$ 7,57 (34,10%) Fonte:IBPT</infCpl> </infAdic> </infNFe> </NFe>

Cara ainda não consigo enteder desta forma vamos ao exemplo que temos: with ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.cNF := StrToInt(NumNFe); //Caso não seja preenchido será gerado um número aleatório pelo componente Ide.natOp := 'VENDA PRODUCAO DO ESTAB.'; Ide.indPag := ipVista; Ide.modelo := 55; Ide.serie := 1; Ide.nNF := StrToInt(NumNFe); Ide.dEmi := Date; //depois na linha 1857 Emit.CNPJCPF := edtEmitCNPJ.Text; Emit.IE := edtEmitIE.Text; Emit.xNome := edtEmitRazao.Text; Emit.xFant := edtEmitFantasia.Text; Emit.EnderEmit.fone := edtEmitFone.Text; Emit.EnderEmit.CEP := StrToInt(edtEmitCEP.Text); Emit.EnderEmit.xLgr := edtEmitLogradouro.Text; //depois na linha 2146 with Det.Add do begin Prod.nItem := 1; // Número sequencial, para cada item deve ser incrementado Prod.cProd := '123457'; Prod.cEAN := ''; Prod.xProd := 'Descrição do Serviço'; Prod.NCM := '99'; Prod.EXTIPI := ''; Prod.CFOP := '5933'; Prod.uCom := 'UN'; //depois na linha 2302 exporta.UFembarq := '';; exporta.xLocEmbarq := ''; compra.xNEmp := ''; compra.xPed := ''; compra.xCont := ''; end; ==>" acredito que este end finaliza o with lá do inicio, então logo entendo que tudo esta com ACBrNFe1.NotasFiscais.Add.NFe embutido, porque todas as outras tags vieram ok, se fosse desta forma para cada declaração feita antes estaria uma nova nota e não foi isto que aconteceu tudo esta aparecendo no xml emitente, destinatário, total menos o produto "

Eu já vi é não vejo diferença no que ta lá com o que estou escrevendo. no acbr with ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.cNF := StrToInt(NumNFe); ... //Adicionando Produtos with Det.Add do begin Prod.nItem := 1; ... meu with ACBrNFe1.NotasFiscais.Add.NFe.Det.Add do begin Prod.nItem := iCont; Prod.cProd := Produto.cProd; Prod.cEAN := Produto.cEAN; Prod.xProd := Produto.xProd; Prod.NCM := Produto.NCM; Prod.EXTIPI := Produto.ExTIPI; Prod.CFOP := Produto.CFOP; Prod.uCom := Produto.uCom; Prod.qCom := StrToFloat(Produto.qCom); Prod.vUnCom := StrToFloat(Produto.vUnCom); Prod.vProd := StrToFloat(Produto.vProd); Prod.cEANTrib:= Produto.cEANTrib; Prod.uTrib := produto.uTrib; Prod.qTrib := StrToFloat(produto.qTrib); Prod.vUnTrib := StrToFloat(produto.vUnTrib); Prod.vOutro := StrToFloat(Produto.vOutro); Prod.vFrete := StrToFloat(Produto.vFrete); Prod.vSeg := StrToFloat(Produto.vSeg); Prod.vDesc := StrToFloat(Produto.vDesc); só que no meu estou usando with separados.

ACBrNFe1.DANFE.TipoDANFE qual a variável para ele.

QUE TIPO É ESTA VARIÁVEL ''tnEntrada'' NÃO CONSIGO DECLARAR NO PROJETO

O XML NAO APARECE OS ITENS SO CABEÇALHO, EMITENTE, DESTINATARIO E TOTAL OS ITENS ESTÃO SEM APARECER NO XML

with ACBrNFe1.NotasFiscais.Add.NFe.Det.Add do begin Prod.nItem := iCont; Prod.cProd := Produto.cProd; Prod.cEAN := Produto.cEAN; Prod.xProd := Produto.xProd; Prod.NCM := Produto.NCM; Prod.EXTIPI := Produto.ExTIPI; Prod.CFOP := Produto.CFOP; Prod.uCom := Produto.uCom; Prod.qCom := StrToFloat(Produto.qCom); Prod.vUnCom := StrToFloat(Produto.vUnCom); Prod.vProd := StrToFloat(Produto.vProd); Prod.cEANTrib:= Produto.cEANTrib; Prod.uTrib := produto.uTrib; Prod.qTrib := StrToFloat(produto.qTrib); Prod.vUnTrib := StrToFloat(produto.vUnTrib); Prod.vOutro := StrToFloat(Produto.vOutro); Prod.vFrete := StrToFloat(Produto.vFrete); Prod.vSeg := StrToFloat(Produto.vSeg); Prod.vDesc := StrToFloat(Produto.vDesc);

bom dia, valeu cara muito obrigado por responder, mais não conseguir visualizar no exemplo como alimentar as tags só vejo como dar um openfile em um arquivo já existente. E que eu usava um componente da empresa ncs e ta tinha cada no e tags para ser alimentada e não estou identificando isto no exemplo.

criando um xml com o componente, quais as tags.