Dim j As HttpJob
j.Initialize("", Me)
j.JobName = "Test"
j.Username = "USER"
j.Password = "password"
j.Download("https://nav.example.com:7048/HK/OData/Company('HK')/WSStore?$format=json&$select=No,Name,MchID,Appcode,Appkey&$filter=No eq '10'")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release