الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إدارة متجر سلع

بدأه مبرمــج في 7 فبراير 2014 · 9 رد · 1,235 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة الله و بركاته

 

لدي قاعدة بيانات تحتوي على مجموعة من السلع و لإنشاء فاتورة بإن المستخدم يدخل أسامي السلع المراد بيعها و قد قمت بعمل جدول مؤقت لأضع فيه السلع و من ثم عند الحفظ تنقص المشتريات من المخزن لكن المشكلة أنه عند الحفظ فإن النقصان يتم من آخر مادة.

مثال للتوضيح:

 

شخص يريد شراء 5 علب حليب + 5 علب قهوة+5 كغ سكر

و لدينا في المخزن: 100 علبة حليب +100 علبة قهوة+100 كغ سكر

 

عند الحفظ فإن النتيجة تكون:

100علبة حليب+100علبة قهوة + 85 كغ سكر

 

أي أن الدالة تنقص فقط من آخر حقل توقفت فيه.

 

فهل من حل يا إخوان، و هل من كود أو فكرة لمشروعي، و جزاكم الله كل خير.

 

و السلام عليكم و رحمة الله و بركاته
 

تم تعديل هذه المشاركة بواسطة مبرمــج في 7 فبراير 2014 في 21:06

#2

تنبيه : لقد اخترت عنوان غير مناسب لموضوعك .. راجع الموضوع التالي :
كيف اختار عنوان المواضيع و كيف اعدل العنوان بعد التنبيه
 

1

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#3

سلام عليكم

 

أرفق الكود حتى نرى كيف نساعدك

vVIfFr.gif

مدونتي



إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

 

http://www.tvquran.com/

 

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز 

#4

و عليكم السلام و رحمة الله و بركاته


 


هذا هو الكود الذي استعملته


 


حيث أنه ينسخ من الجدول المؤقت إلى الجدول النهائي و يعدل كمية السلع في الجدول الأساسي


with (abstable1) do

begin

open;

first;

while abstable3.Eof = false do

begin

abstable1.Open;

abstable1.Append;

abstable1.Insert;

abstable1.FieldByName('article').AswideString:=abstable3.FieldByName('article').AswideString ;

abstable1.FieldByName('qnt').AsString:=abstable3.FieldByName('qnt').AsString ;

abstable1.FieldByName('prix_U').AsString:=abstable3.FieldByName('prix_U').AsString;

abstable1.FieldByName('prix_g').AsString:=abstable3.FieldByName('prix_g').AsString;

ABSTable3.Edit;

ABSTable1.FieldValues['qnt'] := form1.ABSTable1.FieldValues['qnt']

 - abstable3.FieldValues['qnt'] ;

form1.ABSTable1.Edit;

form1.ABSTable1.FieldValues['qnt']:= form1.ABSTable1.FieldValues['qnt']

 - abstable3.FieldValues['qnt'];


abstable1.Post;

abstable3.Post;

abstable3.Delete;

end;

end;

تم تعديل هذه المشاركة بواسطة مبرمــج في 7 فبراير 2014 في 21:08

#5

يجب أن يتحرك المؤشر... اضف السطر

next;

تم تعديل هذه المشاركة بواسطة أحمد أبو عبد البر في 7 فبراير 2014 في 22:58

vVIfFr.gif

مدونتي



إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

 

http://www.tvquran.com/

 

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز 

#6

لازالت المشكلة قائمة لحد الساعة أخي الكريم


#7

أين أضفت السطر ؟

يجب ان يكون بعد الإضافة والتعديل

تم تعديل هذه المشاركة بواسطة أحمد أبو عبد البر في 7 فبراير 2014 في 23:06

vVIfFr.gif

مدونتي



إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

 

http://www.tvquran.com/

 

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز 

#8

يبدو أن الكود أصلا فيه مشكلة


 


هل من طريقة لهاته الفكرة،


 


لما الزبون يطلب عدة سلع فإننا نضع جدول مؤقت و و لما تكتمل الطلبية فإننا الكمية المطلوبة تنقص من الكمية الإجمالية.


 


و لك جزيل الشكر


تم تعديل هذه المشاركة بواسطة مبرمــج في 8 فبراير 2014 في 00:09

#9

أخي الكريم

أنصحك بشدة أن تقرأ هذا الموضوع /index.php/topic/125583-%D9%83%D9%8A%D9%81-%D8%AA%D8%A8%D9%86%D9%8A-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D9%85%D8%AE%D8%A7%D8%B2%D9%86-%D9%88%D9%85%D8%A8%D9%8A%D8%B9%D8%A7%D8%AA-%D8%A8%D8%B7%D8%B1%D9%8A%D9%82%D8%A9-%D8%B5%D8%AD%D9%8A%D8%AD%D8%A9-%D8%9F%D8%9F/

vVIfFr.gif

مدونتي



إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

 

http://www.tvquran.com/

 

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز 

#10

اخي العزيز

اوضح لك الاخ مبرمج من ضرورة وجود ملف مؤقت

 

ثم حرك المؤشر الى راس المؤقت وابحث عن مثيله بالرئيسى واحلل الكميه ناقص الكميه بالمؤقت

 

انتقل الى الصنف التالي وهكذا الى نهايه الاصناف المباعه

 

 

اذا لم تصلك الفكره ساواص معك 000000

نسأل الله الجنه لنا ولوالدينا ولمن لهم حق علينا

مواضيع مشابهة