Android Question opening notification

[Makumbi]

Please help i have this notification here which i receive on my phone but when i click on it does not go to the corresponding table where all the notification are saved please help how can i get linked to that table

Dim n As NB6
                n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
                n.Build(quot.Get("sms"), "Kabojja Junior School", "tag", Me).Notify(9)

 

[Brandsum]

it does not go to the corresponding table where all the notification are saved

Is that an activity?

 

[Makumbi]

Please help i have this notification here which i receive on my phone but when i click on it does not go to the corresponding table where all the notification are saved please help how can i get linked to that table

Dim n As NB6
                n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
                n.Build(quot.Get("sms"), "Kabojja Junior School", "tag", Me).Notify(9)

That is the entire code

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
            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))
                '"SELECT DISTINCT Daterecieved,Sms as RecievedMessage,ID FROM Recievedsms"
                'Starter.SQL1.ExecNonQuery("INSERT INTO Recievedsms VALUES('" & DateTime.Date(ltt) & "','" & quot.Get("sms") & "','" & quot.Get("Code") & "')")
                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", Me).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

 

[Brandsum]

I mean where does the table exist? Do you want to open an activity which has all the notification listed?

 

[Makumbi]

I mean where does the table exist? Do you want to open an activity which has all the notification listed?

the table is in my app

 

[Brandsum]

the table is in my app

Pass the activity(page) name to the last parameter in which the table exists.

n.Build(quot.Get("sms"), "Kabojja Junior School", "tag", Activity_Name)

 

[Makumbi]

Pass the activity(page) name to the last parameter in which the table exists.

n.Build(quot.Get("sms"), "Kabojja Junior School", "tag", Activity_Name)

i have tried out this but iam getting error

Dim n As NB6
                    n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
                    n.Build(quot.Get("Comments") , "Kabojja Junior School", "tag",Activity.LoadLayout("simplechat")).Notify(9)

*** 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
4
*** Service (httputils2service) Create ***
** Service (httputils2service) Start **
** Service (httputils2service) Start **
** Service (httputils2service) Start **
** Service (httputils2service) Start **
** Service (httputils2service) Start **
[{"Account":"05-00001","Name":"BUGEMBE YASIN ismail","Stream":"A","Category":"Active","Country":"S2","Froms":"\/Date(1545512400000)\/","Tos":"\/Date(1554152400000)\/"}]
(JSONTokener)  at character 0 of [{"CustomerId":null,"Comments":"Please don\u0027t bring water to school admin","Dates":"\/Date(1551533741930)\/","Status":null,"Class":"S2","Stream":"A","Term":null,"Years":null,"Tcode":44}]
Account: null
Events: Please don't bring water to school admin
Class: S2
Stream: A
Years: null
Term: null
Tcode: 44
03/02/2019
02/03/2019
Error occurred on line: 302 (NB6)
java.lang.reflect.InvocationTargetException
    at java.lang.reflect.Constructor.newInstance0(Native Method)
    at java.lang.reflect.Constructor.newInstance(Constructor.java:430)
    at anywheresoftware.b4j.object.JavaObject.InitializeNewInstance(JavaObject.java:90)
    at de.amberhome.slidemenuexample.nb6._createintent(nb6.java:505)
    at de.amberhome.slidemenuexample.nb6._build(nb6.java:221)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.shell.Shell.runMethod(Shell.java:733)
    at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:352)
    at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:255)
    at java.lang.reflect.Method.invoke(Native Method)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:144)
    at anywheresoftware.b4a.BA.raiseEvent(BA.java:171)
    at anywheresoftware.b4a.shell.DebugResumableSub$RemoteResumableSub.resume(DebugResumableSub.java:22)
    at anywheresoftware.b4a.BA.checkAndRunWaitForEvent(BA.java:245)
    at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:137)
    at anywheresoftware.b4a.BA$2.run(BA.java:365)
    at android.os.Handler.handleCallback(Handler.java:751)
    at android.os.Handler.dispatchMessage(Handler.java:95)
    at android.os.Looper.loop(Looper.java:154)
    at android.app.ActivityThread.main(ActivityThread.java:6077)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:866)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:756)
Caused by: java.lang.NullPointerException: Attempt to invoke virtual method 'java.lang.String java.lang.Class.getName()' on a null object reference
    at android.content.ComponentName.<init>(ComponentName.java:129)
    at android.content.Intent.<init>(Intent.java:4868)
    ... 23 more

 

[DonManfred]

i have tried out this but iam getting error

1. You really should learn what you are doing here.
2. You got told to put the activityname of the activity you want to open. Why you are not taking this suggestion?

If you have an Activity named Chat and here you are using your

Activity.LoadLayout("simplechat")

so you should put Chat in the Notificationbuilder.

Dim n As NB6
                    n.Initialize("default", Application.LabelName, "HIGH").SmallIcon(smiley)
                    n.Build(quot.Get("Comments") , "Kabojja Junior School", "tag",Chat).Notify(9)

 

[Brandsum]

n.Build(quot.Get("Comments") , "Kabojja Junior School", "tag",Activity.LoadLayout("simplechat")).Notify(9)

Oh!! you can't load a layout.

Your first screen name is Main which suppose has login functionality, and another screen name is Notification which has the notification table. Then you have to pass the activity or screen name like

n.Build(quot.Get("sms"), "Kabojja Junior School", "tag", Notification)