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 XML: Generate Code to Create XML
' The following XML is sent in the request body.
' <?xml version="1.0" encoding="utf-8"?>
' <supplier-site>
' <active>true</active>
' <addresses>
' <address>
' <id>5064</id>
' </address>
' </addresses>
' <buyer-hold>false</buyer-hold>
' <code>Supplier code13</code>
' <contacts>
' <contact>
' <id>3803</id>
' </contact>
' </contacts>
' <content-groups/>
' <cxml-domain nil="true"/>
' <cxml-http-username nil="true"/>
' <cxml-identity nil="true"/>
' <cxml-protocol nil="true"/>
' <cxml-secret nil="true"/>
' <cxml-ssl-version nil="true"/>
' <cxml-supplier-domain nil="true"/>
' <cxml-supplier-identity nil="true"/>
' <cxml-url nil="true"/>
' <default-locale>en</default-locale>
' <disable-cert-verify>false</disable-cert-verify>
' <name>Supplier load4 site name13</name>
' <po-change-method>prompt</po-change-method>
' <po-email nil="true"/>
' <po-method>prompt</po-method>
' </supplier-site>
'
Dim xml As New ChilkatXml
xml.Tag = "supplier-site"
xml.UpdateChildContent "active","true"
xml.UpdateChildContentInt "addresses|address|id",5064
xml.UpdateChildContent "buyer-hold","false"
xml.UpdateChildContent "code","Supplier code13"
xml.UpdateChildContentInt "contacts|contact|id",3803
xml.UpdateChildContent "content-groups",""
success = xml.UpdateAttrAt("cxml-domain",1,"nil","true")
success = xml.UpdateAttrAt("cxml-http-username",1,"nil","true")
success = xml.UpdateAttrAt("cxml-identity",1,"nil","true")
success = xml.UpdateAttrAt("cxml-protocol",1,"nil","true")
success = xml.UpdateAttrAt("cxml-secret",1,"nil","true")
success = xml.UpdateAttrAt("cxml-ssl-version",1,"nil","true")
success = xml.UpdateAttrAt("cxml-supplier-domain",1,"nil","true")
success = xml.UpdateAttrAt("cxml-supplier-identity",1,"nil","true")
success = xml.UpdateAttrAt("cxml-url",1,"nil","true")
xml.UpdateChildContent "default-locale","en"
xml.UpdateChildContent "disable-cert-verify","false"
xml.UpdateChildContent "name","Supplier load4 site name13"
xml.UpdateChildContent "po-change-method","prompt"
success = xml.UpdateAttrAt("po-email",1,"nil","true")
xml.UpdateChildContent "po-method","prompt"
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim sbRequestBody As New ChilkatStringBuilder
success = xml.GetXmlSb(sbRequestBody)
Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("POST","[""id"",""supplier_id"",""kind"",""name_given"",""name_family"",""email""]}]",sbRequestBody,"utf-8","application/xml",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>"
-d '<supplier-site>
<active>true</active>
<addresses>
<address>
<id>5064</id>
</address>
</addresses>
<buyer-hold>false</buyer-hold>
<code>Supplier code13</code>
<contacts>
<contact>
<id>3803</id>
</contact>
</contacts>
<content-groups/>
<cxml-domain nil="true"/>
<cxml-http-username nil="true"/>
<cxml-identity nil="true"/>
<cxml-protocol nil="true"/>
<cxml-secret nil="true"/>
<cxml-ssl-version nil="true"/>
<cxml-supplier-domain nil="true"/>
<cxml-supplier-identity nil="true"/>
<cxml-url nil="true"/>
<default-locale>en</default-locale>
<disable-cert-verify>false</disable-cert-verify>
<name>Supplier load4 site name13</name>
<po-change-method>prompt</po-change-method>
<po-email nil="true"/>
<po-method>prompt</po-method>
</supplier-site>'
https://domain.com/suppliers/:id/supplier_sites?fields=["id","name","code","supplier_id",{"addresses": ["id","supplier_id","kind","location_code","address_name","street_address","street_address2","city","postal_code","state",{"country": ["id","code","name"]},{"custom_fields": {}}]},{"contacts": ["id","supplier_id","kind","name_given","name_family","email"]}]
Postman Collection Item JSON
{
"name": "Create Supplier Site",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "<supplier-site>\n <active>true</active>\n <addresses>\n <address>\n <id>5064</id>\n </address>\n </addresses>\n <buyer-hold>false</buyer-hold>\n <code>Supplier code13</code>\n <contacts>\n <contact>\n <id>3803</id>\n </contact>\n </contacts>\n <content-groups/>\n <cxml-domain nil=\"true\"/>\n <cxml-http-username nil=\"true\"/>\n <cxml-identity nil=\"true\"/>\n <cxml-protocol nil=\"true\"/>\n <cxml-secret nil=\"true\"/>\n <cxml-ssl-version nil=\"true\"/>\n <cxml-supplier-domain nil=\"true\"/>\n <cxml-supplier-identity nil=\"true\"/>\n <cxml-url nil=\"true\"/>\n <default-locale>en</default-locale>\n <disable-cert-verify>false</disable-cert-verify>\n <name>Supplier load4 site name13</name>\n <po-change-method>prompt</po-change-method>\n <po-email nil=\"true\"/>\n <po-method>prompt</po-method>\n</supplier-site>",
"options": {
"raw": {
"language": "xml"
}
}
},
"url": {
"raw": "{{URL}}/suppliers/:id/supplier_sites?fields=[\"id\",\"name\",\"code\",\"supplier_id\",{\"addresses\": [\"id\",\"supplier_id\",\"kind\",\"location_code\",\"address_name\",\"street_address\",\"street_address2\",\"city\",\"postal_code\",\"state\",{\"country\": [\"id\",\"code\",\"name\"]},{\"custom_fields\": {}}]},{\"contacts\": [\"id\",\"supplier_id\",\"kind\",\"name_given\",\"name_family\",\"email\"]}]",
"host": [
"{{URL}}"
],
"path": [
"suppliers",
":id",
"supplier_sites"
],
"query": [
{
"key": "fields",
"value": "[\"id\",\"name\",\"code\",\"supplier_id\",{\"addresses\": [\"id\",\"supplier_id\",\"kind\",\"location_code\",\"address_name\",\"street_address\",\"street_address2\",\"city\",\"postal_code\",\"state\",{\"country\": [\"id\",\"code\",\"name\"]},{\"custom_fields\": {}}]},{\"contacts\": [\"id\",\"supplier_id\",\"kind\",\"name_given\",\"name_family\",\"email\"]}]"
}
],
"variable": [
{
"key": "id",
"value": "3505"
}
]
}
},
"response": [
]
}
