Il btnCreateStatement_Click secondario riservato (mittente di ByVal come System.Object, ByVal e come System.EventArgs) tratta btnCreateStatement.Click
myConn fioco come nuovo MySqlConnection
myComm fioco come nuovo MySqlCommand
strSQL fioco come stringa
sEndDate fioco come stringa
CustomerRef fioco come stringa
Corrente fioca come doppio
Oscurare trenta come doppio
Oscurare sessanta come doppio
Oscurare novanta come doppio
Oscurare onetwenty come doppio
Oscurare l'importo come doppio
Oscurare nBFBal come doppio
Oscurare nCFBal come doppio
CustomerRef = CustomerRefComboBox.Text
sEndDate = disposizione (DateTimePicker2.Value, “yyyy-millimetro-dd„)
strSQL = “tr.TransID PRESCELTO, TR. Data, trt. Categoria, trt. Descr, cz.CustomerRef, TR. Importo, SOMMA (TR. Quantità) COME TotalGroup, TR. Note,„ & _
“PERIOD_DIFF (CONCAT (ANNO („ & sEndDate & "), SE (MESE („ & sEndDate & “)<10> 0„ & _
“ORDINE dal TR. Data, LIMITE 0, 30 di tr.TransID„
myConn = GetConnection ()
Prova
myConn.Open ()
Prova
myDataAdapter fioco come nuovo MySqlDataAdapter (strSQL, myConn)
myData fioco come nuovo DataTable
' myComm.Connection = myConn
' myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
Per ogni myData in Oztech_testDataSet.Tables
myRow fioco come DataRow
Per ogni myRow in myData.Rows
myCol fioco come DataColumn
Per ogni myCol in myData.Columns
= 0 nBFBal
Se >= DateTimePicker1.Value del myRow (“data„) .ToString () allora
Se myRow (“TotalAgainstCustomer„) .ToString () <> 0 allora
nBFBal = nBFBal + myRow (“importo„) .ToString ()
Altrimenti
nBFBal = nBFBal + myRow (“importo„) .ToString ()
importo = myRow (“importo„) .ToString () + myRow (“PaidAmont„) .ToString ()
Concluder se
Se myRow (“giorni„) .ToString () <> ConnectionState.Closed allora
myConn.Close ()
Concluder se
Concludere la prova
Concludere il sommergibile
Concludere il codice categoria
|