Importação De Xml

[Notecenter Notebook]

Estou tentando fazer a importação do XML identico ao demo, porém ocorre o seguinte erro:

[Error] Unit1.pas(32): Undeclared identifier: 'TTreeNode'

[Italo Giurizzato Junior]

Bom dia Robson,

 

Qual é a intensão de ler o arquivo XML do CT-e?

[Notecenter Notebook]

Estou gerando o SPED, então preciso enviar os transportes, por isso quero ler o xml do cte gera um tabela temporaria depois mandar para o txt.

[Italo Giurizzato Junior]

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.

 

[Notecenter Notebook]

Bom dia, conforme orientado acima, gostaria de saber onde encontro as informações de valor de Base de cálculo, icms, obs,valor total da nota, cst , por não encontrei no ide e nem em nenhum outro.

 

ATT.

[Italo Giurizzato Junior]

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.

[Notecenter Notebook]

Eu quero pegar o icms dessa forma:

ICMS          := ACBrCTe.Conhecimentos.Items[0].CTe.Imp.ICMS;

 

Porém ocorre o erro:

[Error] Unit1.pas(64): Incompatible types: 'String' and 'TICMS'

 

tanto no ICMS, BC, Valor total da nota, CST

[Italo Giurizzato Junior]

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

 

[Notecenter Notebook]

Italo boa tarde, quanto ao de cima da esta ok, mas ainda não consegui localizar a propriedade do valor total da nota.

 

Se puder dar uma dica ou algum link onde mostre todas as propriedades do CTE ( ACBrCTe.Conhecimentos.Items[0].CTe...) agradeço.

[Italo Giurizzato Junior]

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.

[Notecenter Notebook]

eu consigo baixar o manual em algum lugar??

[Notecenter Notebook]

so falta agora a nomenclatura do CST, se você puder passar..

[Italo Giurizzato Junior]

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;

[Notecenter Notebook]

Deu certo Italo,muito obrigado pela atenção..