Sub ButtonProses_Click
DateTime.DateFormat = "yyyy-MM-dd"
backoffice.QueryASync("SELECT * FROM pos_header_trans WHERE (tgl_trans>='"&DateTime.Date(AnotherDatePicker1.GetDate)&"' AND tgl_trans<='"&DateTime.Date(AnotherDatePicker2.GetDate)&"');","ddsql1")
End Sub
Sub ddsql_Status(Connected As Boolean, ReConnecting As Boolean, RetriesLeft As Int)
Log(Connected)
End Sub
Sub ddsql_QueryResult(data As List, meta As Map)
ttljual=0
ttltamu=0
ttlkartu=0
ttltunai=0
For i=0 To data.Size-1
Dim cur As Map = data.Get(i)
Log("Cur : "&cur)
ttljual=ttljual+cur.Get("ttl_hrg_jual")
ttltamu=ttltamu+1
If cur.Get("ttl_bayar")>0 Then
ttltunai=ttltunai+cur.Get("ttl_hrg_jual")
End If
If cur.Get("bayar_kartu")>0 Then
ttlkartu=ttlkartu+cur.Get("ttl_hrg_jual")
End If
Next
LabelTotalJual.Text=NumberFormat2(ttljual,0,0,0,True)
LabelTtlTamu.Text=NumberFormat(ttltamu,0,2)
LabelTtlCash.Text=NumberFormat2(ttltunai,0,0,0,True)
LabelTtlKartu.Text=NumberFormat(ttlkartu,0,2)
End Sub