تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة من فظلكم خطأ عند الحفظ
#1
السلام عليكم

هذا الخطأ يحدث عند استرجاع كمية اخرى ثانية للبيع ، في الحالة الاولى تتم العملية عادي لكن المشكلة عندما اضيف فاتورة استرجاع اخرى للبيع




الكود : 



كود :
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
------------------------
منكم أتعلم
------------------------

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة في انشاء combobox في الداتا جريد fawazm15019797 0 59 16-01-21, 07:17 PM
آخر رد: fawazm15019797
  [VB.NET] مساعدة من اهل الاختصاص nedaladnan1973 1 71 15-01-21, 07:01 PM
آخر رد: moosa_alabri
  مساعدة في اضافة زر داخل خلية في الداتا جريد فيو MustafaShaker 3 126 15-01-21, 04:26 PM
آخر رد: moosa_alabri
  مساعدة في مشروع مكتبة نورالدين32 2 155 04-01-21, 10:58 PM
آخر رد: نورالدين32
  اريد مساعدة في ازالة البرنامج وتثبيته crazykinko 2 206 02-01-21, 08:08 PM
آخر رد: crazykinko
  [VB.NET] [مساعدة] ... كيفية تنفيذ هذا الكود بشكل صحيح ...؟ Mahmoud41 1 142 01-01-21, 02:14 AM
آخر رد: اليوم السابع
  [VB.NET] ممكن مساعدة عاجلة Necro PC 3 170 01-01-21, 01:22 AM
آخر رد: Mahmoud41
Information [VB.NET] [مساعدة] ... كيف انفذ هذا الكود ...؟ Mahmoud41 1 110 31-12-20, 03:44 AM
آخر رد: trakktour
  اريد مشروع لادارة صلات الجيم ...وطباعة الكروت من فظلكم khalilfox 6 1,716 27-12-20, 02:19 AM
آخر رد: اسامه الهرماوي
  مساعدة في نقر الماوس على PictureBox YazanOtoum 5 2,299 24-12-20, 04:57 PM
آخر رد: fdhrg

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم