rdxdt

TDBUpdater é a minha classe que faz atualização do banco de dados. Como da para perceber no inicio da função cUF é uma variavel local do tipo string,o que faz parte do AcBR é o TAcBrNFe,o qual eu pretendo usar para ler XML e importar a nfe no ERP que sou desenvolvedor. E sobre a minha outra dúvida que postei aqui mesmo sobre a leitura das tags de ICMS (ICMS00,ICMS20,etc)? O Componente unifica isso ou teria que ser verificado a existencia de cada tag. Agradeço pela atenção.

O erro que dá ocorre pela IDE que exibe a mensagem quando você esta rodando debugando ou se rodar direto do executavel também ocorre? Porque no debugger a mensagem vai subir mesmo tratando a exception.

Bom meu sistema tem que importar a NFe para o banco de dados,estou usando o TACBrNFe para carregar um XML,porém na hora da compilação recebo isso: Build [Warning] UDBUpdater.pas(31): Method 'Destroy' hides virtual method of base type 'TThread' [Error] UDBUpdater.pas(61): Undeclared identifier: 'cUF' [Error] UDBUpdater.pas(62): Undeclared identifier: 'cNF' [Error] UDBUpdater.pas(63): Undeclared identifier: 'natOp' [Error] UDBUpdater.pas(64): Undeclared identifier: 'indpag' [Error] UDBUpdater.pas(65): Undeclared identifier: 'cMod' [Error] UDBUpdater.pas(66): Undeclared identifier: 'serie' [Error] UDBUpdater.pas(67): Undeclared identifier: 'cEmi' [Error] UDBUpdater.pas(67): Undeclared identifier: 'cEmi' [Error] UDBUpdater.pas(68): Undeclared identifier: 'cSaiEnt' [Error] UDBUpdater.pas(68): Undeclared identifier: 'cSaiEnt' [Error] UDBUpdater.pas(69): Undeclared identifier: 'tpNf' [Error] UDBUpdater.pas(69): Undeclared identifier: 'tpNf' [Error] UDBUpdater.pas(70): Undeclared identifier: 'cMunfg' [Error] UDBUpdater.pas(71): Undeclared identifier: 'tpImp' [Error] UDBUpdater.pas(72): Undeclared identifier: 'tpEmis' [Error] UDBUpdater.pas(73): Undeclared identifier: 'cDV' [Error] UDBUpdater.pas(74): Undeclared identifier: 'tpAmb' [Error] UDBUpdater.pas(75): Undeclared identifier: 'finNFe' [Error] UDBUpdater.pas(76): Undeclared identifier: 'procEmi' [Error] UDBUpdater.pas(77): Undeclared identifier: 'verProc' [Error] UDBUpdater.pas(79): Undeclared identifier: 'CNPJ' [Error] UDBUpdater.pas(84): Undeclared identifier: 'CNPJ' [Error] UDBUpdater.pas(86): Undeclared identifier: 'xFant' [Error] UDBUpdater.pas(87): Undeclared identifier: 'dest_ie' [Fatal Error] UFrmMain.pas(7): Could not compile used unit 'UDBUpdater.pas' E aqui está a função procedure TDBUpdater.AtualizaXML(Arquivo : string); var nfe : TAcBrNFE; i : integer; nfeid,emit_cnpj,emit_nome,emit_fantasia,emit_ie,dest_cnpj,dest_nome,dest_fantasia,dest_mail,cUF,cNF,natOp,indPag,cMod,serie,nNf,cMunfg,tpImp,tpEmis,cDv,tPamb,finNfe,procEmi,verProc : string; prod_nome,prod_ean : string; begin nfe := TAcBrNFE.Create(nil); nfe.NotasFiscais.LoadFromFile(arquivo); //DADOS DO CABEÇALHO //-- infNFe nfeid := ExtractFileName(arquivo); cUF := nfe.NotasFiscais.Items[0].NFe.infNFe.cUF; cNF := nfe.NotasFiscais.Items[0].NFe.infNFe.cNF; natOp := nfe.NotasFiscais.Items[0].NFe.infNFe.natOp; indpag := nfe.NotasFiscais.Items[0].NFe.infNFe.indpag; cMod := nfe.NotasFiscais.Items[0].NFe.infNFe.cMod; serie := nfe.NotasFiscais.Items[0].NFe.infNFe.serie; cEmi := nfe.NotasFiscais.Items[0].NFe.infNFe.cEmi; cSaiEnt := nfe.NotasFiscais.Items[0].NFe.infNFe.cSaiEnt; tpNf := nfe.NotasFiscais.Items[0].NFe.infNFe.tpNf; cMunfg := nfe.NotasFiscais.Items[0].NFe.infNFe.cMunfg; tpImp := nfe.NotasFiscais.Items[0].NFe.infNFe.tpImp; tpEmis := nfe.NotasFiscais.Items[0].NFe.infNFe.tpEmis; cDV := nfe.NotasFiscais.Items[0].NFe.infNFe.cDV; tpAmb := nfe.NotasFiscais.Items[0].NFe.infNFe.tpAmb; finNFe := nfe.NotasFiscais.Items[0].NFe.infNFe.finNFe; procEmi := nfe.NotasFiscais.Items[0].NFe.infNFe.procEmi; verProc := nfe.NotasFiscais.Items[0].NFe.infNFe.verProc; //-- Emit emit_cnpj := nfe.NotasFiscais.Items[0].NFe.Emit.CNPJ; emit_nome := nfe.NotasFiscais.Items[0].NFe.Emit.xNome; emit_fantasia := nfe.NotasFiscais.Items[0].NFe.Emit.xFant; emit_ie := nfe.NotasFiscais.Items[0].NFe.Emit.IE; //-- Dest dest_cnpj := nfe.NotasFiscais.Items[0].NFe.Dest.CNPJ; dest_nome := nfe.NotasFiscais.Items[0].NFe.Dest.xNome; dest_fantasia := nfe.NotasFiscais.Items[0].NFe.Dest.xFant; dest_ie := nfe.NotasFiscais.Items[0].NFe.Dest.IE; E também tenho outra dúvida que é em relação a leitura dos impostos nos itens,visto que existem vária tags para o icms como <ICMS00> <ICMS20>,como eu faço a leitura dessa tag? Obrigado.