Visual FoxPro

GeoOp - Create Job

See more GeoOp Examples

Create a new job. Visual FoxPro

LOCAL lnSuccess
LOCAL loJsonToken
LOCAL loOauth2
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL loJsonJob
LOCAL lcResponseBody
LOCAL loJson

lnSuccess = 0

*  This example assumes the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

*  This example also assumes an OAuth2 access token was previously fetched.
*  and saved in a JSON file.  

*  First get our previously obtained access token.
*  {"access_token":"e6dqdG....mzjpT04w==","token_type":"Bearer","expires_in":2592000,"owner_id":999236}
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/geoop.json")

*  This example assumes we previously obtained an access token
loOauth2 = CreateObject('Chilkat.OAuth2')
loOauth2.AccessToken = loJsonToken.StringOf("access_token")

loRest = CreateObject('Chilkat.Rest')

*  Connect to GeoOp..
*  Note: The same REST object, once connected, can be used for many requests.
*  The bAutoReconnect argument allows it to automatically reconnect as required for any subsequent request.

lnBAutoReconnect = 1
lnSuccess = loRest.Connect("api.geoop.com",443,1,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loJsonToken
    RELEASE loOauth2
    RELEASE loRest
    CANCEL
ENDIF

*  Provide the authentication credentials (i.e. the access token)
loRest.SetAuthOAuth2(loOauth2)

*  Set the X-Version header.
loRest.AddHeader("X-Version","1.0")

*  To create a new user, we must build and send the following JSON:

*  	{
*  	  "jobs": [
*  	    {
*  	      "priority": 2,
*  	      "title": "Deliver More Donuts",
*  	      "description": "Deliver more donuts to the cafe.",
*  	      "client": {
*  	        "id": 9571218
*  	      },
*  	      "account": {
*  	        "id": 39409
*  	      },
*  	      "status": {
*  	        "id": 675900
*  	      },
*  	      "address": {
*  	        "line1": "1732 Pennsylvania Avenue NW",
*  	        "city": "Washington",
*  	        "postcode": "20006",
*  	      }
*  	    }
*  	  ]
*  	}
*  

loJsonJob = CreateObject('Chilkat.JsonObject')
loJsonJob.UpdateInt("jobs[0].priority",2)
loJsonJob.UpdateString("jobs[0].title","Deliver More Donuts")
loJsonJob.UpdateString("jobs[0].description","Deliver more donuts to the cafe.")
loJsonJob.UpdateInt("jobs[0].client.id",9571218)
loJsonJob.UpdateInt("jobs[0].account.id",39409)
loJsonJob.UpdateInt("jobs[0].status.id",675900)
loJsonJob.UpdateString("jobs[0].address.line1","1732 Pennsylvania Avenue NW")
loJsonJob.UpdateString("jobs[0].address.city","Washington")
loJsonJob.UpdateString("jobs[0].address.postcode","20006")

*  Examine the JSON we're about to send...
loJsonJob.EmitCompact = 0
? loJsonJob.Emit()

loRest.AddHeader("Content-Type","application/json")

loJsonJob.EmitCompact = 1
lcResponseBody = loRest.FullRequestString("POST","/jobs",loJsonJob.Emit())
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loJsonToken
    RELEASE loOauth2
    RELEASE loRest
    RELEASE loJsonJob
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0

*  If the response status code did not indicate success, then see what happened..
IF (loRest.ResponseStatusCode <> 200) THEN
    ? "Request Header: "
    ? loRest.LastRequestHeader
    ? "----"
    ? "Response StatusCode = " + STR(loRest.ResponseStatusCode)
    ? "Response StatusLine: " + loRest.ResponseStatusText
    ? "Response Header:"
    ? loRest.ResponseHeader
    loJson.Load(lcResponseBody)
    ? loJson.Emit()
    RELEASE loJsonToken
    RELEASE loOauth2
    RELEASE loRest
    RELEASE loJsonJob
    RELEASE loJson
    CANCEL
ENDIF

loJson.Load(lcResponseBody)
*  Show the full JSON response..
? loJson.Emit()

*  The success JSON looks like this:

*  	{
*  	  "result": "success",
*  	  "jobs": [
*  	    {
*  	      "id": 17639811,
*  	      "reference": "1001",
*  	      "startTime": null,
*  	      "endTime": null,
*  	      "priority": 2,
*  	      "title": "Deliver More Donuts",
*  	      "description": "Deliver more donuts to the cafe.",
*  	      "jobNumber": null,
*  	      "deleted": false,
*  	      "type": "normal",
*  	      "created": "2016-10-31T13:36:47+00:00",
*  	      "modified": "2016-10-31T13:36:47+00:00",
*  	      "client": {
*  	        "id": 9571218
*  	      },
*  	      "billingClient": null,
*  	      "status": {
*  	        "id": 675900
*  	      },
*  	      "account": {
*  	        "id": 39409
*  	      },
*  	      "address": {
*  	        "line1": "1732 Pennsylvania Avenue NW",
*  	        "line2": "",
*  	        "city": "Washington",
*  	        "postcode": "20006",
*  	        "latitude": 38.8990534,
*  	        "longitude": -77.0401866
*  	      },
*  	      "metadata": {
*  	        "visitsCount": 0,
*  	        "assignedVisitsCount": 0,
*  	        "unassignedVisitsCount": 0,
*  	        "partsCount": 0,
*  	        "chargesCount": 0,
*  	        "timersCount": 0,
*  	        "notesCount": 0,
*  	        "parcelsCount": 0,
*  	        "paymentsCount": 0,
*  	        "documentsCount": 0
*  	      }
*  	    }
*  	  ],
*  	  "metadata": {
*  	    "receivedItemsCount": 1,
*  	    "validItems": [
*  	      0
*  	    ],
*  	    "invalidItems": [
*  	    ]
*  	  }
*  	}
*

RELEASE loJsonToken
RELEASE loOauth2
RELEASE loRest
RELEASE loJsonJob
RELEASE loJson