[حريف برمجة]

طيب طيب اعملها لك غداً ان شاء الله .

[atef_020]

(01-12-18, 10:14 PM)اسامه الهرماوي كتب :

(01-12-18, 07:13 PM)atef_020 كتب : السلام عليكم اخوانى المحترمين 


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


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

جزاكم الله خيرا تحياتى للجميع

انت متصل بالاكسس.

نعم بالاكسس اخى الكريم

---

(04-12-18, 04:11 AM)حريف برمجة كتب : طيب طيب اعملها لك غداً ان شاء الله .

اوك فى انتظارك اخى المحترم جزاك الله عنا كل خير 

[atef_020]

(03-12-18, 08:30 PM)atef_020 كتب :

(03-12-18, 07:28 PM)حريف برمجة كتب : مرحبا ،،

أولا اتبع الصور :

انقر على الداتاقريدفيو واختار Add Column








ثانياً : امسح الكود تبعك وانسخ الكود والصقه في حدث CellEndEdit الخاص بالداتاقريدفيو :

كود :

dgv.Rows(e.RowIndex).Cells(0).Value = Format(Val(dgv.Rows(e.RowIndex).Cells(0).Value))

       'بداية جلب البيانات الموجودة في المتجر بشرط رقم الصنف
       Dim dp As New OleDbDataAdapter(sqlstr, con)
       dp.SelectCommand.Parameters.AddWithValue("@code", dgv.Rows(e.RowIndex).Cells(0).Value)
       Dim dt As New DataTable
       dp.Fill(dt)

       If dt.Rows.Count = 0 Then   'رقم الصنف غير موجود في الجدول

           'نمنع اضافة سطر جديد في القريد
           dgv.AllowUserToAddRows = False

           MsgBox("هذا الصنف غير معرف في بطاقة الصنف", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "خطأ ")

           dgv.CurrentCell = dgv.Rows(e.RowIndex).Cells(0)
           dgv.Rows(e.RowIndex).Cells(0).Value = ""          'نفرغ الخلية الأولى من رقم الصنف الغير موجود
           dgv.Rows(e.RowIndex).Cells(0).Selected = True     'نضع المؤشر في الخلية الأولى لإستقبال رقم الصنف

           Exit Sub      'نخرج من تكملة الكود
       End If
       'نهاية جلب البيانات الموجودة في المتجر بشرط رقم الصنف



       'هنا نعمل دوران على الداتاقريدفيو للتحقق في حالة وجود باركود الصنف
       For i = 0 To dgv.Rows.Count - 1

           'هنا إذا رقم الصنف موجود في الداتاقريدفيو نتأكد إذا الكمية المراد بيعها اكبر من الكمية الموجودة في المتجر نظهر رسالة والخروج من تكملة الكود
           If dgv.Rows(i).Cells(0).Value = dgv.CurrentCell.Value And dgv.Rows(i).Cells(1).Value <> "" Then

               'هنا رقم الصنف موجود في الداتاقريدفيو ولكن الكمية المراد بيعها اقل من الكمية الموجوده في المتجر
               'نزيد 1 في خلية الكمية
               dgv.Rows(i).Cells(2).Value = dgv.Rows(i).Cells(2).Value + 1

               'وضع قيمة المجموع في القريد بضرب السعر في الكمية الجديدة
               dgv.Rows(i).Cells(4).Value = (dgv.Rows(i).Cells(2).Value * dgv.Rows(i).Cells(3).Value)

               'نمنع اضافة سطر جديد في القريد
               dgv.AllowUserToAddRows = False

               'بعد اضافة 1 للكمية السابقة في القريد نفرغ القيمة المدخلة
               dgv.Rows(e.RowIndex).Cells(0).Value = ""

               'يبقى المؤشر في مكانه بعد اضافة 1 للكمية السابقة
               dgv.Rows(e.RowIndex).Cells(0).Selected = True

               Exit Sub

           End If
       Next      'نهاية الدوران والتأكد من رقم الصنف موجود في الداتاقريدفيو



       'هنا رقم الصنف غير موجود في الداتاقريدفيو لذلك سوف نقوم بإضافته
       dgv.Rows(e.RowIndex).Cells(0).Value = dt.Rows(0)(0).ToString
       dgv.Rows(e.RowIndex).Cells(1).Value = dt.Rows(0)(1).ToString
       dgv.Rows(e.RowIndex).Cells(3).Value = dt.Rows(0)(2).ToString

       'نضع 1 في خلية الكمية
       dgv.Rows(e.RowIndex).Cells(2).Value = 1

       'وضع قيمة المجموع في القريد بضرب السعر في الكمية
       dgv.Rows(dgv.CurrentRow.Index).Cells(4).Value = (dgv.Rows(dgv.CurrentRow.Index).Cells(2).Value * dgv.Rows(dgv.CurrentRow.Index).Cells(3).Value)

       'نسمح اضافة سطر جديد في القريد
       dgv.AllowUserToAddRows = True

       'نضع المؤشر في خلية الباركود في السطر الجديد
       dgv.CurrentCell = dgv.Rows(e.RowIndex + 1).Cells(0)


       'ترتيب الداتاقريدفيو بناء على رقم الصنف
       dgv.Sort(dgv.Columns(0), System.ComponentModel.ListSortDirection.Ascending)

 ت
سلم ايدك اخى الكريم اشتغل تمام 
بس فية طلب لو عاوز اضيف كمية اكثر من الصنف وليكن 20 قطعة من السكر ممكن طريقة انى اضغط مثلا على f5 ليقوم بتحرير خلية الكمية لاقوم بالتعديل على الكمية من 1 الى 20 قطعة

عند حفظ الفاتورة فية خطاء 
 

تم حل مشكلة الخطاء عند الحفظ باضافة       val(   )

PHP كود :

cmd.Parameters.Add(New OleDb.OleDbParameter("@Total_2", OleDb.OleDbType.Currency)).Value = Val(Tota1TextBox.Text) 


أرجو الحل 

بس فية طلب لو عاوز اضيف كمية اكثر من الصنف وليكن 20 قطعة من السكر ممكن طريقة انى اضغط مثلا على f5 ليقوم بتحرير خلية الكمية لاقوم بالتعديل على الكمية من 1 الى 20 قطعة

[atef_020]

(04-12-18, 05:37 PM)atef_020 كتب :

(03-12-18, 08:30 PM)atef_020 كتب :

(03-12-18, 07:28 PM)حريف برمجة كتب : مرحبا ،،

أولا اتبع الصور :

انقر على الداتاقريدفيو واختار Add Column








ثانياً : امسح الكود تبعك وانسخ الكود والصقه في حدث CellEndEdit الخاص بالداتاقريدفيو :

كود :

dgv.Rows(e.RowIndex).Cells(0).Value = Format(Val(dgv.Rows(e.RowIndex).Cells(0).Value))

       'بداية جلب البيانات الموجودة في المتجر بشرط رقم الصنف
       Dim dp As New OleDbDataAdapter(sqlstr, con)
       dp.SelectCommand.Parameters.AddWithValue("@code", dgv.Rows(e.RowIndex).Cells(0).Value)
       Dim dt As New DataTable
       dp.Fill(dt)

       If dt.Rows.Count = 0 Then   'رقم الصنف غير موجود في الجدول

           'نمنع اضافة سطر جديد في القريد
           dgv.AllowUserToAddRows = False

           MsgBox("هذا الصنف غير معرف في بطاقة الصنف", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "خطأ ")

           dgv.CurrentCell = dgv.Rows(e.RowIndex).Cells(0)
           dgv.Rows(e.RowIndex).Cells(0).Value = ""          'نفرغ الخلية الأولى من رقم الصنف الغير موجود
           dgv.Rows(e.RowIndex).Cells(0).Selected = True     'نضع المؤشر في الخلية الأولى لإستقبال رقم الصنف

           Exit Sub      'نخرج من تكملة الكود
       End If
       'نهاية جلب البيانات الموجودة في المتجر بشرط رقم الصنف



       'هنا نعمل دوران على الداتاقريدفيو للتحقق في حالة وجود باركود الصنف
       For i = 0 To dgv.Rows.Count - 1

           'هنا إذا رقم الصنف موجود في الداتاقريدفيو نتأكد إذا الكمية المراد بيعها اكبر من الكمية الموجودة في المتجر نظهر رسالة والخروج من تكملة الكود
           If dgv.Rows(i).Cells(0).Value = dgv.CurrentCell.Value And dgv.Rows(i).Cells(1).Value <> "" Then

               'هنا رقم الصنف موجود في الداتاقريدفيو ولكن الكمية المراد بيعها اقل من الكمية الموجوده في المتجر
               'نزيد 1 في خلية الكمية
               dgv.Rows(i).Cells(2).Value = dgv.Rows(i).Cells(2).Value + 1

               'وضع قيمة المجموع في القريد بضرب السعر في الكمية الجديدة
               dgv.Rows(i).Cells(4).Value = (dgv.Rows(i).Cells(2).Value * dgv.Rows(i).Cells(3).Value)

               'نمنع اضافة سطر جديد في القريد
               dgv.AllowUserToAddRows = False

               'بعد اضافة 1 للكمية السابقة في القريد نفرغ القيمة المدخلة
               dgv.Rows(e.RowIndex).Cells(0).Value = ""

               'يبقى المؤشر في مكانه بعد اضافة 1 للكمية السابقة
               dgv.Rows(e.RowIndex).Cells(0).Selected = True

               Exit Sub

           End If
       Next      'نهاية الدوران والتأكد من رقم الصنف موجود في الداتاقريدفيو



       'هنا رقم الصنف غير موجود في الداتاقريدفيو لذلك سوف نقوم بإضافته
       dgv.Rows(e.RowIndex).Cells(0).Value = dt.Rows(0)(0).ToString
       dgv.Rows(e.RowIndex).Cells(1).Value = dt.Rows(0)(1).ToString
       dgv.Rows(e.RowIndex).Cells(3).Value = dt.Rows(0)(2).ToString

       'نضع 1 في خلية الكمية
       dgv.Rows(e.RowIndex).Cells(2).Value = 1

       'وضع قيمة المجموع في القريد بضرب السعر في الكمية
       dgv.Rows(dgv.CurrentRow.Index).Cells(4).Value = (dgv.Rows(dgv.CurrentRow.Index).Cells(2).Value * dgv.Rows(dgv.CurrentRow.Index).Cells(3).Value)

       'نسمح اضافة سطر جديد في القريد
       dgv.AllowUserToAddRows = True

       'نضع المؤشر في خلية الباركود في السطر الجديد
       dgv.CurrentCell = dgv.Rows(e.RowIndex + 1).Cells(0)


       'ترتيب الداتاقريدفيو بناء على رقم الصنف
       dgv.Sort(dgv.Columns(0), System.ComponentModel.ListSortDirection.Ascending)

 ت
سلم ايدك اخى الكريم اشتغل تمام 
بس فية طلب لو عاوز اضيف كمية اكثر من الصنف وليكن 20 قطعة من السكر ممكن طريقة انى اضغط مثلا على f5 ليقوم بتحرير خلية الكمية لاقوم بالتعديل على الكمية من 1 الى 20 قطعة

عند حفظ الفاتورة فية خطاء 
 

تم حل مشكلة الخطاء عند الحفظ باضافة       val(   )

PHP كود :

cmd.Parameters.Add(New OleDb.OleDbParameter("@Total_2", OleDb.OleDbType.Currency)).Value = Val(Tota1TextBox.Text) 


أرجو الحل 

بس فية طلب لو عاوز اضيف كمية اكثر من الصنف وليكن 20 قطعة من السكر ممكن طريقة انى اضغط مثلا على f5 ليقوم بتحرير خلية الكمية لاقوم بالتعديل على الكمية من 1 الى 20 قطعة

فى الانتظار اخى الكريم 


[quote pid='133499' dateline='1543930665']
أرجو الحل 

لو عاوز اضيف كمية اكثر من الصنف وليكن 20 قطعة من السكر ممكن طريقة انى اضغط مثلا على f5 ليقوم بتحرير خلية الكمية لاقوم بالتعديل على الكمية من 1 الى 20 قطعة
[/quote]

[atef_020]

انا فى الانتظار اخى الغالى حريف برمجة 
 عاوز اضيف كمية اكثر من الصنف وليكن 20 قطعة من السكر ممكن طريقة انى اضغط مثلا على f5 ليقوم بتحرير خلية الكمية لاقوم بالتعديل على الكمية من 1 الى 20 قطعة

[حريف برمجة]

ان شاء الله اليوم اعملها ....

ولكن لي ملاحظة وهي :

كيف تعرف الكمية الموجودة في الجدول ؟

انت لم تعمل حقل خاص بالكمية الموجودة في المخزن وعند البيع تخصم من الكمية بالمتجر بقدر الكمية المباعة .

[atef_020]

(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()

[حريف برمجة]

انا فاهم اللي طلبته وهي فكرة مميزة بصراحه وانا الآن أقوم بتحليل الفكرة تحليل سليم لأعملها ،،،

ولا أخفيك القول خطرت على بالي كذا فكرة وهي :

الفكرة الأولى : نقوم بعمل تكست بوكس لرقم الصنف وتكست بوكس للكمية لأكثر من 1 ،، وتكون كالتالي :


1- عمل صب خاص عندما نضيف الصنف من القريدفيو بكمية ثابتة 1 .
2- عمل صب خاص عندما نضيف الصنف بكمية اكثر من 1 .

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

الفكرة الثانية : تعريف متغير من نوع بولين (True and False) لنخبر القريد بأن (True) تعني إضافة الكمية الثابتة 1 ،، و (False) تعني الكمية قيمتها هي الموجودة في التكست بوكس

وانا الآن اجرب كل الطرق للظهور بأفضل طريقة وبكود مختصر ومفهوم .

[atef_020]

(05-12-18, 05:29 PM)حريف برمجة كتب : انا فاهم اللي طلبته وهي فكرة مميزة بصراحه وانا الآن أقوم بتحليل الفكرة تحليل سليم لأعملها ،،،

ولا أخفيك القول خطرت على بالي كذا فكرة وهي :

الفكرة الأولى : نقوم بعمل تكست بوكس لرقم الصنف وتكست بوكس للكمية لأكثر من 1 ،، وتكون كالتالي :


1- عمل صب خاص عندما نضيف الصنف من القريدفيو بكمية ثابتة 1 .
2- عمل صب خاص عندما نضيف الصنف بكمية اكثر من 1 .

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

الفكرة الثانية : تعريف متغير من نوع بولين (True and False) لنخبر القريد بأن (True) تعني إضافة الكمية الثابتة 1 ،، و (False) تعني الكمية قيمتها هي الموجودة في التكست بوكس

وانا الآن اجرب كل الطرق للظهور بأفضل طريقة وبكود مختصر ومفهوم .

جزاك الله عنا خيرا اخى الكريم

[atef_020]

انا فى انتظار الحل  اخى الكريم