Back to Collection Items
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.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"?>
' <requisition-header>
' <justification>Test</justification>
' <ship-to-attention>Coupa Buyer</ship-to-attention>
' <currency>
' <code>USD</code>
' </currency>
' <requested-by>
' <login>CoupaSam</login>
' <email>CoupaSam@coupa.com</email>
' </requested-by>
' <ship-to-address>
' <location-code>DUMMYST</location-code>
' </ship-to-address>
' <requisition-lines type="array">
' <requisition-line>
' <description>Test</description>
' <line-num type="integer">1</line-num>
' <total type="decimal">10.00</total>
' <line-type>RequisitionAmountLine</line-type>
' <unit-price type="decimal">10.00</unit-price>
' <need-by-date type="dateTime">2020-05-15T00:00:00-05:00</need-by-date>
' <account>
' <code>DUM_1_SEG_1_LV_1-DUM_1_SEG_2_LV_1</code>
' <account-type>
' <name>Dummy Chart of Accounts</name>
' <currency>
' <code>USD</code>
' </currency>
' </account-type>
' </account>
' <currency>
' <code>USD</code>
' </currency>
' <supplier>
' <name>CoupaTester</name>
' <number>123456</number>
' </supplier>
' </requisition-line>
' </requisition-lines>
' </requisition-header>
'
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")
xml.Tag = "requisition-header"
xml.UpdateChildContent "justification","Test"
xml.UpdateChildContent "ship-to-attention","Coupa Buyer"
xml.UpdateChildContent "currency|code","USD"
xml.UpdateChildContent "requested-by|login","CoupaSam"
xml.UpdateChildContent "requested-by|email","CoupaSam@coupa.com"
xml.UpdateChildContent "ship-to-address|location-code","DUMMYST"
success = xml.UpdateAttrAt("requisition-lines",1,"type","array")
xml.UpdateChildContent "requisition-lines|requisition-line|description","Test"
success = xml.UpdateAttrAt("requisition-lines|requisition-line|line-num",1,"type","integer")
xml.UpdateChildContentInt "requisition-lines|requisition-line|line-num",1
success = xml.UpdateAttrAt("requisition-lines|requisition-line|total",1,"type","decimal")
xml.UpdateChildContent "requisition-lines|requisition-line|total","10.00"
xml.UpdateChildContent "requisition-lines|requisition-line|line-type","RequisitionAmountLine"
success = xml.UpdateAttrAt("requisition-lines|requisition-line|unit-price",1,"type","decimal")
xml.UpdateChildContent "requisition-lines|requisition-line|unit-price","10.00"
success = xml.UpdateAttrAt("requisition-lines|requisition-line|need-by-date",1,"type","dateTime")
xml.UpdateChildContent "requisition-lines|requisition-line|need-by-date","2020-05-15T00:00:00-05:00"
xml.UpdateChildContent "requisition-lines|requisition-line|account|code","DUM_1_SEG_1_LV_1-DUM_1_SEG_2_LV_1"
xml.UpdateChildContent "requisition-lines|requisition-line|account|account-type|name","Dummy Chart of Accounts"
xml.UpdateChildContent "requisition-lines|requisition-line|account|account-type|currency|code","USD"
xml.UpdateChildContent "requisition-lines|requisition-line|currency|code","USD"
xml.UpdateChildContent "requisition-lines|requisition-line|supplier|name","CoupaTester"
xml.UpdateChildContentInt "requisition-lines|requisition-line|supplier|number",123456
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbRequestBody = CreateObject("Chilkat.StringBuilder")
success = xml.GetXmlSb(sbRequestBody)
' resp is a Chilkat.HttpResponse
Set resp = http.PTextSb("POST","https://domain.com/requisitions/?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 '<?xml version="1.0" encoding="UTF-8"?>
<requisition-header>
<justification>Test</justification>
<ship-to-attention>Coupa Buyer</ship-to-attention>
<currency>
<code>USD</code>
</currency>
<requested-by>
<login>CoupaSam</login>
<email>CoupaSam@coupa.com</email>
</requested-by>
<ship-to-address>
<location-code>DUMMYST</location-code>
</ship-to-address>
<requisition-lines type="array">
<requisition-line>
<description>Test</description>
<line-num type="integer">1</line-num>
<total type="decimal">10.00</total>
<line-type>RequisitionAmountLine</line-type>
<unit-price type="decimal">10.00</unit-price>
<need-by-date type="dateTime">2020-05-15T00:00:00-05:00</need-by-date>
<account>
<code>DUM_1_SEG_1_LV_1-DUM_1_SEG_2_LV_1</code>
<account-type>
<name>Dummy Chart of Accounts</name>
<currency>
<code>USD</code>
</currency>
</account-type>
</account>
<currency>
<code>USD</code>
</currency>
<supplier>
<name>CoupaTester</name>
<number>123456</number>
</supplier>
</requisition-line>
</requisition-lines>
</requisition-header>'
https://domain.com/requisitions/?fields=["id"]
Postman Collection Item JSON
{
"name": "Create a Requisition in Draft Status",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<requisition-header>\n <justification>Test</justification>\n <ship-to-attention>Coupa Buyer</ship-to-attention>\n <currency>\n <code>USD</code>\n </currency>\n <requested-by>\n <login>CoupaSam</login>\n <email>CoupaSam@coupa.com</email>\n </requested-by>\n <ship-to-address>\n <location-code>DUMMYST</location-code>\n </ship-to-address>\n <requisition-lines type=\"array\">\n <requisition-line>\n <description>Test</description>\n <line-num type=\"integer\">1</line-num>\n <total type=\"decimal\">10.00</total>\n <line-type>RequisitionAmountLine</line-type>\n <unit-price type=\"decimal\">10.00</unit-price>\n <need-by-date type=\"dateTime\">2020-05-15T00:00:00-05:00</need-by-date>\n <account>\n <code>DUM_1_SEG_1_LV_1-DUM_1_SEG_2_LV_1</code>\n <account-type>\n <name>Dummy Chart of Accounts</name>\n <currency>\n <code>USD</code>\n </currency>\n </account-type>\n </account>\n <currency>\n <code>USD</code>\n </currency>\n <supplier>\n <name>CoupaTester</name>\n <number>123456</number>\n </supplier>\n </requisition-line>\n </requisition-lines>\n</requisition-header>",
"options": {
"raw": {
"language": "xml"
}
}
},
"url": {
"raw": "{{URL}}/requisitions/?fields=[\"id\"]",
"host": [
"{{URL}}"
],
"path": [
"requisitions",
""
],
"query": [
{
"key": "fields",
"value": "[\"id\"]"
}
]
}
},
"response": [
]
}
