EasyDelphi Q&A
+1 تصويت
135 مشاهدات

في تسيير  المخزن 

عند اخرج سلعة معينة .  اكيد انو تنقص كميتها في المخزن 

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

وعندي جدول اخر خاص بالبيع .فيه اسم السلعة و الكمية المباعة .(الخارجة)

كلما اقوم بعملية .تنقس الكمية فقط المخزنة .

كيف اربط بين الكمية المخزنة في المخزن و الكمية المباعة .

يعني  عند القيام بعملية بيع اعود للمخزن اجد انو الكمية المخزنة نقصت .

سؤالي هو كيف اقوم بهذه العملية على الدلفي .

قادة بيانات اكسس مربوطة مع الدلفي .

وشكرااا

جدول الخزن و جدول البيع

 

سُئل في تصنيف vcl بواسطة (1,230 نقاط) | 135 مشاهدات

2 إجابة

+2 تصويتات
لا تسجل القيمة الباقية . فقط سجل كمية المباعة ثم اعمل كوري فيه حقل حساب يطرح الكميات المباعة من الكمية الاصلية .
باقي الكمية هو حقل حسابي . لا تتحتاج لحفظه في قاعدة البيانات
تم الرد عليه بواسطة (29,870 نقاط)
0
يا استاذ
واين اضع النتيجة
يعني اين ستضهر نتيجة الطرح
تضهر في جدول المخزن ?
0
تظهر في نتيجة الكويري . مثلا .
select a, b , a-b as total from tbl
ستظهر في نتيجة تنفيذ هذا الكوري كحقل .
0 تصويتات

يمكنك ذلك عن طريق طرح الكمية المباعة من الكمية في المخزن

 

//الذهاب الى اول السلع المباعة
 dm.Insert_BS.First;
  for I := 1 to dm.Insert_BS.RecordCount do
  begin
//يحدد من جدول السلع السلعة التي تم بيعها حتى ينقص من الكمية
    if dm.Articles.Locate('Ref_Prod',dm.Insert_BS.FieldByName('Ref_Prod').AsString,[]) then
    begin
     dm.DSArts.DataSet.Edit;
     dm.Articles.FieldByName('QTE_Stock').AsInteger:= dm.Articles.FieldByName('QTE_Stock').AsInteger - dm.Insert_BS.FieldByName('Qte_Sort').AsInteger ;
     dm.DSArts.DataSet.post;
     dm.Insert_BS.Next;
    end;
  end;
تم الرد عليه بواسطة (180 نقاط)

اسئلة متعلقة

0 تصويتات
2 إجابة
+2 تصويتات
1 إجابة
سُئل مايو 26 في تصنيف vcl بواسطة hidenpain (1,230 نقاط) | 43 مشاهدات
0 تصويتات
0 إجابة
+1 تصويت
1 إجابة
سُئل أكتوبر 31 في تصنيف vcl بواسطة Nour Eldeen (290 نقاط) | 43 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

464 سؤال
703 إجابة
1,320 تعليق
272 مستخدم