Jump to content

dev botao

Importação De Xml


Go to solution Solved by Notecenter Notebook,
  • Este tópico foi criado há 4125 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Robson,

 

A idéia é ler os dados contidos nas tags do XML do CT-e, correto?

 

Se sim, uma sugestão seria:

 

 ACBrCTe.Conhecimentos.Clear;
 ACBrCTe.Conhecimentos.LoadFromFile(sNomeArquivo); // sNomeArquivo contem o path + o nome do XML
 

 nNumCT := ACBrCTe.Conhecimentos.Items[0].CTe.Ide.nCT; // Contem o numero do conhecimento

 nCFOP  := ACBrCTe.Conhecimentos.Items[0].CTe.Ide.CFOP // Contem o CFOP referente ao conhecimento

 

(...)

 

Desta forma você consegue obter todos os dados (um a um) do XML e armazena-los em variáveis locais, salvar em uma tabela temporário, etc.


 

  • Like 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Consultores

Bom dia Robson,

 

Exemplo:

 

Para  CST = 00 teriamos:

 

vBC := Imp.ICMS.CST00.vBC;
pICMS := Imp.ICMS.CST00.pICMS;
vICMS := Imp.ICMS.CST00.vICMS;

 

Para  CST = 20 teriamos:


vBC := Imp.ICMS.CST20.vBC;
pICMS := Imp.ICMS.CST20.pICMS;
vICMS := Imp.ICMS.CST20.vICMS;

pRedBC :=Imp.ICMS.CST20.pRedBC;

Espero ter ajudado.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Consultores

Robson,

 

Tem que ser desta forma:

 

var
 vBC, pICMS, vICMS: double;
begin

    // Para  CST = 00 teriamos:

 

   vBC := ACBrCTe.Conhecimentos.Items[0].CTe.Imp.ICMS.CST00.vBC;
   pICMS := ACBrCTe.Conhecimentos.Items[0].CTe.Imp.ICMS.CST00.pICMS;
   vICMS := ACBrCTe.Conhecimentos.Items[0].CTe.Imp.ICMS.CST00.vICMS


 

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Consultores

Robson

 

Isso ajuda?

 

var
 vNF, vTPrest, vRec: Double;
begin
 vNF:=ACBrCTe.Conhecimentos.Items[0].CTe.Rem.infNF.Items[0].vNF; // Valor da NF comum
 

 vTPrest:=DMCTe.CTe.Conhecimentos.Items[0].CTe.vPrest.vTPrest; // Valor total da prestação
 

 vRec:=DMCTe.CTe.Conhecimentos.Items[0].CTe.vPrest.vRec; // Valor a receber

 

Note que a nomenclatura utilizada no componente é a mesma utilizada no manual.

Com o manual em mãos vai te ajudar bastante para montagem dessas linhas.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Consultores

Robson,

 

O manual esta disponivel no Portal Nacional do CTe.

http://www.cte.fazenda.gov.br/listaConteudo.aspx?tipoConteudo=YIi+H8VETH0=

 

Com relação ao CST lembre-se que temos varios 00, 20, ...

 

Tome como base o que eu lhe passei:

 

var
 vBC, pICMS, vICMS: double;
begin

    // Para  CST = 00 teriamos:

   vBC := ACBrCTe.Conhecimentos.Items[0].CTe.Imp.ICMS.CST00.vBC;
   pICMS := ACBrCTe.Conhecimentos.Items[0].CTe.Imp.ICMS.CST00.pICMS;
   vICMS := ACBrCTe.Conhecimentos.Items[0].CTe.Imp.ICMS.CST00.vICMS;

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.