El btnCreateStatement_Click secundario privado (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige btnCreateStatement.Click
myConn dévil como nuevo MySqlConnection
myComm dévil como nuevo MySqlCommand
strSQL dévil como secuencia
sEndDate dévil como secuencia
CustomerRef dévil como secuencia
Corriente dévil como doble
Amortiguar treinta como doble
Amortiguar sesenta como doble
Amortiguar noventa como doble
Amortiguar onetwenty como doble
Amortiguar la cantidad como doble
Amortiguar nBFBal como doble
Amortiguar nCFBal como doble
CustomerRef = CustomerRefComboBox.Text
sEndDate = formato (DateTimePicker2.Value, “yyyy-milímetro-DD”)
strSQL = “tr.TransID SELECTO, tr. Fecha, trt. Categoría, trt. Descr, cz.CustomerRef, tr. Cantidad, SUMA (tr. Cantidad) COMO TotalGroup, tr. Notas,” y _
“PERIOD_DIFF (CONCAT (AÑO (” y sEndDate y "), SI (MES (” y sEndDate y “)<10> 0” y _
“ORDEN POR el tr. Fecha, LÍMITE 0, 30 de tr.TransID”
myConn = GetConnection ()
Intento
myConn.Open ()
Intento
myDataAdapter dévil como nuevo MySqlDataAdapter (strSQL, myConn)
myData dévil como nuevo DataTable
' myComm.Connection = myConn
' myComm.CommandText = strSQL
myDataAdapter.SelectCommand = myComm
myDataAdapter.Fill (myData)
Para cada myData en Oztech_testDataSet.Tables
myRow dévil como DataRow
Para cada myRow en myData.Rows
myCol dévil como DataColumn
Para cada myCol en myData.Columns
= 0 nBFBal
Si >= DateTimePicker1.Value del myRow (“fecha”) .ToString () entonces
Si myRow (“TotalAgainstCustomer”) .ToString () <> 0 entonces
nBFBal = nBFBal + myRow (“cantidad”) .ToString ()
nBFBal = nBFBal + myRow (“cantidad”) .ToString ()
cantidad = myRow (“cantidad”) .ToString () + myRow (“PaidAmont”) .ToString ()
Terminar si
Si myRow (“días”) .ToString () <> ConnectionState.Closed entonces
myConn.Close ()
Terminar si
Terminar el intento
Terminar el submarino
Terminar la clase
|