Visual FoxPro

Akeneo: Create New Attribute

See more HTTP Misc Examples

Demonstrates how to create a new attribute. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJson
LOCAL lcUrl
LOCAL loResp

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

*  Use your previously obtained access token.
*  See Get Akeneo Access Token
loHttp.AuthToken = "access_token"

*  Build the following JSON to be sent in the request body:
*  Use this online tool to generate the code from sample JSON: 
*  Generate Code to Create JSON

*  {
*    "code": "release_date",
*    "type": "pim_catalog_date",
*    "group": "marketing",
*    "unique": false,
*    "useable_as_grid_filter": true,
*    "allowed_extensions": [],
*    "metric_family": null,
*    "default_metric_unit": null,
*    "reference_data_name": null,
*    "available_locales": [],
*    "max_characters": null,
*    "validation_rule": null,
*    "validation_regexp": null,
*    "wysiwyg_enabled": null,
*    "number_min": null,
*    "number_max": null,
*    "decimals_allowed": null,
*    "negative_allowed": null,
*    "date_min": "2017-06-28T08:00:00",
*    "date_max": "2017-08-08T22:00:00",
*    "max_file_size": null,
*    "minimum_input_length": null,
*    "sort_order": 1,
*    "localizable": false,
*    "scopable": false,
*    "labels": {
*      "en_US": "Sale date",
*      "fr_FR": "Date des soldes"
*    }
*  }

loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("code","release_date")
loJson.UpdateString("type","pim_catalog_date")
loJson.UpdateString("group","marketing")
loJson.UpdateBool("unique",0)
loJson.UpdateBool("useable_as_grid_filter",1)
loJson.UpdateNewArray("allowed_extensions")
loJson.UpdateNull("metric_family")
loJson.UpdateNull("default_metric_unit")
loJson.UpdateNull("reference_data_name")
loJson.UpdateNewArray("available_locales")
loJson.UpdateNull("max_characters")
loJson.UpdateNull("validation_rule")
loJson.UpdateNull("validation_regexp")
loJson.UpdateNull("wysiwyg_enabled")
loJson.UpdateNull("number_min")
loJson.UpdateNull("number_max")
loJson.UpdateNull("decimals_allowed")
loJson.UpdateNull("negative_allowed")
loJson.UpdateString("date_min","2017-06-28T08:00:00")
loJson.UpdateString("date_max","2017-08-08T22:00:00")
loJson.UpdateNull("max_file_size")
loJson.UpdateNull("minimum_input_length")
loJson.UpdateNumber("sort_order","1")
loJson.UpdateBool("localizable",0)
loJson.UpdateBool("scopable",0)
loJson.UpdateString("labels.en_US","Sale date")
loJson.UpdateString("labels.fr_FR","Date des soldes")

loJson.EmitCompact = 0
*  Show the JSON to be sent..
? loJson.Emit()

lcUrl = "http://pim.my-akeneo-site.com/api/rest/v1/attributes"
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST",lcUrl,loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    RELEASE loResp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)
? "Response Body: "
? loResp.BodyStr

RELEASE loHttp
RELEASE loJson
RELEASE loResp