Dim urlString As String = modEposWeb.URL_COMMS_API & "?msgSrcDst=0¢reID=" & myData.centre.centreID & "&customerId=" & customerId
job.PutString(urlString, tempMsg)
job.GetRequest.SetContentType("application/json;charset=UTF-8")
Wait For (job) JobDone(job As HttpJob)
If job.Success And job.Response.StatusCode = 200 Then
' ToastMessageShow("Comms message sent to Web Server.", True)
Else If job.Success And job.Response.StatusCode = 204 Then
ToastMessageShow("Message REJECTED - Centre Closed", True)
Else ' An error of some sort occurred
Dim errorMsg As String = "An error occurred with the HTTP job: " & job.ErrorMessage
ToastMessageShow(errorMsg, True)
End If
statusCode = job.Response.StatusCode
job.Release ' Must always be called after the job is complete, to free its resources