class= " lineNumbers "
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
|
class=
class= btnCreateStatement_Click " id= " codeSnippet939984 Private Sub (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует btnCreateStatement.Click
Тусклое myConn как новое MySqlConnection
Тусклое myComm как новое MySqlCommand
Тусклое strSQL как шнур
Тусклое sEndDate как шнур
Тусклое CustomerRef как шнур
Тусклое течение как двойник
Затемните 30 как двойник
Затемните 60 как двойник
Затемните 90 как двойник
Затемните onetwenty как двойник
Затемните количество как двойник
Затемните nBFBal как двойник
Затемните nCFBal как двойник
CustomerRef = CustomerRefComboBox.Text
sEndDate = форма (DateTimePicker2.Value, «yyyy-mm-dd»)
strSQL = «ОТБОРНОЕ tr.TransID, tr. Дата, trt. Категория, trt. Descr, cz.CustomerRef, tr. Количество, СУММА (tr. Количество) КАК TotalGroup, tr. Примечания,» & _
«PERIOD_DIFF (CONCAT (ГОД (» & sEndDate & "), ЕСЛИ (МЕСЯЦ (» & sEndDate & ")<10, «0», ''), МЕСЯЦ (» & sEndDate & ")), то, CONCAT (ГОД (tr. Дата), ЕСЛИ (МЕСЯЦ, то (tr. Дата) <10, «0», ''), МЕСЯЦ (tr. Дата))) КАК дни,» & _
«IFNULL ((отборная СУММА (AllocationAmount) ОТ ОГО T1 трудыов СОЕДИНЯЕТ TransactionAllocations TA НА TA.TransactionID = T1.TransID» & _
«О СОЕДИНИТЕ T2 трудыов НА T2.TransID = TA.TransactionID_Allocation ГДЕ (tr.TransID = T1.TransID) И T2.CustomerID = «14») * -1, 0) КАК TotalAgainstCustomer,» & _
«IFNULL ((отборная СУММА (AllocationAmount) ОТ ОГО T1 трудыов СОЕДИНЯЕТ TransactionAllocations TA НА TA.TransactionID_Allocation = T1.TransID» & _
«ГДЕ tr.TransID = T1.TransID) * -1, 0) КАК PaidAmount» & _
«ОТ trt клиентов cz, трудыов tr, TransTypes» & _
«ГДЕ (tr.CustomerID = cz.CustomerID И cz.CustomerRef = «» & CustomerRef & «» И tr.TransTypeID = trt.TransTypeID) «& _
«И (tr. Date<=» & sEndDate & ") «& _
«И НЕ tr.TransTypeID В («ДЕБИТ РЕШЕНИЯ», «КРЕДИТ РЕШЕНИЯ ")» & _
«ГРУППА IFNULL (LinkTo, TransID)» & _
«ИМЕЮЩ TotalGroup <>0» & _
«ЗАКАЗ tr. Дата, ПРЕДЕЛ 0 tr.TransID, 30»
myConn = GetConnection ()
Попытка
myConn.Open ()
Попытка
Тусклое myDataAdapter как новое MySqlDataAdapter (strSQL, myConn)
Тусклое myData как новое DataTable
'myComm.Connection = myConn
'myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
Для каждого myData в Oztech_testDataSet.Tables
Тусклое myRow как DataRow
Для каждого myRow в myData.Rows
Тусклое myCol как DataColumn
Для каждого myCol в myData.Columns
nBFBal = 0
Если >= DateTimePicker1.Value myRow («даты») .ToString () после этого
Если <> 0 myRow («TotalAgainstCustomer») .ToString () после этого
nBFBal = nBFBal + myRow («количество») .ToString ()
Еще
nBFBal = nBFBal + myRow («количество») .ToString ()
количество = myRow («количество») .ToString () + myRow («PaidAmont») .ToString ()
Закончитесь если
Если <= 0 myRow («дней») .ToString () после этого
течение = течение + количество
myRow ElseIf («дни») .ToString () = 1 после этого
30 = 30 + количество
myRow ElseIf («дни») .ToString = 2 после этого
60 = 60 + количество
myRow ElseIf («дни») .ToString () = 3 после этого
90 = 90 + количество
myRow ElseIf («дни») .ToString () = 4 после этого
onetwenty = onetwenty = количество
Закончитесь если
Закончитесь если
Затем
nCFBal = nBFBal
Затем
Затем
myError задвижки как MySqlException
MessageBox.Show («было чтение ошибки от базы данных: » & myError.Message)
Попытка конца
myError задвижки как MySqlException
MessageBox.Show («ошибка соединяясь к базе данных: » & myError.Message)
Окончательно
Если <> ConnectionState.Closed myConn.State после этого
myConn.Close ()
Закончитесь если
Закончите попытку
Закончите подводную лодку
Закончите тип
|
