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: 6: 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: 97: 98: 99: 100: 101: 102: 103: 104:
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 myAdapter als neues MySqlDataAdapter Schwaches myData als neues DataTable 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 Verdunkeln geaberkannt als Doppeltes 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 = „3“) * -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 myComm.Connection = myConn myComm.CommandText = strSQL myAdapter.SelectCommand = myComm myAdapter.Fill (myData) DataGridView1.DataSource = myData 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 Convert.ToDateTime (myRow.Item („Datum“)) >= DateTimePicker1.Value dann Wenn myRow.Item („TotalAgainstCustomer“) .ToString () <> 0 dann nBFBal = nBFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ()) Sonst nBFBal = nBFBal + myRow.Item („Menge“) .ToString () Menge = myRow.Item („Menge“) .ToString () + myRow („PaidAmont“) .ToString () Beenden wenn Wenn myRow.Item („Tage“) .ToString () <= 0 dann Strom = Strom + Menge ElseIf myRow.Item („Tage“) .ToString () = 1 dann dreißig = dreißig + Menge ElseIf myRow.Item („Tage“) .ToString = 2 dann sechzig = sechzig + Menge ElseIf myRow.Item („Tage“) .ToString () = 3 dann neunzig = neunzig + Menge ElseIf myRow.Item („Tage“) .ToString () = 4 dann onetwenty = onetwenty = Menge Beenden wenn Beenden wenn Zunächst nCFBal = nBFBal Wenn myRow.Item („Datum“) < DateTimePicker2.Value dann Globals.Sheet64.TransactionDate.Value = myRow.Item („Datum“) .ToString Globals.Sheet64.TransactionType.Value = myRow.Item („Kategorie“) .ToString Globals.Sheet64.TransDescription.Value = myRow.Item („Descr“) .ToString Globals.Sheet64.TransDocument.Value = myRow.Item („Anmerkungen“) .ToString Wenn myRow.Item („TotalAgainstCustomer“) <> 0 dann Globals.Sheet64.stm_amount.Value = myRow.Item („Menge“) .ToString nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ()) Menge = Convert.ToDouble (myRow.Item („Menge“) .ToString ()) - Convert.ToDouble (myRow.Item („TotalAgainstCustomer“) .ToString ()) Sonst Globals.Sheet64.stm_amount.Value = myRow.Item („Menge“) .ToString nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Menge“) .ToString ()) Menge = Convert.ToDouble (myRow.Item („Menge“) .ToString ()) - Convert.ToDouble (myRow.Item („PaidAmount“) .ToString ()) Beenden wenn Beenden wenn Zunächst Fang myError als MySqlException MessageBox.Show („es gab einen Störungsmesswert von der Datenbank: “ u. myError.Message) Enden-Versuch Zunächst 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