[سؤال] البيع باكثر من سعر - نسخة قابلة للطباعة

[سؤال] البيع باكثر من سعر - نسخة قابلة للطباعة

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

البيع باكثر من سعر - HWaDiT - 07-08-24

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

لدي استفسار

لدي مشروع بلغة فيجوال بيسك ( مبيعات )

وهناك عندى اكثر من سعر للبيع ( قطاعى - جمله - نصف جملة )

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

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

بحيث ان يتم جلب السعر بناء ع الاختيار ده يعنى لو الوظف اختار نوع فاتوره مثلا جمله يبقى يتم جلب سعر الجمله علما ايضا ان فى خانة السعر فى فاتورة المبيعات يحضر تلقائى حين يتم مسح الباركود يتم احضار سعر القطاعى وهناك بعض الصور واحده لتكويد الصنف وهي تظهر ان هناك خانه اخرى لسعر نصف جمله و جمله بجانب القطاعى و اخرى لشاشة البيع ويوجد بها فى الاعلى كومبوبوكس يظهر فيه نوع الفاتوره ( قطاعى - جمله - نصف جمله ) اريد ان اجعل حقل السعر يجلب السعر بناء ع الاختيار من الكمبوبوكس الذى بالاعلى

لاحظتها فى برامج بلغة السى شارب لكن لا يوجد امثلها ع ذلك

RE: البيع باكثر من سعر - Taha Okla - 07-08-24

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

جملة الاستعلام اللي بتخليها تجيب لك المنتج بناءاً على رقم الباركود
خلها تجيب المنتج بناءاً على رقم الباركود و نوع سعر البيع

مثلاً :
أنت بالعادة بتجيب السعر من حقل Price1
يعني لا زم تضع جملة شرطية قبل جملة الاستعلام ..
اذا أخترت(خيار محدد) بتتغير جملة الاستعلام بحسب نوع البيع وبتغير فيها حقل السعر المطلوب.
اذا البيع بسعر الجملة بتغير الحقل إلى Price3
واذا نصف جملة بيصير الحقل Price2
واذا قطاعية بيصير الحقل Price1

كود :
If cbo1.text = "قطاعي" then

    strSQL = "Select No,ItemName,..., Price1 From TableXXX"

ElseIf cbo1.text = "نصف جملة" then

    strSQL = "Select No,ItemName,..., Price2 From TableXXX"

ElseIf cbo1.text = "جملة" then

    strSQL = "Select No,ItemName,..., Price3 From TableXXX"

End If

RE: البيع باكثر من سعر - HWaDiT - 07-08-24

(07-08-24, 12:57 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

جملة الاستعلام اللي بتخليها تجيب لك المنتج بناءاً على رقم الباركود
خلها تجيب المنتج بناءاً على رقم الباركود و نوع سعر البيع

مثلاً :
أنت بالعادة بتجيب السعر من حقل Price1
يعني لا زم تضع جملة شرطية قبل جملة الاستعلام ..
اذا أخترت(خيار محدد) بتتغير جملة الاستعلام بحسب نوع البيع وبتغير فيها حقل السعر المطلوب.
اذا البيع بسعر الجملة بتغير الحقل إلى Price3
واذا نصف جملة بيصير الحقل Price2
واذا قطاعية بيصير الحقل Price1

كود :
If cbo1.text = "قطاعي" then strSQL = "Select No,ItemName,..., Price1 From TableXXX" ElseIf cbo1.text = "نصف جملة" then strSQL = "Select No,ItemName,..., Price2 From TableXXX" ElseIf cbo1.text = "جملة" then strSQL = "Select No,ItemName,..., Price3 From TableXXX" End If

شكرا اخي الكريم على سرعة الاستجابه

اريد الكود كما تفضلت حضرتك او ارفق اليك فورم المبيعات بالكود بالكامل

انا حاليا عندي سعر البيع العادى فى الجدول باسم (SellingPrice)
سعر الجمله (SellingPrice2)
سعر جملة الجمله (SellingPrice3)
موجودين فى جدول (Product)

مع العلم الكمبوبوكس لم يتم تعبئته من قاعدة البيانات نفسها اى ان الكلمات هذه غير محفوظه بقاعدة البيانات

مرفق ملف نصى بيه الكود بالكامل

RE: البيع باكثر من سعر - Taha Okla - 07-08-24

ما أعرف كم مرة بتستخدم الاستعلام عن السعر
ولكن بإختصار ..

لو كنت بتستخدم الكود التالي لجلب المادة بأسعارها :

كود :
cmd = New SqlCommand("SELECT PID, RTRIM(Product.ProductCode),RTRIM(ProductName),RTRIM(Temp_Stock.Barcode),(CostPrice),(SellingPrice),(Discount),(VAT),Qty, RTRIM(Product.SellingPrice2) from Temp_Stock,Product where Product.PID=Temp_Stock.ProductID and Qty > 0  order by ProductCode", con)

بتصير بعد الاختصار والتحديد بشروط التحديد (جملة، نصف جملة، قطاعي ):
ع أساس أنها (ComboBox1) هي اللي بتحدد فيها نوع السعر..

كود :
Dim TypPrice As String

If ComboBox1.Text = "نصف جملة" Then

    TypPrice = "SellingPrice1"

ElseIf ComboBox1.Text = "جملة" Then

    TypPrice = "SellingPrice2"

Else

    TypPrice = "SellingPrice"       ' الحالة الأخيرة - 'قطاعي' مثلاً

End If

Dim strSQL1 = "SELECT PID, RTRIM(Product.ProductCode),RTRIM(ProductName)," &

              "RTRIM(Temp_Stock.Barcode),(CostPrice),(" & TypPrice & ")," &

              "(Discount),(VAT),Qty, RTRIM(Product.SellingPrice2) " &

              "from Temp_Stock,Product " &

              "where Product.PID=Temp_Stock.ProductID " &

              "and Qty > 0  order by ProductCode"

cmd = New SqlCommand(strSQL1, con)

في أي مكان بتعتمد على السعر وتغييره : عليك التغيير بكود مشابه ويناسب تلك الحالة
فكر وجرب واشتغل بيدك وراح تصل للحل ..