Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "getcountwerkengepauzeerd"
Dim mystr As String
mystr = Job.GetString
If mystr <> "" Then
CheckJSON(mystr,Job.JobName)
End If
Case "getcountgeplandewerken"
Dim mystr As String
mystr = Job.GetString
If mystr <> "" Then
CheckJSON(mystr, Job.JobName)
End If
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub