Chilkat Online Tools

VB6 / Coupa Postman Collection - OAuth - Master / Create SIM Record against existing Supplier

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-information>
'     <supplier-id>:id</supplier-id>
'     <status>approved</status>
'     <name>SIM Company</name>
'     <exported>true</exported>
'     <supplier-information-addresses>
'         <supplier-information-address>
'             <kind>RTA</kind>
'             <location-code>001</location-code>
'             <street-address>59 Bank Avenue</street-address>
'             <postal-code>15200</postal-code>
'             <city>Pittsburgh</city>
'             <state-region>PA</state-region>
'             <bank-name>Bank Inc.</bank-name>
'             <bank-account-number>9999325</bank-account-number>
'             <currency>
'                 <code>USD</code>
'             </currency>
'         </supplier-information-address>
'         <supplier-information-address>
'             <kind>RTA</kind>
'             <location-code>002</location-code>
'             <street-address>71 Sample Street</street-address>
'             <postal-code>19100</postal-code>
'             <city>Philadelphia</city>
'             <state-region>PA</state-region>
'             <bank-name>Cash Co.</bank-name>
'             <bank-account-number>8888325</bank-account-number>
'             <currency>
'                 <code>USD</code>
'             </currency>
'         </supplier-information-address>
'     </supplier-information-addresses>
' </supplier-information>
' 

Dim xml As New ChilkatXml
xml.Tag = "supplier-information"
xml.UpdateChildContent "supplier-id",":id"
xml.UpdateChildContent "status","approved"
xml.UpdateChildContent "name","SIM Company"
xml.UpdateChildContent "exported","true"
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address|kind","RTA"
xml.UpdateChildContentInt "supplier-information-addresses|supplier-information-address|location-code",001
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address|street-address","59 Bank Avenue"
xml.UpdateChildContentInt "supplier-information-addresses|supplier-information-address|postal-code",15200
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address|city","Pittsburgh"
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address|state-region","PA"
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address|bank-name","Bank Inc."
xml.UpdateChildContentInt "supplier-information-addresses|supplier-information-address|bank-account-number",9999325
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address|currency|code","USD"
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address[1]|kind","RTA"
xml.UpdateChildContentInt "supplier-information-addresses|supplier-information-address[1]|location-code",002
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address[1]|street-address","71 Sample Street"
xml.UpdateChildContentInt "supplier-information-addresses|supplier-information-address[1]|postal-code",19100
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address[1]|city","Philadelphia"
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address[1]|state-region","PA"
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address[1]|bank-name","Cash Co."
xml.UpdateChildContentInt "supplier-information-addresses|supplier-information-address[1]|bank-account-number",8888325
xml.UpdateChildContent "supplier-information-addresses|supplier-information-address[1]|currency|code","USD"

' 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/supplier_information/",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-information>
  <supplier-id>:id</supplier-id>
  <status>approved</status>
  <name>SIM Company</name>
  <exported>true</exported>
  <supplier-information-addresses>
    <supplier-information-address>
        <kind>RTA</kind>
        <location-code>001</location-code>
        <street-address>59 Bank Avenue</street-address>
        <postal-code>15200</postal-code>
        <city>Pittsburgh</city>
        <state-region>PA</state-region>
        <bank-name>Bank Inc.</bank-name>
        <bank-account-number>9999325</bank-account-number>
        <currency>
          <code>USD</code>
        </currency>
    </supplier-information-address>
    <supplier-information-address>
      <kind>RTA</kind>
      <location-code>002</location-code>
      <street-address>71 Sample Street</street-address>
      <postal-code>19100</postal-code>
      <city>Philadelphia</city>
      <state-region>PA</state-region>
      <bank-name>Cash Co.</bank-name>
      <bank-account-number>8888325</bank-account-number>
      <currency>
        <code>USD</code>
      </currency>
    </supplier-information-address>
  </supplier-information-addresses>
</supplier-information>'
https://domain.com/supplier_information/

Postman Collection Item JSON

{
  "name": "Create SIM Record against existing Supplier",
  "request": {
    "method": "POST",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "<supplier-information>\n  <supplier-id>:id</supplier-id>\n  <status>approved</status>\n  <name>SIM Company</name>\n  <exported>true</exported>\n  <supplier-information-addresses>\n    <supplier-information-address>\n        <kind>RTA</kind>\n        <location-code>001</location-code>\n        <street-address>59 Bank Avenue</street-address>\n        <postal-code>15200</postal-code>\n        <city>Pittsburgh</city>\n        <state-region>PA</state-region>\n        <bank-name>Bank Inc.</bank-name>\n        <bank-account-number>9999325</bank-account-number>\n        <currency>\n          <code>USD</code>\n        </currency>\n    </supplier-information-address>\n    <supplier-information-address>\n      <kind>RTA</kind>\n      <location-code>002</location-code>\n      <street-address>71 Sample Street</street-address>\n      <postal-code>19100</postal-code>\n      <city>Philadelphia</city>\n      <state-region>PA</state-region>\n      <bank-name>Cash Co.</bank-name>\n      <bank-account-number>8888325</bank-account-number>\n      <currency>\n        <code>USD</code>\n      </currency>\n    </supplier-information-address>\n  </supplier-information-addresses>\n</supplier-information>",
      "options": {
        "raw": {
          "language": "xml"
        }
      }
    },
    "url": {
      "raw": "{{URL}}/supplier_information/",
      "host": [
        "{{URL}}"
      ],
      "path": [
        "supplier_information",
        ""
      ]
    },
    "description": "This API is used for creating shell SIM records before importing legacy Suppliers. Status of SIM will be \"approved\" and exported flag will be marked as true."
  },
  "response": [
  ]
}