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"?>
' <comment>
' <comments>TEST TEXT</comments>
' </comment>
'
Dim xml As New Chilkat.Xml
xml.Tag = "comment"
xml.UpdateChildContent("comments","TEST TEXT")
' 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/purchase_orders/:id/comments?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 '<comment>
<comments>TEST TEXT</comments>
</comment>'
https://domain.com/purchase_orders/:id/comments?fields=["id"]
Postman Collection Item JSON
{
"name": "Add Comments to PO",
"request": {
"method": "POST",
"header": [
],
"body": {
"mode": "raw",
"raw": "<comment>\n <comments>TEST TEXT</comments>\n</comment>",
"options": {
"raw": {
"language": "xml"
}
}
},
"url": {
"raw": "{{URL}}/purchase_orders/:id/comments?fields=[\"id\"]",
"host": [
"{{URL}}"
],
"path": [
"purchase_orders",
":id",
"comments"
],
"query": [
{
"key": "fields",
"value": "[\"id\"]"
}
],
"variable": [
{
"key": "id",
"value": "3238"
}
]
}
},
"response": [
]
}