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:
|
" codeBody "
van Private SubbtnCreateStatement_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten btnCreateStatement.Click
Schemerige myConn als Nieuwe MySqlConnection
Schemerige myComm als Nieuwe MySqlCommand
Schemerige strSQL als Koord
Schemerige sEndDate als Koord
Schemerige CustomerRef als Koord
Schemerige stroom zoals Dubbel
Verduister dertig Dubbel
Verduister zestig Dubbel
Verduister negentig Dubbel
Verduister onetwenty Dubbel
Verduister bedrag Dubbel
Verduister nBFBal Dubbel
Verduister nCFBal Dubbel
CustomerRef = CustomerRefComboBox.Text
sEndDate = Formaat (DateTimePicker2.Value, „yyyy-mm-dd“)
strSQL = „UITGEZOCHTE tr.TransID, RT. Datum, trt. Categorie, trt. Descr, cz.CustomerRef, RT. Bedrag, SOM (RT. Bedrag) ALS TotalGroup, RT. Nota's,“ & _
„PERIOD_DIFF (CONCAT (JAAR (“ & sEndDate & „), ALS (MAAND (“ & sEndDate & „) <10, „0“, ''), MAAND (“ & sEndDate & „)), CONCAT (JAAR (RT. Datum), ALS (MAAND (RT. Datum) <10, „0“, ''), MAAND (RT. Datum))) ALS Dagen,“ & _
„IFNULL ((de Uitgezochte SOM (AllocationAmount) VAN VERLATEN T1 van Transacties SLUIT zich aan bij TransactionAllocations Ta OP TA.TransactionID = T1.TransID“ & _
„WEGGEGAAN SLUIT me aan bij T2 van Transacties OP T2.TransID = TA.TransactionID_Allocation WAAR (tr.TransID = T1.TransID) EN T2.CustomerID = „14“) * -1, 0) ALS TotalAgainstCustomer,“ & _
„IFNULL ((de Uitgezochte SOM (AllocationAmount) VAN VERLATEN T1 van Transacties SLUIT zich aan bij TransactionAllocations Ta OP TA.TransactionID_Allocation = T1.TransID“ & _
„WAAR tr.TransID = T1.TransID) * -1, 0) ALS PaidAmount“ & _
„VAN Klanten CZ, Transacties RT, TransTypes trt“ & _
„WAAR (tr.CustomerID = cz.CustomerID EN cz.CustomerRef = „“ & CustomerRef & „“ EN tr.TransTypeID = trt.TransTypeID) „& _
„EN (RT. Date<=“ & sEndDate &“) „& _
„EN NIET tr.TransTypeID IN („HET DEBET VAN HET BESLUIT“, „LOST KREDIET OP“)“ & _
„GROEP DOOR IFNULL (LinkTo, TransID)“ & _
„HEBBEND TotalGroup <>0“ & _
„ORDE DOOR RT. Datum, tr.TransID GRENS 0, 30“
myConn = GetConnection ()
Probeer
myConn.Open ()
Probeer
Verduister myDataAdapter als Nieuwe MySqlDataAdapter (strSQL, myConn)
Verduister myData als Nieuwe DataTable
'myComm.Connection = myConn
'myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
Voor Elke myData in Oztech_testDataSet.Tables
Schemerige myRow als DataRow
Voor Elke myRow in myData.Rows
Schemerige myCol als DataColumn
Voor Elke myCol in myData.Columns
nBFBal = 0
Als myRow („Datum“) .ToString () >= DateTimePicker1.Value toen
Als myRow („TotalAgainstCustomer“) .ToString () <> 0 toen
nBFBal = nBFBal + myRow („Bedrag“) .ToString ()
Anders
nBFBal = nBFBal + myRow („Bedrag“) .ToString ()
bedrag = myRow („Bedrag“) .ToString () + myRow („PaidAmont“) .ToString ()
Eind als
Als myRow („Dagen“) .ToString () <= 0 toen
stroom = stroom + bedrag
ElseIf myRow („Dagen“) .ToString () = 1 toen
dertig = dertig + bedrag
ElseIf myRow („Dagen“) .ToString = 2 toen
zestig = zestig + bedrag
ElseIf myRow („Dagen“) .ToString () = 3 toen
negentig = negentig + bedrag
ElseIf myRow („Dagen“) .ToString () = 4 toen
onetwenty = onetwenty = bedrag
Eind als
Eind als
Daarna
nCFBal = nBFBal
Daarna
Daarna
myError van de vangst als MySqlException
MessageBox.Show („Er was een foutenlezing van het gegevensbestand: “ & myError.Message)
Het eind probeert
myError van de vangst als MySqlException
MessageBox.Show („Fout die met het gegevensbestand verbinden: “ & myError.Message)
Tot slot
Als myConn.State <> ConnectionState.Closed toen
myConn.Close ()
Eind als
Het eind probeert
Sub van het eind
De Klasse van het eind
|