تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
انا عندي مشكله ممكن المساعده اريد كود يجلب لي اخر id
#1
السلام عليكم ورحمة الله تعالى
انا عندي مشكله
ممكن المساعده


انا عندي جدولين الجدول الاول جدول اجمالي فاتورة الشراء
والجدول الثاني جدول تفاصيل الشراء
انا اريد عند الحفظ في جدوال اجمالي الشراء  يتم الرجوع  بقيمة ID.  التي تم حفظها في جدول الشراء لحفظها في جدول تفصيل الفاتور علما بان حقل ID.  ترقيم تلقائي وقاعده البيانات سيكوال سيرفر علما باني قمت بجلب اعلي قيمه في جدول الشراء بدالة Max  ولم تنفع
وانا اريد ذلك حتي يتمكن اكثر من جهاز العمل علي البرنامج و ادخال فاتوره في نفس الوقت


ارجو لو كان هناك كود لذلك يرجي اضافتة وشكرا لكم جميعا
ارجو لو كان هناك كود لذلك يرجي اضافتة وشكرا لكم جميعا
الرد
تم الشكر بواسطة:
#2
هذا هو كود الحفظ في الجدولين انا فقط اريد رقم المعرف () ليتم حفظه في جدول تفصيل الفاتورة انا جربت ولاكن لم اتمكن من التفيذ
كود :
   ''حفظ في جدول المشتريات للاجماليات
   Public Sub Save_BuyPill()
       ' check if this ColumnName is already exist in database
       Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("select * from  BuyPill ", con)
       da.Fill(dt)
       ' if Column present give msgbox to alert & Dont save
       If dt.Rows.Count > 0 Then
           MsgBox("هذا الاسم موجود من قبل ", MsgBoxStyle.Critical, "بيانات مكررة")
       Else
           dt.Rows.Add()
           Dim last As Integer = dt.Rows.Count - 1

           'dt.Rows(last).Item("BuyPillID") = GetMaxBuyPillID_BuyPill_InDirect()

           If BuyS.RadioButton1.Checked = True Then
               dt.Rows(last).Item("BuyPillReTypa") = BuyS.RadioButton1.Text
           ElseIf BuyS.RadioButton2.Checked = True Then                                      'نوع الفاتورة
               dt.Rows(last).Item("BuyPillReTypa") = BuyS.RadioButton2.Text
           End If

           If BuyS.RadioButton3.Checked = True Then
               dt.Rows(last).Item("BuyPillType") = BuyS.RadioButton3.Text
           ElseIf BuyS.RadioButton4.Checked = True Then                                       'نوع التعامل
               dt.Rows(last).Item("BuyPillType") = BuyS.RadioButton4.Text
           End If

           dt.Rows(last).Item("BuyPillSuppler") = BuyS.BuyPillSuppler.SelectedValue                 'رقم المورد

           dt.Rows(last).Item("BuyPillStore") = BuyS.BuyPillStore.SelectedValue                 'رقم المخزن

           dt.Rows(last).Item("BuyPillTotalAdd") = BuyS.BuyPillTotalAdd.Text               'مصريف اضافية

           dt.Rows(last).Item("BuyPillDiscound") = BuyS.BuyPillDiscound.Text               'خصم نقدي للفاتورة

           dt.Rows(last).Item("BuyPillCount") = BuyS.BuyPillCount.Text               'عدد الاصناف المباعة

           dt.Rows(last).Item("BuyPillWanted") = BuyS.BuyPillWanted.Text               'المبلغ المطلوب

           dt.Rows(last).Item("BuyPillPaid") = BuyS.BuyPillPaid.Text               'المبلغ المدفوع

           dt.Rows(last).Item("BuyPillRemain") = BuyS.BuyPillRemain.Text               'المبلغ المتبقي

           dt.Rows(last).Item("BuyPillTotalEarn") = 0 '   BuyS.BuyPillTotalEarn.Text               'اجمالي سعر البيع

           dt.Rows(last).Item("BuyPillDate") = Now.Date             'تاريخ الفاتورة
           dt.Rows(last).Item("BuyPillUser") = mainScreen.Label5.Text            'بايع الفاتورة  
           dt.Rows(last).Item("BuyPillState") = True            'فاعلية الفاتورة

           Dim Save As New SqlCommandBuilder(da)
           da.Update(dt)
           dt.AcceptChanges()
           'give msgbox to sure save
           MsgBox(" تم الحفظ بنجاح في جدول المشتريات ", MsgBoxStyle.Information, "تاكيد الحفظ")

       End If

   End Sub


   ' حفظ للبيانات في جدول التفصيل
   Public Sub Save_Buydetails()
       Dim dt As New DataTable
       Dim da As New SqlDataAdapter
       dt.Clear()
       da = New SqlDataAdapter("select * from  DuyDetails ", con)
       da.Fill(dt)
       For i As Integer = 0 To BuyS.dgv.Rows.Count - 1
           dt.Rows.Add()
           Dim last As Integer = dt.Rows.Count - 1


           dt.Rows(last).Item("DuyDetailBuyID") =    'رقم فاتورةالشراء

           If BuyS.RadioButton1.Checked = True Then
               dt.Rows(last).Item("DuyDetailReBuytype") = BuyS.RadioButton1.Text
           ElseIf BuyS.RadioButton2.Checked = True Then                                      'نوع الفاتورة
               dt.Rows(last).Item("DuyDetailReBuytype") = BuyS.RadioButton2.Text
           End If

           If BuyS.RadioButton3.Checked = True Then
               dt.Rows(last).Item("DuyDetailBuytype") = BuyS.RadioButton3.Text
           ElseIf BuyS.RadioButton4.Checked = True Then                                       'نوع التعامل
               dt.Rows(last).Item("DuyDetailBuytype") = BuyS.RadioButton4.Text
           End If

           dt.Rows(last).Item("DuyDetailItemID") = BuyS.dgv(0, i).Value 'رقم الصنف
           dt.Rows(last).Item("DuyDetaiItemBarcode") = BuyS.dgv(1, i).Value 'باركود الصنف
           'dt.Rows(last).Item("DuyDetailRasid") = BuyS.dgv(3, i).Value 'رصيد الصنف
           dt.Rows(last).Item("DuyDetailUnitID") = BuyS.dgv(4, i).Value 'رقم الوحدة
           dt.Rows(last).Item("DuyDetailConversionFactor") = BuyS.dgv(6, i).Value 'معامل التحويل
           dt.Rows(last).Item("DuyDetailItemBalances") = BuyS.dgv(7, i).Value             'الكمية المباعة

           dt.Rows(last).Item("DuyDetailItemBalancesNO") = Val(BuyS.dgv(7, i).Value) * Val(BuyS.dgv(6, i).Value)   'الكمية باصغر وحدة

           dt.Rows(last).Item("DuyDetailItemBuyPirce") = BuyS.dgv(9, i).Value 'سعر الشراء للصنف
           dt.Rows(last).Item("DuyDetailItemBuyPirceG") = BuyS.dgv(10, i).Value ' اجمالى الشراء للصنف

           dt.Rows(last).Item("DuyDetailSTOREID") = BuyS.dgv(11, i).Value 'رقم المخزن
           dt.Rows(last).Item("DuyDetailSupplerID") = BuyS.dgv(13, i).Value 'رقم المورد

           dt.Rows(last).Item("DuyDetailItemSalePirce") = BuyS.dgv(15, i).Value 'سعر البيع للصنف
           dt.Rows(last).Item("DuyDetailItemBuyEaen") = BuyS.dgv(7, i).Value * BuyS.dgv(15, i).Value - BuyS.dgv(10, i).Value 'ربح  للصنف

           dt.Rows(last).Item("DuyDetailDate") = Now.Date.ToString("yyyy-MM-dd")
           dt.Rows(last).Item("DuyDetailUser") = mainScreen.Label5.Text
           dt.Rows(last).Item("DuyDetailState") = True


           Dim save As New SqlCommandBuilder(da)
           da.Update(dt)
           dt.AcceptChanges()





       Next
       MessageBox.Show("تم حفظ بنجاح في جدول التفصيل ")
   End Sub
الرد
تم الشكر بواسطة:



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


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