Chilkat Online Tools

VBScript / Coupa Postman Collection - OAuth - Master / Create a supplier in Draft

Back to Collection Items

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

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

set http = CreateObject("Chilkat_9_5_0.Http")

' 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 Draft</name>
'     <display-name>Coupa Supplier</display-name>
'     <number/>
'     <status>draft</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>
' 

set xml = CreateObject("Chilkat_9_5_0.Xml")
xml.Tag = "supplier"
xml.UpdateChildContent "name","Coupa Supplier Draft"
xml.UpdateChildContent "display-name","Coupa Supplier"
xml.UpdateChildContent "number",""
xml.UpdateChildContent "status","draft"
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"
success = xml.UpdateAttrAt("content-groups",1,"type","array")
xml.UpdateChildContent "content-groups|content-group|name","IT"
success = xml.UpdateAttrAt("supplier-addresses",1,"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"
success = xml.UpdateAttrAt("supplier-addresses|supplier-address[1]|purposes",1,"type","array")
xml.UpdateChildContent "supplier-addresses|supplier-address[1]|purposes|purpose|name","other_address"
success = xml.UpdateAttrAt("contacts",1,"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>"

set sbRequestBody = CreateObject("Chilkat_9_5_0.StringBuilder")
success = xml.GetXmlSb(sbRequestBody)

' resp is a Chilkat_9_5_0.HttpResponse
Set resp = http.PTextSb("POST","https://domain.com/suppliers?fields=[""id""]",sbRequestBody,"utf-8","application/xml",0,0)
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(resp.StatusCode)
outFile.WriteLine(resp.BodyStr)


outFile.Close

Curl Command

curl -X POST
	-H "Authorization: Bearer <access_token>"
	-d '<supplier>
    <name>Coupa Supplier Draft</name>
    <display-name>Coupa Supplier</display-name>
    <number></number>
    <status>draft</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 in Draft",
  "request": {
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "<supplier>\n    <name>Coupa Supplier Draft</name>\n    <display-name>Coupa Supplier</display-name>\n    <number></number>\n    <status>draft</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": [
  ]
}