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"?>
' <order-header>
' <type>ExternalOrderHeader</type>
' <po-number>PO-957645-18</po-number>
' <version type="integer">1</version>
' <payment-method>invoice</payment-method>
' <ship-to-address>
' <location-code>DUMMYST</location-code>
' </ship-to-address>
' <ship-to-user>
' <login>CoupaRequester</login>
' </ship-to-user>
' <supplier>
' <name>Adam's Apples</name>
' </supplier>
' <payment-term>
' <code>2/10 Net 30</code>
' </payment-term>
' <currency>
' <code>USD</code>
' </currency>
' <order-lines type="array">
' <order-line>
' <description>Supplies</description>
' <line-num>1</line-num>
' <price type="decimal">40.00</price>
' <quantity type="decimal">1.0</quantity>
' <type>OrderQuantityLine</type>
' <account>
' <code>SF-Marketing-Assets</code>
' <account-type>
' <name>Ace Corporate</name>
' </account-type>
' </account>
' <currency>
' <code>USD</code>
' </currency>
' <uom>
' <code>EA</code>
' </uom>
' </order-line>
' <order-line>
' <description>Testing Kit</description>
' <line-num>2</line-num>
' <price type="decimal">100.00</price>
' <quantity type="decimal">1.0</quantity>
' <type>OrderQuantityLine</type>
' <account-allocations type="array">
' <account-allocation>
' <amount type="decimal">10.00</amount>
' <pct type="decimal">10.0</pct>
' <account>
' <code>SF-IT-Assets</code>
' <account-type>
' <name>Ace Corporate</name>
' </account-type>
' </account>
' </account-allocation>
' <account-allocation>
' <amount type="decimal">90.00</amount>
' <pct type="decimal">90.0</pct>
' <account>
' <code>SF-Sales-Assets</code>
' <account-type>
' <name>Ace Corporate</name>
' </account-type>
' </account>
' </account-allocation>
' </account-allocations>
' <currency>
' <code>USD</code>
' </currency>
' <uom>
' <code>EA</code>
' </uom>
' </order-line>
' </order-lines>
' </order-header>
'
set xml = CreateObject("Chilkat_9_5_0.Xml")
xml.Tag = "order-header"
xml.UpdateChildContent "type","ExternalOrderHeader"
xml.UpdateChildContent "po-number","PO-957645-18"
success = xml.UpdateAttrAt("version",1,"type","integer")
xml.UpdateChildContentInt "version",1
xml.UpdateChildContent "payment-method","invoice"
xml.UpdateChildContent "ship-to-address|location-code","DUMMYST"
xml.UpdateChildContent "ship-to-user|login","CoupaRequester"
xml.UpdateChildContent "supplier|name","Adam's Apples"
xml.UpdateChildContent "payment-term|code","2/10 Net 30"
xml.UpdateChildContent "currency|code","USD"
success = xml.UpdateAttrAt("order-lines",1,"type","array")
xml.UpdateChildContent "order-lines|order-line|description","Supplies"
xml.UpdateChildContentInt "order-lines|order-line|line-num",1
success = xml.UpdateAttrAt("order-lines|order-line|price",1,"type","decimal")
xml.UpdateChildContent "order-lines|order-line|price","40.00"
success = xml.UpdateAttrAt("order-lines|order-line|quantity",1,"type","decimal")
xml.UpdateChildContent "order-lines|order-line|quantity","1.0"
xml.UpdateChildContent "order-lines|order-line|type","OrderQuantityLine"
xml.UpdateChildContent "order-lines|order-line|account|code","SF-Marketing-Assets"
xml.UpdateChildContent "order-lines|order-line|account|account-type|name","Ace Corporate"
xml.UpdateChildContent "order-lines|order-line|currency|code","USD"
xml.UpdateChildContent "order-lines|order-line|uom|code","EA"
xml.UpdateChildContent "order-lines|order-line[1]|description","Testing Kit"
xml.UpdateChildContentInt "order-lines|order-line[1]|line-num",2
success = xml.UpdateAttrAt("order-lines|order-line[1]|price",1,"type","decimal")
xml.UpdateChildContent "order-lines|order-line[1]|price","100.00"
success = xml.UpdateAttrAt("order-lines|order-line[1]|quantity",1,"type","decimal")
xml.UpdateChildContent "order-lines|order-line[1]|quantity","1.0"
xml.UpdateChildContent "order-lines|order-line[1]|type","OrderQuantityLine"
success = xml.UpdateAttrAt("order-lines|order-line[1]|account-allocations",1,"type","array")
success = xml.UpdateAttrAt("order-lines|order-line[1]|account-allocations|account-allocation|amount",1,"type","decimal")
xml.UpdateChildContent "order-lines|order-line[1]|account-allocations|account-allocation|amount","10.00"
success = xml.UpdateAttrAt("order-lines|order-line[1]|account-allocations|account-allocation|pct",1,"type","decimal")
xml.UpdateChildContent "order-lines|order-line[1]|account-allocations|account-allocation|pct","10.0"
xml.UpdateChildContent "order-lines|order-line[1]|account-allocations|account-allocation|account|code","SF-IT-Assets"
xml.UpdateChildContent "order-lines|order-line[1]|account-allocations|account-allocation|account|account-type|name","Ace Corporate"
success = xml.UpdateAttrAt("order-lines|order-line[1]|account-allocations|account-allocation[1]|amount",1,"type","decimal")
xml.UpdateChildContent "order-lines|order-line[1]|account-allocations|account-allocation[1]|amount","90.00"
success = xml.UpdateAttrAt("order-lines|order-line[1]|account-allocations|account-allocation[1]|pct",1,"type","decimal")
xml.UpdateChildContent "order-lines|order-line[1]|account-allocations|account-allocation[1]|pct","90.0"
xml.UpdateChildContent "order-lines|order-line[1]|account-allocations|account-allocation[1]|account|code","SF-Sales-Assets"
xml.UpdateChildContent "order-lines|order-line[1]|account-allocations|account-allocation[1]|account|account-type|name","Ace Corporate"
xml.UpdateChildContent "order-lines|order-line[1]|currency|code","USD"
xml.UpdateChildContent "order-lines|order-line[1]|uom|code","EA"
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "Accept","application/json"
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/purchase_orders/?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>"
-H "Accept: application/json"
-d '<?xml version="1.0" encoding="UTF-8"?>
<order-header>
<type>ExternalOrderHeader</type>
<po-number>PO-957645-18</po-number>
<version type="integer">1</version>
<payment-method>invoice</payment-method>
<ship-to-address>
<location-code>DUMMYST</location-code>
</ship-to-address>
<ship-to-user>
<login>CoupaRequester</login>
</ship-to-user>
<supplier>
<name>Adam\'s Apples</name>
</supplier>
<payment-term>
<code>2/10 Net 30</code>
</payment-term>
<currency>
<code>USD</code>
</currency>
<order-lines type="array">
<order-line>
<description>Supplies</description>
<line-num>1</line-num>
<price type="decimal">40.00</price>
<quantity type="decimal">1.0</quantity>
<type>OrderQuantityLine</type>
<account>
<code>SF-Marketing-Assets</code>
<account-type>
<name>Ace Corporate</name>
</account-type>
</account>
<currency>
<code>USD</code>
</currency>
<uom>
<code>EA</code>
</uom>
</order-line>
<order-line>
<description>Testing Kit</description>
<line-num>2</line-num>
<price type="decimal">100.00</price>
<quantity type="decimal">1.0</quantity>
<type>OrderQuantityLine</type>
<account-allocations type="array">
<account-allocation>
<amount type="decimal">10.00</amount>
<pct type="decimal">10.0</pct>
<account>
<code>SF-IT-Assets</code>
<account-type>
<name>Ace Corporate</name>
</account-type>
</account>
</account-allocation>
<account-allocation>
<amount type="decimal">90.00</amount>
<pct type="decimal">90.0</pct>
<account>
<code>SF-Sales-Assets</code>
<account-type>
<name>Ace Corporate</name>
</account-type>
</account>
</account-allocation>
</account-allocations>
<currency>
<code>USD</code>
</currency>
<uom>
<code>EA</code>
</uom>
</order-line>
</order-lines>
</order-header>'
https://domain.com/purchase_orders/?fields=["id"]
Postman Collection Item JSON
{
"name": "Create External PO w/ Allocations",
"request": {
"method": "POST",
"header": [
{
"key": "Accept",
"value": "application/json",
"type": "text"
}
],
"body": {
"mode": "raw",
"raw": "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<order-header>\n <type>ExternalOrderHeader</type>\n <po-number>PO-957645-18</po-number>\n <version type=\"integer\">1</version>\n <payment-method>invoice</payment-method>\n <ship-to-address>\n <location-code>DUMMYST</location-code>\n </ship-to-address>\n <ship-to-user>\n <login>CoupaRequester</login>\n </ship-to-user>\n <supplier>\n <name>Adam's Apples</name>\n </supplier>\n <payment-term>\n <code>2/10 Net 30</code>\n </payment-term>\n <currency>\n <code>USD</code>\n </currency>\n <order-lines type=\"array\">\n <order-line>\n <description>Supplies</description>\n <line-num>1</line-num>\n <price type=\"decimal\">40.00</price>\n <quantity type=\"decimal\">1.0</quantity>\n <type>OrderQuantityLine</type>\n <account>\n <code>SF-Marketing-Assets</code>\n <account-type>\n <name>Ace Corporate</name>\n </account-type>\n </account>\n <currency>\n <code>USD</code>\n </currency>\n <uom>\n <code>EA</code>\n </uom>\n </order-line>\n <order-line>\n <description>Testing Kit</description>\n <line-num>2</line-num>\n <price type=\"decimal\">100.00</price>\n <quantity type=\"decimal\">1.0</quantity>\n <type>OrderQuantityLine</type>\n <account-allocations type=\"array\">\n <account-allocation>\n <amount type=\"decimal\">10.00</amount>\n <pct type=\"decimal\">10.0</pct>\n <account>\n <code>SF-IT-Assets</code>\n <account-type>\n <name>Ace Corporate</name>\n </account-type>\n </account>\n </account-allocation>\n <account-allocation>\n <amount type=\"decimal\">90.00</amount>\n <pct type=\"decimal\">90.0</pct>\n <account>\n <code>SF-Sales-Assets</code>\n <account-type>\n <name>Ace Corporate</name>\n </account-type>\n </account>\n </account-allocation>\n </account-allocations>\n <currency>\n <code>USD</code>\n </currency>\n <uom>\n <code>EA</code>\n </uom>\n </order-line>\n </order-lines>\n</order-header>"
},
"url": {
"raw": "{{URL}}/purchase_orders/?fields=[\"id\"]",
"host": [
"{{URL}}"
],
"path": [
"purchase_orders",
""
],
"query": [
{
"key": "fields",
"value": "[\"id\"]"
}
]
}
},
"response": [
]
}
