Chilkat Online Tools

VB6 / Coupa Postman Collection - OAuth - Master / Create A User

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"?>
' <user>
'     <login>coupasam1</login>
'     <email>coupasam1@coupa.com</email>
'     <firstname>Coupa</firstname>
'     <lastname>Sam 1</lastname>
'     <fullname>Coupa Sam 1</fullname>
'     <purchasing-user>true</purchasing-user>
'     <expense-user>false</expense-user>
'     <sourcing-user>false</sourcing-user>
'     <inventory-user>false</inventory-user>
'     <contracts-user>false</contracts-user>
'     <analytics-user>false</analytics-user>
'     <aic-user>false</aic-user>
'     <spend-guard-user>false</spend-guard-user>
'     <ccw-user>false</ccw-user>
'     <clm-advanced-user>false</clm-advanced-user>
'     <supply-chain-user>false</supply-chain-user>
'     <risk-assess-user>false</risk-assess-user>
'     <employee-number>123456789</employee-number>
'     <active>true</active>
'     <account-security-type>0</account-security-type>
'     <authentication-method>saml</authentication-method>
'     <sso-identifier>coupasam1@coupa.com</sso-identifier>
'     <default-locale nil="true"/>
'     <business-group-security-type>1</business-group-security-type>
'     <edit-invoice-on-quick-entry>false</edit-invoice-on-quick-entry>
'     <avatar-thumb-url nil="true"/>
'     <mention-name>coupasam1</mention-name>
'     <seniority-level nil="true"/>
'     <business-function nil="true"/>
'     <employee-payment-channel>ERP</employee-payment-channel>
'     <allow-employee-payment-account-creation>false</allow-employee-payment-account-creation>
'     <rank/>
'     <default-cost-center/>
'     <phone-work>
'         <country-code>1</country-code>
'         <area-code>650</area-code>
'         <number>5856306</number>
'         <extension nil="true"/>
'     </phone-work>
'     <roles>
'         <role>
'             <name>User</name>
'         </role>
'         <role>
'             <name>Central Receiving</name>
'         </role>
'         <role>
'             <name>Edit Requisition as Approver</name>
'         </role>
'         <role>
'             <name>Dashboard</name>
'         </role>
'         <role>
'             <name>Split Accounting</name>
'         </role>
'     </roles>
'     <manager>
'         <login>mjordan</login>
'     </manager>
'     <default-account>
'         <code>SF-Finance-Indirect</code>
'         <segment-1>SF</segment-1>
'         <segment-2>Finance</segment-2>
'         <segment-3>Indirect</segment-3>
'         <account-type>
'             <name>ERP 1</name>
'             <currency>
'                 <code>USD</code>
'             </currency>
'         </account-type>
'     </default-account>
'     <default-account-type>
'         <name>ERP 1</name>
'         <currency>
'             <code>USD</code>
'         </currency>
'     </default-account-type>
'     <default-currency>
'         <code>USD</code>
'     </default-currency>
'     <department>
'         <name>Marketing</name>
'     </department>
'     <requisition-approval-limit>
'         <amount>10000.00</amount>
'         <currency>
'             <code>USD</code>
'         </currency>
'     </requisition-approval-limit>
'     <invoice-approval-limit>
'         <amount>15000.00</amount>
'         <currency>
'             <code>USD</code>
'         </currency>
'     </invoice-approval-limit>
'     <requisition-self-approval-limit>
'         <amount>500.00</amount>
'         <currency>
'             <code>USD</code>
'         </currency>
'     </requisition-self-approval-limit>
'     <expenses-delegated-to/>
'     <can-expense-for/>
'     <content-groups/>
'     <account-groups/>
'     <approval-groups/>
'     <user-groups/>
'     <working-warehouses/>
'     <inventory-organizations/>
' </user>
' 

Dim xml As New ChilkatXml
xml.Tag = "user"
xml.UpdateChildContent "login","coupasam1"
xml.UpdateChildContent "email","coupasam1@coupa.com"
xml.UpdateChildContent "firstname","Coupa"
xml.UpdateChildContent "lastname","Sam 1"
xml.UpdateChildContent "fullname","Coupa Sam 1"
xml.UpdateChildContent "purchasing-user","true"
xml.UpdateChildContent "expense-user","false"
xml.UpdateChildContent "sourcing-user","false"
xml.UpdateChildContent "inventory-user","false"
xml.UpdateChildContent "contracts-user","false"
xml.UpdateChildContent "analytics-user","false"
xml.UpdateChildContent "aic-user","false"
xml.UpdateChildContent "spend-guard-user","false"
xml.UpdateChildContent "ccw-user","false"
xml.UpdateChildContent "clm-advanced-user","false"
xml.UpdateChildContent "supply-chain-user","false"
xml.UpdateChildContent "risk-assess-user","false"
xml.UpdateChildContentInt "employee-number",123456789
xml.UpdateChildContent "active","true"
xml.UpdateChildContentInt "account-security-type",0
xml.UpdateChildContent "authentication-method","saml"
xml.UpdateChildContent "sso-identifier","coupasam1@coupa.com"
success = xml.UpdateAttrAt("default-locale",1,"nil","true")
xml.UpdateChildContentInt "business-group-security-type",1
xml.UpdateChildContent "edit-invoice-on-quick-entry","false"
success = xml.UpdateAttrAt("avatar-thumb-url",1,"nil","true")
xml.UpdateChildContent "mention-name","coupasam1"
success = xml.UpdateAttrAt("seniority-level",1,"nil","true")
success = xml.UpdateAttrAt("business-function",1,"nil","true")
xml.UpdateChildContent "employee-payment-channel","ERP"
xml.UpdateChildContent "allow-employee-payment-account-creation","false"
xml.UpdateChildContent "rank",""
xml.UpdateChildContent "default-cost-center",""
xml.UpdateChildContentInt "phone-work|country-code",1
xml.UpdateChildContentInt "phone-work|area-code",650
xml.UpdateChildContentInt "phone-work|number",5856306
success = xml.UpdateAttrAt("phone-work|extension",1,"nil","true")
xml.UpdateChildContent "roles|role|name","User"
xml.UpdateChildContent "roles|role[1]|name","Central Receiving"
xml.UpdateChildContent "roles|role[2]|name","Edit Requisition as Approver"
xml.UpdateChildContent "roles|role[3]|name","Dashboard"
xml.UpdateChildContent "roles|role[4]|name","Split Accounting"
xml.UpdateChildContent "manager|login","mjordan"
xml.UpdateChildContent "default-account|code","SF-Finance-Indirect"
xml.UpdateChildContent "default-account|segment-1","SF"
xml.UpdateChildContent "default-account|segment-2","Finance"
xml.UpdateChildContent "default-account|segment-3","Indirect"
xml.UpdateChildContent "default-account|account-type|name","ERP 1"
xml.UpdateChildContent "default-account|account-type|currency|code","USD"
xml.UpdateChildContent "default-account-type|name","ERP 1"
xml.UpdateChildContent "default-account-type|currency|code","USD"
xml.UpdateChildContent "default-currency|code","USD"
xml.UpdateChildContent "department|name","Marketing"
xml.UpdateChildContent "requisition-approval-limit|amount","10000.00"
xml.UpdateChildContent "requisition-approval-limit|currency|code","USD"
xml.UpdateChildContent "invoice-approval-limit|amount","15000.00"
xml.UpdateChildContent "invoice-approval-limit|currency|code","USD"
xml.UpdateChildContent "requisition-self-approval-limit|amount","500.00"
xml.UpdateChildContent "requisition-self-approval-limit|currency|code","USD"
xml.UpdateChildContent "expenses-delegated-to",""
xml.UpdateChildContent "can-expense-for",""
xml.UpdateChildContent "content-groups",""
xml.UpdateChildContent "account-groups",""
xml.UpdateChildContent "approval-groups",""
xml.UpdateChildContent "user-groups",""
xml.UpdateChildContent "working-warehouses",""
xml.UpdateChildContent "inventory-organizations",""

' 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","https://domain.com/users?fields=[""id""]",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 '<?xml version="1.0" encoding="UTF-8"?>
<user>
    <login>coupasam1</login>
    <email>coupasam1@coupa.com</email>
    <firstname>Coupa</firstname>
    <lastname>Sam 1</lastname>
    <fullname>Coupa Sam 1</fullname>
    <purchasing-user>true</purchasing-user>
    <expense-user>false</expense-user>
    <sourcing-user>false</sourcing-user>
    <inventory-user>false</inventory-user>
    <contracts-user>false</contracts-user>
    <analytics-user>false</analytics-user>
    <aic-user>false</aic-user>
    <spend-guard-user>false</spend-guard-user>
    <ccw-user>false</ccw-user>
    <clm-advanced-user>false</clm-advanced-user>
    <supply-chain-user>false</supply-chain-user>
    <risk-assess-user>false</risk-assess-user>
    <employee-number>123456789</employee-number>
    <active>true</active>
    <account-security-type>0</account-security-type>
    <authentication-method>saml</authentication-method>
    <sso-identifier>coupasam1@coupa.com</sso-identifier>
    <default-locale nil="true"/>
    <business-group-security-type>1</business-group-security-type>
    <edit-invoice-on-quick-entry>false</edit-invoice-on-quick-entry>
    <avatar-thumb-url nil="true"/>
    <mention-name>coupasam1</mention-name>
    <seniority-level nil="true"/>
    <business-function nil="true"/>
    <employee-payment-channel>ERP</employee-payment-channel>
    <allow-employee-payment-account-creation>false</allow-employee-payment-account-creation>
    <rank></rank>
    <default-cost-center></default-cost-center>
    <phone-work>
        <country-code>1</country-code>
        <area-code>650</area-code>
        <number>5856306</number>
        <extension nil="true"/>
    </phone-work>
    <roles>
        <role>
            <name>User</name>
        </role>
        <role>
            <name>Central Receiving</name>
        </role>
        <role>
            <name>Edit Requisition as Approver</name>
        </role>
        <role>
            <name>Dashboard</name>
        </role>
        <role>
            <name>Split Accounting</name>
        </role>
    </roles>
    <manager>
        <login>mjordan</login>
    </manager>
    <default-account>
        <code>SF-Finance-Indirect</code>
        <segment-1>SF</segment-1>
        <segment-2>Finance</segment-2>
        <segment-3>Indirect</segment-3>
        <account-type>
            <name>ERP 1</name>
            <currency>
                <code>USD</code>
            </currency>
        </account-type>
    </default-account>
    <default-account-type>
        <name>ERP 1</name>
        <currency>
            <code>USD</code>
        </currency>
    </default-account-type>
    <default-currency>
        <code>USD</code>
    </default-currency>
    <department>
        <name>Marketing</name>
    </department>
    <requisition-approval-limit>
        <amount>10000.00</amount>
        <currency>
            <code>USD</code>
        </currency>
    </requisition-approval-limit>
    <invoice-approval-limit>
        <amount>15000.00</amount>
        <currency>
            <code>USD</code>
        </currency>
    </invoice-approval-limit>
    <requisition-self-approval-limit>
        <amount>500.00</amount>
        <currency>
            <code>USD</code>
        </currency>
    </requisition-self-approval-limit>
    <expenses-delegated-to/>
    <can-expense-for/>
    <content-groups/>
    <account-groups/>
    <approval-groups/>
    <user-groups/>
    <working-warehouses/>
    <inventory-organizations/>
</user>'
https://domain.com/users?fields=["id"]

Postman Collection Item JSON

{
  "name": "Create A User",
  "request": {
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<user>\n    <login>coupasam1</login>\n    <email>coupasam1@coupa.com</email>\n    <firstname>Coupa</firstname>\n    <lastname>Sam 1</lastname>\n    <fullname>Coupa Sam 1</fullname>\n    <purchasing-user>true</purchasing-user>\n    <expense-user>false</expense-user>\n    <sourcing-user>false</sourcing-user>\n    <inventory-user>false</inventory-user>\n    <contracts-user>false</contracts-user>\n    <analytics-user>false</analytics-user>\n    <aic-user>false</aic-user>\n    <spend-guard-user>false</spend-guard-user>\n    <ccw-user>false</ccw-user>\n    <clm-advanced-user>false</clm-advanced-user>\n    <supply-chain-user>false</supply-chain-user>\n    <risk-assess-user>false</risk-assess-user>\n    <employee-number>123456789</employee-number>\n    <active>true</active>\n    <account-security-type>0</account-security-type>\n    <authentication-method>saml</authentication-method>\n    <sso-identifier>coupasam1@coupa.com</sso-identifier>\n    <default-locale nil=\"true\"/>\n    <business-group-security-type>1</business-group-security-type>\n    <edit-invoice-on-quick-entry>false</edit-invoice-on-quick-entry>\n    <avatar-thumb-url nil=\"true\"/>\n    <mention-name>coupasam1</mention-name>\n    <seniority-level nil=\"true\"/>\n    <business-function nil=\"true\"/>\n    <employee-payment-channel>ERP</employee-payment-channel>\n    <allow-employee-payment-account-creation>false</allow-employee-payment-account-creation>\n    <rank></rank>\n    <default-cost-center></default-cost-center>\n    <phone-work>\n        <country-code>1</country-code>\n        <area-code>650</area-code>\n        <number>5856306</number>\n        <extension nil=\"true\"/>\n    </phone-work>\n    <roles>\n        <role>\n            <name>User</name>\n        </role>\n        <role>\n            <name>Central Receiving</name>\n        </role>\n        <role>\n            <name>Edit Requisition as Approver</name>\n        </role>\n        <role>\n            <name>Dashboard</name>\n        </role>\n        <role>\n            <name>Split Accounting</name>\n        </role>\n    </roles>\n    <manager>\n        <login>mjordan</login>\n    </manager>\n    <default-account>\n        <code>SF-Finance-Indirect</code>\n        <segment-1>SF</segment-1>\n        <segment-2>Finance</segment-2>\n        <segment-3>Indirect</segment-3>\n        <account-type>\n            <name>ERP 1</name>\n            <currency>\n                <code>USD</code>\n            </currency>\n        </account-type>\n    </default-account>\n    <default-account-type>\n        <name>ERP 1</name>\n        <currency>\n            <code>USD</code>\n        </currency>\n    </default-account-type>\n    <default-currency>\n        <code>USD</code>\n    </default-currency>\n    <department>\n        <name>Marketing</name>\n    </department>\n    <requisition-approval-limit>\n        <amount>10000.00</amount>\n        <currency>\n            <code>USD</code>\n        </currency>\n    </requisition-approval-limit>\n    <invoice-approval-limit>\n        <amount>15000.00</amount>\n        <currency>\n            <code>USD</code>\n        </currency>\n    </invoice-approval-limit>\n    <requisition-self-approval-limit>\n        <amount>500.00</amount>\n        <currency>\n            <code>USD</code>\n        </currency>\n    </requisition-self-approval-limit>\n    <expenses-delegated-to/>\n    <can-expense-for/>\n    <content-groups/>\n    <account-groups/>\n    <approval-groups/>\n    <user-groups/>\n    <working-warehouses/>\n    <inventory-organizations/>\n</user>",
      "options": {
        "raw": {
          "language": "xml"
        }
      }
    },
    "url": {
      "raw": "{{URL}}/users?fields=[\"id\"]",
      "host": [
        "{{URL}}"
      ],
      "path": [
        "users"
      ],
      "query": [
        {
          "key": "fields",
          "value": "[\"id\"]"
        }
      ]
    }
  },
  "response": [
  ]
}