+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [VB.NET] سوال بحاجة الى جواب اصحاب الخبرة جزاكم الله خيرا (/showthread.php?tid=49462)
سوال بحاجة الى جواب اصحاب الخبرة جزاكم الله خيرا - raedre22 - 07-07-24
السلام عليكم ورحمة الله وبركاته
اعمل على شاشة ادخال للمنتجات اواجه مشكلة وهي ان زيادة عدد المنتج لاتوجد بها اي مشكلة
اواجه مشكلة في ادخال السعر الجديد للمنتج سعر الشراء وسعر البيع وتاريخ النفاذ وارجو منكم الحل
cm = New SqlCommand("update tblProduct set ProductQuantity = ProductQuantity + " & CInt(DataGridView1.Rows(i).Cells(7).Value.ToString) & ", ProductBuyPrice=@ProductBuyPrice ,ProductSalePrice=@ProductSalePrice ,ProductDate=@ProductDate where ProductID like '" & DataGridView1.Rows(i).Cells(1).Value.ToString & "'", cn)
تفضل الاخ العزيز [b]Zuhare[/b] بالرد مشكورا
كود :
cm = New SqlCommand("update tblProduct set ProductQuantity = ProductQuantity + " & CInt(DataGridView1.Rows(i).Cells(7).Value.ToString) & ", ProductBuyPrice=@ProductBuyPrice ,ProductSalePrice=@ProductSalePrice ,ProductDate=@ProductDate where ProductID like '" & DataGridView1.Rows(i).Cells(1).Value.ToString & "'", cn)
cm.Parameters.AddWithValue("@ProductBuyPrice",252.44)
cm.Parameters.AddWithValue("@ProductSalePrice",674.11)
cm.Parameters.AddWithValue("@ProductDate ",CDate("2024-07-07"))بعد التعديل كما موضح
cm = New SqlCommand("update tblProduct set ProductQuantity = ProductQuantity + " & CInt(DataGridView1.Rows(i).Cells(7).Value.ToString) & ", ProductBuyPrice=@ProductBuyPrice ,ProductSalePrice=@ProductSalePrice ,ProductDate=@ProductDate where ProductID like '" & DataGridView1.Rows(i).Cells(1).Value.ToString & "'", cn)
With cm
.Parameters.AddWithValue("@ProductBuyPrice", CInt(DataGridView1.Rows(i).Cells(8).Value.ToString))
.Parameters.AddWithValue("@ProductSalePrice", CInt(DataGridView1.Rows(i).Cells(9).Value.ToString))
.Parameters.AddWithValue("@ProductDate ", CDate(DataGridView1.Rows(i).Cells(10).Value.ToString))
.ExecuteNonQuery()
End With
المشكلة اصبحت انه عندما اضيف مادة جديدة واحدث اعداد المخزن
يتم تعديل سعر الشراء وسعر البيع وتاريخ النفاذ للمادة المخزونة
المطلوب هي تحديث عدد المادة واضافة السعر الجديد والتاريخ للمادة الجديدة مع الحفاظ على المخزون مسبقا بسعرة وتاريخه
RE: سوال بحاجة الى جواب اصحاب الخبرة جزاكم الله خيرا - Taha Okla - 07-07-24
وعليكم السلام ورحمة الله وبركاته
في مشكله كهذه عليك إيجاد حل عن طريق إنشاء (جدول جديد) يختص بـ :
- باركود جديد لكل مادة .. - سعر وتكلفة جديدة.. - كمية جديدة.. - تاريخ جديد.. - عروض جديدة.
فعندما يتم البيع بحسب الباركود (سيتم خصم كل مادة بحسب مخزونها دون التعدي على غيرها)
بحيث تعطي تنبيه في حال تجاوزت الكمية المطلوبة الكمية المتاحة في مخازنك ومتاجرك.
ستحتاج لتعديلات كثيرة على برنامجك (أعانك الله).
RE: سوال بحاجة الى جواب اصحاب الخبرة جزاكم الله خيرا - raedre22 - 07-07-24
(07-07-24, 04:18 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
في مشكله كهذه عليك إيجاد حل عن طريق إنشاء (جدول جديد) يختص بـ :
- باركود جديد لكل مادة .. - سعر وتكلفة جديدة.. - كمية جديدة.. - تاريخ جديد.. - عروض جديدة.
فعندما يتم البيع بحسب الباركود (سيتم خصم كل مادة بحسب مخزونها دون التعدي على غيرها)
بحيث تعطي تنبيه في حال تجاوزت الكمية المطلوبة الكمية المتاحة في مخازنك ومتاجرك.
ستحتاج لتعديلات كثيرة على برنامجك (أعانك الله).
شكرا للرد
اخي العزيز ك مبرمج لا اعتقد المسألة بهذا التعقيد فقط فكرة يكون المنطلق منها