+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة من فظلكم خطأ عند الحفظ (/showthread.php?tid=36582)
مساعدة من فظلكم خطأ عند الحفظ - sofiane-phy - 01-10-20
السلام عليكم
هذا الخطأ يحدث عند استرجاع كمية اخرى ثانية للبيع ، في الحالة الاولى تتم العملية عادي لكن المشكلة عندما اضيف فاتورة استرجاع اخرى للبيع
الكود :
كود :
Public Sub Insert_Re_Sale_Tbl(ByVal R_Sale_ID As Int32, ByVal R_Sale_Date As Date, ByVal Cus_ID As Int32, ByVal Item_Count As Int32, ByVal FinalTotal As Double, ByVal SalesMan As String)
Dim Cmd As New SqlCommand
With Cmd
.Connection = Con
.CommandType = CommandType.Text
.CommandText = "Insert Into Re_Sale_Tbl ( R_Sale_ID,R_Sale_Date,Cus_ID,Item_Count,FinalTotal,SalesMan)values(@R_Sale_ID,@R_Sale_Date,@Cus_ID,@Item_Count,@FinalTotal,@SalesMan)"
.Parameters.Clear()
.Parameters.AddWithValue("@R_Sale_ID", SqlDbType.Int).Value = R_Sale_ID
.Parameters.AddWithValue("@R_Sale_Date", SqlDbType.Date).Value = R_Sale_Date
.Parameters.AddWithValue("@Cus_ID", SqlDbType.Int).Value = Cus_ID
.Parameters.AddWithValue("@Item_Count", SqlDbType.Int).Value = Item_Count
.Parameters.AddWithValue("@FinalTotal", SqlDbType.Decimal).Value = FinalTotal
.Parameters.AddWithValue("@SalesMan", SqlDbType.varchar).Value = SalesMadownloadnكود :
End With
If Con.State = 1 Then Con.Close()
Con.Open()
Cmd.ExecuteNonQuery()
Con.Close()
MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
Cmd = Nothing
End Subقاعدة البيانات : https://prnt.sc/ur9m3h
كود الحفظ :
كود :
Private Sub BtnSave_Click(sender As System.Object, e As System.EventArgs) Handles BtnSave.Click
Insert_Re_Sale_Tbl(Re_Sale_ID.Text, Re_Sale_Date.Value, Cus_ID.Text, Item_Count.Text, FinalTotal.Text, SalesMan.Text)
Insert_Re_Sale_Details_Tbl()
Update_Cus_Balance()
UpdateStore()
End Sub