How can i made a callsub from a service using b4xpages ?
B4X:
Dim j As HttpJob
j.Initialize("", Me)
j.Download("http://"&public_variables.serviceip&"/drinks")
j.GetRequest.SetHeader("API-KEY", "1234567890")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
Dim parser As JSONParser
parser.Initialize(j.GetString)
Dim root As List = parser.NextArray
For Each colroot As Map In root
public_variables.id.Add( colroot.Get("id"))
CallSub(B4XMainPages,"LoadConfig") <------------ERROR HERE
Next