[Abuzakria]

فكرة العمل هي تفعيل للمشتركين في الانترنت ويسجلها في جدول التفعيل وهذة تمام لكن في حالة عدم سداد المشترك للقيمة يسجل قيمة المستحقة في جدول الديون
الذي يحتوي على الرقم ، اسم المستخدم ، قيمة الدين الخاصة ، تاريخ الدين ، قيمة السداد ، تاريخ السداد، الحالة 1 " الحالة 1" خالص او غير خالص ، قيمة دين الشركة ، تاريخ الدين ، قيمة السداد ، تاريخ السداد ، الحالة 2
فكرة العمل انه عند التفعيل للمشترك اذا دفع القيمة يسجل فقط في دجدول التفعيل واذا عليه دين يسجل في الجدولين


Private Sub btActive_Click(sender As Object, e As EventArgs) Handles btActive.Click
'Try
Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter("select * from tbActivation ", CON)
DA.Fill(DT)
Dim DR = DT.NewRow
DR!code = txtcode.Text
DR!username = txtusername.Text
DR!fullname = txtfullname.Text
DR!dtstart = dtStart.Value
DR!cards = comcards.Text
DR!price = txtprice.Text
DR!dtexpired = dtStart.Value.AddMonths(1)
If Val(txtdept.Text > 0) Then
Dim myDateF As Date
myDateF = Format(Now(), "short date")
Dim DT1 As New DataTable
Dim DA1 As New SqlClient.SqlDataAdapter("SELECT * FROM TBdEPT", CON)
DA1.Fill(DT1)
Dim DR1 = DT1.NewRow
txtdeptcode.Text = code_max("tbdept", "codedept")
DR1!codedept = txtdeptcode.Text
DR1!username = txtusername.Text
DR!dtstartspical = TextBox2.Text
DR!dtendspical = myDateF
DR1!deptzajelprice = txtdept.Text
DR1!dtstartzajel = dtStart.Value
DR1!payzajeldept = "0.00"
DR1!dtendzajel = dtStart.Value
DR1!zajelstatus = False
DT1.Rows.Add(DR1)
Dim SAVE1 As New SqlClient.SqlCommandBuilder(DA1)
DA1.Update(DT1)
End If
DT.Rows.Add(DR)
Dim SAVE As New SqlClient.SqlCommandBuilder(DA)
DA.Update(DT)
MessageBox.Show("تمت عملية الحفظ", "تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
cmdnew_Click(sender, e)
'Catch ex As Exception
' MsgBox(ex.Message, vbCritical)
'End Try
End Sub