(Visual FoxPro) effectconnect Read Orderlist

Get a set of orders filtered by the parameters in the XML payload.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL lcFullUri
LOCAL lcUri
LOCAL lcApiVersion
LOCAL loHttp
LOCAL loDt
LOCAL lcTimestamp
LOCAL loXml
LOCAL loSbXml
LOCAL loSbStringToSign
LOCAL loCrypt
LOCAL loResp
LOCAL loXmlResp

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

lcFullUri = "https://submit.effectconnect.com/orderlist"
lcUri = "/orderlist"
lcApiVersion = "2.0"

loHttp = CreateObject('Chilkat_9_5_0.Http')

* Use your effectconnect public key here..
loHttp.SetRequestHeader("KEY","PUBLIC_KEY")
loHttp.SetRequestHeader("VERSION",lcApiVersion)
loHttp.SetRequestHeader("URI",lcUri)
loHttp.SetRequestHeader("RESPONSETYPE","XML")
loHttp.SetRequestHeader("RESPONSELANGUAGE","en")

* Get the current date/time in timestamp format.
loDt = CreateObject('Chilkat_9_5_0.CkDateTime')
loDt.SetFromCurrentSystemTime()
lcTimestamp = loDt.GetAsTimestamp(1)

loHttp.SetRequestHeader("TIME",lcTimestamp)
? "timestamp = " + lcTimestamp

* Create the following XML request body:
* <?xml version="1.0" encoding="utf-8"?>
* <list>
*   <filters>
*     <fromDateFilter>
*       <filterValue>2018-09-14T12:12:12+01:00</filterValue>
*     </fromDateFilter>
*     <toDateFilter>
*       <filterValue>2019-04-13T23:59:59+01:00</filterValue>
*     </toDateFilter>
*     <hasStatusFilter>
*       <filterValue>paid</filterValue>
*     </hasStatusFilter>
*     <hasTagFilter>
*       <filterValue>
*         <tagName>Test</tagName>
*         <exclude>false</exclude>
*       </filterValue>
*     </hasTagFilter>
*   </filters>
* </list>

* Use this online tool to generate the code from sample XML: 
* Generate Code to Create XML

loXml = CreateObject('Chilkat_9_5_0.Xml')
loXml.Tag = "list"
loXml.UpdateChildContent("filters|fromDateFilter|filterValue","2018-09-14T12:12:12+01:00")
loXml.UpdateChildContent("filters|toDateFilter|filterValue","2019-04-13T23:59:59+01:00")
loXml.UpdateChildContent("filters|hasStatusFilter|filterValue","paid")
loXml.UpdateChildContent("filters|hasTagFilter|filterValue|tagName","Test")
loXml.UpdateChildContent("filters|hasTagFilter|filterValue|exclude","false")
loXml.EmitCompact = 1

loSbXml = CreateObject('Chilkat_9_5_0.StringBuilder')
loXml.GetXmlSb(loSbXml)

* Build a string-to-sign and sign it using our effectconnect private key
loSbStringToSign = CreateObject('Chilkat_9_5_0.StringBuilder')
loSbStringToSign.AppendInt(loSbXml.Length)
loSbStringToSign.Append("POST")
loSbStringToSign.Append(lcUri)
loSbStringToSign.Append(lcApiVersion)
loSbStringToSign.Append(lcTimestamp)

loCrypt = CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt.MacAlgorithm = "hmac"
loCrypt.HashAlgorithm = "sha512"
loCrypt.EncodingMode = "base64"
* Use your effectconnect private key here:
loCrypt.SetMacKeyString("PRIVATE_KEY")
loHttp.SetRequestHeader("SIGNATURE",loCrypt.MacStringENC(loSbStringToSign.GetAsString()))

* Send the POST..
loResp = loHttp.PostXml(lcFullUri,loXml.GetXml(),"utf-8")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loDt
    RELEASE loXml
    RELEASE loSbXml
    RELEASE loSbStringToSign
    RELEASE loCrypt
    CANCEL
ENDIF

? "response status code = " + STR(loResp.StatusCode)

* Examine the response.  The response status code can be 200 for both errors and success.
* The success or error is based on the XML returned in the response body.
loXmlResp = CreateObject('Chilkat_9_5_0.Xml')
loXmlResp.LoadXml(loResp.BodyStr)
RELEASE loResp

? "response body:"
? loXmlResp.GetXml()

* Remove previously set headers (unless we want the same headers for the next request,
* in which case we may remove or update individual headers by calling SetRequestHeader.
loHttp.ClearHeaders()

RELEASE loHttp
RELEASE loDt
RELEASE loXml
RELEASE loSbXml
RELEASE loSbStringToSign
RELEASE loCrypt
RELEASE loXmlResp