منتدى فيجوال بيسك لكل العرب
[VB.NET] مساعدة بخصوص برنامج مبيعات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعدة بخصوص برنامج مبيعات (/showthread.php?tid=29419)



مساعدة بخصوص برنامج مبيعات - hodanet - 19-04-19

عاوز اعرف ازاى اعمل الارصيده الافتتاحيه فى المخازن لكل صنف من حيث الشراء يدخل الصنف فى المخزن المحدد وفى حاله البيع ينقص من المخزن المحدد

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

محتاج مساعده بخصوص هذا الامر
وشكرا مقدما


RE: مساعدة بخصوص برنامج مبيعات - اسامه الهرماوي - 19-04-19

السلام عليكم...
مفيش الا ان انت تنشئ label وتستدعي الكمية فية يعني مثلا.
الصنف . الكمية المطلوبة.
  شاي.            5
لو افترضنا مثلا انك عندك كمية 100 الlabel يساوي كمية الصنف -الكمية المطلوبة يساوي95 هتعمل تعديل بId الصنف او الباركود
وتعمل حفظ في جدول المبيعات وبس ودا اسهل حل.

ولو مثلا تستخدم if لو كانت الكمية 0،يظهر رسالة نفذت كمية الصنف المطلوب.


RE: مساعدة بخصوص برنامج مبيعات - aljzazy - 20-04-19

بعد عملية البيع اعمل ابديت للكمية بانقاص الكمية بمعدل ما تم بيعه مثلا

ساعطيك كود يقوم بانقاص الكمية بع البيع


كود :
Public Sub LoseQty()

       For i As Integer = 0 To dgv_sale_Products.Rows.Count - 1

           Dim a As Integer = dgv_sale_Products.Rows(i).Cells(4).Value

           Dim cmdUpdate As New SqlCommand
           With cmdUpdate
               .Connection = Con
               .CommandType = CommandType.Text
               .CommandText = "update Products set QuantityAvailable= QuantityAvailable - " & a & " Where ProductID = " & dgv_sale_Products.Rows(i).Cells(0).Value & " "

           End With
           If Con.State = 1 Then Con.Close()
           Con.Open()
           cmdUpdate.ExecuteNonQuery()
           Con.Close()

       Next
   End Sub



RE: مساعدة بخصوص برنامج مبيعات - hodanet - 20-04-19

(19-04-19, 11:06 PM)اسامه الهرماوي كتب : السلام عليكم...
مفيش الا ان انت تنشئ label وتستدعي الكمية فية يعني مثلا.
الصنف . الكمية المطلوبة.
  شاي.            5
لو افترضنا مثلا انك عندك كمية 100 الlabel يساوي كمية الصنف -الكمية المطلوبة يساوي95 هتعمل تعديل بId الصنف او الباركود
وتعمل حفظ في جدول المبيعات وبس ودا اسهل حل.

ولو مثلا تستخدم if لو كانت الكمية 0،يظهر رسالة نفذت كمية الصنف المطلوب.


انا بالفعل عامل كده فى فاتوره المشتريات من خلال جمله استعلام يظهر اسم الصنف والكميه بس انا بتكلم بخصوص نقطعه معينه على سبيل المثال المفروض انا بعمل ادخال اول مره للصنف الكميه تكون 10 مثلا لما اشترى تاني 10 يزيد الكميه 20 فى جدول تانى عشان لما اجي اعمل استعلام بالكميه المدخله اول مره تكون 10


RE: مساعدة بخصوص برنامج مبيعات - elgokr - 20-04-19

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

الان عند اتمام الاضافة للمشتريات
ستقوم بمرحلة اولى وهو تحقق اذا كان المنتج موجود من قبل او لا
واذا وجد فهنا تطبق كود التعديل وليس الاضافة حيث كل ما سيتم هو تغيير الكمية من 10 الى 20 كمثال
وفى المبيعات كل ما بيتم انك بتاتى على جدول الكميات وستعمل كود التعديل لتحرير من 20 الى 15 كمثال

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

تحياتى لك
وتمنياتى لك التوفيق