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

كيف تبني برنامج مخازن ومبيعات بطريقة صحيحة ؟؟

رائج
بدأه محمد فؤاد تركي في 2 مايو 2007 · 518 رد · 527,857 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#501

اصدقائى الأعزاء تحية طيبة لكم وسلام اخوكم من المبتدئين فى مجال قواعد البيانات والبرمجة والاكواد البرمجية وارجو أن تسمحوا لى أن استفيد من خبراتكم فى هذا المجال ولى بعض الاسئلة. السؤال الأول : كيف اتقدم فى مجال قواعد البيانات وكتابة الأكواد البرمجية......................................................... السؤال الثانى واغفروا لى ان كان ساذجاً فى هذا المشروع عند ادخال اكواد الاصناف فى جدول names يوجد سعر الوحدة فهل هو سعر الشراء ام سعر البيع بمعنى أخر هل سعر الوحدة يستخدم فى فاتورة الشراء ام فى فاتورة البيع وكيف استطيع أن اعرف الارباح التى تحققت.....................................................  السؤال الثالث : ما فائدة النموذج الفرعى للفاتورة إذا كانت الحقول الموجودة به موجودة بالنموذج الاساسى للفاتورة . ............................................ السؤال الرابع: كيف قمنا بكتابة المعادلات فى حقول total -grand total ..... اخيراً اعتذر ان كانت الاسئلة ساذجة فانا كما قلت مبتدا وشكراً لكم جزيل الشكر

تم تعديل هذه المشاركة بواسطة يوسف 98 في 1 فبراير 2013 في 10:20

▲ 1
#502

أنا مبتدئ جديد وأطلب المساعده فى وضع البرنامج

يوجد في نموذج دليل أكواد المخازن المكون من جدول ( Names ) نموذج فرعي مكون من ( سعر الحبة - نسبة الوحدة الفرعية للوحدة الأساسية - وحدات فرعية ) لا أعرف مصدر الجدول المذكور . أرجو مساعدتي في تحديد مصدر هذا الجدول الفرعي .

المعذرة إن كنت أطالت عليكم .

 

وفقك الله وجزاك خيرا _ سر على بركة الله .. موفق إن شاء الله على هذا العمل الجيد في ميزان حسناتكم آمين .

▲ 1
#503

- بارك الله فيك أخي الكريم.

▲ 1
#504

انت اكترمن رائع يا استاذ محمد الله يوفقك ويكرمك على مجهودك العظيم .. انا استفدت منك كتير وطبقت كتير من افكارك في البرامج اللي بعتها وكسبت منها اتمنى لك ايضا الربح الجيد في الدنيا والاخرة

▲ 1
#505

انا مش عارف اشكرك ازاي .. جزاكم الله كل خير .. الله يوفقك ويزيدك من علمه

1▲ -1
#506

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

الجداول المطلوبه

  1. جدول يحتوى على جميع العملاء سواء عملاء او مورديين لكل شخص رقم  فريديمثل رقم حسابه
  2. جدول لحفظ بيانات الاصناف (رقم الصنف-اسم الصنف-كود المجموعة-الوحدة - سعر الوحده-حد الطلب-الكمية عند الطلب- ملاحظات
  3. جدول لحفظ بيانات المخازن(رقم المخزن-اسم المخزن-امين المخزن)
  4. انواع الحركات (كود الحركة-الحركة مثل جرد-مشتريات-مبيعات - مرتجع مبيعات -مرتجع مشتريات-تحويل صرف الى مخزن اخر-تحويل اضافه من مخزن اخر) - كل الحركات السابقة هى عبارة عن حالتين فقط اما صرف او اضافة - فى حالة الصرف تنقص الكمية فى حالة الاضافة تزيد الكمية
  5. جدول اتسجيل حركة الصرف والاضافة ويشمل رقم الحركة-التاريخ-رقم المستند-نوع الحركة-كود المخزن-كود العميل او المورد-كود الصنف-الكمية-السعر (فى حالة الاضافة تكتب الكميات موجبة وفى حالة الصرف تكتب الكميات سالبة)
  6. يتم تسجيل رصيد اول المدة بكميات موجبة وتكون الحركة جرد
  7. لحساب ارصيدة الاصناف يستخدم استهلام لذلك
  8. ساتابع مزيد من التفاصيل فى مرة قادمة

تم تعديل هذه المشاركة بواسطة aligaballa في 14 يونيو 2013 في 04:53

▲ -1
#507

ارجوا شرح هذه النقاط للإهميه والرد بسرعه من اهل الخبره

(1)عند حذف صنف من المخزن وهذا الصنف تمت عليه حركه مخزنيه من بيع او شراء او اضافه لمخزن يعطينى رسالة تنبيه بإن هذا الصنف تمت عليه حركه

وهذه هى الاكواد

numberfield = Me.Number
Dim a
a
= DLookup("[number]", "names", "[number]='" & Me.Number & "'")
If Not (IsNull(a)) Then
MsgBox "هذا الصنف موجود ضمن الاصناف المخزنية", vbCritical, "رساله تحذيرية"
Cancel = True
Me.Undo
DoCmd.FindRecord numberfield
End If

 

(2) فى حالة عمل فاتورة البيع اوضافه لمخزن والرصيد اقل من المطلوب يعطينى رسالة تنبيه بإن الكميه المنصرفه اكبر من الرصيد الفعلى

وهذه هى الاكواد

هذا الحقل مهمتة الرئيسية مقارنة المنصرفة المدخلة داخل الحقل بالرصيد الحالي لذلك نحتاج لاظهار الرصيد الحالي اولاً داخل هذا الحقل وذلك من خلال هذه الجملة الرائعة وقت كتابة رقم الصنف

Me.item_Balance = DLookup("sum([Qty_in_Multi])-sum([qty_out])", "transaction", "[number]='" & [كود الصنف] & "'")
وهذه الدالة مهمتها جلب اجمالي المدخلات وجلب اجمالي المخرجات من خلال كود الصنف

بعد ذلك ومن خلال عملية حسابية صغيرة داخل حقل الكمية المنصرفة نكتب التالي

If Qty_out > item_Balance Then
MsgBox "الكمية المنصرفة اكبر من الرصيد الحالي", vbCritical + vbOKOnly, "رسالة تحذيرية"
Cancel = -1
Else
Me.Total.SetFocus
End If

 

(3)ترقيم تلقائى لرأس الفاتوره مع العلم ان الشيت تمت عليه حركات

وهذه هى الاكواد

Me!AutoNum = Nz(DMax("[Add_doc]", "[Add_doc]"), 0) + 1

 

ارجوا من اهل الخبره شرح هذه الاكواد ببساطه لانى مبتدأ ولكم جزيل الشكر

▲ -1

تحياتى

اسماعيل سعيد

#508

السلام عليكم انا نعمل فى منظومة مبيعات المشكلة التى واجهتها فى عملية حساب الكمية الاجمالية للصنف من المشتريات والمبيعات وفى حالة استرجاع قطعة من الزبون للمحل بعد عملية البيع ما الحل لهذه المشكلة

▲ -1
#509

لقد تابعت عملية الشرح الجميل والمفيد ولكن الم يكتمل الحلو الا وهوا عملية المردودات كيف ولم يجيب احد علينا وعل امل الرد

▲ -1
#510

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

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

▲ -1
#511

السلام عليكم استاذنا الفاضل محمد فؤاد التركي هل لي بسعر الكود المصدري لبرامجك مبيعات ومخازن المطور بفيجوال بيسك دوت نت بالأميل   hakantechno@gmail.com

#512

شكرا جزيلا اخي محمد وزاد الله من امثالك

#513

اكرمك الله اخي محمد فؤاد تركي

#514

السلام عليكم

اخي محمد كيف اضيف لكل صنف واحدات خاصه به

مثلا عندي شاي ليبتون الوحدات الخاصه به هي كرتون وباكت وحبه

كرتون=36 باكت

باكت = 100 حبه

حبه =1

مثال اخر لصنف اخر عدس الوحدات الخاصه به شكاره وكيلو

شيكاره =15 كياو

كيلو = 1

والرصيد يظهر بالكرتون  لانه بيدخل بالكرتون وإذا كان الرصيد 2 كرتون 5باكت

يظهر في التقرير 5/2

#515

حسنا ساشارك ولو بمشاركة واحدة على السؤال الاخير .

بالنسبة للوحدات التي تباع بوحدات مختلفة يجب ان يتم تصنيفها في جدول الاصناف كـ ( قطعة - صندوق - كيس - كيلو ) وما شابه

اي من الممكن ان تبيع في فاتورة علبة شاي وفي اخرى صندوق شاي .

مع مراعاة السعر طبعا .

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

سعر الوحدة موجود بقاعدة البيانات .

او تبيع كل شئ بالوحدة اي بالقطعة واذا اراد صندوق والصندوق فيه 20 علبة تضع 20 علبة

#516

برنامج جميل 

ولكن عليه بعض الملاحظات

في تقارير العملاء لايوجد تنقيح فهو يسحب كل العملاء والموردين

كزلك اسماء النمازج معكوسة

ويحتاج لمراجعة كثيرة جدا

#517

ايــــــــــــــــــــــــــــــــن التلف والاتلاف و الخسائرمن التلف و وحقل فترة الصلاحية !!! 

#518

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

اريد اسأڵ
 فرضا عندنا مواد في جدول الاصناف اي names وسعره ب 50 دولار

وبعدين اشترينا كمية اخرى من نفس المواد في الجدول Add_doc ب سعر 65 دولار

 حين نبيع ذلك المواد في بواسطة نموذج البيع راح يستدعي السعر المكتوب في جدول الاصناف اي ب 50 دولار

حينئذ نا المطلوب علينا ان نفعل لكي بيكون السعر موحد
او لازم نعمل اي

تحياتي لكم جميعا
 

#519
Wise كتب:

اخي الكريم محمد فؤاد

تحدثت فقط عن اسم الخامة

لازما و لا بد و حتما ان نحفظ كود الخامة (الصنف) في جدول الـ Trasactions

لكن ليس من الضروري حفظ اسم الخامة (الصنف) في جدول الـ Trasactions

و المطلوب هو كيف نظهر اسم الخامة في النموذج الفرعي Sup form ( بدون حفظها في جدول Tranasction ) برمجيا

يمكن اظهار اسم الصنف من خلال ربط رقم الصنف بواسطة الاستعلام مع جدول الاصناف ثم اختيار حقل اسم الصنف ليكون الناتج اسم الصنف ورقم الصنف

كما بالمرفق

ProductName Join.jpg

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