Back to Collection Items
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkXml.pb"
Procedure ChilkatExample()
; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success.i
; 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>
;
xml.i = CkXml::ckCreate()
If xml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(xml, "supplier-information")
CkXml::ckUpdateChildContent(xml,"supplier-id",":id")
CkXml::ckUpdateChildContent(xml,"status","approved")
CkXml::ckUpdateChildContent(xml,"name","SIM Company")
CkXml::ckUpdateChildContent(xml,"exported","true")
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address|kind","RTA")
CkXml::ckUpdateChildContentInt(xml,"supplier-information-addresses|supplier-information-address|location-code",001)
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address|street-address","59 Bank Avenue")
CkXml::ckUpdateChildContentInt(xml,"supplier-information-addresses|supplier-information-address|postal-code",15200)
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address|city","Pittsburgh")
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address|state-region","PA")
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address|bank-name","Bank Inc.")
CkXml::ckUpdateChildContentInt(xml,"supplier-information-addresses|supplier-information-address|bank-account-number",9999325)
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address|currency|code","USD")
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address[1]|kind","RTA")
CkXml::ckUpdateChildContentInt(xml,"supplier-information-addresses|supplier-information-address[1]|location-code",002)
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address[1]|street-address","71 Sample Street")
CkXml::ckUpdateChildContentInt(xml,"supplier-information-addresses|supplier-information-address[1]|postal-code",19100)
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address[1]|city","Philadelphia")
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address[1]|state-region","PA")
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address[1]|bank-name","Cash Co.")
CkXml::ckUpdateChildContentInt(xml,"supplier-information-addresses|supplier-information-address[1]|bank-account-number",8888325)
CkXml::ckUpdateChildContent(xml,"supplier-information-addresses|supplier-information-address[1]|currency|code","USD")
; Adds the "Authorization: Bearer <access_token>" header.
CkHttp::setCkAuthToken(http, "<access_token>")
sbRequestBody.i = CkStringBuilder::ckCreate()
If sbRequestBody.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::ckGetXmlSb(xml,sbRequestBody)
resp.i = CkHttp::ckPTextSb(http,"POST","https://domain.com/supplier_information/",sbRequestBody,"utf-8","application/xml",0,0)
If CkHttp::ckLastMethodSuccess(http) = 0
Debug CkHttp::ckLastErrorText(http)
CkHttp::ckDispose(http)
CkXml::ckDispose(xml)
CkStringBuilder::ckDispose(sbRequestBody)
ProcedureReturn
EndIf
Debug Str(CkHttpResponse::ckStatusCode(resp))
Debug CkHttpResponse::ckBodyStr(resp)
CkHttpResponse::ckDispose(resp)
CkHttp::ckDispose(http)
CkXml::ckDispose(xml)
CkStringBuilder::ckDispose(sbRequestBody)
ProcedureReturn
EndProcedure
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": [
]
}