[h2551996]

(03-01-23, 09:21 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

اصنع جدول جديد للأصناف الفرعية (SubItems)
عند اضافة مادة جديدة تضع في مربع الاضافة - خيار : هل يوجد لها أصناف فرعية أم لا ..
إذا كان نعم تضيف الأصناف ضمن التبويب الفرعي في الجدول الجديد مع السعر والحجم وخلافه، وتأخذ الصفات الرئيسية من المسمى الأم,

عند عرض المنتجات وتختار منتج لاضافته للمبيعات : يذهب للبحث في جدول(SubItems)  إن وجد نتائج عرضها قبل الاضافة، وإلا فيقوم بإضافة 
المادة - لنافذة المبيعات .. أو .. أي نافذة لها -  من جدول وصف المواد الرئيسي.

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

كود :

Public Sub Select_click(sender As Object, e As EventArgs)


       Try
           _ID = sender.Tag.ToString()
           con = New SqlConnection(cs)
           If con.State = 1 Then con.Close()
           con.Open()
           Dim cmd As New SqlCommand(" select * from Product_Tbl Where Product_ID Like '" & _ID & "%'", con)
           Dim dr As SqlDataReader
           dr = cmd.ExecuteReader
           dr.Read()
           If dr.HasRows Then
               _Name = dr("ProductName").ToString
               _BuyPrice = dr("ProductBuy").ToString
               _SalePrice = dr("ProductSale").ToString
               _Barcode = dr("ProductCode").ToString
           End If
           dr.Close()
           con.Close()

           For i As Integer = 0 To Dgv.Rows.Count - 1
               If Dgv.Rows(i).Cells(0).Value = _ID Then
                   Dgv.Rows(i).Cells(4).Value = Dgv.Rows(i).Cells(4).Value + 1
                   Dgv.Rows(i).Cells(5).Value = Dgv.Rows(i).Cells(5).Value + _SalePrice
                   InvoiceTotal()
                   Exit Sub
               End If
           Next
           Dim x As Integer
           Dgv.Rows.Add()
           x = Dgv.Rows.Count - 1
           Dgv(0, x).Value = _ID
           Dgv(1, x).Value = _Barcode
           Dgv(2, x).Value = _Name
           Dgv(3, x).Value = _SalePrice
           Dgv(4, x).Value = 1
           Dgv(5, x).Value = Dgv(3, x).Value * 1
           Dgv(6, x).Value = _SalePrice - _BuyPrice
           InvoiceTotal()
       Catch ex As Exception
       End Try
   End Sub

لاني عجزت اضيف الكود بناء على امر اخر