delphi4arab منتديات دلفي للعرب

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

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

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

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

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

coeur_blanc

rahiche