(05-12-18, 03:11 PM)حريف برمجة كتب : ان شاء الله اليوم اعملها ....
ولكن لي ملاحظة وهي :
كيف تعرف الكمية الموجودة في الجدول ؟
انت لم تعمل حقل خاص بالكمية الموجودة في المخزن وعند البيع تخصم من الكمية بالمتجر بقدر الكمية المباعة .
اعمل حقل خاص بالكمية وتخصم عند البيع م الكمية
دى شاشة البيع عندما اقوم بكتابة كود الصنف يستدعى البيانات فى الدتاجريد فيو ويستدعى رصيد الصنف وعند انتهاء عملية البيع بيخصم من رصيد الصنف المجود فى المخزن
اللى انا اريدة انى اتحكم فى اضافة الكمية فحضرتك عامل انة بيزيد رقم واحد فقط دا جميل جدا بس لو واحد عاوز يشترى مثلا 50 كيس سكر مثلا هل اقوم بضربية على الكاشير 50 مرة
اريد مثلا عندما تكون كمية اكبر اقوم بالضغط على F5 مثلا فينتقل الى كمية الصنف للاقوم بالتعديل على الكمية الموجود من 1 لاى 50 قطعة
واسف على كثرة الاسئلة اخى الكريم جزاك الله خيرا
وانا ارفقت المشروع فى الرابط دة
http://vb4arb.com/vb/private.php?action=read&pmid=57612
ودا الكود فى شاشة البيع
كود :
If ConnectionState.Open Then con.Close()
If ConnectionState.Closed Then con.Open()
'بداية جلب البيانات الموجودة في المتجر بشرط رقم الصنف
Dim dp As New OleDbDataAdapter(sqlstr, con)
dp.SelectCommand.Parameters.AddWithValue("@code", SellDataGridView.Rows(e.RowIndex).Cells(0).Value)
Dim dt As New DataTable
dp.Fill(dt)
If dt.Rows.Count = 0 Then 'رقم الصنف غير موجود في الجدول
'نمنع اضافة سطر جديد في القريد
SellDataGridView.AllowUserToAddRows = False
MsgBox("هذا الصنف غير معرف في بطاقة الصنف", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "خطأ ")
SellDataGridView.CurrentCell = SellDataGridView.Rows(e.RowIndex).Cells(0)
SellDataGridView.Rows(e.RowIndex).Cells(0).Value = "" 'نفرغ الخلية الأولى من رقم الصنف الغير موجود
SellDataGridView.Rows(e.RowIndex).Cells(0).Selected = True 'نضع المؤشر في الخلية الأولى لإستقبال رقم الصنف
Exit Sub 'نخرج من تكملة الكود
End If
'نهاية جلب البيانات الموجودة في المتجر بشرط رقم الصنف
'هنا نعمل دوران على الداتاقريدفيو للتحقق في حالة وجود باركود الصنف
For i = 0 To SellDataGridView.Rows.Count - 1
'هنا إذا رقم الصنف موجود في الداتاقريدفيو نتأكد إذا الكمية المراد بيعها اكبر من الكمية الموجودة في المتجر نظهر رسالة والخروج من تكملة الكود
If SellDataGridView.Rows(i).Cells(0).Value = SellDataGridView.CurrentCell.Value And SellDataGridView.Rows(i).Cells(1).Value <> "" Then
'هنا رقم الصنف موجود في الداتاقريدفيو ولكن الكمية المراد بيعها اقل من الكمية الموجوده في المتجر
'نزيد 1 في خلية الكمية
SellDataGridView.Rows(i).Cells(3).Value = SellDataGridView.Rows(i).Cells(3).Value + 1
'وضع قيمة المجموع في القريد بضرب السعر في الكمية الجديدة
SellDataGridView.Rows(i).Cells(5).Value = (SellDataGridView.Rows(i).Cells(4).Value * SellDataGridView.Rows(i).Cells(3).Value)
'نمنع اضافة سطر جديد في القريد
SellDataGridView.AllowUserToAddRows = False
'بعد اضافة 1 للكمية السابقة في القريد نفرغ القيمة المدخلة
SellDataGridView.Rows(e.RowIndex).Cells(0).Value = ""
'يبقى المؤشر في مكانه بعد اضافة 1 للكمية السابقة
SellDataGridView.Rows(e.RowIndex).Cells(0).Selected = True
TXT_TOTAL.Text = (From row In SellDataGridView.Rows Select CDbl(row.Cells(5).Value)).Sum()
SelMdataTextBox.Text = Val(TXT_TOTAL.Text) + Val(TXT_TAX.Text) - Val(TXT_DEC.Text)
Exit Sub
End If
Next 'نهاية الدوران والتأكد من رقم الصنف موجود في الداتاقريدفيو
'هنا رقم الصنف غير موجود في الداتاقريدفيو لذلك سوف نقوم بإضافته
SellDataGridView.Rows(e.RowIndex).Cells(0).Value = dt.Rows(0)(0).ToString
SellDataGridView.Rows(e.RowIndex).Cells(1).Value = dt.Rows(0)(1).ToString
SellDataGridView.Rows(e.RowIndex).Cells(2).Value = dt.Rows(0)(4).ToString
SellDataGridView.Rows(e.RowIndex).Cells(4).Value = dt.Rows(0)(3).ToString
SellDataGridView.Rows(e.RowIndex).Cells(6).Value = dt.Rows(0)(11).ToString
'نضع 1 في خلية الكمية
SellDataGridView.Rows(e.RowIndex).Cells(3).Value = 1
'وضع قيمة المجموع في القريد بضرب السعر في الكمية
SellDataGridView.Rows(SellDataGridView.CurrentRow.Index).Cells(5).Value = (SellDataGridView.Rows(SellDataGridView.CurrentRow.Index).Cells(3).Value * SellDataGridView.Rows(SellDataGridView.CurrentRow.Index).Cells(4).Value)
'نسمح اضافة سطر جديد في القريد
SellDataGridView.AllowUserToAddRows = True
'نضع المؤشر في خلية الباركود في السطر الجديد
SellDataGridView.CurrentCell = SellDataGridView.Rows(e.RowIndex + 1).Cells(0)
'ترتيب الداتاقريدفيو بناء على رقم الصنف
SellDataGridView.Sort(SellDataGridView.Columns(0), System.ComponentModel.ListSortDirection.Ascending)
TXT_TOTAL.Text = (From row In SellDataGridView.Rows Select CDbl(row.Cells(5).Value)).Sum()
SellDataGridView.Update()
