Android Question B4XTable not show records from table

M

Makumbi

Well-Known Member
Licensed User
Longtime User
Please help iam trying to read the list of sent messages from the sent message table all i can see is empty rows . but when you look and the search record it appears that there records in the table because i can see 1 out of 2 records

2. When i clicked on the received sms . it displays both the send and received columns yet i wanted to display only the columns for recivied sms

Here is my code please help

Code: 
#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim cursor1 As Cursor
    Private smiley As Bitmap
    
    'Dim SelectedRow As Int                    : SelectedRow = -1
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    
    Private lblSelectedItem As Label
    'Dim wbvTable2 As ScrollView
    Private B4XTable1 As B4XTable
    Private xui As XUI
        Dim data As List
    
End Sub

Sub ShowTable

    B4XTable1.AddColumn("Datesent", B4XTable1.COLUMN_TYPE_DATE)
    B4XTable1.AddColumn("Sms", B4XTable1.COLUMN_TYPE_TEXT)
    B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)

    data.Initialize
    Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Datesent,Sms as SentMessage,ID FROM Sentmessages")
    Do While rs.NextRow
        Dim row(4) As Object
        row(0) = rs.GetDouble("Datesent")
        row(1) = rs.GetString("SentMessage")
        
        'Log(row(0))
        'Log(row(1))
        'Log(row(2))
        '& " " & rs.GetString("LastName")
        row(2) = rs.GetString("ID")
        'Some of the fields are Null. We need to convert them to empty strings:
        If row(2) = Null Then row(2) = ""
        row(3) = rs.GetString("SentMessage")
        data.Add(row)
    Loop
    rs.Close
    B4XTable1.SetData(data)
    
End Sub


Sub ShowTable2

    B4XTable1.AddColumn("DateRecieved", B4XTable1.COLUMN_TYPE_DATE)
    B4XTable1.AddColumn("Sms", B4XTable1.COLUMN_TYPE_TEXT)
    B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)

    data.Initialize
    Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Daterecieved,Sms as RecievedMessage,ID FROM Recievedsms")
    Do While rs.NextRow
        Dim row(4) As Object
        row(0) = rs.GetDouble("Daterecieved")
        row(1) = rs.GetString("RecievedMessage")
        '& " " & rs.GetString("LastName")
        row(2) = rs.GetString("ID")
        'Some of the fields are Null. We need to convert them to empty strings:
        If row(2) = Null Then row(2) = ""
        row(3) = rs.GetString("RecievedMessage")
        data.Add(row)
    Loop
    rs.Close
    B4XTable1.SetData(data)
    
End Sub


Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
    If ColumnId <> "Datesent" Then Return
        
    Dim sf As Object = xui.Msgbox2Async("Delete row?", "Title", "Yes", "Cancel", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        DeleteRow(B4XTable1, RowId)
    End If
End Sub

Sub DeleteRow (tbl As B4XTable, RowId As Long)

    Dim RowData As Map = tbl.GetRow(RowId)
    Dim customerID As String = RowData.Get("Datesent")
        
    tbl.sql1.ExecNonQuery2("DELETE FROM data WHERE rowid = ?", Array (RowId))     'deletes record from Table
    Starter.SQL1.ExecNonQuery2("DELETE FROM Sentmessages WHERE Datesent = ?", Array (customerID))  'deletes from DB
    
    Dim page As Int = tbl.CurrentPage
    Dim FirstIndex As Int = tbl.FirstRowIndex
    tbl.ClearDataView 'Updates the rows count.
    If FirstIndex + 1 >= tbl.mCurrentCount Then
        page = page - 1
    End If
    tbl.CurrentPage = page
    
End Sub


Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        smiley = LoadBitmapResize(File.DirAssets, "smiley.png", 24dip, 24dip, False)
    End If
    'Do not forget to load the layout file created with the visual designer. For example:
    If  IsConnectedToInternet=True Then
    replysms
        'HighPriority_Notification
Activity.LoadLayout("simplechat")
        Activity.Title="Chat"
        B4XTable1.AddColumn("Datesent", B4XTable1.COLUMN_TYPE_DATE)
        B4XTable1.AddColumn("Sms", B4XTable1.COLUMN_TYPE_TEXT)
        B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)

        data.Initialize
        Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Datesent,Sms as SentMessage,ID FROM Sentmessages")
        Do While rs.NextRow
            Dim row(4) As Object
            row(0) = rs.GetDouble("Datesent")
            row(1) = rs.GetString("SentMessage")
        
            Log(row(0))
            Log(row(1))
            Log(row(2))
            '& " " & rs.GetString("LastName")
            row(2) = rs.GetString("ID")
            'Some of the fields are Null. We need to convert them to empty strings:
            If row(2) = Null Then row(2) = ""
            row(3) = rs.GetString("SentMessage")
            data.Add(row)
        Loop
        rs.Close
        B4XTable1.SetData(data)
    Dim SQLQry As String = "DELETE FROM SMSlist"
    Starter.SQL1.ExecNonQuery(SQLQry)
    cursor1 = Starter.SQL1.ExecQuery("SELECT phone AS Phone,Sex FROM Register")
    If cursor1.RowCount > 0 Then
            cursor1.Position =0
        Dim phone As String
        phone = cursor1.Getstring("Phone")
            Dim sx As String
        sx = cursor1.Getstring("Sex")
        'Next
    End If
    Dim CustID As String = phone' Customer ID
    Dim jt As HttpJob
    jt.Initialize("", Me)
    jt.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBRegistration.ashx?customerid=" & CustID & "&sx=" & sx)
    jt.GetRequest.Timeout = 10000 ' 10 seconds
    Wait For (jt) JobDone(jt As HttpJob)
    If jt.Success Then ' if job is success (http status code 200)
        Dim RetVal As String
        RetVal = jt.GetString
        If jt.GetString = "[]" Then
            'Msgbox("Please try Again ","SMIS")
            'Return
            
        Else
            
            Dim jpt As JSONParser
            jpt.Initialize(jt.GetString)
            'Log(jpt) ' will pr
                Log($"Token(${jpt})"$)
            Dim quotes As List = jpt.NextArray
            For Each quot As Map In quotes
                '    Log("Account: " & quot.Get("Account"))
                Log("Name: " & quot.Get("Name"))
                Log("Category: " & quot.Get("Category"))
                Log("Froms: " & quot.Get("Froms"))
                Log("Tos: " & quot.Get("Tos"))
                Log(DateTime.Date(JsonDateToTick( quot.Get("Froms"))))
                Dim l As Long
                DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Froms")))
                l = DateTime.DateParse(datestring)
                DateTime.DateFormat = "dd/MM/yyyy"
                Log(DateTime.Date(l))
                
                Log(DateTime.Date(JsonDateToTick( quot.Get("Tos"))))
                Dim lt As Long
                DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Tos")))
                lt = DateTime.DateParse(datestring)
                DateTime.DateFormat = "dd/MM/yyyy"
                Log(DateTime.Date(lt))
                'End If
                'Grab the last ID number which is the highest number
                If quot.Get("Category")="Inactive" Then
                    MsgboxAsync("Your Account is Inactive Please Pay 60000/= Via Mobile Money On 0782911364 Or 0702822227 to Activate" ,"SMIS")
                    Return
                End If
                If quot.Get("Category")="Expired" Then
                    MsgboxAsync("Your Registration has Already Expired it was Valid from: " & DateTime.Date(l) &" To:"& DateTime.Date(lt) &" Please Pay 60000/= Via Mobile Money On 0782911364 Or 0702822227 to Activate" ,"SMIS")
                    Return
                        
                Else

                    'Starter.SQL1.ExecNonQuery("INSERT INTO SMSlist VALUES('" & quot.Get("Account") & "','" & quot.Get("Name") & "','" & CustID & "','" & sx & "','" & 1 & "')")
                        Starter.SQL1.ExecNonQuery2("INSERT INTO SMSlist VALUES(?, ?, ?,?,?)", Array As Object(quot.Get("Account"), quot.Get("Name"),CustID ,sx, 1))
    
        
                    'Log(quot.Get("Account"))
                    'Log(quot.Get("Name"))
                    'Log(quot.Get(phone))
                    'Log(quot.Get(sx))
                    Log(RetVal) ' will print in log value returned from the server
                    
    
                End If
            Next
        
            End If
    
        End If
        
    Else
MsgboxAsync("Error Connecting to the Server Please Check Your Internet Connection","Server Error")
        Activity.LoadLayout("simplechat")
        Activity.Title="Chat"
        Return
        End If
End Sub
Sub IsConnectedToInternet As Boolean
    Dim r As Reflector
 
    r.Target = r.GetContext
    r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
    r.Target = r.RunMethod("getActiveNetworkInfo")
 
    If r.Target <> Null Then
        Return r.RunMethod("isConnectedOrConnecting")
    End If
 
    Return False
End Sub
Sub replysms
    'Dim SQLQry As String = "DELETE FROM Recievedsms"
    'Starter.SQL1.ExecNonQuery(SQLQry)
    cursor1 = Starter.SQL1.ExecQuery("SELECT phone AS Phone,Sex FROM Register")
    If cursor1.RowCount > 0 Then
        cursor1.Position =0
        Dim phone As String
        phone = cursor1.Getstring("Phone")
        Dim sx As String
        sx = cursor1.Getstring("Sex")
    '    sx = "Father"
    End If
    Dim CustID As String = phone' Customer ID
    Dim jtk As HttpJob
    jtk.Initialize("", Me)
    'j.Download("http://192.168.1.239/Generic_Handler_JSON/HandlerVB.ashx?customerid=" & CustID)
    jtk.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBGetreply.ashx?customerid=" & CustID & "&bcode=" & sx)
    'jtk.Download("http://192.168.1.239/Generic_Handler_JSON/HandlerVBGetreply.ashx?customerid=" & CustID & "&bcode=" & sx)
    jtk.GetRequest.Timeout = 10000 ' 10 seconds
    Wait For (jtk) JobDone(jtk As HttpJob)

    If jtk.Success Then ' if job is success (http status code 200)
        Dim RetVal As String
        Log(RetVal)
        RetVal = jtk.GetString
        If jtk.GetString = "[]" Then
            'Msgbox("Please try Again ","SMIS")
            'Return
            
        Else
                    
            Dim jpt As JSONParser
            jpt.Initialize(jtk.GetString)
            'Log(jpt) ' will pr
            Log($"Token(${jpt})"$)
            Dim quotes As List = jpt.NextArray
            For Each quot As Map In quotes
            Log("Account: " & quot.Get("Account"))
            Log("sms: " & quot.Get("sms"))
                Log("Datesent: " & quot.Get("Datesent"))
                Log("Status: " & quot.Get("Status"))
                Log("codes: " & quot.Get("Code"))
                Log("atk: " & quot.Get("atk"))
            'Log("Tos: " & quot.Get("Tos"))
                Dim ltt As Long
                DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Datesent")))
                ltt = DateTime.DateParse(datestring)
                DateTime.DateFormat = "dd/MM/yyyy"
                Log(DateTime.Date(ltt))
                Dim now As Long
                now = DateTime.Now
                Log(DateTime.Now)
                DateTime.DateFormat = "dd/MM/yyyy" : DateTime.TimeFormat = "hh:mm a"
                
                Log(DateTime.Date(ltt)& " "& DateTime.Time(now))
                Starter.SQL1.ExecNonQuery2("INSERT INTO Recievedsms VALUES(?, ?, ?)", Array As Object(DateTime.Date(ltt)& " "& DateTime.Time(now), quot.Get("sms"), quot.Get("Code")))
    
                Dim n As NB6
                n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
                n.Build(quot.Get("sms"), "Kabojja Junior School", "tag", Main).Notify(9)
                
                Dim jtkt As HttpJob
                jtkt.Initialize("", Me)
                jtkt.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBDelReply.ashx?customerid=" &  quot.Get("atk"))
            Next
            
        End If
    
End If
End Sub
Sub JsonDateToTick(s As String) As Long
    Dim m As Matcher = Regex.Matcher("\d+", s)
    If m.Find Then
        Return m.Match
    End If
    Log("Invalid date: " & s)
    Return 0
End Sub
Sub Activity_Resume
    
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub btnFilter_Click
    If IsConnectedToInternet=True Then
        cursor1 = Starter.SQL1.ExecQuery("SELECT Account FROM SMSlist")
        If cursor1.RowCount > 0 Then
            StartActivity(Sendsms)
            'Activity.Title="Send SMS"
    Else
        Dim SQLQry As String = "DELETE FROM SMSlist"
        Starter.SQL1.ExecNonQuery(SQLQry)
        cursor1 = Starter.SQL1.ExecQuery("SELECT phone AS Phone,Sex FROM Register")
        If cursor1.RowCount > 0 Then
            cursor1.Position =0
            Dim phone As String
            phone = cursor1.Getstring("Phone")
            Dim sx As String
            sx = cursor1.Getstring("Sex")
            'Next
        End If
        Dim CustID As String = phone' Customer ID
        Dim jt As HttpJob
        jt.Initialize("", Me)
        jt.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBRegistration.ashx?customerid=" & CustID & "&sx=" & sx)
        jt.GetRequest.Timeout = 10000 ' 10 seconds
        Wait For (jt) JobDone(jt As HttpJob)
        If jt.Success Then ' if job is success (http status code 200)
            Dim RetVal As String
            RetVal = jt.GetString
            If jt.GetString = "[]" Then
                'Msgbox("Please try Again ","SMIS")
                'Return
            
            Else
            
                Dim jpt As JSONParser
                jpt.Initialize(jt.GetString)
                'Log(jpt) ' will pr
                    Log($"Token(${jpt})"$)
                Dim quotes As List = jpt.NextArray
                For Each quot As Map In quotes
                    '    Log("Account: " & quot.Get("Account"))
                    Log("Name: " & quot.Get("Name"))
                    Log("Category: " & quot.Get("Category"))
                    Log("Froms: " & quot.Get("Froms"))
                    Log("Tos: " & quot.Get("Tos"))
                    Log(DateTime.Date(JsonDateToTick( quot.Get("Froms"))))
                    Dim l As Long
                    DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                    Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Froms")))
                    l = DateTime.DateParse(datestring)
                    DateTime.DateFormat = "dd/MM/yyyy"
                    Log(DateTime.Date(l))
                
                    Log(DateTime.Date(JsonDateToTick( quot.Get("Tos"))))
                    Dim lt As Long
                    DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                    Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Tos")))
                    lt = DateTime.DateParse(datestring)
                    DateTime.DateFormat = "dd/MM/yyyy"
                    Log(DateTime.Date(lt))
                    'End If
                    'Grab the last ID number which is the highest number
                    If quot.Get("Category")="Inactive" Then
                        MsgboxAsync("Your Account is Inactive Please Pay 60000/= Via Mobile Money On 0782911364 Or 0702822227 to Activate" ,"SMIS")
                        Return
                    End If
                    If quot.Get("Category")="Expired" Then
                        MsgboxAsync("Your Registration has Already Expired it was Valid from: " & DateTime.Date(l) &" To:"& DateTime.Date(lt) &" Please Pay 60000/= Via Mobile Money On 0782911364 Or 0702822227 to Activate" ,"SMIS")
                        Return
                        
                    Else

                        'Starter.SQL1.ExecNonQuery("INSERT INTO SMSlist VALUES('" & quot.Get("Account") & "','" & quot.Get("Name") & "','" & CustID & "','" & sx & "','" & 1 & "')")
                        
                            Starter.SQL1.ExecNonQuery2("INSERT INTO SMSlist VALUES(?,?,?,?,?)", Array As Object(quot.Get("Account"), quot.Get("Name"), CustID,sx,1))
    
                        'Log(quot.Get("Account"))
                        'Log(quot.Get("Name"))
                        'Log(quot.Get(phone))
                        'Log(quot.Get(sx))
                        Log(RetVal) ' will print in log value returned from the server
                    
    
                    End If
                Next
        
            End If
    
        End If
    End If
        StartActivity(Sendsms)
    Else
MsgboxAsync("Error Connecting to the Server Please Check Your Internet Connection","Server Error")
        Return
    End If
End Sub
Sub HighPriority_Notification
    Dim n As NB6
    n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
    n.Build("Important Good Work sula!!!", "Content", "tag", Me).Notify(9)
End Sub
Sub btnEdit_Click
    B4XTable1.Clear
    ShowTable
    lblSelectedItem.Text="Send"
End Sub

Sub btnAdd_Click
    B4XTable1.Clear
    ShowTable2
    lblSelectedItem.Text="Recieved"
End Sub
 

Attachments

  • Screenshot_1554874781.png
    Screenshot_1554874781.png
    20.4 KB · Views: 406
Sort by date Sort by votes
Erel said:
Posting hundreds(?) of lines of code like this is never helpful.

You should only post the relevant code.
I think this small coding here may help the first show table is supposed to display sent messages and the other is supposed to display received messages but my biggest problem is they don't show the records in the corresponding tables . and wen i clicked on the recived sms button it even show the sent message columns yet it is not supposed to show that please help.
Click to expand...
Code: 
Sub ShowTable

    B4XTable1.AddColumn("Datesent", B4XTable1.COLUMN_TYPE_DATE)
    B4XTable1.AddColumn("Sms", B4XTable1.COLUMN_TYPE_TEXT)
    B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)

    data.Initialize
    Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Datesent,Sms as SentMessage,ID FROM Sentmessages")
    Do While rs.NextRow
        Dim row(4) As Object
        row(0) = rs.GetDouble("Datesent")
        row(1) = rs.GetString("SentMessage")
        
        'Log(row(0))
        'Log(row(1))
        'Log(row(2))
        '& " " & rs.GetString("LastName")
        row(2) = rs.GetString("ID")
        'Some of the fields are Null. We need to convert them to empty strings:
        If row(2) = Null Then row(2) = ""
        row(3) = rs.GetString("SentMessage")
        data.Add(row)
    Loop
    rs.Close
    B4XTable1.SetData(data)
    
End Sub


Sub ShowTable2

    B4XTable1.AddColumn("DateRecieved", B4XTable1.COLUMN_TYPE_DATE)
    B4XTable1.AddColumn("Sms", B4XTable1.COLUMN_TYPE_TEXT)
    B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)

    data.Initialize
    Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Daterecieved,Sms as RecievedMessage,ID FROM Recievedsms")
    Do While rs.NextRow
        Dim row(4) As Object
        row(0) = rs.GetDouble("Daterecieved")
        row(1) = rs.GetString("RecievedMessage")
        '& " " & rs.GetString("LastName")
        row(2) = rs.GetString("ID")
        'Some of the fields are Null. We need to convert them to empty strings:
        If row(2) = Null Then row(2) = ""
        row(3) = rs.GetString("RecievedMessage")
        data.Add(row)
    Loop
    rs.Close
    B4XTable1.SetData(data)
    
End Sub


Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
    If ColumnId <> "Datesent" Then Return
        
    Dim sf As Object = xui.Msgbox2Async("Delete row?", "Title", "Yes", "Cancel", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        DeleteRow(B4XTable1, RowId)
    End If
End Sub

Sub DeleteRow (tbl As B4XTable, RowId As Long)

    Dim RowData As Map = tbl.GetRow(RowId)
    Dim customerID As String = RowData.Get("Datesent")
        
    tbl.sql1.ExecNonQuery2("DELETE FROM data WHERE rowid = ?", Array (RowId))     'deletes record from Table
    Starter.SQL1.ExecNonQuery2("DELETE FROM Sentmessages WHERE Datesent = ?", Array (customerID))  'deletes from DB
    
    Dim page As Int = tbl.CurrentPage
    Dim FirstIndex As Int = tbl.FirstRowIndex
    tbl.ClearDataView 'Updates the rows count.
    If FirstIndex + 1 >= tbl.mCurrentCount Then
        page = page - 1
    End If
    tbl.CurrentPage = page
    
End Sub

Sub btnEdit_Click
    B4XTable1.Clear
    ShowTable
    lblSelectedItem.Text="Send"
End Sub

Sub btnAdd_Click
    B4XTable1.Clear
    ShowTable2
    lblSelectedItem.Text="Recieved"
End Sub
 
Upvote 0
Erel said:
The ShowTable code looks correct. What is the output of Log(Data.Length)?

Tip: it will look better if you use a light theme:
Code: 
CreateResourceFromFile(Macro, Themes.LightTheme)

i have failed to get the  Log(Data.Length) but the last two records from this log are the two messages with their dates and ID numbers i think they can help

[CODE]29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
[/code]
Click to expand...
Code: 
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
ExecuteHtml: SELECT DISTINCT Names,Class || Stream As CS,Amount As Balance FROM Balances
0
*** Service (firebasemessaging) Create ***
** Service (firebasemessaging) Start **
*** Service (httputils2service) Create ***
** Service (httputils2service) Start **
** Service (httputils2service) Start **
0782911364
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
Token( at character 0 of [{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}])
Name: BUGEMBE YASIN ismail
Category: Active
Froms: /Date(1545512400000)/
Tos: /Date(1565298000000)/
12/23/2018
23/12/2018
09/08/2019
09/08/2019
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
Name: MUKWAYA HASSAN ismail
Category: Active
Froms: /Date(1550091600000)/
Tos: /Date(1565298000000)/
14/02/2019
14/02/2019
09/08/2019
09/08/2019
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
Name: DDAMULIRA GEORGE
Category: Active
Froms: /Date(1550091600000)/
Tos: /Date(1565298000000)/
14/02/2019
14/02/2019
09/08/2019
09/08/2019
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
Name: ASADU
Category: Active
Froms: /Date(1550091600000)/
Tos: /Date(1565298000000)/
14/02/2019
14/02/2019
09/08/2019
09/08/2019
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
[{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"MATHEMATICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":1},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"MATHEMATICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":2},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"MATHEMATICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":3},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"MATHEMATICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":4},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"BIOLOGY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":5},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"BIOLOGY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":6},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"COMPUTER","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":9},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"COMPUTER","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":10},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"CHEMISTRY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":13},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"CHEMISTRY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":14},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"ENTREPRENUERSHIP","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":17},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"ENTREPRENUERSHIP","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":18},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"HISTORY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":21},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"HISTORY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":22},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"ADD-MATHS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":25},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"ADD-MATHS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":26},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"FINE-ART","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":29},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"FINE-ART","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":30},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"CRE","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":33},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"CRE","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":34},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"PHYSICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":37},{"Account":"05-0000
Message longer than Log limit (4000). Message was truncated.
Token( at character 0 of [{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"MATHEMATICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":1},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"MATHEMATICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":2},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"MATHEMATICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":3},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"MATHEMATICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":4},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"BIOLOGY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":5},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"BIOLOGY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":6},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"COMPUTER","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":9},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"COMPUTER","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":10},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"CHEMISTRY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":13},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"CHEMISTRY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":14},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"ENTREPRENUERSHIP","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":17},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"ENTREPRENUERSHIP","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":18},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"HISTORY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":21},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"HISTORY","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":22},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"ADD-MATHS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":25},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"ADD-MATHS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":26},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"FINE-ART","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":29},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"FINE-ART","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":30},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"CRE","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":33},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"CRE","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield":34},{"Account":"05-00001","class":"S2","Stream":"A","Names":"BUGEMBE YASIN ismail","Subject":"PHYSICS","Mid":null,"Ends":null,"Grade":"F9","Term":"TERM1","Years":"2019","Total":0,"autofield
Message longer than Log limit (4000). Message was truncated.
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: MATHEMATICS
Total: 0
atk: 1
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: MATHEMATICS
Total: 0
atk: 2
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: MATHEMATICS
Total: 0
atk: 3
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: MATHEMATICS
Total: 0
atk: 4
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: BIOLOGY
Total: 0
atk: 5
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: BIOLOGY
Total: 0
atk: 6
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: COMPUTER
Total: 0
atk: 9
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: COMPUTER
Total: 0
atk: 10
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: CHEMISTRY
Total: 0
atk: 13
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: CHEMISTRY
Total: 0
atk: 14
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: ENTREPRENUERSHIP
Total: 0
atk: 17
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: ENTREPRENUERSHIP
Total: 0
atk: 18
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: HISTORY
Total: 0
atk: 21
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: HISTORY
Total: 0
atk: 22
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: ADD-MATHS
Total: 0
atk: 25
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: ADD-MATHS
Total: 0
atk: 26
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: FINE-ART
Total: 0
atk: 29
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: FINE-ART
Total: 0
atk: 30
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: CRE
Total: 0
atk: 33
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: CRE
Total: 0
atk: 34
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: PHYSICS
Total: 0
atk: 37
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: PHYSICS
Total: 0
atk: 38
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: TOTAL MARKS
Total: 0
atk: 43
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: TOTAL MARKS
Total: 0
atk: 44
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: AVERAGE
Total: 0
atk: 47
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: AVERAGE
Total: 0
atk: 48
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: POSITIONSTREAM
Total: 1
atk: 51
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: POSITIONSTREAM
Total: 1
atk: 52
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: OUTOF
Total: 2
atk: 55
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: OUTOF
Total: 2
atk: 56
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: GEOGRAPHY
Total: 0
atk: 57
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: GEOGRAPHY
Total: 0
atk: 58
Account: 05-00002
Grade: D1
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: ENGLISH
Total: 100
atk: 61
Account: 05-00002
Grade: D1
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: ENGLISH
Total: 100
atk: 62
Account: 05-00002
Grade: C4
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: MATHEMATICS
Total: 63.333333333333336
atk: 65
Account: 05-00002
Grade: C4
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: MATHEMATICS
Total: 63.333333333333336
atk: 66
Account: 05-00002
Grade: P7       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: ORALREADING
Total: 43.333333333333336
atk: 69
Account: 05-00002
Grade: P7       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: ORALREADING
Total: 43.333333333333336
atk: 70
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: COMPUTER
Total: 100
atk: 73
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: COMPUTER
Total: 100
atk: 74
Account: 05-00002
Grade: C4
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SCIENCE
Total: 68
atk: 77
Account: 05-00002
Grade: C4
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SCIENCE
Total: 68
atk: 78
Account: 05-00002
Grade: D1
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SOCIALSTUDIES
Total: 100
atk: 81
Account: 05-00002
Grade: D1
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SOCIALSTUDIES
Total: 100
atk: 82
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SWAHILI
Total: 100
atk: 85
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SWAHILI
Total: 100
atk: 86
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: MUSIC
Total: 100
atk: 89
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: MUSIC
Total: 100
atk: 90
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: LOCAL LANG
Total: 100
atk: 93
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: BIOLOGY
Total: 0
atk: 7
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: COMPUTER
Total: 0
atk: 11
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: CHEMISTRY
Total: 0
atk: 15
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: ENTREPRENUERSHIP
Total: 0
atk: 19
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: HISTORY
Total: 0
atk: 23
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: ADD-MATHS
Total: 0
atk: 27
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: FINE-ART
Total: 0
atk: 31
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: CRE
Total: 0
atk: 35
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: PHYSICS
Total: 0
atk: 39
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: TOTAL MARKS
Total: 0
atk: 42
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: AVERAGE
Total: 0
atk: 46
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: POSITIONSTREAM
Total: 1
atk: 50
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: OUTOF
Total: 2
atk: 54
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: GEOGRAPHY
Total: 0
atk: 59
Account: 05-00002
Grade: D1
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: ENGLISH
Total: 100
atk: 63
Account: 05-00002
Grade: C4
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: MATHEMATICS
Total: 63.333333333333336
atk: 67
Account: 05-00002
Grade: P7       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: ORALREADING
Total: 43.333333333333336
atk: 71
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: COMPUTER
Total: 100
atk: 75
Account: 05-00002
Grade: C4
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SCIENCE
Total: 68
atk: 79
Account: 05-00002
Grade: D1
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SOCIALSTUDIES
Total: 100
atk: 83
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SWAHILI
Total: 100
atk: 87
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: MUSIC
Total: 100
atk: 91
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: LOCAL LANG
Total: 100
atk: 94
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: LOCAL LANG
Total: 100
atk: 95
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: FINE-ART
Total: 100
atk: 97
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: FINE-ART
Total: 100
atk: 98
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: FINE-ART
Total: 100
atk: 99
Account: 05-00002
Grade: C4       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: RELIGION
Total: 68
atk: 101
Account: 05-00002
Grade: C4       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: RELIGION
Total: 68
atk: 102
Account: 05-00002
Grade: C4       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: RELIGION
Total: 68
atk: 103
Account: 05-00002
Grade: null
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: POSITION STREAM
Total: 1
atk: 105
Account: 05-00002
Grade: null
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: POSITION STREAM
Total: 1
atk: 106
Account: 05-00002
Grade: null
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: POSITION STREAM
Total: 1
atk: 107
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: BIOLOGY
Total: 0
atk: 8
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: COMPUTER
Total: 0
atk: 12
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: CHEMISTRY
Total: 0
atk: 16
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: ENTREPRENUERSHIP
Total: 0
atk: 20
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: HISTORY
Total: 0
atk: 24
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: ADD-MATHS
Total: 0
atk: 28
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: FINE-ART
Total: 0
atk: 32
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: CRE
Total: 0
atk: 36
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: PHYSICS
Total: 0
atk: 40
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: TOTAL MARKS
Total: 0
atk: 41
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: AVERAGE
Total: 0
atk: 45
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: POSITIONSTREAM
Total: 1
atk: 49
Account: 05-00001
Grade: null
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: OUTOF
Total: 2
atk: 53
Account: 05-00001
Grade: F9
Mids: null
Ends: null
Stream: A
Names: BUGEMBE YASIN ismail
Class: S2
Term: TERM1
Subject: GEOGRAPHY
Total: 0
atk: 60
Account: 05-00002
Grade: D1
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: ENGLISH
Total: 100
atk: 64
Account: 05-00002
Grade: C4
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: MATHEMATICS
Total: 63.333333333333336
atk: 68
Account: 05-00002
Grade: P7       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: ORALREADING
Total: 43.333333333333336
atk: 72
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: COMPUTER
Total: 100
atk: 76
Account: 05-00002
Grade: C4
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SCIENCE
Total: 68
atk: 80
Account: 05-00002
Grade: D1
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SOCIALSTUDIES
Total: 100
atk: 84
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: SWAHILI
Total: 100
atk: 88
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: MUSIC
Total: 100
atk: 92
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: LOCAL LANG
Total: 100
atk: 96
Account: 05-00002
Grade: D1       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: FINE-ART
Total: 100
atk: 100
Account: 05-00002
Grade: C4       
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: RELIGION
Total: 68
atk: 104
Account: 05-00002
Grade: null
Mids: null
Ends: null
Stream: A
Names: MUKWAYA HASSAN ismail
Class: P4
Term: TERM1
Subject: POSITION STREAM
Total: 1
atk: 108
[]
[]
[]
** Activity (main) Pause, UserClosed = false **
** Activity (simplechat) Create, isFirst = true **
Class not found: b4a.example.b4xtable, trying: kccug.com.b4xtable
** Activity (simplechat) Resume **
Class not found: b4a.example.b4xfloattextfield, trying: kccug.com.b4xfloattextfield
Token( at character 0 of [{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}])
Name: BUGEMBE YASIN ismail
Category: Active
Froms: /Date(1545512400000)/
Tos: /Date(1565298000000)/
23/12/2018
23/12/2018
09/08/2019
09/08/2019
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
Name: MUKWAYA HASSAN ismail
Category: Active
Froms: /Date(1550091600000)/
Tos: /Date(1565298000000)/
14/02/2019
14/02/2019
09/08/2019
09/08/2019
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
Name: DDAMULIRA GEORGE
Category: Active
Froms: /Date(1550091600000)/
Tos: /Date(1565298000000)/
14/02/2019
14/02/2019
09/08/2019
09/08/2019
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
Name: ASADU
Category: Active
Froms: /Date(1550091600000)/
Tos: /Date(1565298000000)/
14/02/2019
14/02/2019
09/08/2019
09/08/2019
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00002","Name":"MUKWAYA HASSAN ismail","Stream":"A","Category":"Active","Country":"P4","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00005","Name":"DDAMULIRA GEORGE","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"},{"Account":"05-00013","Name":"ASADU","Stream":"A","Category":"Active","Country":"S5","Froms":"\/Date(1550091600000)\/","Tos":"\/Date(1565298000000)\/"}]
29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
 
Upvote 0
Erel said:
You are again posting too much information. I don't understand anything from these logs and cannot further help you here. Sorry.
Click to expand...
Please Erel ithink now this is a little bit small information to start with .that is extract from information from the table sentmessages
Code: 
i have failed to get the  Log(Data.Length) but the last two records from this log are the two messages with their dates and ID numbers i think they can help

[CODE]29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
29/03/2019 12:13 PM
dddddfffffffhhhhhhfgggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
1
09/04/2019 10:44 AM
good after noon teacher
2
 
Last edited:
Upvote 0
I would suggest that you look at erels b4xtable example, and then simply adapt you code to that example.

Once you have done that, you will learn how it works correctly...
 
Upvote 0
Makumbi said:
Please help iam trying to read the list of sent messages from the sent message table all i can see is empty rows . but when you look and the search record it appears that there records in the table because i can see 1 out of 2 records

2. When i clicked on the received sms . it displays both the send and received columns yet i wanted to display only the columns for recivied sms

Here is my code please help

Code: 
#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim cursor1 As Cursor
    Private smiley As Bitmap
   
    'Dim SelectedRow As Int                    : SelectedRow = -1
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
   
    Private lblSelectedItem As Label
    'Dim wbvTable2 As ScrollView
    Private B4XTable1 As B4XTable
    Private xui As XUI
        Dim data As List
   
End Sub

Sub ShowTable

    B4XTable1.AddColumn("Datesent", B4XTable1.COLUMN_TYPE_DATE)
    B4XTable1.AddColumn("Sms", B4XTable1.COLUMN_TYPE_TEXT)
    B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)

    data.Initialize
    Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Datesent,Sms as SentMessage,ID FROM Sentmessages")
    Do While rs.NextRow
        Dim row(4) As Object
        row(0) = rs.GetDouble("Datesent")
        row(1) = rs.GetString("SentMessage")
       
        'Log(row(0))
        'Log(row(1))
        'Log(row(2))
        '& " " & rs.GetString("LastName")
        row(2) = rs.GetString("ID")
        'Some of the fields are Null. We need to convert them to empty strings:
        If row(2) = Null Then row(2) = ""
        row(3) = rs.GetString("SentMessage")
        data.Add(row)
    Loop
    rs.Close
    B4XTable1.SetData(data)
   
End Sub


Sub ShowTable2

    B4XTable1.AddColumn("DateRecieved", B4XTable1.COLUMN_TYPE_DATE)
    B4XTable1.AddColumn("Sms", B4XTable1.COLUMN_TYPE_TEXT)
    B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)

    data.Initialize
    Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Daterecieved,Sms as RecievedMessage,ID FROM Recievedsms")
    Do While rs.NextRow
        Dim row(4) As Object
        row(0) = rs.GetDouble("Daterecieved")
        row(1) = rs.GetString("RecievedMessage")
        '& " " & rs.GetString("LastName")
        row(2) = rs.GetString("ID")
        'Some of the fields are Null. We need to convert them to empty strings:
        If row(2) = Null Then row(2) = ""
        row(3) = rs.GetString("RecievedMessage")
        data.Add(row)
    Loop
    rs.Close
    B4XTable1.SetData(data)
   
End Sub


Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
    If ColumnId <> "Datesent" Then Return
       
    Dim sf As Object = xui.Msgbox2Async("Delete row?", "Title", "Yes", "Cancel", "No", Null)
    Wait For (sf) Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        DeleteRow(B4XTable1, RowId)
    End If
End Sub

Sub DeleteRow (tbl As B4XTable, RowId As Long)

    Dim RowData As Map = tbl.GetRow(RowId)
    Dim customerID As String = RowData.Get("Datesent")
       
    tbl.sql1.ExecNonQuery2("DELETE FROM data WHERE rowid = ?", Array (RowId))     'deletes record from Table
    Starter.SQL1.ExecNonQuery2("DELETE FROM Sentmessages WHERE Datesent = ?", Array (customerID))  'deletes from DB
   
    Dim page As Int = tbl.CurrentPage
    Dim FirstIndex As Int = tbl.FirstRowIndex
    tbl.ClearDataView 'Updates the rows count.
    If FirstIndex + 1 >= tbl.mCurrentCount Then
        page = page - 1
    End If
    tbl.CurrentPage = page
   
End Sub


Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        smiley = LoadBitmapResize(File.DirAssets, "smiley.png", 24dip, 24dip, False)
    End If
    'Do not forget to load the layout file created with the visual designer. For example:
    If  IsConnectedToInternet=True Then
    replysms
        'HighPriority_Notification
Activity.LoadLayout("simplechat")
        Activity.Title="Chat"
        B4XTable1.AddColumn("Datesent", B4XTable1.COLUMN_TYPE_DATE)
        B4XTable1.AddColumn("Sms", B4XTable1.COLUMN_TYPE_TEXT)
        B4XTable1.AddColumn("ID", B4XTable1.COLUMN_TYPE_TEXT)

        data.Initialize
        Dim rs As ResultSet = Starter.SQL1.ExecQuery("SELECT DISTINCT Datesent,Sms as SentMessage,ID FROM Sentmessages")
        Do While rs.NextRow
            Dim row(4) As Object
            row(0) = rs.GetDouble("Datesent")
            row(1) = rs.GetString("SentMessage")
       
            Log(row(0))
            Log(row(1))
            Log(row(2))
            '& " " & rs.GetString("LastName")
            row(2) = rs.GetString("ID")
            'Some of the fields are Null. We need to convert them to empty strings:
            If row(2) = Null Then row(2) = ""
            row(3) = rs.GetString("SentMessage")
            data.Add(row)
        Loop
        rs.Close
        B4XTable1.SetData(data)
    Dim SQLQry As String = "DELETE FROM SMSlist"
    Starter.SQL1.ExecNonQuery(SQLQry)
    cursor1 = Starter.SQL1.ExecQuery("SELECT phone AS Phone,Sex FROM Register")
    If cursor1.RowCount > 0 Then
            cursor1.Position =0
        Dim phone As String
        phone = cursor1.Getstring("Phone")
            Dim sx As String
        sx = cursor1.Getstring("Sex")
        'Next
    End If
    Dim CustID As String = phone' Customer ID
    Dim jt As HttpJob
    jt.Initialize("", Me)
    jt.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBRegistration.ashx?customerid=" & CustID & "&sx=" & sx)
    jt.GetRequest.Timeout = 10000 ' 10 seconds
    Wait For (jt) JobDone(jt As HttpJob)
    If jt.Success Then ' if job is success (http status code 200)
        Dim RetVal As String
        RetVal = jt.GetString
        If jt.GetString = "[]" Then
            'Msgbox("Please try Again ","SMIS")
            'Return
           
        Else
           
            Dim jpt As JSONParser
            jpt.Initialize(jt.GetString)
            'Log(jpt) ' will pr
                Log($"Token(${jpt})"$)
            Dim quotes As List = jpt.NextArray
            For Each quot As Map In quotes
                '    Log("Account: " & quot.Get("Account"))
                Log("Name: " & quot.Get("Name"))
                Log("Category: " & quot.Get("Category"))
                Log("Froms: " & quot.Get("Froms"))
                Log("Tos: " & quot.Get("Tos"))
                Log(DateTime.Date(JsonDateToTick( quot.Get("Froms"))))
                Dim l As Long
                DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Froms")))
                l = DateTime.DateParse(datestring)
                DateTime.DateFormat = "dd/MM/yyyy"
                Log(DateTime.Date(l))
               
                Log(DateTime.Date(JsonDateToTick( quot.Get("Tos"))))
                Dim lt As Long
                DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Tos")))
                lt = DateTime.DateParse(datestring)
                DateTime.DateFormat = "dd/MM/yyyy"
                Log(DateTime.Date(lt))
                'End If
                'Grab the last ID number which is the highest number
                If quot.Get("Category")="Inactive" Then
                    MsgboxAsync("Your Account is Inactive Please Pay 60000/= Via Mobile Money On 0782911364 Or 0702822227 to Activate" ,"SMIS")
                    Return
                End If
                If quot.Get("Category")="Expired" Then
                    MsgboxAsync("Your Registration has Already Expired it was Valid from: " & DateTime.Date(l) &" To:"& DateTime.Date(lt) &" Please Pay 60000/= Via Mobile Money On 0782911364 Or 0702822227 to Activate" ,"SMIS")
                    Return
                       
                Else

                    'Starter.SQL1.ExecNonQuery("INSERT INTO SMSlist VALUES('" & quot.Get("Account") & "','" & quot.Get("Name") & "','" & CustID & "','" & sx & "','" & 1 & "')")
                        Starter.SQL1.ExecNonQuery2("INSERT INTO SMSlist VALUES(?, ?, ?,?,?)", Array As Object(quot.Get("Account"), quot.Get("Name"),CustID ,sx, 1))
   
       
                    'Log(quot.Get("Account"))
                    'Log(quot.Get("Name"))
                    'Log(quot.Get(phone))
                    'Log(quot.Get(sx))
                    Log(RetVal) ' will print in log value returned from the server
                   
   
                End If
            Next
       
            End If
   
        End If
       
    Else
MsgboxAsync("Error Connecting to the Server Please Check Your Internet Connection","Server Error")
        Activity.LoadLayout("simplechat")
        Activity.Title="Chat"
        Return
        End If
End Sub
Sub IsConnectedToInternet As Boolean
    Dim r As Reflector
 
    r.Target = r.GetContext
    r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
    r.Target = r.RunMethod("getActiveNetworkInfo")
 
    If r.Target <> Null Then
        Return r.RunMethod("isConnectedOrConnecting")
    End If
 
    Return False
End Sub
Sub replysms
    'Dim SQLQry As String = "DELETE FROM Recievedsms"
    'Starter.SQL1.ExecNonQuery(SQLQry)
    cursor1 = Starter.SQL1.ExecQuery("SELECT phone AS Phone,Sex FROM Register")
    If cursor1.RowCount > 0 Then
        cursor1.Position =0
        Dim phone As String
        phone = cursor1.Getstring("Phone")
        Dim sx As String
        sx = cursor1.Getstring("Sex")
    '    sx = "Father"
    End If
    Dim CustID As String = phone' Customer ID
    Dim jtk As HttpJob
    jtk.Initialize("", Me)
    'j.Download("http://192.168.1.239/Generic_Handler_JSON/HandlerVB.ashx?customerid=" & CustID)
    jtk.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBGetreply.ashx?customerid=" & CustID & "&bcode=" & sx)
    'jtk.Download("http://192.168.1.239/Generic_Handler_JSON/HandlerVBGetreply.ashx?customerid=" & CustID & "&bcode=" & sx)
    jtk.GetRequest.Timeout = 10000 ' 10 seconds
    Wait For (jtk) JobDone(jtk As HttpJob)

    If jtk.Success Then ' if job is success (http status code 200)
        Dim RetVal As String
        Log(RetVal)
        RetVal = jtk.GetString
        If jtk.GetString = "[]" Then
            'Msgbox("Please try Again ","SMIS")
            'Return
           
        Else
                   
            Dim jpt As JSONParser
            jpt.Initialize(jtk.GetString)
            'Log(jpt) ' will pr
            Log($"Token(${jpt})"$)
            Dim quotes As List = jpt.NextArray
            For Each quot As Map In quotes
            Log("Account: " & quot.Get("Account"))
            Log("sms: " & quot.Get("sms"))
                Log("Datesent: " & quot.Get("Datesent"))
                Log("Status: " & quot.Get("Status"))
                Log("codes: " & quot.Get("Code"))
                Log("atk: " & quot.Get("atk"))
            'Log("Tos: " & quot.Get("Tos"))
                Dim ltt As Long
                DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Datesent")))
                ltt = DateTime.DateParse(datestring)
                DateTime.DateFormat = "dd/MM/yyyy"
                Log(DateTime.Date(ltt))
                Dim now As Long
                now = DateTime.Now
                Log(DateTime.Now)
                DateTime.DateFormat = "dd/MM/yyyy" : DateTime.TimeFormat = "hh:mm a"
               
                Log(DateTime.Date(ltt)& " "& DateTime.Time(now))
                Starter.SQL1.ExecNonQuery2("INSERT INTO Recievedsms VALUES(?, ?, ?)", Array As Object(DateTime.Date(ltt)& " "& DateTime.Time(now), quot.Get("sms"), quot.Get("Code")))
   
                Dim n As NB6
                n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
                n.Build(quot.Get("sms"), "Kabojja Junior School", "tag", Main).Notify(9)
               
                Dim jtkt As HttpJob
                jtkt.Initialize("", Me)
                jtkt.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBDelReply.ashx?customerid=" &  quot.Get("atk"))
            Next
           
        End If
   
End If
End Sub
Sub JsonDateToTick(s As String) As Long
    Dim m As Matcher = Regex.Matcher("\d+", s)
    If m.Find Then
        Return m.Match
    End If
    Log("Invalid date: " & s)
    Return 0
End Sub
Sub Activity_Resume
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub btnFilter_Click
    If IsConnectedToInternet=True Then
        cursor1 = Starter.SQL1.ExecQuery("SELECT Account FROM SMSlist")
        If cursor1.RowCount > 0 Then
            StartActivity(Sendsms)
            'Activity.Title="Send SMS"
    Else
        Dim SQLQry As String = "DELETE FROM SMSlist"
        Starter.SQL1.ExecNonQuery(SQLQry)
        cursor1 = Starter.SQL1.ExecQuery("SELECT phone AS Phone,Sex FROM Register")
        If cursor1.RowCount > 0 Then
            cursor1.Position =0
            Dim phone As String
            phone = cursor1.Getstring("Phone")
            Dim sx As String
            sx = cursor1.Getstring("Sex")
            'Next
        End If
        Dim CustID As String = phone' Customer ID
        Dim jt As HttpJob
        jt.Initialize("", Me)
        jt.Download("http://kccug.com/Generic_Handler_JSON/HandlerVBRegistration.ashx?customerid=" & CustID & "&sx=" & sx)
        jt.GetRequest.Timeout = 10000 ' 10 seconds
        Wait For (jt) JobDone(jt As HttpJob)
        If jt.Success Then ' if job is success (http status code 200)
            Dim RetVal As String
            RetVal = jt.GetString
            If jt.GetString = "[]" Then
                'Msgbox("Please try Again ","SMIS")
                'Return
           
            Else
           
                Dim jpt As JSONParser
                jpt.Initialize(jt.GetString)
                'Log(jpt) ' will pr
                    Log($"Token(${jpt})"$)
                Dim quotes As List = jpt.NextArray
                For Each quot As Map In quotes
                    '    Log("Account: " & quot.Get("Account"))
                    Log("Name: " & quot.Get("Name"))
                    Log("Category: " & quot.Get("Category"))
                    Log("Froms: " & quot.Get("Froms"))
                    Log("Tos: " & quot.Get("Tos"))
                    Log(DateTime.Date(JsonDateToTick( quot.Get("Froms"))))
                    Dim l As Long
                    DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                    Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Froms")))
                    l = DateTime.DateParse(datestring)
                    DateTime.DateFormat = "dd/MM/yyyy"
                    Log(DateTime.Date(l))
               
                    Log(DateTime.Date(JsonDateToTick( quot.Get("Tos"))))
                    Dim lt As Long
                    DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
                    Dim datestring As String = DateTime.Date(JsonDateToTick( quot.Get("Tos")))
                    lt = DateTime.DateParse(datestring)
                    DateTime.DateFormat = "dd/MM/yyyy"
                    Log(DateTime.Date(lt))
                    'End If
                    'Grab the last ID number which is the highest number
                    If quot.Get("Category")="Inactive" Then
                        MsgboxAsync("Your Account is Inactive Please Pay 60000/= Via Mobile Money On 0782911364 Or 0702822227 to Activate" ,"SMIS")
                        Return
                    End If
                    If quot.Get("Category")="Expired" Then
                        MsgboxAsync("Your Registration has Already Expired it was Valid from: " & DateTime.Date(l) &" To:"& DateTime.Date(lt) &" Please Pay 60000/= Via Mobile Money On 0782911364 Or 0702822227 to Activate" ,"SMIS")
                        Return
                       
                    Else

                        'Starter.SQL1.ExecNonQuery("INSERT INTO SMSlist VALUES('" & quot.Get("Account") & "','" & quot.Get("Name") & "','" & CustID & "','" & sx & "','" & 1 & "')")
                       
                            Starter.SQL1.ExecNonQuery2("INSERT INTO SMSlist VALUES(?,?,?,?,?)", Array As Object(quot.Get("Account"), quot.Get("Name"), CustID,sx,1))
   
                        'Log(quot.Get("Account"))
                        'Log(quot.Get("Name"))
                        'Log(quot.Get(phone))
                        'Log(quot.Get(sx))
                        Log(RetVal) ' will print in log value returned from the server
                   
   
                    End If
                Next
       
            End If
   
        End If
    End If
        StartActivity(Sendsms)
    Else
MsgboxAsync("Error Connecting to the Server Please Check Your Internet Connection","Server Error")
        Return
    End If
End Sub
Sub HighPriority_Notification
    Dim n As NB6
    n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
    n.Build("Important Good Work sula!!!", "Content", "tag", Me).Notify(9)
End Sub
Sub btnEdit_Click
    B4XTable1.Clear
    ShowTable
    lblSelectedItem.Text="Send"
End Sub

Sub btnAdd_Click
    B4XTable1.Clear
    ShowTable2
    lblSelectedItem.Text="Recieved"
End Sub
Click to expand...
I know this is an old thread but I came across it when I was searching for a solution to a similar problem. I doubt that it will help the original poster but it may well help others with this problem.
It seems that if the row is dimmed with more than the number of cols plus one ( Dim row(4) As Object) = 5 columns added 0 to 4 but only 3 created in addcolumn then nothing is displayed. At least this ended up being the case with my problem
 
Upvote 0
You must log in or register to reply here.

Similar Threads

Erel
  • Article Article
Android Code Snippet [B4X] [LOA] ListOfArrays <--> B4XTable
Replies
0
Views
2K
Erel
Erel
Erel
  • Locked
  • Article Article
Android Tutorial [B4X] Cross platform Editable B4XTable + Form Example
Replies
9
Views
26K
Erel
Erel
Erel
  • Article Article
Android Code Snippet [B4X] B4XTable - Delete Row
Replies
2
Views
11K
Erel
Erel
Erel
  • Locked
  • Article Article
Android Tutorial B4XTable - Photos Album
Replies
15
Views
14K
Erel
Erel
Erel
  • Locked
  • Article Article
Android Tutorial [B4X] B4XTable with custom cells layout
Replies
4
Views
29K
William Lancee
William Lancee
Back
Top