Chilkat Online Tools

delphiDll / Coupa Postman Collection - OAuth - Master / Update a Requisition in Draft Status

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"?>
// <requisition-header>
//     <justification>Test</justification>
//     <ship-to-attention>Coupa Buyer</ship-to-attention>
//     <currency>
//         <code>USD</code>
//     </currency>
//     <requested-by>
//         <login>CoupaSam</login>
//         <email>CoupaSam@coupa.com</email>
//     </requested-by>
//     <ship-to-address>
//         <location-code>DUMMYST</location-code>
//     </ship-to-address>
//     <requisition-lines type="array">
//         <requisition-line>
//             <id type="integer">5809</id>
//             <description>Test</description>
//             <line-num type="integer">1</line-num>
//             <total type="decimal">12.00</total>
//             <line-type>RequisitionAmountLine</line-type>
//             <unit-price type="decimal">12.00</unit-price>
//             <need-by-date type="dateTime">2020-05-15T00:00:00-05:00</need-by-date>
//             <account>
//                 <code>DUM_SEG_1_LV_1-DUM_SEG_2_LV_1</code>
//                 <active type="boolean">true</active>
//                 <segment-1>DUM2_SEG_1_LV_1</segment-1>
//                 <segment-2>DUM2_SEG_2_LV_2</segment-2>
//                 <account-type>
//                     <name>Dummy 2 Chart of Accounts</name>
//                     <currency>
//                         <code>USD</code>
//                     </currency>
//                 </account-type>
//             </account>
//             <currency>
//                 <code>USD</code>
//             </currency>
//             <supplier>
//                 <name>CoupaTester</name>
//                 <number>123456</number>
//             </supplier>
//         </requisition-line>
//     </requisition-lines>
// </requisition-header>
// 

xml := CkXml_Create();
CkXml_putTag(xml,'requisition-header');
CkXml_UpdateChildContent(xml,'justification','Test');
CkXml_UpdateChildContent(xml,'ship-to-attention','Coupa Buyer');
CkXml_UpdateChildContent(xml,'currency|code','USD');
CkXml_UpdateChildContent(xml,'requested-by|login','CoupaSam');
CkXml_UpdateChildContent(xml,'requested-by|email','CoupaSam@coupa.com');
CkXml_UpdateChildContent(xml,'ship-to-address|location-code','DUMMYST');
CkXml_UpdateAttrAt(xml,'requisition-lines',True,'type','array');
CkXml_UpdateAttrAt(xml,'requisition-lines|requisition-line|id',True,'type','integer');
CkXml_UpdateChildContentInt(xml,'requisition-lines|requisition-line|id',5809);
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|description','Test');
CkXml_UpdateAttrAt(xml,'requisition-lines|requisition-line|line-num',True,'type','integer');
CkXml_UpdateChildContentInt(xml,'requisition-lines|requisition-line|line-num',1);
CkXml_UpdateAttrAt(xml,'requisition-lines|requisition-line|total',True,'type','decimal');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|total','12.00');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|line-type','RequisitionAmountLine');
CkXml_UpdateAttrAt(xml,'requisition-lines|requisition-line|unit-price',True,'type','decimal');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|unit-price','12.00');
CkXml_UpdateAttrAt(xml,'requisition-lines|requisition-line|need-by-date',True,'type','dateTime');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|need-by-date','2020-05-15T00:00:00-05:00');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|account|code','DUM_SEG_1_LV_1-DUM_SEG_2_LV_1');
CkXml_UpdateAttrAt(xml,'requisition-lines|requisition-line|account|active',True,'type','boolean');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|account|active','true');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|account|segment-1','DUM2_SEG_1_LV_1');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|account|segment-2','DUM2_SEG_2_LV_2');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|account|account-type|name','Dummy 2 Chart of Accounts');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|account|account-type|currency|code','USD');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|currency|code','USD');
CkXml_UpdateChildContent(xml,'requisition-lines|requisition-line|supplier|name','CoupaTester');
CkXml_UpdateChildContentInt(xml,'requisition-lines|requisition-line|supplier|number',123456);

// Adds the "Authorization: Bearer <access_token>" header.
CkHttp_putAuthToken(http,'<access_token>');

sbRequestBody := CkStringBuilder_Create();
CkXml_GetXmlSb(xml,sbRequestBody);

resp := CkHttp_PTextSb(http,'PUT','https://domain.com/requisitions/:id?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 PUT
	-H "Authorization: Bearer <access_token>"
	-d '<?xml version="1.0" encoding="UTF-8"?>
<requisition-header>
    <justification>Test</justification>
    <ship-to-attention>Coupa Buyer</ship-to-attention>
    <currency>
        <code>USD</code>
    </currency>
    <requested-by>
        <login>CoupaSam</login>
        <email>CoupaSam@coupa.com</email>
    </requested-by>
    <ship-to-address>
        <location-code>DUMMYST</location-code>
    </ship-to-address>
    <requisition-lines type="array">
        <requisition-line>
        	<id type="integer">5809</id>
            <description>Test</description>
            <line-num type="integer">1</line-num>
            <total type="decimal">12.00</total>
            <line-type>RequisitionAmountLine</line-type>
            <unit-price type="decimal">12.00</unit-price>
            <need-by-date type="dateTime">2020-05-15T00:00:00-05:00</need-by-date>
            <account>
                <code>DUM_SEG_1_LV_1-DUM_SEG_2_LV_1</code>
                <active type="boolean">true</active>
                <segment-1>DUM2_SEG_1_LV_1</segment-1>
                <segment-2>DUM2_SEG_2_LV_2</segment-2>
                <account-type>
                    <name>Dummy 2 Chart of Accounts</name>
                    <currency>
                        <code>USD</code>
                    </currency>
                </account-type>
            </account>
            <currency>
                <code>USD</code>
            </currency>
            <supplier>
                <name>CoupaTester</name>
                <number>123456</number>
            </supplier>
        </requisition-line>
    </requisition-lines>
</requisition-header>'
https://domain.com/requisitions/:id?fields=["id"]

Postman Collection Item JSON

{
  "name": "Update a Requisition in Draft Status",
  "request": {
    "method": "PUT",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<requisition-header>\n    <justification>Test</justification>\n    <ship-to-attention>Coupa Buyer</ship-to-attention>\n    <currency>\n        <code>USD</code>\n    </currency>\n    <requested-by>\n        <login>CoupaSam</login>\n        <email>CoupaSam@coupa.com</email>\n    </requested-by>\n    <ship-to-address>\n        <location-code>DUMMYST</location-code>\n    </ship-to-address>\n    <requisition-lines type=\"array\">\n        <requisition-line>\n        \t<id type=\"integer\">5809</id>\n            <description>Test</description>\n            <line-num type=\"integer\">1</line-num>\n            <total type=\"decimal\">12.00</total>\n            <line-type>RequisitionAmountLine</line-type>\n            <unit-price type=\"decimal\">12.00</unit-price>\n            <need-by-date type=\"dateTime\">2020-05-15T00:00:00-05:00</need-by-date>\n            <account>\n                <code>DUM_SEG_1_LV_1-DUM_SEG_2_LV_1</code>\n                <active type=\"boolean\">true</active>\n                <segment-1>DUM2_SEG_1_LV_1</segment-1>\n                <segment-2>DUM2_SEG_2_LV_2</segment-2>\n                <account-type>\n                    <name>Dummy 2 Chart of Accounts</name>\n                    <currency>\n                        <code>USD</code>\n                    </currency>\n                </account-type>\n            </account>\n            <currency>\n                <code>USD</code>\n            </currency>\n            <supplier>\n                <name>CoupaTester</name>\n                <number>123456</number>\n            </supplier>\n        </requisition-line>\n    </requisition-lines>\n</requisition-header>",
      "options": {
        "raw": {
          "language": "xml"
        }
      }
    },
    "url": {
      "raw": "{{URL}}/requisitions/:id?fields=[\"id\"]",
      "host": [
        "{{URL}}"
      ],
      "path": [
        "requisitions",
        ":id"
      ],
      "query": [
        {
          "key": "fields",
          "value": "[\"id\"]"
        }
      ],
      "variable": [
        {
          "key": "id",
          "value": "3462",
          "description": "Coupa Internal Requisition Id"
        }
      ]
    }
  },
  "response": [
  ]
}