Chilkat Online Tools

VB6 / Coupa Postman Collection - OAuth - Master / Create a 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>
'     <name>RR API Creation</name>
'     <active type="boolean">true</active>
'     <open type="boolean">true</open>
'     <description>Random Description comes from intake</description>
'     <start-date type="dateTime">2021-11-22T00:00:00-07:00</start-date>
'     <enabled-tabs type="array">
'         <enabled-tab>contracts</enabled-tab>
'         <enabled-tab>quote_requests</enabled-tab>
'         <enabled-tab>suppliers</enabled-tab>
'     </enabled-tabs>
'     <status>draft</status>
'     <template-group>
'         <id type="integer">1</id>
'         <name>Jason Test - Single Task</name>
'     </template-group>
'     <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/>
'         <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"
xml.UpdateChildContent "name","RR API Creation"
success = xml.UpdateAttrAt("active",1,"type","boolean")
xml.UpdateChildContent "active","true"
success = xml.UpdateAttrAt("open",1,"type","boolean")
xml.UpdateChildContent "open","true"
xml.UpdateChildContent "description","Random Description comes from intake"
success = xml.UpdateAttrAt("start-date",1,"type","dateTime")
xml.UpdateChildContent "start-date","2021-11-22T00:00:00-07:00"
success = xml.UpdateAttrAt("enabled-tabs",1,"type","array")
xml.UpdateChildContent "enabled-tabs|enabled-tab","contracts"
xml.UpdateChildContent "enabled-tabs|enabled-tab[1]","quote_requests"
xml.UpdateChildContent "enabled-tabs|enabled-tab[2]","suppliers"
xml.UpdateChildContent "status","draft"
success = xml.UpdateAttrAt("template-group|id",1,"type","integer")
xml.UpdateChildContentInt "template-group|id",1
xml.UpdateChildContent "template-group|name","Jason Test - Single Task"
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",""
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("POST","{}}]",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 POST
	-H "Authorization: Bearer <access_token>"
	-d '<project>
    <name>RR API Creation</name>
    <active type="boolean">true</active>
    <open type="boolean">true</open>
    <description>Random Description comes from intake</description>
    <start-date type="dateTime">2021-11-22T00:00:00-07:00</start-date>
    <enabled-tabs type="array">
        <enabled-tab>contracts</enabled-tab>
        <enabled-tab>quote_requests</enabled-tab>
        <enabled-tab>suppliers</enabled-tab>
    </enabled-tabs>
    <status>draft</status>
    <template-group>
        <id type="integer">1</id>
        <name>Jason Test - Single Task</name>
    </template-group>
    <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></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?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": "Create a Project",
  "request": {
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "<project>\n    <name>RR API Creation</name>\n    <active type=\"boolean\">true</active>\n    <open type=\"boolean\">true</open>\n    <description>Random Description comes from intake</description>\n    <start-date type=\"dateTime\">2021-11-22T00:00:00-07:00</start-date>\n    <enabled-tabs type=\"array\">\n        <enabled-tab>contracts</enabled-tab>\n        <enabled-tab>quote_requests</enabled-tab>\n        <enabled-tab>suppliers</enabled-tab>\n    </enabled-tabs>\n    <status>draft</status>\n    <template-group>\n        <id type=\"integer\">1</id>\n        <name>Jason Test - Single Task</name>\n    </template-group>\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></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?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"
      ],
      "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\": {}}]"
        }
      ]
    }
  },
  "response": [
  ]
}