كود :
If Now.ToString("dd") = "01" Then
If My.Settings.NameService1 = "" = False Then
If MsgBox(NameServiceTextBox1.Text & " : سوف يتم بيع المنتج ", MsgBoxStyle.YesNo, "بيع المنتج رقم 1") = MsgBoxResult.Yes Then
My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
NumberMServiceTextBox1.Text = My.Settings.NumberMService1
If My.Settings.Day1Erad1 = "" = True Then
My.Settings.ClockSel1D1 = TextBox1.Text
My.Settings.DataSel1D1 = TextBox2.Text
My.Settings.NumberSel1D1 = NumberSelTextbox1.Text
My.Settings.MoneySel1D1 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
My.Settings.Save()
My.Settings.Day1Erad1 = " عدد " & My.Settings.NumberSel1D1 & " - " & " الساعة " & My.Settings.ClockSel1D1 & " - " & " بتاريخ " & My.Settings.DataSel1D1 & " - " & " حساب " & My.Settings.MoneySel1D1 & " - " & My.Settings.NameService1 & " : اسم المنتج المباع "
ElseIf My.Settings.NameService1 = "" = False Then
If My.Settings.Day1Erad1 = "" = False Then
My.Settings.ClockSel1D2 = TextBox1.Text
My.Settings.DataSel1D2 = TextBox2.Text
My.Settings.NumberSel1D2 = NumberSelTextbox1.Text
My.Settings.MoneySel1D2 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
My.Settings.Save()
My.Settings.Day1Erad2 = " عدد " & My.Settings.NumberSel1D2 & " - " & " الساعة " & My.Settings.ClockSel1D2 & " - " & " بتاريخ " & My.Settings.DataSel1D2 & " - " & " حساب " & My.Settings.MoneySel1D2 & " - " & My.Settings.NameService1 & " : اسم المنتج المباع "
My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
NumberMServiceTextBox1.Text = My.Settings.NumberMService1
ElseIf My.Settings.NameService1 = "" = False Then
If My.Settings.Day1Erad1 = "" = False Then
If My.Settings.Day1Erad2 = "" = False Then
My.Settings.ClockSel1D3 = TextBox1.Text
My.Settings.DataSel1D3 = TextBox2.Text
My.Settings.NumberSel1D3 = NumberSelTextbox1.Text
My.Settings.MoneySel1D3 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
My.Settings.Save()
My.Settings.Day1Erad3 = " عدد " & My.Settings.NumberSel1D3 & " - " & " الساعة " & My.Settings.ClockSel1D3 & " - " & " بتاريخ " & My.Settings.DataSel1D3 & " - " & " حساب " & My.Settings.MoneySel1D3 & " - " & My.Settings.NameService1 & " : اسم المنتج المباع "
My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
NumberMServiceTextBox1.Text = My.Settings.NumberMService1
ElseIf My.Settings.NameService1 = "" = False Then
If My.Settings.Day1Erad1 = "" = False Then
If My.Settings.Day1Erad2 = "" = False Then
If My.Settings.DataSel1D3 = "" = False Then
My.Settings.ClockSel1D4 = TextBox1.Text
My.Settings.DataSel1D4 = TextBox2.Text
My.Settings.NumberSel1D4 = NumberSelTextbox1.Text
My.Settings.MoneySel1D4 = My.Settings.MoneySelService1 * NumberSelTextbox1.Text
My.Settings.Save()
My.Settings.Day1Erad4 = " عدد " & My.Settings.NumberSel1D4 & " - " & " الساعة " & My.Settings.ClockSel1D4 & " - " & " بتاريخ " & My.Settings.DataSel1D4 & " - " & " حساب " & My.Settings.MoneySel1D4 & " - " & My.Settings.NameService1 & " : اسم المنتج المباع "
My.Settings.NumberMService1 = NumberMServiceTextBox1.Text - NumberSelTextbox1.Text
NumberMServiceTextBox1.Text = My.Settings.NumberMService1
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If