كيف يتم خصم الفاتورة من جدول السلع

save

   Try
Da_bil_detai.InsertCommand.CommandText = "INSERT INTO OrdersDetail(OrderID,ProductID,LimitPrice,Quantity,Total) VALUES ('" & Me.TextBox1.Text.Trim & "', '" & itemno & "','" & unit_price & "','" & Quantity & "','" & Total & "')"
                    Da_bil_detai.InsertCommand.ExecuteNonQuery()

Da_bil_detai.InsertCommand.CommandText = "UPDATE Product SET Product.Quantity = [Product]![Quantity]-" & Quantity & "WHERE (((Product.ProductID)=" & itemno & "));"
                    Da_bil_detai.InsertCommand.ExecuteNonQuery()

                Catch ex As Exception

                End Try

أشكرك اخى كريم على هذه الفكرة لكن حدث خطأ هذا

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

Da_bil_detai.InsertCommand.CommandText = "UPDATE Product SET Product.Quantity = [Product]![Quantity]-" & Quantity & " WHERE Product.ProductID=" & itemno

بعد التعديل لا يوجد اى تأثير على الكمية الموجودة فى المنتجات

بعد التعديل لا يوجد اى تأثير على الكمية الموجودة فى المنتجات واسف على الازعاج

-9

Da_bil_detai.InsertCommand.CommandText = "UPDATE Product Quantity = Quantity -" & Quantity & " WHERE(ProductID =" & itemno & ")"

اتمني ان يكون اخر تعديل اسف للاطله

ياخسارة :D

اعطانى خطأ فى Update

انا اسف وياريت مش تتضيق بجد لو الكود دة اشتغل النهاردة هتكون قدمت لية خدمة كبيرة جداااا :D

   Public Sub Insert()
        Dim ta As OleDb.OleDbTransaction
        ConnectDb()
        ta = Me.OleDbConnection1.BeginTransaction
        Me.Da_bill.InsertCommand.Transaction = ta
        Me.Da_bil_detai.InsertCommand.Transaction = ta
        Da_bill.InsertCommand.CommandText = "INSERT INTO Orders([OrderID],[CustomerID]) VALUES('" & Me.TextBox1.Text.Trim & "', '" & Cmb_customer.SelectedValue & "')"
        Da_bill.InsertCommand.ExecuteNonQuery()
        Try
            Dim dgCount As Integer = NDataGrid1.BindingContext(NDataGrid1.DataSource, NDataGrid1.DataMember).Count
            Dim I As Integer
            For I = 0 To dgCount - 1
                Dim itemno As Integer = NDataGrid1.Item(I, 0)
                Dim Quantity As Integer = NDataGrid1.Item(I, 1)
                Dim unit_price As String = NDataGrid1.Item(I, 2)
                Dim Total As String = NDataGrid1.Item(I, 3)
                Da_bil_detai.InsertCommand.CommandText = "INSERT INTO OrdersDetail(OrderID,ProductID,LimitPrice,Quantity,Total) VALUES ('" & Me.TextBox1.Text.Trim & "', '" & itemno & "','" & unit_price & "','" & Quantity & "','" & Total & "')"
                Da_bil_detai.InsertCommand.ExecuteNonQuery()
                Da_bil_detai.InsertCommand.CommandText = "UPDATE Product Quantity = Quantity -" & Quantity & " WHERE(ProductID =" & itemno & ")"
                Da_bil_detai.InsertCommand.ExecuteNonQuery()
            Next
            ta.Commit()
            MessageBox.Show("تم الحفظ بنجاح", "المشروع التجارى", MessageBoxButtons.OK, MessageBoxIcon.Information)
            DisconnectDb()
            FillData()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            ta.Rollback()
            DisconnectDb()
        End Try
    End Sub

-9

Da_bil_detai.InsertCommand.CommandText = "UPDATE Product set Quantity = Quantity - " & Quantity & " WHERE (ProductID =" & itemno & ")"
Da_bil_detai.InsertCommand.ExecuteNonQuery()

أشكرك اخى كريم على مجهودك

مع الاسف الكود غير مؤثر يتم حفظ الفاتورة لكن لا يتم الخصم ؟؟

-9

هذا كود الحفظ كامل ومجرب ويقوم بانقاص الرصيد من جدول السلع وهو نفس كود الاخ كريم

ملاحظة فى المرفق الجدولOrder تسميته خاطئه لانها تعتبر من الكلمات المحجوزة للSQL

Public Sub Insert()
        Dim ta As OleDb.OleDbTransaction
        ConnectDb()
        ta = Me.OleDbConnection1.BeginTransaction
        ' ta = Me.OleDbConnection2.BeginTransaction
        Me.Da_bill.InsertCommand.Transaction = ta
        Me.Da_bil_detai.InsertCommand.Transaction = ta
        Da_bill.InsertCommand.CommandText = "INSERT INTO [Order]([OrderID],[CustomerID]) VALUES(" & Me.TextBox1.Text.Trim & ", " & Me.Cmb_customer.SelectedValue & ")"
        Da_bill.InsertCommand.ExecuteNonQuery()
        Try
            Dim dgCount As Integer = NDataGrid1.BindingContext(NDataGrid1.DataSource, NDataGrid1.DataMember).Count
            Dim I As Integer
            For I = 0 To dgCount - 1
                Dim itemno As Integer = NDataGrid1.Item(I, 0)
                Dim Quantity As Integer = NDataGrid1.Item(I, 1)
                Dim unit_price As String = NDataGrid1.Item(I, 2)
                Dim Total As String = NDataGrid1.Item(I, 3)
                Da_bil_detai.InsertCommand.CommandText = "INSERT INTO OrdersDetail(OrderID,ProductID,LimitPrice,Quantity,Total) VALUES ('" & Me.TextBox1.Text.Trim & "', '" & itemno & "','" & unit_price & "','" & Quantity & "','" & Total & "')"
                Da_bil_detai.InsertCommand.ExecuteNonQuery()
                Da_bil_detai.InsertCommand.CommandText = "UPDATE [Product] SET [Quantity]=[Quantity]-" & Quantity & " WHERE [ProductID]= " & itemno & ""
                Da_bil_detai.InsertCommand.ExecuteNonQuery()
            Next
            ta.Commit()
            MessageBox.Show("تم الحفظ بنجاح", "المشروع التجارى", MessageBoxButtons.OK, MessageBoxIcon.Information)
            DisconnectDb()
            FillData()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            ta.Rollback()
            DisconnectDb()
        End Try
    End Sub

بداية موفقة :)

أشكرك اخى SOLO.NET واشرك الاخ كريم

فعلا قمت باضافة الكود وتم عمل خصم فى جدول السلع لكن عندما بدأت استخدم الكود بالمشروع الحقيقى لم يتم الخصم مع انى قمت بكتابة المثال بنفس موصفات المشروع الاصلية بمعنى لم اغير اي شئ :D

فهل هناك سبب لذلك ؟

اقتباس

فعلا قمت باضافة الكود وتم عمل خصم فى جدول السلع لكن عندما بدأت استخدم الكود بالمشروع الحقيقى لم يتم الخصم مع انى قمت بكتابة المثال بنفس موصفات المشروع الاصلية بمعنى لم اغير اي شئ

فهل هناك سبب لذلك ؟

من الصعب تحديد السبب :blink: ولكن لو كان هناك اى خطأ يظهر اخبرنا به

قم بمراجعة الكود وتحليله مجددا لمعرفة السبب

بالتوفيق

السلام عليكم

كلامك صحيح اخى SOLO.NET الحمد لله كان هناك خطأ فى Dataset المشروع الاصلى والحمد لله قمت باصلاحه وبصراحة مش عارف اقول لك اية انت واخى كريم سوفت الف شكر ليكم بجد بزلتوا جهد معاية وشكرا لكم وان شاء اكمل المشروع وبأذن الله اضعة بالمنتدى بالشرح الكامل بما قمت به من بداية التفكير فيه ليكون مثال توضحيى على صنع البرامج التجارية