مشكل في المقارنة بين قيمة 2 dbedit لـ 2 table مختلفتين

[coeur_blanc]

السلام عليكم
عندي برنامج تسيير متجر للمقارنة بين قيمة المخزون وقيمة المخزرن المراد بيعه وقمت بكتابة الكود التالي ولكن المشكل دائما ضهور الرسالة الموصحة في الصورة مهما كانت قيمة المخزون الراد بيعة

كود :

if Table4.FieldByName('qte_stock').AsInteger >= Table3.FieldByName('qte_vente').AsInteger then begin ;Table3Num_vente.value:=Table1Numero_v.Value ;Table3Ref_prod.value:=fiche_liste_produit_vente.Table1Reference.Value ;Table3.Post end else begin ( 'ShowMessage('stock disponible insuffisant ; DBEdit11.SetFocus ; end

كود :

http://www.casimages.com/i/150704033949608777.png.html

[rahiche]

يمكنك ان تعكس الشرط و تقول له اذا كان كمية المنتوج المراد بيعه اكثر من الكمية في المخزن اضهر رسالة

كود :

if Table3.FieldByName('qte_vente').value >= Table4.FieldByName('qte_stock').value then begin ( 'ShowMessage('stock disponible insuffisant ; DBEdit11.SetFocus end else begin ;Table3Num_vente.value:=Table1Numero_v.Value ;Table3Ref_prod.value:=fiche_liste_produit_vente.Table1Reference.Value ;Table3.Post ; end

لو فهمت الترميز لاعطيتك اجابة افضل