Private VorbtnCreateStatement_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnCreateStatement.Click
Schwaches myConn als neues MySqlConnection
Schwaches myComm als neues MySqlCommand
Schwaches strSQL als Schnur
Schwaches sEndDate als Schnur
Schwaches CustomerRef als Schnur
Schwacher Strom als Doppeltes
Dreißig als Doppeltes verdunkeln
Sechzig als Doppeltes verdunkeln
Neunzig als Doppeltes verdunkeln
Onetwenty als Doppeltes verdunkeln
Menge als Doppeltes verdunkeln
nBFBal als Doppeltes verdunkeln
nCFBal als Doppeltes verdunkeln
CustomerRef = CustomerRefComboBox.Text
sEndDate = Format (DateTimePicker2.Value, „Yyyy-MillimeterdD“)
strSQL = „AUSERWÄHLTES tr.TransID, tr. Datum, trt. Kategorie, trt. Descr, cz.CustomerRef, tr. Menge, SUMME (tr. Menge) ALS TotalGroup, tr. Anmerkungen,“ u. _
„PERIOD_DIFF (CONCAT (JAHR (“ u. sEndDate u. "), WENN (MONAT (“ u. sEndDate u. ")<10, „0“, ''), MONAT (“ u. sEndDate u. ")), CONCAT (JAHR (tr. Datum), WENN (MONAT (tr. Datum) <10, „0“, ''), MONAT (tr. Datum))) ALS Tage“ u. _
„IFNULL ((auserwählte SUMME (AllocationAmount) VON GELASSENEM Verhandlung-T1 VERBINDEN TransactionAllocations TA AUF TA.TransactionID = T1.TransID“ u. _
„VERLASSEN Verhandlung-T2 AUF VERBINDEN T2.TransID = TA.TransactionID_Allocation, WO (tr.TransID = T1.TransID) UND T2.CustomerID = „14“) * -1, 0) ALS TotalAgainstCustomer,“ u. _
„IFNULL ((auserwählte SUMME (AllocationAmount) VON GELASSENEM Verhandlung-T1 VERBINDEN TransactionAllocations TA AUF TA.TransactionID_Allocation = T1.TransID“ u. _
„, WO tr.TransID = T1.TransID) * -1, 0) ALS PaidAmount“ u. _
„Kunden CZ, Verhandlungen tr, TransTypes vom trt“ u. vom _
„, WO (tr.CustomerID = cz.CustomerID UND cz.CustomerRef = „“ u. CustomerRef u. „“ UND tr.TransTypeID = trt.TransTypeID) „u. _
„UND (tr. Date<=“ u. sEndDate u. ") „u. _
„UND NICHT tr.TransTypeID IN („BESCHLUSS-SCHULDPOSTEN“, „BESCHLUSS-GUTSCHRIFT ")“ u. _
„GRUPPE DURCH IFNULL (LinkTo, TransID)“ u. _
„, TotalGroup <>0“ u. _ HABEND
„AUFTRAG DURCH tr. Datum, tr.TransID BEGRENZUNG 0, 30“
myConn = GetConnection ()
Versuch
myConn.Open ()
Versuch
Schwaches myDataAdapter als neues MySqlDataAdapter (strSQL, myConn)
Schwaches myData als neues DataTable
'myComm.Connection = myConn
'myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
Für jedes myData in Oztech_testDataSet.Tables
Schwaches myRow als DataRow
Für jedes myRow in myData.Rows
Schwaches myCol als DataColumn
Für jedes myCol in myData.Columns
nBFBal = 0
Wenn myRow („Datum“) .ToString () >= DateTimePicker1.Value dann
Wenn myRow („TotalAgainstCustomer“) .ToString () <> 0 dann
nBFBal = nBFBal + myRow („Menge“) .ToString ()
Sonst
nBFBal = nBFBal + myRow („Menge“) .ToString ()
Menge = myRow („Menge“) .ToString () + myRow („PaidAmont“) .ToString ()
Beenden wenn
Wenn myRow („Tage“) .ToString () <= 0 dann
Strom = Strom + Menge
ElseIf myRow („Tage“) .ToString () = 1 dann
dreißig = dreißig + Menge
ElseIf myRow („Tage“) .ToString = 2 dann
sechzig = sechzig + Menge
ElseIf myRow („Tage“) .ToString () = 3 dann
neunzig = neunzig + Menge
ElseIf myRow („Tage“) .ToString () = 4 dann
onetwenty = onetwenty = Menge
Beenden wenn
Beenden wenn
Zunächst
nCFBal = nBFBal
Zunächst
Zunächst
Fang myError als MySqlException
MessageBox.Show („es gab einen Störungsmesswert von der Datenbank: “ u. myError.Message)
Enden-Versuch
Fang myError als MySqlException
MessageBox.Show („Störung, die an die Datenbank anschließt: “ u. myError.Message)
Schließlich
Wenn myConn.State <> ConnectionState.Closed dann
myConn.Close ()
Beenden wenn
Versuch beenden
Unterseeboot beenden
Kategorie beenden
|