Back to Collection Items
var
http: HCkHttp;
success: Boolean;
xml: HCkXml;
sbRequestBody: HCkStringBuilder;
resp: HCkHttpResponse;
begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := CkHttp_Create();
// 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-18</po-number>
// <version type="integer">1</version>
// <payment-method>invoice</payment-method>
// <ship-to-address>
// <location-code>DUMMYST</location-code>
// </ship-to-address>
// <ship-to-user>
// <login>CoupaRequester</login>
// </ship-to-user>
// <supplier>
// <name>Adam's Apples</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>
// <account>
// <code>SF-Marketing-Assets</code>
// <account-type>
// <name>Ace Corporate</name>
// </account-type>
// </account>
// <currency>
// <code>USD</code>
// </currency>
// <uom>
// <code>EA</code>
// </uom>
// </order-line>
// <order-line>
// <description>Testing Kit</description>
// <line-num>2</line-num>
// <price type="decimal">100.00</price>
// <quantity type="decimal">1.0</quantity>
// <type>OrderQuantityLine</type>
// <account-allocations type="array">
// <account-allocation>
// <amount type="decimal">10.00</amount>
// <pct type="decimal">10.0</pct>
// <account>
// <code>SF-IT-Assets</code>
// <account-type>
// <name>Ace Corporate</name>
// </account-type>
// </account>
// </account-allocation>
// <account-allocation>
// <amount type="decimal">90.00</amount>
// <pct type="decimal">90.0</pct>
// <account>
// <code>SF-Sales-Assets</code>
// <account-type>
// <name>Ace Corporate</name>
// </account-type>
// </account>
// </account-allocation>
// </account-allocations>
// <currency>
// <code>USD</code>
// </currency>
// <uom>
// <code>EA</code>
// </uom>
// </order-line>
// </order-lines>
// </order-header>
//
xml := CkXml_Create();
CkXml_putTag(xml,'order-header');
CkXml_UpdateChildContent(xml,'type','ExternalOrderHeader');
CkXml_UpdateChildContent(xml,'po-number','PO-957645-18');
CkXml_UpdateAttrAt(xml,'version',True,'type','integer');
CkXml_UpdateChildContentInt(xml,'version',1);
CkXml_UpdateChildContent(xml,'payment-method','invoice');
CkXml_UpdateChildContent(xml,'ship-to-address|location-code','DUMMYST');
CkXml_UpdateChildContent(xml,'ship-to-user|login','CoupaRequester');
CkXml_UpdateChildContent(xml,'supplier|name','Adam''s Apples');
CkXml_UpdateChildContent(xml,'payment-term|code','2/10 Net 30');
CkXml_UpdateChildContent(xml,'currency|code','USD');
CkXml_UpdateAttrAt(xml,'order-lines',True,'type','array');
CkXml_UpdateChildContent(xml,'order-lines|order-line|description','Supplies');
CkXml_UpdateChildContentInt(xml,'order-lines|order-line|line-num',1);
CkXml_UpdateAttrAt(xml,'order-lines|order-line|price',True,'type','decimal');
CkXml_UpdateChildContent(xml,'order-lines|order-line|price','40.00');
CkXml_UpdateAttrAt(xml,'order-lines|order-line|quantity',True,'type','decimal');
CkXml_UpdateChildContent(xml,'order-lines|order-line|quantity','1.0');
CkXml_UpdateChildContent(xml,'order-lines|order-line|type','OrderQuantityLine');
CkXml_UpdateChildContent(xml,'order-lines|order-line|account|code','SF-Marketing-Assets');
CkXml_UpdateChildContent(xml,'order-lines|order-line|account|account-type|name','Ace Corporate');
CkXml_UpdateChildContent(xml,'order-lines|order-line|currency|code','USD');
CkXml_UpdateChildContent(xml,'order-lines|order-line|uom|code','EA');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|description','Testing Kit');
CkXml_UpdateChildContentInt(xml,'order-lines|order-line[1]|line-num',2);
CkXml_UpdateAttrAt(xml,'order-lines|order-line[1]|price',True,'type','decimal');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|price','100.00');
CkXml_UpdateAttrAt(xml,'order-lines|order-line[1]|quantity',True,'type','decimal');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|quantity','1.0');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|type','OrderQuantityLine');
CkXml_UpdateAttrAt(xml,'order-lines|order-line[1]|account-allocations',True,'type','array');
CkXml_UpdateAttrAt(xml,'order-lines|order-line[1]|account-allocations|account-allocation|amount',True,'type','decimal');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|account-allocations|account-allocation|amount','10.00');
CkXml_UpdateAttrAt(xml,'order-lines|order-line[1]|account-allocations|account-allocation|pct',True,'type','decimal');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|account-allocations|account-allocation|pct','10.0');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|account-allocations|account-allocation|account|code','SF-IT-Assets');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|account-allocations|account-allocation|account|account-type|name','Ace Corporate');
CkXml_UpdateAttrAt(xml,'order-lines|order-line[1]|account-allocations|account-allocation[1]|amount',True,'type','decimal');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|account-allocations|account-allocation[1]|amount','90.00');
CkXml_UpdateAttrAt(xml,'order-lines|order-line[1]|account-allocations|account-allocation[1]|pct',True,'type','decimal');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|account-allocations|account-allocation[1]|pct','90.0');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|account-allocations|account-allocation[1]|account|code','SF-Sales-Assets');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|account-allocations|account-allocation[1]|account|account-type|name','Ace Corporate');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|currency|code','USD');
CkXml_UpdateChildContent(xml,'order-lines|order-line[1]|uom|code','EA');
// Adds the "Authorization: Bearer <access_token>" header.
CkHttp_putAuthToken(http,'<access_token>');
CkHttp_SetRequestHeader(http,'Accept','application/json');
sbRequestBody := CkStringBuilder_Create();
CkXml_GetXmlSb(xml,sbRequestBody);
resp := CkHttp_PTextSb(http,'POST','https://domain.com/purchase_orders/?fields=["id"]',sbRequestBody,'utf-8','application/xml',False,False);
if (CkHttp_getLastMethodSuccess(http) = False) then
begin
Memo1.Lines.Add(CkHttp__lastErrorText(http));
Exit;
end;
Memo1.Lines.Add(IntToStr(CkHttpResponse_getStatusCode(resp)));
Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
CkHttpResponse_Dispose(resp);
CkHttp_Dispose(http);
CkXml_Dispose(xml);
CkStringBuilder_Dispose(sbRequestBody);
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-18</po-number>
<version type="integer">1</version>
<payment-method>invoice</payment-method>
<ship-to-address>
<location-code>DUMMYST</location-code>
</ship-to-address>
<ship-to-user>
<login>CoupaRequester</login>
</ship-to-user>
<supplier>
<name>Adam\'s Apples</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>
<account>
<code>SF-Marketing-Assets</code>
<account-type>
<name>Ace Corporate</name>
</account-type>
</account>
<currency>
<code>USD</code>
</currency>
<uom>
<code>EA</code>
</uom>
</order-line>
<order-line>
<description>Testing Kit</description>
<line-num>2</line-num>
<price type="decimal">100.00</price>
<quantity type="decimal">1.0</quantity>
<type>OrderQuantityLine</type>
<account-allocations type="array">
<account-allocation>
<amount type="decimal">10.00</amount>
<pct type="decimal">10.0</pct>
<account>
<code>SF-IT-Assets</code>
<account-type>
<name>Ace Corporate</name>
</account-type>
</account>
</account-allocation>
<account-allocation>
<amount type="decimal">90.00</amount>
<pct type="decimal">90.0</pct>
<account>
<code>SF-Sales-Assets</code>
<account-type>
<name>Ace Corporate</name>
</account-type>
</account>
</account-allocation>
</account-allocations>
<currency>
<code>USD</code>
</currency>
<uom>
<code>EA</code>
</uom>
</order-line>
</order-lines>
</order-header>'
https://domain.com/purchase_orders/?fields=["id"]
Postman Collection Item JSON
{
"name": "Create External PO w/ Allocations",
"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-18</po-number>\n <version type=\"integer\">1</version>\n <payment-method>invoice</payment-method>\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>Adam's Apples</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 <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 <uom>\n <code>EA</code>\n </uom>\n </order-line>\n <order-line>\n <description>Testing Kit</description>\n <line-num>2</line-num>\n <price type=\"decimal\">100.00</price>\n <quantity type=\"decimal\">1.0</quantity>\n <type>OrderQuantityLine</type>\n <account-allocations type=\"array\">\n <account-allocation>\n <amount type=\"decimal\">10.00</amount>\n <pct type=\"decimal\">10.0</pct>\n <account>\n <code>SF-IT-Assets</code>\n <account-type>\n <name>Ace Corporate</name>\n </account-type>\n </account>\n </account-allocation>\n <account-allocation>\n <amount type=\"decimal\">90.00</amount>\n <pct type=\"decimal\">90.0</pct>\n <account>\n <code>SF-Sales-Assets</code>\n <account-type>\n <name>Ace Corporate</name>\n </account-type>\n </account>\n </account-allocation>\n </account-allocations>\n <currency>\n <code>USD</code>\n </currency>\n <uom>\n <code>EA</code>\n </uom>\n </order-line>\n </order-lines>\n</order-header>"
},
"url": {
"raw": "{{URL}}/purchase_orders/?fields=[\"id\"]",
"host": [
"{{URL}}"
],
"path": [
"purchase_orders",
""
],
"query": [
{
"key": "fields",
"value": "[\"id\"]"
}
]
}
},
"response": [
]
}