+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم دورات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=187)
+--- الموضوع : دورة إنشاء برنامج مبيعات متكامل (/showthread.php?tid=24627)
RE: دورة إنشاء برنامج مبيعات متكامل - hesham77a - 13-07-18
استفسار
بالنسبة للدرس 23 الدرس الثالث والعشرين : استخراج كمية الأصناف
لو انه الصنف فيه وارد وصادر ولكن لايوجد مسترجع لماذا لايظهر في الكميات
يعني لو الصنف رقم1 ورد منه 100 قطعة وبعت منه 20 قطعه ولم يتم ترجيع اي قطعه ، لماذا لايظهر في شاشة كمية الأصناف
RE: دورة إنشاء برنامج مبيعات متكامل - ملهمـ - 14-07-18
الكميات قمنا بإلغائها في شاشة الاصناف
RE: دورة إنشاء برنامج مبيعات متكامل - المبرمج الجديد - 14-07-18
السلام عليكم
لماذا لا تظهر عندي بيانات الاصناف في SQL SERVER وايضا في الفيجول ستوديو لا تمتلئ الجدوال بالقيم
بحثث في قوقل لعلي اجد سبب للمشكله ولكن لم اجد ؟
كود :
Public Class ITEMS_KEMEYAT
Sub DETA()
Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter("SELECT TOP (100) PERCENT dbo.BUY_DET.ITEMNAME AS [اسم الصنف], SUM(DISTINCT dbo.BUY_DET.QTY) AS وارد, SUM(DISTINCT dbo.SALE_DET.QTY) AS صادر, SUM(DISTINCT dbo.REBUY_DET.QTY) AS [م.مشتريات], SUM(DISTINCT dbo.ReSale_Det.QTY) AS [م.مبيعات], dbo.BUY_DET.PRICE AS التكلفة, dbo.SALE_DET.PRICE AS البيع FROM dbo.BUY_DET INNER JOIN dbo.SALE_DET ON dbo.BUY_DET.ITEMCODE = dbo.SALE_DET.ITEMCODE INNER JOIN dbo.REBUY_DET ON dbo.SALE_DET.ITEMCODE = dbo.REBUY_DET.ITEMCODE INNER JOIN dbo.ReSale_Det ON dbo.REBUY_DET.ITEMCODE = dbo.ReSale_Det.ITEMCODE GROUP BY dbo.BUY_DET.ITEMNAME, dbo.BUY_DET.PRICE, dbo.SALE_DET.PRICE ORDER BY [اسم الصنف]", SqlConn)
DA.Fill(DT)
DataGridView1.DataSource = DT
End Sub
Private Sub ITEMS_KEMEYAT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DETA()
End Sub
End Class
RE: دورة إنشاء برنامج مبيعات متكامل - elgokr - 15-07-18
اخى المبرمج الجديد
تاكد من الربط من الجداول
وان القيمة المرتبطة ببعط
لان اذا اختلفة قيمة من التحقق من الربط سيكون الناتج كما هو يظهر معك
تحياتى لك
وتمنياتى لك التوفيق
RE: دورة إنشاء برنامج مبيعات متكامل - المبرمج الجديد - 15-07-18
(15-07-18, 01:56 AM)elgokr كتب :اخى المبرمج الجديدتاكد من الربط من الجداولوان القيمة المرتبطة ببعط
لان اذا اختلفة قيمة من التحقق من الربط سيكون الناتج كما هو يظهر معك
تحياتى لكوتمنياتى لك التوفيق
شكرا لك اخي الكريم علي الرد والمساعدة
لقد قمت بربط الجدوال وقمت بتكرار الربط اكثر من مرة
انا استعمل SQL SERVER 2017 هل من الممكن ان تكون المشكله من ال SQL نفسه ؟؟
RE: دورة إنشاء برنامج مبيعات متكامل - hesham77a - 15-07-18
(15-07-18, 02:56 AM)المبرمج الجديد كتب :نفس القصه عندي ، تبي الاصناف تظهر اعمل الاتي/(15-07-18, 01:56 AM)elgokr كتب :اخى المبرمج الجديدتاكد من الربط من الجداولوان القيمة المرتبطة ببعط
لان اذا اختلفة قيمة من التحقق من الربط سيكون الناتج كما هو يظهر معك
تحياتى لكوتمنياتى لك التوفيق
شكرا لك اخي الكريم علي الرد والمساعدة
لقد قمت بربط الجدوال وقمت بتكرار الربط اكثر من مرة
انا استعمل SQL SERVER 2017 هل من الممكن ان تكون المشكله من ال SQL نفسه ؟؟
قم بجلع الصنف وارد
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ،
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات
RE: دورة إنشاء برنامج مبيعات متكامل - المبرمج الجديد - 15-07-18
(15-07-18, 01:29 PM)hesham77a كتب : نفس القصه عندي ، تبي الاصناف تظهر اعمل الاتي/شكرا علي ردك اخي الكريم
قم بجلع الصنف وارد
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ،
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات
ممكن توضحلي لاني لم افهم اين اجعل الاصناف وارد؟
RE: دورة إنشاء برنامج مبيعات متكامل - hesham77a - 15-07-18
(15-07-18, 01:45 PM)المبرمج الجديد كتب :تمام خد معاي خطوة خطوة:(15-07-18, 01:29 PM)hesham77a كتب : نفس القصه عندي ، تبي الاصناف تظهر اعمل الاتي/شكرا علي ردك اخي الكريم
قم بجلع الصنف وارد
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ،
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات
ممكن توضحلي لاني لم افهم اين اجعل الاصناف وارد؟
1- ادخل لشاشة المشتريات وقم بشراء اصناف وركز علي اسم الاصناف لانك بتستعملهم بعد شوي
2- ادخل لشاشة المبيعات وقم ببيع كمية بسيطة من الاصناف السابقة .
3- ادخل لشاشة استرجاع مبيعات ورجع كمية بسيطة من نفس الاصناف السابقة.
4-ادخل لشاشة استرجاع مشتريات ورجع كمية بسيطة من نفس الاصناف السابقة.
5- الان تاكد من كمية الاصناف تجدها ظهرت ولكن ليس كل الاصناف
ارجو من الاخ ملهم ان يتأكدي من هذا الموضوع ايضا ، لان الاصناف لن تظهر كلها.
RE: دورة إنشاء برنامج مبيعات متكامل - atef_020 - 17-07-18
(11-07-18, 11:50 PM)atef_020 كتب :(10-07-18, 09:52 PM)ملهمـ كتب :(10-07-18, 06:02 PM)atef_020 كتب :(10-07-18, 12:51 PM)atef_020 كتب : اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات
لم ترد اخى ملهم على سوالى
ضع الكود أخي الكريم
دا الكود اخى الكريم
مش عارف استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها
PHP كود :
Sub SHOW_DETAILES(ByVal CODE_ As String)
'=========== ربط رأس الفاتورة =============
Dim DT As New DataTable
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM SEL_HED WHERE BUYCODE = val('" & CODE_ & "')", con)
DA.Fill(DT)
If DT.Rows.Count = 0 Then
MessageBox.Show("يرجى التأكد من رقم الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Dim DR = DT.Rows(0)
TXTID.Text = DR!BUYCODE
BUYTYPE.Text = DR!BUYTYPE
TXTN_SUPL.Text = DR!SUPL
DateTimePicker1.Value = DR!SEL_DATE
TXTMan.Text = DR!SEL_MAN
NOTES.Text = DR!NOTES
TXT_TOTLA2.Text = DR!TOTAL
TXTINVO.Text = DR!ID_INVO
Quant.Text = DR!Total_QNT
Dim DS As New DataSet
'=========== ربط تفاصيل الفاتورة =============
DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE = val('" & CODE_ & "')", con)
DS = New DataSet
DA.Fill(DS)
DT = DS.Tables(0)
For I = 0 To DT.Rows.Count - 1
dgv.Rows.Add()
dgv.Rows(I).Cells(0).Value = DT.Rows(I).Item("code")
dgv.Rows(I).Cells(1).Value = DT.Rows(I).Item("name")
dgv.Rows(I).Cells(2).Value = DT.Rows(I).Item("price")
dgv.Rows(I).Cells(3).Value = DT.Rows(I).Item("UNIT")
dgv.Rows(I).Cells(4).Value = DT.Rows(I).Item("QTY")
dgv.Rows(I).Cells(5).Value = DT.Rows(I).Item("Cost_Unit")
dgv.Rows(I).Cells(6).Value = DT.Rows(I).Item("Total")
dgv.Rows(I).Cells(7).Value = DT.Rows(I).Item("DS")
dgv.Rows(I).Cells(8).Value = DT.Rows(I).Item("Tax")
dgv.Rows(I).Cells(9).Value = DT.Rows(I).Item("Stock")
Next
BUTTDELETE.Enabled = True
BUTTSAVE.Enabled = False
End If
End Sub
(13-07-18, 07:16 AM)ملهمـ كتب :اخى انا استخدمت هذه الطريقة من قبل '" & CODE_ & "' ولم تنجح معى اريد طريقة استدعاء الفاتورة الى شاشة المشترتاتالنوع نص وليس عدد صحيحكود :
val('" & CODE_ & "')"
قم بالتعديل إلى :
كود :
'" & CODE_ & "'
السلام عليكم اخى الكريم ملهم
انا اذا قمت بكتابة '" & CODE_ & "' بهذه الطريقة فتظهر هذه الرسالة
Data type mismatch in criteria expression.
[attachment=18845]
واذا قمت بكتابة " & CODE_ & " بدون علامتى التنصيص
تظهر هذه الرسالة
Rows cannot be programmatically added to the DataGridView's rows collection when the control is data-bound.
[attachment=18844]
ولا تظهر لا راس الفاتورة ولا تفاصيلها كما فى الصورة
[attachment=18842]
ارجو المساعدة فى حل المشكلة
RE: دورة إنشاء برنامج مبيعات متكامل - atef_020 - 21-07-18
الحمد لله تم حل المشكله ومعرفة الخطاء بمساعدة الاخ المحترم الجوكر