Sub RouteCall(XMLparameters As String) 'As Int
Dim requestSoapXML As String
Dim sChar As String
Dim Soap As HttpJob
Dim i, iReturn As Int
XMLparameters = Globaal.String2Base64(XMLparameters)
XMLparameters = "||"&XMLparameters
XMLparameters = Globaal.String2Base64(XMLparameters)
sChar = "&"
iReturn=0
requestSoapXML = Globaal.MainUrl&"/Getdata13/JSON?ipar="&Globaal.par1&sChar&"spar="&Globaal.par2
If Globaal.DoLog=1 Then Log(requestSoapXML)
Soap.Initialize("GetRoute",Me)
Soap.Download(requestSoapXML)
wait for (Soap) jobdone(Soap As HttpJob) '<<<<<< fails on this line when from Activity B
If (Soap.Success = True) Then
'do something
end if