29-12-20, 11:25 PM
هذا هو كود الحفظ في الجدولين انا فقط اريد رقم المعرف () ليتم حفظه في جدول تفصيل الفاتورة انا جربت ولاكن لم اتمكن من التفيذ
كود :
''حفظ في جدول المشتريات للاجماليات
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