Perl Dynamics CRM: Lookup Account ID using Account Name

Back to Index

Gets the accountid by name.

Documentation: http://www.odata.org/getting-started/basic-tutorial/#queryData

CURL Command

curl -X GET https://my-dynamics-domain.api.crm.dynamics.com/api/data/v9.0/accounts
  -H "Accept: application/json" \
  -H "OData-MaxVersion: 4.0"  \
  -H "OData-Version: 4.0" \
  -d "$select=accountid" \
  -d "$filter=name eq 'Blue Yonder Airlines'" \
  -H "Authorization: Bearer DYNAMICS_CRM_ACCESS_TOKEN"

Perl Example

use chilkat();

$rest = chilkat::CkRest->new();

#  URL: https://my-dynamics-domain.api.crm.dynamics.com/api/data/v9.0/accounts
$bTls = 1;
$port = 443;
$bAutoReconnect = 1;
$success = $rest->Connect("my-dynamics-domain.api.crm.dynamics.com",$port,$bTls,$bAutoReconnect);
if ($success != 1) {
    print "ConnectFailReason: " . $rest->get_ConnectFailReason() . "\r\n";
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$rest->AddQueryParam("$select","accountid");
$rest->AddQueryParam("$filter","name eq 'Blue Yonder Airlines'");

$rest->AddHeader("OData-MaxVersion","4.0");
$rest->AddHeader("Accept","application/json");
$rest->AddHeader("OData-Version","4.0");
$rest->AddHeader("Authorization","Bearer DYNAMICS_CRM_ACCESS_TOKEN");

$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestNoBodySb("GET","/api/data/v9.0/accounts",$sbResponseBody);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$respStatusCode = $rest->get_ResponseStatusCode();
if ($respStatusCode >= 400) {
    print "Response Status Code = " . $respStatusCode . "\r\n";
    print "Response Header:" . "\r\n";
    print $rest->responseHeader() . "\r\n";
    print "Response Body:" . "\r\n";
    print $sbResponseBody->getAsString() . "\r\n";
    exit;
}

$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->LoadSb($sbResponseBody);

$odataContext = $jsonResponse->stringOf('\'@odata.context\'');
$i = 0;
$count_i = $jsonResponse->SizeOfArray("value");
while ($i < $count_i) {
    $jsonResponse->put_I($i);
    $odataEtag = $jsonResponse->stringOf('value[i].\'@odata.etag\'');
    $accountid = $jsonResponse->stringOf("value[i].accountid");
    $i = $i + 1;
}

Sample JSON Response Body

{
  "@odata.context": "https://mydomain.api.crm.dynamics.com/api/data/v9.0/$metadata#accounts(accountid)",
  "value": [
    {
      "@odata.etag": "W/\"1817216\"",
      "accountid": "aca19cdd-88df-e311-b8e5-6c3be5a8b200"
    }
  ]
}