Erro ao gravar notas fiscdaisem banco de dados

[reij]

Bom dia amigos estou com um pequeno problema ao importar dados de xml pro banco de dados estou sando essa rotina aqui porem ela esta duplicando dezenas de vezes o mesmo item

procedure TF_Import.importarxmlpasta;
var
  i, j, k, n  : integer;
begin
      QxmlPasta.Open();
        ACBrNFe1.NotasFiscais.Clear;
      //ACBrNFe1.NotasFiscais.Add;
        for i := 0 to Ltbxml.Items.Count -1 do
          begin
          try
              ACBrNFe1.NotasFiscais.LoadFromFile(Ltbxml.Items);
          except
              ShowMessage('Arquivo NFe Inválido');
              exit;
          end;

            for n:=0 to ACBrNFe1.NotasFiscais.Count-1 do
            begin
              with ACBrNFe1.NotasFiscais.Items[n].NFe do
                begin
                QxmlPasta.insert;
                QXmlPastaCODIGO.AsInteger := inc_gen('GEN_XML_IMPORTADOS_PASTA_ID');
                QXmlPastaDATANF.AsDateTime := Ide.dEmi;
                QXmlPastaCHAVE.AsString := procNFe.chNFe;
                QXmlPastaVLR_NOTA.AsCurrency := total.ICMSTot.vNF;
                QXmlPastaNOME_RAZAO.AsString := Emit.xNome;
                QXmlPastaNOME_UNIDADE.AsString := Dest.xNome;
                QXmlPastaCNPJ_UNIDADE.AsString := Dest.CNPJCPF;
                QXmlPastaNUMNFE.AsString := IntToStr(Ide.nNF);
                QXmlPastaNOP.AsString := Ide.natOp;
                      QxmlPasta.Post;
                   //   QxmlPasta.CommitUpdates();
          //      QxmlPasta.ApplyUpdates(0);
                end;

            end;

          end;
          QxmlPasta.ApplyUpdates(0);
           Showmessage('Importação Realizada com sucesso');
          QxmlPasta.Close;
end;
 

 

lembrando que quando usava no dbexpress funcionava porem no  firedac ta dando esse problema

desde ja grato pela ajuda

[BigWings]

42 minutos atrás, reij disse:

Bom dia amigos estou com um pequeno problema ao importar dados de xml pro banco de dados estou sando essa rotina aqui porem ela esta duplicando dezenas de vezes o mesmo item

Seu código está bem indentado?

Se a resposta é não, sugiro que faça isso, o erro de lógica nele ficaria evidente.

Ou use o debug...

[Agnaldo Prates]

44 minutos atrás, reij disse:

Bom dia amigos estou com um pequeno problema ao importar dados de xml pro banco de dados estou sando essa rotina aqui porem ela esta duplicando dezenas de vezes o mesmo item

procedure TF_Import.importarxmlpasta;
var
  i, j, k, n  : integer;
begin
      QxmlPasta.Open();
        ACBrNFe1.NotasFiscais.Clear;
      //ACBrNFe1.NotasFiscais.Add;
        for i := 0 to Ltbxml.Items.Count -1 do
          begin
          try
              ACBrNFe1.NotasFiscais.LoadFromFile(Ltbxml.Items);
          except
              ShowMessage('Arquivo NFe Inválido');
              exit;
          end;

            for n:=0 to ACBrNFe1.NotasFiscais.Count-1 do
            begin
              with ACBrNFe1.NotasFiscais.Items[n].NFe do
                begin
                QxmlPasta.insert;
                QXmlPastaCODIGO.AsInteger := inc_gen('GEN_XML_IMPORTADOS_PASTA_ID');
                QXmlPastaDATANF.AsDateTime := Ide.dEmi;
                QXmlPastaCHAVE.AsString := procNFe.chNFe;
                QXmlPastaVLR_NOTA.AsCurrency := total.ICMSTot.vNF;
                QXmlPastaNOME_RAZAO.AsString := Emit.xNome;
                QXmlPastaNOME_UNIDADE.AsString := Dest.xNome;
                QXmlPastaCNPJ_UNIDADE.AsString := Dest.CNPJCPF;
                QXmlPastaNUMNFE.AsString := IntToStr(Ide.nNF);
                QXmlPastaNOP.AsString := Ide.natOp;
                      QxmlPasta.Post;
                   //   QxmlPasta.CommitUpdates();
          //      QxmlPasta.ApplyUpdates(0);
                end;

            end;

          end;
          QxmlPasta.ApplyUpdates(0);
           Showmessage('Importação Realizada com sucesso');
          QxmlPasta.Close;
end;
 

 

lembrando que quando usava no dbexpress funcionava porem no  firedac ta dando esse problema

desde ja grato pela ajuda

Você diz, duplicando os itens das notas ou as notas?

 

[reij]

Ja resouvi o prpblema era o componente fdquery obrigado