Sub btnUploadCycleCounts_Click
Dim lJson As String=GenerateJSON
Dim job2 As HttpJob
job2.Initialize("Job2", Me)
job2.PostString(GlobalFunctions.BaseURL&"/api/handheld", lJson)
job2.GetRequest.SetHeader("Content-Type", "application/json")
ToastMessageShow("Created",True)
End Sub
Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Log(Job.GetString)
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
End Sub