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"?>
' <budget-line>
' <notes>Indirect procurement budget for Q3-2020</notes>
' <description>Initial budget</description>
' <amount type="decimal">75000.00</amount>
' <segment-1>01</segment-1>
' <segment-2>300</segment-2>
' <segment-3>3400</segment-3>
' <segment-4>615000</segment-4>
' <owner-is-approver>2</owner-is-approver>
' <overrun-calculation>1</overrun-calculation>
' <period>
' <name>2020 Q3 - C100</name>
' </period>
' <owner>
' <login>sofia.aa</login>
' </owner>
' <currency>
' <code>USD</code>
' </currency>
' </budget-line>
'
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")
xml.Tag = "budget-line"
xml.UpdateChildContent "notes","Indirect procurement budget for Q3-2020"
xml.UpdateChildContent "description","Initial budget"
success = xml.UpdateAttrAt("amount",1,"type","decimal")
xml.UpdateChildContent "amount","75000.00"
xml.UpdateChildContentInt "segment-1",01
xml.UpdateChildContentInt "segment-2",300
xml.UpdateChildContentInt "segment-3",3400
xml.UpdateChildContentInt "segment-4",615000
xml.UpdateChildContentInt "owner-is-approver",2
xml.UpdateChildContentInt "overrun-calculation",1
xml.UpdateChildContent "period|name","2020 Q3 - C100"
xml.UpdateChildContent "owner|login","sofia.aa"
xml.UpdateChildContent "currency|code","USD"
' 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/budget_lines",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 '<budget-line>
<notes>Indirect procurement budget for Q3-2020</notes>
<description>Initial budget</description>
<amount type="decimal">75000.00</amount>
<segment-1>01</segment-1>
<segment-2>300</segment-2>
<segment-3>3400</segment-3>
<segment-4>615000</segment-4>
<owner-is-approver>2</owner-is-approver>
<overrun-calculation>1</overrun-calculation>
<period>
<name>2020 Q3 - C100</name>
</period>
<owner>
<login>sofia.aa</login>
</owner>
<currency>
<code>USD</code>
</currency>
</budget-line>'
https://domain.com/budget_lines
Postman Collection Item JSON
{
"name": "Create budget line",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "<budget-line>\n <notes>Indirect procurement budget for Q3-2020</notes>\n <description>Initial budget</description>\n <amount type=\"decimal\">75000.00</amount>\n <segment-1>01</segment-1>\n <segment-2>300</segment-2>\n <segment-3>3400</segment-3>\n <segment-4>615000</segment-4>\n <owner-is-approver>2</owner-is-approver>\n <overrun-calculation>1</overrun-calculation>\n <period>\n <name>2020 Q3 - C100</name>\n </period>\n <owner>\n <login>sofia.aa</login>\n </owner>\n <currency>\n <code>USD</code>\n </currency>\n</budget-line>"
},
"url": {
"raw": "{{URL}}/budget_lines",
"host": [
"{{URL}}"
],
"path": [
"budget_lines"
]
}
},
"response": [
]
}