Fórum Atualizando Estoque #407456

procedure TF_Entrada.btn_GravarNotaClick(Sender: TObject);
var Mes_Ano: String;
    data: TDate;
begin
    TPanelProcessando.Visible:= True;
    ProgressBar.Max:= DM.qryNFEntrada.RecordCount;
    With DM.qryNFEntrada do
     begin
         First;
         While not eof do
          begin
               //Atualizando Tabela de Produtos
              Data:= FieldByName ('DataLancamento').AsDateTime;
              DM.qryProduto.Locate('Cod_InternoProduto',
                    FieldByName ('Cod_InternoProduto').AsInteger,[]);
              DM.qryProduto.Edit;
              DM.qryProduto.FieldByName('EstadoAtual').AsInteger:=
                    DM.qryProduto.FieldByName ('EstadoAtual').AsInteger +
                    FieldByName ('Quantidade').AsInteger;
              DM.qryProduto.FieldByName('DataCompra').AsDateTime:=
                    FieldByName ('DataLancamento').AsDateTime;
              DM.qryProduto.FieldByName('PrecoVenda').AsInteger:=
                    FieldByName ('ValorVenda').AsInteger;
              DM.qryProduto.Post;

              //Eviando Nota para Contas à Pagar
              DM.qryContaPagar.Append;
              DM.qryContaPagarCOD_FORNECEDOR.AsString:=
                  DM.qryNFCompraCOD_FORNECEDOR.AsString;
              DM.qryContaPagarFORNECEDOR.AsString:=
                  DM.qryNFCompraFORNECEDOR.AsString;
              DM.qryContaPagarNUMDOCUMENTO.AsString:=
                  FieldByName ('Cod_NFCompra').AsString;
              DM.qryContaPagarDATAEMISSAO.AsDateTime:=
                  FieldByName ('DataLancamento').AsDateTime;
              DM.qryContaPagarVALORTOTAL.AsString:=
                  FieldByName ('ValorTotal').AsString;
              DM.qryContaPagarCOD_NATUREZAOP.AsString:=
                  DM.qryNFCompraCOD_NATUREZAOP.AsString;
              DM.qryContaPagarNATUREZAOPERACAO.AsString:=
                  DM.qryNFCompraNATUREZAOPERACAO.AsString;
              Mes_Ano:=
                  inttostr (MonthOf(data)) + '/' + inttostr (YearOf(data));
              DM.qryContaPagarMESANO.Text:= Mes_Ano;
              DM.qryContaPagar.Post;
              Next;
              ProgressBar.Position:= ProgressBar.Position +1;
          end;
     end;
    TPanelProcessando.Visible:= False;
    ShowMessage('NFe Cadastrada com Sucesso!');
    DM.qryNFCompra.Refresh;
    Close;
    permitido:= False;
end;


Exemplo se eu colocar tres Produtos na nota ele so atualiza o ultimo da lista
mas pega a quantidade dos outros produtos todos que esta na nota e atualiza so em um produto
se alguem pode ajudar
agradeço