Erro importando arquivo XML

[MarcioCC]

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

 

[Juliomar Marchetti]

No caso é seu sql e não o componente do ACBrNFe

veja suas querys