VB6 / Commercetools / SetShippingAddress
Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
Dim success As Long
' Use this online tool to generate code from sample JSON: Generate Code to Create JSON
' The following JSON is sent in the request body.
' {
' "version": "{{version}}",
' "actions": [
' {
' "action": "setShippingAddress",
' "address": {
' "id": "exampleAddress",
' "key": "exampleKey",
' "title": "My Address",
' "salutation": "Mr.",
' "firstName": "Example",
' "lastName": "Person",
' "streetName": "Examplary Street",
' "streetNumber": "4711",
' "additionalStreetInfo": "Backhouse",
' "postalCode": "80933",
' "city": "Exemplary City",
' "region": "Exemplary Region",
' "state": "Exemplary State",
' "country": "DE",
' "company": "My Company Name",
' "department": "Sales",
' "building": "Hightower 1",
' "apartment": "247",
' "pOBox": "2471",
' "phone": "+49 89 12345678",
' "mobile": "+49 171 2345678",
' "email": "mail@mail.com",
' "fax": "+49 89 12345679",
' "additionalAddressInfo": "no additional Info",
' "externalId": "Information not needed"
' }
' }
' ]
' }
Dim json As New ChilkatJsonObject
success = json.UpdateString("version","{{version}}")
success = json.UpdateString("actions[0].action","setShippingAddress")
success = json.UpdateString("actions[0].address.id","exampleAddress")
success = json.UpdateString("actions[0].address.key","exampleKey")
success = json.UpdateString("actions[0].address.title","My Address")
success = json.UpdateString("actions[0].address.salutation","Mr.")
success = json.UpdateString("actions[0].address.firstName","Example")
success = json.UpdateString("actions[0].address.lastName","Person")
success = json.UpdateString("actions[0].address.streetName","Examplary Street")
success = json.UpdateString("actions[0].address.streetNumber","4711")
success = json.UpdateString("actions[0].address.additionalStreetInfo","Backhouse")
success = json.UpdateString("actions[0].address.postalCode","80933")
success = json.UpdateString("actions[0].address.city","Exemplary City")
success = json.UpdateString("actions[0].address.region","Exemplary Region")
success = json.UpdateString("actions[0].address.state","Exemplary State")
success = json.UpdateString("actions[0].address.country","DE")
success = json.UpdateString("actions[0].address.company","My Company Name")
success = json.UpdateString("actions[0].address.department","Sales")
success = json.UpdateString("actions[0].address.building","Hightower 1")
success = json.UpdateString("actions[0].address.apartment","247")
success = json.UpdateString("actions[0].address.pOBox","2471")
success = json.UpdateString("actions[0].address.phone","+49 89 12345678")
success = json.UpdateString("actions[0].address.mobile","+49 171 2345678")
success = json.UpdateString("actions[0].address.email","mail@mail.com")
success = json.UpdateString("actions[0].address.fax","+49 89 12345679")
success = json.UpdateString("actions[0].address.additionalAddressInfo","no additional Info")
success = json.UpdateString("actions[0].address.externalId","Information not needed")
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "Content-Type","application/json"
Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)
Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("post","https://domain.com/{{project-key}}/carts/{{cart-id}}",sbRequestBody,"utf-8","application/json",0,0)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print resp.StatusCode
Debug.Print resp.BodyStr
Curl Command
curl -X post
-H "Authorization: Bearer <access_token>"
-H "Content-Type: application/json"
-d '{
"version": {{cart-version}},
"actions": [
{
"action" : "setShippingAddress",
"address" : {
"id" : "exampleAddress",
"key" : "exampleKey",
"title" : "My Address",
"salutation" : "Mr.",
"firstName" : "Example",
"lastName" : "Person",
"streetName" : "Examplary Street",
"streetNumber" : "4711",
"additionalStreetInfo" : "Backhouse",
"postalCode" : "80933",
"city" : "Exemplary City",
"region" : "Exemplary Region",
"state" : "Exemplary State",
"country" : "DE",
"company" : "My Company Name",
"department" : "Sales",
"building" : "Hightower 1",
"apartment" : "247",
"pOBox" : "2471",
"phone" : "+49 89 12345678",
"mobile" : "+49 171 2345678",
"email" : "mail@mail.com",
"fax" : "+49 89 12345679",
"additionalAddressInfo" : "no additional Info",
"externalId" : "Information not needed"
}
}
]
}'
https://domain.com/{{project-key}}/carts/{{cart-id}}
Postman Collection Item JSON
{
"name": "SetShippingAddress",
"event": [
{
"listen": "test",
"script": {
"type": "text/javascript",
"exec": [
"tests[\"Status code \" + responseCode.code] = responseCode.code === 200 || responseCode.code === 201;",
"var data = JSON.parse(responseBody);",
"if(data.results && data.results[0] && data.results[0].id && data.results[0].version){",
" pm.environment.set(\"cart-id\", data.results[0].id); ",
" pm.environment.set(\"cart-version\", data.results[0].version);",
"}",
"if(data.results && data.results[0] && data.results[0].key){",
" pm.environment.set(\"cart-key\", data.results[0].key); ",
"}",
"if(data.version){",
" pm.environment.set(\"cart-version\", data.version);",
"}",
"if(data.id){",
" pm.environment.set(\"cart-id\", data.id); ",
"}",
"if(data.key){",
" pm.environment.set(\"cart-key\", data.key);",
"}",
""
]
}
}
],
"request": {
"auth": {
"type": "oauth2",
"oauth2": {
"accessToken": "{{ctp_access_token}}",
"addTokenTo": "header",
"tokenType": "Bearer"
}
},
"method": "post",
"body": {
"mode": "raw",
"raw": "{\n \"version\": {{cart-version}},\n \"actions\": [\n {\n \"action\" : \"setShippingAddress\",\n \"address\" : {\n \"id\" : \"exampleAddress\",\n \"key\" : \"exampleKey\",\n \"title\" : \"My Address\",\n \"salutation\" : \"Mr.\",\n \"firstName\" : \"Example\",\n \"lastName\" : \"Person\",\n \"streetName\" : \"Examplary Street\",\n \"streetNumber\" : \"4711\",\n \"additionalStreetInfo\" : \"Backhouse\",\n \"postalCode\" : \"80933\",\n \"city\" : \"Exemplary City\",\n \"region\" : \"Exemplary Region\",\n \"state\" : \"Exemplary State\",\n \"country\" : \"DE\",\n \"company\" : \"My Company Name\",\n \"department\" : \"Sales\",\n \"building\" : \"Hightower 1\",\n \"apartment\" : \"247\",\n \"pOBox\" : \"2471\",\n \"phone\" : \"+49 89 12345678\",\n \"mobile\" : \"+49 171 2345678\",\n \"email\" : \"mail@mail.com\",\n \"fax\" : \"+49 89 12345679\",\n \"additionalAddressInfo\" : \"no additional Info\",\n \"externalId\" : \"Information not needed\"\n }\n }\n ]\n}"
},
"header": [
{
"key": "Content-Type",
"value": "application/json"
}
],
"url": {
"raw": "{{host}}/{{project-key}}/carts/{{cart-id}}",
"host": [
"{{host}}"
],
"path": [
"{{project-key}}",
"carts",
"{{cart-id}}"
],
"query": [
{
"key": "expand",
"value": "",
"equals": true,
"disabled": true
}
]
},
"description": "post Carts"
},
"response": [
]
}
