Chilkat Online Tools

VB6 / Coupa Postman Collection - OAuth - Master / Update Project

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 ChilkatHttp
Dim success As Long

' 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"?>
' <project>
'     <custom-fields>
'         <checkbox type="boolean">false</checkbox>
'         <cf15-analytics-test nil="true"/>
'         <custom-field-14 nil="true"/>
'         <date nil="true"/>
'         <projected-headcount nil="true"/>
'         <estimated-savings nil="true"/>
'         <evycustom-field-11>TESTING</evycustom-field-11>
'         <n2 nil="true"/>
'         <text-box>learning APIs</text-box>
'         <multi-select nil="true"/>
'         <custom-attachment nil="true"/>
'         <custom-field-8 type="boolean">false</custom-field-8>
'         <cfproattachment nil="true"/>
'         <start-date1 nil="true"/>
'     </custom-fields>
' </project>
' 

Dim xml As New ChilkatXml
xml.Tag = "project"
success = xml.UpdateAttrAt("custom-fields|checkbox",1,"type","boolean")
xml.UpdateChildContent "custom-fields|checkbox","false"
success = xml.UpdateAttrAt("custom-fields|cf15-analytics-test",1,"nil","true")
success = xml.UpdateAttrAt("custom-fields|custom-field-14",1,"nil","true")
success = xml.UpdateAttrAt("custom-fields|date",1,"nil","true")
success = xml.UpdateAttrAt("custom-fields|projected-headcount",1,"nil","true")
success = xml.UpdateAttrAt("custom-fields|estimated-savings",1,"nil","true")
xml.UpdateChildContent "custom-fields|evycustom-field-11","TESTING"
success = xml.UpdateAttrAt("custom-fields|n2",1,"nil","true")
xml.UpdateChildContent "custom-fields|text-box","learning APIs"
success = xml.UpdateAttrAt("custom-fields|multi-select",1,"nil","true")
success = xml.UpdateAttrAt("custom-fields|custom-attachment",1,"nil","true")
success = xml.UpdateAttrAt("custom-fields|custom-field-8",1,"type","boolean")
xml.UpdateChildContent "custom-fields|custom-field-8","false"
success = xml.UpdateAttrAt("custom-fields|cfproattachment",1,"nil","true")
success = xml.UpdateAttrAt("custom-fields|start-date1",1,"nil","true")

' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"

Dim sbRequestBody As New ChilkatStringBuilder
success = xml.GetXmlSb(sbRequestBody)

Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("PUT","{}}]",sbRequestBody,"utf-8","application/xml",0,0)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print resp.StatusCode
Debug.Print resp.BodyStr

Curl Command

curl -X PUT
	-H "Authorization: Bearer <access_token>"
	-d '<project>
    <custom-fields>
        <checkbox type="boolean">false</checkbox>
        <cf15-analytics-test nil="true"/>
        <custom-field-14 nil="true"/>
        <date nil="true"/>
        <projected-headcount nil="true"/>
        <estimated-savings nil="true"/>
        <evycustom-field-11>TESTING</evycustom-field-11>
        <n2 nil="true"/>
        <text-box>learning APIs</text-box>
        <multi-select nil="true"/>
        <custom-attachment nil="true"/>
        <custom-field-8 type="boolean">false</custom-field-8>
        <cfproattachment nil="true"/>
        <start-date1 nil="true"/>
    </custom-fields>
</project>'
https://domain.com/projects/:id?fields=["id","created_at","updated_at","name","active","open","description","mention-name","start-date","project-id","status",{"template-group": ["id","name"]},{"category": ["id","name","active"]},{"commodities": ["id","name"]},{"created_by": ["id","login","email"]},{"updated_by": ["id","login","email"]},{"custom_fields": {}}]

Postman Collection Item JSON

{
  "name": "Update Project",
  "request": {
    "method": "PUT",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "<project>\n    <custom-fields>\n        <checkbox type=\"boolean\">false</checkbox>\n        <cf15-analytics-test nil=\"true\"/>\n        <custom-field-14 nil=\"true\"/>\n        <date nil=\"true\"/>\n        <projected-headcount nil=\"true\"/>\n        <estimated-savings nil=\"true\"/>\n        <evycustom-field-11>TESTING</evycustom-field-11>\n        <n2 nil=\"true\"/>\n        <text-box>learning APIs</text-box>\n        <multi-select nil=\"true\"/>\n        <custom-attachment nil=\"true\"/>\n        <custom-field-8 type=\"boolean\">false</custom-field-8>\n        <cfproattachment nil=\"true\"/>\n        <start-date1 nil=\"true\"/>\n    </custom-fields>\n</project>",
      "options": {
        "raw": {
          "language": "xml"
        }
      }
    },
    "url": {
      "raw": "{{URL}}/projects/:id?fields=[\"id\",\"created_at\",\"updated_at\",\"name\",\"active\",\"open\",\"description\",\"mention-name\",\"start-date\",\"project-id\",\"status\",{\"template-group\": [\"id\",\"name\"]},{\"category\": [\"id\",\"name\",\"active\"]},{\"commodities\": [\"id\",\"name\"]},{\"created_by\": [\"id\",\"login\",\"email\"]},{\"updated_by\": [\"id\",\"login\",\"email\"]},{\"custom_fields\": {}}]",
      "host": [
        "{{URL}}"
      ],
      "path": [
        "projects",
        ":id"
      ],
      "query": [
        {
          "key": "fields",
          "value": "[\"id\",\"created_at\",\"updated_at\",\"name\",\"active\",\"open\",\"description\",\"mention-name\",\"start-date\",\"project-id\",\"status\",{\"template-group\": [\"id\",\"name\"]},{\"category\": [\"id\",\"name\",\"active\"]},{\"commodities\": [\"id\",\"name\"]},{\"created_by\": [\"id\",\"login\",\"email\"]},{\"updated_by\": [\"id\",\"login\",\"email\"]},{\"custom_fields\": {}}]"
        }
      ],
      "variable": [
        {
          "key": "id",
          "value": "299"
        }
      ]
    }
  },
  "response": [
  ]
}