Ir para conteúdo
  • Cadastre-se

dev botao
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Itens Nfe Não Mostra No Xml

murilo cosme da silva
 Compartilhar
Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 3684 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

murilo cosme da silva Community Regular

murilo cosme da silva

Postado
Postado
 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);
  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado

 

 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);

 

Não foi possível entender seu problema!

o que está acontecendo?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

  • Moderadores
Juliomar Marchetti Grand Master

Juliomar Marchetti

Postado
  • Moderadores
Postado

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

Bom dia

primeira coisa gostaria de convidar as ler as regras do fórum segue o link:

em específico o item : 6.3

 

Sobre seu problema:

Está fazendo o mesmo de forma errada!

para que sua dúvida seja exclarecida de forma correta, entre na pasta exemplos/ACBrNFe

e veja a partir da linha 1809 que tem um exemplo completo!

vou postar alguns trechos ...

  with ACBrNFe1.NotasFiscais.Add.NFe do
   begin
     Ide.cNF       := StrToInt(NumNFe);
...

//Adicionando Produtos
      with Det.Add do
       begin
         Prod.nItem    := 1;
...
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br 		MVP_NewLogo_100x100_Transparent-02.png
 

 

murilo cosme da silva Community Regular

murilo cosme da silva

Postado
  • Autor
Postado

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. 
  • Moderadores
Régys Silveira Veteran

Régys Silveira

Postado
  • Moderadores
Postado

Claro que há diferença, do jeito que você está fazendo está criando uma nova nota em branco a cada vez que adiciona um novo item.

with ACBrNFe1.NotasFiscais.Add.NFe.Det.Add do

Isso instrui o componente a add uma nova nfe e um novo item nessa nova adicionada, se você faz isso para cada item, tem uma nova nota em branco para cada item.

  • Curtir 2

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
murilo cosme da silva Community Regular

murilo cosme da silva

Postado
  • Autor
Postado

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 "   
 
murilo cosme da silva Community Regular

murilo cosme da silva

Postado
  • Autor
Postado

como ta xml

 

<?xml version="1.0"?>
 
 
 
-<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>
  • Consultores
  • Solution
EMBarbosa Veteran

EMBarbosa

Postado
  • Consultores
  • Solution
Postado

O erro está na seguinte linha.

Cara ainda não consigo enteder desta forma vamos ao exemplo que temos:

 

  with ACBrNFe1.NotasFiscais.Add.NFe do

só que no meu estou usando with separados.

Se você não consegue ver, refatore o código removendo a cláusula with, que você vai conseguir entender.
  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Este tópico foi criado há 3684 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.