Lianja

GeoOp - Find Account ID by Name

See more GeoOp Examples

Finds an account ID by name. Lianja

llSuccess = .F.

// 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("CkJsonObject")
llSuccess = loJsonToken.LoadFile("qa_data/tokens/geoop.json")

// This example assumes we previously obtained an access token
loOauth2 = createobject("CkOAuth2")
loOauth2.AccessToken = loJsonToken.StringOf("access_token")

loRest = createobject("CkRest")

// Connect to GeoOp and send the following GET request:

// GET /users HTTP/1.1
// Host: api.geoop.com
llBAutoReconnect = .T.
llSuccess = loRest.Connect("api.geoop.com",443,.T.,llBAutoReconnect)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loJsonToken
    release loOauth2
    release loRest
    return
endif

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

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

lcResponseBody = loRest.FullRequestNoBody("GET","/accounts")
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loJsonToken
    release loOauth2
    release loRest
    return
endif

// 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
    ? lcResponseBody
    release loJsonToken
    release loOauth2
    release loRest
    return
endif

loJson = createobject("CkJsonObject")
loJson.EmitCompact = .F.
loJson.Load(lcResponseBody)
// Show the full JSON response.  (see the sample response at the bottom of this example)
? loJson.Emit()

// To find the account id for a given company name:
llCaseSensitive = .F.
lcAccountId = loJson.FindRecordString("accounts","companyName","Chilkat Software, Inc.",llCaseSensitive,"id")
if (loJson.LastMethodSuccess <> .T.) then
    ? "Account not found."
else
    ? "The account ID is: " + lcAccountId
endif

// Find the account ID for the 1st company matching "Chilkat*"
lcAccountId = loJson.FindRecordString("accounts","companyName","Chilkat*",llCaseSensitive,"id")
if (loJson.LastMethodSuccess <> .T.) then
    ? "Account not found."
else
    ? "The account ID is: " + lcAccountId
endif

// The full JSON response for GET /accounts looks like this:

// 	{
// 	  "result": "success",
// 	  "accounts": [
// 	    {
// 	      "id": 39409,
// 	      "companyName": "Chilkat Software, Inc.",
// 	      "licenses": 999,
// 	      "countryCode": 1
// 	    }
// 	  ],
// 	  "metadata": {
// 	    "page": 1,
// 	    "pagesCount": 1,
// 	    "recordsPerPage": 20,
// 	    "recordsCount": 1
// 	  }
// 	}
// 


release loJsonToken
release loOauth2
release loRest
release loJson