[hesham77a]

استفسار 
بالنسبة للدرس  23 الدرس الثالث والعشرين : استخراج كمية الأصناف
 لو انه الصنف فيه وارد وصادر ولكن لايوجد مسترجع لماذا لايظهر في الكميات

يعني لو الصنف رقم1 ورد منه 100 قطعة وبعت منه 20 قطعه ولم يتم ترجيع اي قطعه ، لماذا لايظهر في شاشة كمية الأصناف 

[ملهمـ]

الكميات قمنا بإلغائها في شاشة الاصناف

[المبرمج الجديد]

السلام عليكم 

لماذا لا تظهر عندي بيانات الاصناف في 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

[elgokr]

اخى المبرمج الجديد

تاكد من الربط من الجداول

وان القيمة المرتبطة ببعط

لان اذا اختلفة قيمة من التحقق من الربط سيكون الناتج كما هو يظهر معك

تحياتى لك

وتمنياتى لك التوفيق

[المبرمج الجديد]

(15-07-18, 01:56 AM)elgokr كتب :

اخى المبرمج الجديد

تاكد من الربط من الجداول

وان القيمة المرتبطة ببعط

لان اذا اختلفة قيمة من التحقق من الربط سيكون الناتج كما هو يظهر معك

تحياتى لك

وتمنياتى لك التوفيق

شكرا لك اخي الكريم علي الرد والمساعدة 

لقد  قمت بربط الجدوال وقمت بتكرار الربط  اكثر من مرة  
انا استعمل SQL SERVER 2017 هل من الممكن ان تكون المشكله من ال SQL نفسه ؟؟

[hesham77a]

(15-07-18, 02:56 AM)المبرمج الجديد كتب :

(15-07-18, 01:56 AM)elgokr كتب :

اخى المبرمج الجديد

تاكد من الربط من الجداول

وان القيمة المرتبطة ببعط

لان اذا اختلفة قيمة من التحقق من الربط سيكون الناتج كما هو يظهر معك

تحياتى لك

وتمنياتى لك التوفيق

شكرا لك اخي الكريم علي الرد والمساعدة 

لقد  قمت بربط الجدوال وقمت بتكرار الربط  اكثر من مرة  
انا استعمل SQL SERVER 2017 هل من الممكن ان تكون المشكله من ال SQL نفسه ؟؟

نفس القصه عندي ، تبي الاصناف تظهر  اعمل الاتي/
قم بجلع الصنف وارد 
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ، 
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات

[المبرمج الجديد]

(15-07-18, 01:29 PM)hesham77a كتب : نفس القصه عندي ، تبي الاصناف تظهر  اعمل الاتي/
قم بجلع الصنف وارد 
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ، 
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات

شكرا علي ردك اخي الكريم 

ممكن توضحلي لاني لم افهم  اين اجعل الاصناف وارد؟

[hesham77a]

(15-07-18, 01:45 PM)المبرمج الجديد كتب :

(15-07-18, 01:29 PM)hesham77a كتب : نفس القصه عندي ، تبي الاصناف تظهر  اعمل الاتي/
قم بجلع الصنف وارد 
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ، 
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات

شكرا علي ردك اخي الكريم 

ممكن توضحلي لاني لم افهم  اين اجعل الاصناف وارد؟

تمام خد معاي خطوة خطوة:
1- ادخل لشاشة المشتريات وقم بشراء اصناف وركز علي اسم الاصناف لانك بتستعملهم بعد شوي
2- ادخل لشاشة المبيعات وقم ببيع كمية بسيطة من الاصناف السابقة .
3- ادخل لشاشة استرجاع مبيعات ورجع كمية بسيطة من نفس الاصناف السابقة.
4-ادخل لشاشة استرجاع مشتريات ورجع كمية بسيطة من نفس الاصناف السابقة.
5- الان تاكد من كمية الاصناف تجدها ظهرت  ولكن ليس كل الاصناف

ارجو من الاخ ملهم ان يتأكدي من هذا الموضوع ايضا ، لان الاصناف لن تظهر كلها.

[atef_020]

(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)ملهمـ كتب :

كود :

val('" & CODE_ & "')"

النوع نص وليس عدد صحيح
قم بالتعديل إلى :

كود :

'" & CODE_ & "'

اخى انا استخدمت هذه الطريقة من قبل '" & CODE_ & "' ولم تنجح معى اريد طريقة استدعاء الفاتورة الى شاشة المشترتات 

---

السلام عليكم اخى الكريم ملهم 

انا اذا قمت بكتابة     '" & CODE_ & "'    بهذه الطريقة فتظهر هذه الرسالة 

Data type mismatch in criteria expression.

   

واذا قمت بكتابة " & CODE_ & " بدون علامتى التنصيص 

تظهر هذه الرسالة 

Rows cannot be programmatically added to the DataGridView's rows collection when the control is data-bound.

   

ولا تظهر لا راس الفاتورة ولا تفاصيلها كما فى الصورة 

   

ارجو المساعدة فى حل المشكلة 

[atef_020]

الحمد لله تم حل المشكله ومعرفة الخطاء بمساعدة الاخ المحترم الجوكر