دخول

coeur_blanc · 04-07-2015, 02:40 PM

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

كود :
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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة