Chilkat Online Tools

VB6 / Coupa Postman Collection - OAuth - Master / Create New Supplier Item agaisnt an existing item

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"?>
' <supplier-item>
'     <price type="decimal">34.50</price>
'     <supplier-part-num>PARTNUM1821</supplier-part-num>
'     <preferred type="boolean">false</preferred>
'     <currency>
'         <code>USD</code>
'     </currency>
'     <supplier>
'         <number>0001012212</number>
'     </supplier>
'     <contract>
'         <number>10001</number>
'     </contract>
'     <item>
'         <id>3522</id>
'     </item>
' </supplier-item>
' 

Dim xml As New ChilkatXml
xml.Tag = "supplier-item"
success = xml.UpdateAttrAt("price",1,"type","decimal")
xml.UpdateChildContent "price","34.50"
xml.UpdateChildContent "supplier-part-num","PARTNUM1821"
success = xml.UpdateAttrAt("preferred",1,"type","boolean")
xml.UpdateChildContent "preferred","false"
xml.UpdateChildContent "currency|code","USD"
xml.UpdateChildContentInt "supplier|number",0001012212
xml.UpdateChildContentInt "contract|number",10001
xml.UpdateChildContentInt "item|id",3522

' 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 '<supplier-item>
    <price type="decimal">34.50</price>
    <supplier-part-num>PARTNUM1821</supplier-part-num>
    <preferred type="boolean">false</preferred>
    <currency>
        <code>USD</code>
    </currency>
    <supplier>
        <number>0001012212</number>
    </supplier>
    <contract>
        <number>10001</number>
    </contract>
    <item>
    <id>3522</id>
    </item>
</supplier-item>'
https://domain.com/supplier_items?fields=["id","supplier-part-num","supplier-aux-part-num",{"supplier":["id","name","number"]},{"item": ["id","name","item-number","active"]},{"custom_fields": {}}]

Postman Collection Item JSON

{
  "name": "Create New Supplier Item agaisnt an existing item",
  "request": {
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "<supplier-item>\n    <price type=\"decimal\">34.50</price>\n    <supplier-part-num>PARTNUM1821</supplier-part-num>\n    <preferred type=\"boolean\">false</preferred>\n    <currency>\n        <code>USD</code>\n    </currency>\n    <supplier>\n        <number>0001012212</number>\n    </supplier>\n    <contract>\n        <number>10001</number>\n    </contract>\n    <item>\n    <id>3522</id>\n    </item>\n</supplier-item>"
    },
    "url": {
      "raw": "{{URL}}/supplier_items?fields=[\"id\",\"supplier-part-num\",\"supplier-aux-part-num\",{\"supplier\":[\"id\",\"name\",\"number\"]},{\"item\": [\"id\",\"name\",\"item-number\",\"active\"]},{\"custom_fields\": {}}]",
      "host": [
        "{{URL}}"
      ],
      "path": [
        "supplier_items"
      ],
      "query": [
        {
          "key": "fields",
          "value": "[\"id\",\"supplier-part-num\",\"supplier-aux-part-num\",{\"supplier\":[\"id\",\"name\",\"number\"]},{\"item\": [\"id\",\"name\",\"item-number\",\"active\"]},{\"custom_fields\": {}}]"
        }
      ]
    }
  },
  "response": [
  ]
}