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"?>
; <order-header>
; <type>ExternalOrderHeader</type>
; <po-number>PO-957645-17</po-number>
; <version type="integer">1</version>
; <payment-method>invoice</payment-method>
; <ship-to-attention nil="true"/>
; <transmission-method-override>do_not_transmit</transmission-method-override>
; <ship-to-address>
; <location-code>DUMMYST</location-code>
; </ship-to-address>
; <ship-to-user>
; <login>CoupaRequester</login>
; </ship-to-user>
; <supplier>
; <name>CoupaSupplier</name>
; </supplier>
; <payment-term>
; <code>2/10 Net 30</code>
; </payment-term>
; <currency>
; <code>USD</code>
; </currency>
; <order-lines type="array">
; <order-line>
; <description>Supplies</description>
; <line-num>1</line-num>
; <price type="decimal">40.00</price>
; <quantity type="decimal">1.0</quantity>
; <type>OrderQuantityLine</type>
; <uom>
; <code>EA</code>
; </uom>
; <account>
; <code>SF-Marketing-Assets</code>
; <account-type>
; <name>Ace Corporate</name>
; </account-type>
; </account>
; <currency>
; <code>USD</code>
; </currency>
; </order-line>
; </order-lines>
; </order-header>
;
xml.i = CkXml::ckCreate()
If xml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(xml, "order-header")
CkXml::ckUpdateChildContent(xml,"type","ExternalOrderHeader")
CkXml::ckUpdateChildContent(xml,"po-number","PO-957645-17")
CkXml::ckUpdateAttrAt(xml,"version",1,"type","integer")
CkXml::ckUpdateChildContentInt(xml,"version",1)
CkXml::ckUpdateChildContent(xml,"payment-method","invoice")
CkXml::ckUpdateAttrAt(xml,"ship-to-attention",1,"nil","true")
CkXml::ckUpdateChildContent(xml,"transmission-method-override","do_not_transmit")
CkXml::ckUpdateChildContent(xml,"ship-to-address|location-code","DUMMYST")
CkXml::ckUpdateChildContent(xml,"ship-to-user|login","CoupaRequester")
CkXml::ckUpdateChildContent(xml,"supplier|name","CoupaSupplier")
CkXml::ckUpdateChildContent(xml,"payment-term|code","2/10 Net 30")
CkXml::ckUpdateChildContent(xml,"currency|code","USD")
CkXml::ckUpdateAttrAt(xml,"order-lines",1,"type","array")
CkXml::ckUpdateChildContent(xml,"order-lines|order-line|description","Supplies")
CkXml::ckUpdateChildContentInt(xml,"order-lines|order-line|line-num",1)
CkXml::ckUpdateAttrAt(xml,"order-lines|order-line|price",1,"type","decimal")
CkXml::ckUpdateChildContent(xml,"order-lines|order-line|price","40.00")
CkXml::ckUpdateAttrAt(xml,"order-lines|order-line|quantity",1,"type","decimal")
CkXml::ckUpdateChildContent(xml,"order-lines|order-line|quantity","1.0")
CkXml::ckUpdateChildContent(xml,"order-lines|order-line|type","OrderQuantityLine")
CkXml::ckUpdateChildContent(xml,"order-lines|order-line|uom|code","EA")
CkXml::ckUpdateChildContent(xml,"order-lines|order-line|account|code","SF-Marketing-Assets")
CkXml::ckUpdateChildContent(xml,"order-lines|order-line|account|account-type|name","Ace Corporate")
CkXml::ckUpdateChildContent(xml,"order-lines|order-line|currency|code","USD")
; Adds the "Authorization: Bearer <access_token>" header.
CkHttp::setCkAuthToken(http, "<access_token>")
CkHttp::ckSetRequestHeader(http,"Accept","application/json")
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/purchase_orders/?fields=[" + Chr(34) + "id" + Chr(34) + "]",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>"
-H "Accept: application/json"
-d '<?xml version="1.0" encoding="UTF-8"?>
<order-header>
<type>ExternalOrderHeader</type>
<po-number>PO-957645-17</po-number>
<version type="integer">1</version>
<payment-method>invoice</payment-method>
<ship-to-attention nil="true"/>
<transmission-method-override>do_not_transmit</transmission-method-override>
<ship-to-address>
<location-code>DUMMYST</location-code>
</ship-to-address>
<ship-to-user>
<login>CoupaRequester</login>
</ship-to-user>
<supplier>
<name>CoupaSupplier</name>
</supplier>
<payment-term>
<code>2/10 Net 30</code>
</payment-term>
<currency>
<code>USD</code>
</currency>
<order-lines type="array">
<order-line>
<description>Supplies</description>
<line-num>1</line-num>
<price type="decimal">40.00</price>
<quantity type="decimal">1.0</quantity>
<type>OrderQuantityLine</type>
<uom>
<code>EA</code>
</uom>
<account>
<code>SF-Marketing-Assets</code>
<account-type>
<name>Ace Corporate</name>
</account-type>
</account>
<currency>
<code>USD</code>
</currency>
</order-line>
</order-lines>
</order-header>'
https://domain.com/purchase_orders/?fields=["id"]
Postman Collection Item JSON
{
"name": "Create External PO",
"request": {
"method": "POST",
"header": [
{
"key": "Accept",
"value": "application/json",
"type": "text"
}
],
"body": {
"mode": "raw",
"raw": "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<order-header>\n <type>ExternalOrderHeader</type>\n <po-number>PO-957645-17</po-number>\n <version type=\"integer\">1</version>\n <payment-method>invoice</payment-method>\n <ship-to-attention nil=\"true\"/>\n <transmission-method-override>do_not_transmit</transmission-method-override>\n <ship-to-address>\n <location-code>DUMMYST</location-code>\n </ship-to-address>\n <ship-to-user>\n <login>CoupaRequester</login>\n </ship-to-user>\n <supplier>\n <name>CoupaSupplier</name>\n </supplier>\n <payment-term>\n <code>2/10 Net 30</code>\n </payment-term>\n <currency>\n <code>USD</code>\n </currency>\n <order-lines type=\"array\">\n <order-line>\n <description>Supplies</description>\n <line-num>1</line-num>\n <price type=\"decimal\">40.00</price>\n <quantity type=\"decimal\">1.0</quantity>\n <type>OrderQuantityLine</type>\n <uom>\n <code>EA</code>\n </uom>\n <account>\n <code>SF-Marketing-Assets</code>\n <account-type>\n <name>Ace Corporate</name>\n </account-type>\n </account>\n <currency>\n <code>USD</code>\n </currency>\n </order-line>\n </order-lines>\n</order-header>",
"options": {
"raw": {
"language": "xml"
}
}
},
"url": {
"raw": "{{URL}}/purchase_orders/?fields=[\"id\"]",
"host": [
"{{URL}}"
],
"path": [
"purchase_orders",
""
],
"query": [
{
"key": "fields",
"value": "[\"id\"]"
}
]
}
},
"response": [
]
}
