Private Sub btnSearch_Click
Dim pos, pos1, pos2 As String
Dim bar1 As Int
Dim ware1 As String
Dim date1 As String
Dim corr1 As Double
Dim rs As DBResult
Dim id As String = cmbox.SelectedItem
Dim Parameters() As String = Array As String(id)
Wait For(B4XPages.MainPage.jRDC.GetRecord("getproductscust", Parameters)) Complete (Answer As Map)
If Answer.Get("Success") Then
rs = Answer.Get("Data")
x = 0
For Each row() As Object In rs.Rows
bar1 = (row(rs.Columns.Get("barcode")))
date1 = (DateTime.Date(row(rs.Columns.Get("date"))))
corr1 = (row(rs.Columns.Get("currentbal")))
If rs.Columns.Get("warehouse") > -1 Then
ware1 = (row(rs.Columns.Get("warehouse")))
pos = ware1.SubString2(0,1)
pos1 = ware1.SubString2(1,3)
pos2 = ware1.SubString2(3,4)
Else
pos = ""
pos1 = ""
pos2 =""
End If
FlexGrid1.AddRow(Array As Object(x,bar1,date1,pos,pos1,pos2,corr1,False),True)
x = x + 1
Next
End If
End Sub