Boa noite amigos , estou importando dados de arquivos xml para dentro de minha tabela esta dando o seguinte mensagem de erro , segue em anexo, por favor alguem ja por isso , me da uma ajuda por favor...Obrigado.
Segue o codigo para fazer a importação:
// Variaveis dos campos para importação:
vid, vnat, vnota, vserie, vcfop, vmodelo, vemissao, vsaida, vuf,
vcodmunicipio, vdv: string;
vemitente, vdestinatario, vemitente_cnpj, vdestinatario_cnpj: string;
vcod_item, vcod_fornecedor, vcod_produto: string;
vcidade, vcep, vcomplemento, vtelefone1, vtelefone2, vfax, vcontato1,
vcontato2: string;
vcelular1, vcelular2, vemail, vhomepage, vcnpj, vie, vbanco, vagencia,
vconta: string;
vobs1, vobs2, vobs3, vnumero, vim, vcod_municipio_ibge, vibge: string;
vnomeprod, vxBairro, vxLgr, vfantasia, vmunemitente, vmundestinatario: string;
xvnomeprod, vcadprodnovo, vtipo, vassistencia_tecnica: integer;
va: double;
vdata: string;
vfracao: double;
{ : // CARREGA O XML PARA O COMPONENTE }
ACBrNFe1.NotasFiscais.Clear;
{ : // ALIMENTA AS VARIAVEIS CONFORME XML }
vid := copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44);
vnat := ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.natOp;
vnota := frmprincipal.zerarcodigo
(IntToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.nNF), 6);
vserie := IntToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.serie);
vmodelo := IntToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.modelo);
vcfop := '';
vuf := IntToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF);
if (DateToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi) <> ' / /') and
(DateToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi) <> '30/12/1899')
then
vemissao := DateToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)
else
vemissao := ' / / ';
if (DateToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dSaiEnt) <> ' / /') and
(DateToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dSaiEnt) <> '30/12/1899')
then
vsaida := DateToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dSaiEnt)
else
vsaida := vemissao;
vcodmunicipio := IntToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cMunFG);
vdv := IntToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cDV);
vemitente := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.xNome;
vemitente_cnpj := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF;
vmunemitente := IntToStr(ACBrNFe1.NotasFiscais.Items[0]
.NFe.Emit.EnderEmit.cMun);
vdestinatario := ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.xNome;
vdestinatario_cnpj := ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF;
vmundestinatario := IntToStr(ACBrNFe1.NotasFiscais.Items[0]
.NFe.Dest.EnderDest.cMun);
{ : // ALIMENTA OS CAMPOS DO FORM COM INFORMAÇÕES DO XML }
eid.Text := vid;
enatureza.Text := vnat;
enota.Text := vnota;
emodelo.Text := vmodelo;
eserie.Text := vserie;
ecfop.Text := vcfop;
enota_uf.Text := vuf;
edata_emissao.Text := vemissao;
edata_saida.Text := vsaida;
ecod_municipio.Text := vcodmunicipio;
edv.Text := vdv;
eemitente.Text := vemitente;
edestinatario.Text := vdestinatario;
ecnpj_emitente.Text := FormatMaskText('99.999.999/9999-99;0;_',
vemitente_cnpj);
ecnpj_destinatario.Text := FormatMaskText('99.999.999/9999-99;0;_',
vdestinatario_cnpj);
euf_emitente.Text := ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.EnderEmit.UF;
euf_destinatario.Text := ACBrNFe1.NotasFiscais.Items[0]
.NFe.Dest.EnderDest.UF;
emunicipio_emitente.Text := vmunemitente;
emunicipio_destinatario.Text := vmundestinatario;
ecod_fornecedor.Text := '';
ecod_destinatario.Text := '000001';