The code I want to show data by date to date
ExecuteRemoteQuery("SELECT SUM(jumlah1) FROM tbl_jobsheet_update WHERE year = '"&thn&"'", REVENUE_ACTUAL)
ExecuteRemoteQuery("SELECT SUM(uang_jalan) FROM tbl_jobsheet_update WHERE year = '"&thn&"'", COST_ACTUAL)
ExecuteRemoteQuery("SELECT SUM(profit) FROM tbl_jobsheet_update WHERE year = '"&thn&"'", PROFIT_ACTUAL)
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
Log("Response from server: " & res)
parser.Initialize(res)
If Job.JobName = REPORT_LIST Then
REPORT_A2= parser.NextArray
For i = 0 To REPORT_A2.Size - 1
m = REPORT_A2.Get(i)
t1.First = m.Get("date_update")
t1.Second = m.Get("project")
lv1.AddTwoLines2(t1.First, t1.Second, t1)
JUMLAH
Next
CurrentIndex22 = 0
else If Job.JobName = REVENUE_ACTUAL Then
REVENUE = parser.NextArray
For i = 0 To REVENUE.Size - 1
m = REVENUE.Get(i)
jmlh = m.Get("SUM(jumlah1)")
lbRevenue.Text = jmlh
Next
m.Clear
else If Job.JobName = COST_ACTUAL Then
COST = parser.NextArray
For i = 0 To COST.Size - 1
m = COST.Get(i)
COST1 = m.Get("SUM(uang_jalan)")
lbCost1.Text = COST1
Next
m.Clear
else If Job.JobName = PROFIT_ACTUAL Then
PROFIT = parser.NextArray
For i = 0 To PROFIT.Size - 1
m = PROFIT.Get(i)
Keuntungan = m.Get("SUM(profit)")
lbProfit1.Text = Keuntungan
Next
m.Clear
End If
Else
ToastMessageShow("Tidak Ada Koneksi Jaringan", False)
End If
End Sub