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 Chilkat.Http
Dim success As Boolean
' 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>
' <name>Coupa Supplier 1</name>
' <display-name>Coupa Supplier 1</display-name>
' <number>supplier1#</number>
' <status>active</status>
' <po-method>email</po-method>
' <po-change-method>email</po-change-method>
' <default-locale>en</default-locale>
' <payment-method>invoice</payment-method>
' <po-email>coupasupplier@coupa.com</po-email>
' <invoice-matching-level>3-way</invoice-matching-level>
' <primary-contact>
' <email>coupasupplierprimarycontact@gmail.com</email>
' <name-given>Coupa Supplier Name</name-given>
' <name-family>Coupa Supplier Family Name</name-family>
' </primary-contact>
' <primary-address>
' <name>Coupa Supplier Name</name>
' <street1>Test Street</street1>
' <city>Test City</city>
' <state>NC</state>
' <postal-code>27560</postal-code>
' <country>
' <code>US</code>
' </country>
' </primary-address>
' <enterprise>
' <code>GLOBAL</code>
' </enterprise>
' <payment-term>
' <code>2/20 Net 30</code>
' </payment-term>
' <content-groups type="array">
' <content-group>
' <name>IT</name>
' </content-group>
' </content-groups>
' <supplier-addresses type="array">
' <supplier-address>
' <name>Coupa Supplier Address 1</name>
' <street1>Test Street</street1>
' <city>Test City</city>
' <state>NC</state>
' <postal-code>27560</postal-code>
' <country>
' <code>US</code>
' </country>
' </supplier-address>
' <supplier-address>
' <name>Coupa Supplier Address 2</name>
' <street1>Test Street</street1>
' <city>Test City</city>
' <state>NC</state>
' <postal-code>27560</postal-code>
' <country>
' <code>US</code>
' </country>
' <purposes type="array">
' <purpose>
' <name>other_address</name>
' </purpose>
' </purposes>
' </supplier-address>
' </supplier-addresses>
' <contacts type="array">
' <contact>
' <email>coupasupplierprimarycontact@gmail.com</email>
' <name-given>Coupa Supplier Name</name-given>
' <name-family>Coupa Supplier Family Name</name-family>
' </contact>
' </contacts>
' <diversities>
' <diversity>
' <diversity-category>
' <code>WBE</code>
' <category>Woman Owned Business Enterprise</category>
' </diversity-category>
' <country>
' <code>US</code>
' </country>
' </diversity>
' </diversities>
' </supplier>
'
Dim xml As New Chilkat.Xml
xml.Tag = "supplier"
xml.UpdateChildContent("name","Coupa Supplier 1")
xml.UpdateChildContent("display-name","Coupa Supplier 1")
xml.UpdateChildContent("number","supplier1#")
xml.UpdateChildContent("status","active")
xml.UpdateChildContent("po-method","email")
xml.UpdateChildContent("po-change-method","email")
xml.UpdateChildContent("default-locale","en")
xml.UpdateChildContent("payment-method","invoice")
xml.UpdateChildContent("po-email","coupasupplier@coupa.com")
xml.UpdateChildContent("invoice-matching-level","3-way")
xml.UpdateChildContent("primary-contact|email","coupasupplierprimarycontact@gmail.com")
xml.UpdateChildContent("primary-contact|name-given","Coupa Supplier Name")
xml.UpdateChildContent("primary-contact|name-family","Coupa Supplier Family Name")
xml.UpdateChildContent("primary-address|name","Coupa Supplier Name")
xml.UpdateChildContent("primary-address|street1","Test Street")
xml.UpdateChildContent("primary-address|city","Test City")
xml.UpdateChildContent("primary-address|state","NC")
xml.UpdateChildContentInt("primary-address|postal-code",27560)
xml.UpdateChildContent("primary-address|country|code","US")
xml.UpdateChildContent("enterprise|code","GLOBAL")
xml.UpdateChildContent("payment-term|code","2/20 Net 30")
xml.UpdateAttrAt("content-groups",True,"type","array")
xml.UpdateChildContent("content-groups|content-group|name","IT")
xml.UpdateAttrAt("supplier-addresses",True,"type","array")
xml.UpdateChildContent("supplier-addresses|supplier-address|name","Coupa Supplier Address 1")
xml.UpdateChildContent("supplier-addresses|supplier-address|street1","Test Street")
xml.UpdateChildContent("supplier-addresses|supplier-address|city","Test City")
xml.UpdateChildContent("supplier-addresses|supplier-address|state","NC")
xml.UpdateChildContentInt("supplier-addresses|supplier-address|postal-code",27560)
xml.UpdateChildContent("supplier-addresses|supplier-address|country|code","US")
xml.UpdateChildContent("supplier-addresses|supplier-address[1]|name","Coupa Supplier Address 2")
xml.UpdateChildContent("supplier-addresses|supplier-address[1]|street1","Test Street")
xml.UpdateChildContent("supplier-addresses|supplier-address[1]|city","Test City")
xml.UpdateChildContent("supplier-addresses|supplier-address[1]|state","NC")
xml.UpdateChildContentInt("supplier-addresses|supplier-address[1]|postal-code",27560)
xml.UpdateChildContent("supplier-addresses|supplier-address[1]|country|code","US")
xml.UpdateAttrAt("supplier-addresses|supplier-address[1]|purposes",True,"type","array")
xml.UpdateChildContent("supplier-addresses|supplier-address[1]|purposes|purpose|name","other_address")
xml.UpdateAttrAt("contacts",True,"type","array")
xml.UpdateChildContent("contacts|contact|email","coupasupplierprimarycontact@gmail.com")
xml.UpdateChildContent("contacts|contact|name-given","Coupa Supplier Name")
xml.UpdateChildContent("contacts|contact|name-family","Coupa Supplier Family Name")
xml.UpdateChildContent("diversities|diversity|diversity-category|code","WBE")
xml.UpdateChildContent("diversities|diversity|diversity-category|category","Woman Owned Business Enterprise")
xml.UpdateChildContent("diversities|diversity|country|code","US")
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim sbRequestBody As New Chilkat.StringBuilder
xml.GetXmlSb(sbRequestBody)
Dim resp As Chilkat.HttpResponse = http.PTextSb("POST","https://domain.com/suppliers?fields=[""id""]",sbRequestBody,"utf-8","application/xml",False,False)
If (http.LastMethodSuccess = False) Then
Debug.WriteLine(http.LastErrorText)
Exit Sub
End If
Debug.WriteLine(resp.StatusCode)
Debug.WriteLine(resp.BodyStr)
Curl Command
curl -X POST
-H "Authorization: Bearer <access_token>"
-d '<supplier>
<name>Coupa Supplier 1</name>
<display-name>Coupa Supplier 1</display-name>
<number>supplier1#</number>
<status>active</status>
<po-method>email</po-method>
<po-change-method>email</po-change-method>
<default-locale>en</default-locale>
<payment-method>invoice</payment-method>
<po-email>coupasupplier@coupa.com</po-email>
<invoice-matching-level>3-way</invoice-matching-level>
<primary-contact>
<email>coupasupplierprimarycontact@gmail.com</email>
<name-given>Coupa Supplier Name</name-given>
<name-family>Coupa Supplier Family Name</name-family>
</primary-contact>
<primary-address>
<name>Coupa Supplier Name</name>
<street1>Test Street</street1>
<city>Test City</city>
<state>NC</state>
<postal-code>27560</postal-code>
<country>
<code>US</code>
</country>
</primary-address>
<enterprise>
<code>GLOBAL</code>
</enterprise>
<payment-term>
<code>2/20 Net 30</code>
</payment-term>
<content-groups type="array">
<content-group>
<name>IT</name>
</content-group>
</content-groups>
<supplier-addresses type="array">
<supplier-address>
<name>Coupa Supplier Address 1</name>
<street1>Test Street</street1>
<city>Test City</city>
<state>NC</state>
<postal-code>27560</postal-code>
<country>
<code>US</code>
</country>
</supplier-address>
<supplier-address>
<name>Coupa Supplier Address 2</name>
<street1>Test Street</street1>
<city>Test City</city>
<state>NC</state>
<postal-code>27560</postal-code>
<country>
<code>US</code>
</country>
<purposes type="array">
<purpose>
<name>other_address</name>
</purpose>
</purposes>
</supplier-address>
</supplier-addresses>
<contacts type="array">
<contact>
<email>coupasupplierprimarycontact@gmail.com</email>
<name-given>Coupa Supplier Name</name-given>
<name-family>Coupa Supplier Family Name</name-family>
</contact>
</contacts>
<diversities>
<diversity>
<diversity-category>
<code>WBE</code>
<category>Woman Owned Business Enterprise</category>
</diversity-category>
<country>
<code>US</code>
</country>
</diversity>
</diversities>
</supplier>'
https://domain.com/suppliers?fields=["id"]
Postman Collection Item JSON
{
"name": "Create a supplier",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "<supplier>\n <name>Coupa Supplier 1</name>\n <display-name>Coupa Supplier 1</display-name>\n <number>supplier1#</number>\n <status>active</status>\n <po-method>email</po-method>\n <po-change-method>email</po-change-method>\n <default-locale>en</default-locale>\n <payment-method>invoice</payment-method>\n <po-email>coupasupplier@coupa.com</po-email>\n <invoice-matching-level>3-way</invoice-matching-level>\n <primary-contact>\n <email>coupasupplierprimarycontact@gmail.com</email>\n <name-given>Coupa Supplier Name</name-given>\n <name-family>Coupa Supplier Family Name</name-family>\n </primary-contact>\n <primary-address>\n <name>Coupa Supplier Name</name>\n <street1>Test Street</street1>\n <city>Test City</city>\n <state>NC</state>\n <postal-code>27560</postal-code>\n <country>\n <code>US</code>\n </country>\n </primary-address>\n <enterprise>\n <code>GLOBAL</code>\n </enterprise>\n <payment-term>\n <code>2/20 Net 30</code>\n </payment-term>\n <content-groups type=\"array\">\n <content-group>\n <name>IT</name>\n </content-group>\n </content-groups>\n <supplier-addresses type=\"array\">\n <supplier-address>\n <name>Coupa Supplier Address 1</name>\n <street1>Test Street</street1>\n <city>Test City</city>\n <state>NC</state>\n <postal-code>27560</postal-code>\n <country>\n <code>US</code>\n </country>\n </supplier-address>\n <supplier-address>\n <name>Coupa Supplier Address 2</name>\n <street1>Test Street</street1>\n <city>Test City</city>\n <state>NC</state>\n <postal-code>27560</postal-code>\n <country>\n <code>US</code>\n </country>\n <purposes type=\"array\">\n <purpose>\n <name>other_address</name>\n </purpose>\n </purposes>\n </supplier-address>\n </supplier-addresses>\n <contacts type=\"array\">\n <contact>\n <email>coupasupplierprimarycontact@gmail.com</email>\n <name-given>Coupa Supplier Name</name-given>\n <name-family>Coupa Supplier Family Name</name-family>\n </contact>\n </contacts>\n <diversities>\n <diversity>\n <diversity-category>\n <code>WBE</code>\n <category>Woman Owned Business Enterprise</category>\n </diversity-category>\n <country>\n <code>US</code>\n </country>\n </diversity>\n </diversities>\n</supplier>",
"options": {
"raw": {
"language": "xml"
}
}
},
"url": {
"raw": "{{URL}}/suppliers?fields=[\"id\"]",
"host": [
"{{URL}}"
],
"path": [
"suppliers"
],
"query": [
{
"key": "fields",
"value": "[\"id\"]"
}
]
}
},
"response": [
]
}
