Sub Service_Create
If init = False Then Process_Globals
If TempFolder = "" Then TempFolder = File.DirInternalCache
If hcIsInitialized = False Then
hc.Initialize("hc")
hcIsInitialized = True
End If
End Sub
This is the message I get when I run it in Release mode
LogCat connected to: 0123456789ABCDEF
--------- beginning of /dev/log/system
--------- beginning of /dev/log/main
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
38
Starting Job: GetAccessToken
** Service (httputilsservice) Create **
** Service (httputilsservice) Start **
Error. Url=
https://api.sharesight.com/oauth2/token Message=Unauthorized
{"error":"invalid_grant","error_description":"The provided authorization grant is invalid, expired, revoked, does not match the redirection URI used in the authorization request, or was issued to another client."}
** Service (httputilsservice) Destroy **