DBGrid DblClick'te Sıkıntı

[canset]

S.A.

DblClick ile ürünü ilgili dataset'e aktarımı yapabiliyorum. İstediğim datasetin açık kalması ve üzerine çift tıklanılan ürünlerin diğer datasete sorunsuz aktarılması. Döngüde sıkıntı yaşıyorum, bazen aynı ürüne tıklanıldığında miktarı artırabilirken (istenilen), bazen aynı ürünü miktar artırmadan alta yeni ürün gibi atıyor (istenilmeyen durum). Bunu nasıl halledebilirim, yardımcı olacaklara şimdiden teşekkür ederim.

Kod: Tümünü seç

procedure TFormsatis.DBGridurunDblClick(Sender: TObject);
begin
adodatasettampon.Edit;
if formsatis.DBGridurun.Fields[1].Text=adodatasettamponBarkod.Text then
begin
adodatasettampon.Edit;
adodatasettamponmiktar.Value:= adodatasettamponmiktar.Value+1;
adodatasettampon.First;
end else
begin
formurun.adodataseturun.Open;
adodatasettampon.Insert;
adodatasettamponbarkod.Text:= formsatis.DBGridurun.Fields[1].Text;
adodatasettamponmal.Text:= formsatis.DBGridurun.Fields[0].Text;
adodatasettamponiskonto.Value:= formsatis.DBGridurun.Fields[4].Value;
adodatasettamponfiyat.AsCurrency:= formsatis.DBGridurun.Fields[6].AsCurrency;
adodatasettamponmiktar.Value:=1;
adodatasettamponkar.AsCurrency:= (formurun.adodataseturunfiyat.AsCurrency-formurun.adodataseturunmaliyet.AsCurrency);
adodatasettamponkartoplam.AsCurrency:= adodatasettamponmiktar.Value*adodatasettamponkar.AsCurrency;
adodatasettamponsaat.AsDateTime:= now();
adodatasettamponKDV.Text:= formsatis.DBGridurun.Fields[5].Text;
adodatasettampon.Append;
adodatasettampon.Cancel;
end;
edUrun.SetFocus;
edUrun.Text:='';
end;

[erdogan_ozkaya]

ürün girişinde çift tıkladığında sorguya sokup, eğer satışta var ise ekle diyebilirsin yani işlemlerin önüne bir filtre koyarak yapabilirsin.

[canset]

Dataset'i kapatırsam zaten sıkıntı yok, iki dataseti karşılaşırıp sadece miktarı artırabiliyorum. Sıkıntı, dataseti kapatmadan bu işlemi yapabilmekte, yani soldaki menüden birden fazla ürüne arka arka çift tıkladığımda sıkıntı oluşuyor.

[canset]

Aslında her dblclk olayında işlemi başa döndürebilsem aynı ürün için satır açmayacak sanki ama beceremedim bir türlü

[greenegitim]

farklı bir query de sorgulatma işlemini yapıp sorgu sonucunda kayıt var ise konumlanıp (localate) yada direk localete değeri bir artırabilirsin.

[canset]

Teşekkürler, 'locate' ile sorunum çözüldü. İyi çalışmalar.