(Visual FoxPro) effectconnect Product Update

Use this call to update a product (f.e. stock or price) in EffectConnect.

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

LOCAL lnSuccess
LOCAL lcUri
LOCAL lcApiVersion
LOCAL loHttp
LOCAL loReq
LOCAL loDt
LOCAL lcTimestamp
LOCAL loSbXml
LOCAL loSbStringToSign
LOCAL loCrypt
LOCAL loResp
LOCAL loXmlResp
LOCAL lcTagPath
LOCAL lcRequestType
LOCAL lcRequestAction
LOCAL lcRequestVersion
LOCAL lcProcessedAt
LOCAL lcResult
LOCAL lcProcessID

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

lcUri = "/products"
lcApiVersion = "2.0"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')

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

* Get the current date/time in timestamp format.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()
lcTimestamp = loDt.GetAsTimestamp(1)

loReq.AddHeader("TIME",lcTimestamp)
? "timestamp = " + lcTimestamp

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbXml = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbXml.LoadFile("qa_data/xml/effectconnect/effconUpdate.xml","utf-8")
? "length = " + STR(loSbXml.Length)

loReq.HttpVerb = "PUT"
loReq.Path = lcUri
loReq.ContentType = "multipart/form-data"
lnSuccess = loReq.AddStringForUpload("payload","effconUpdate.xml",loSbXml.GetAsString(),"utf-8")
IF (lnSuccess = 0) THEN
    ? loReq.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loDt
    RELEASE loSbXml
    CANCEL
ENDIF

* Build a string-to-sign and sign it using our effectconnect private key
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbStringToSign = CreateObject('Chilkat.StringBuilder')
loSbStringToSign.AppendInt(loSbXml.Length)
loSbStringToSign.Append("PUT")
loSbStringToSign.Append(lcUri)
loSbStringToSign.Append(lcApiVersion)
loSbStringToSign.Append(lcTimestamp)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.MacAlgorithm = "hmac"
loCrypt.HashAlgorithm = "sha512"
loCrypt.EncodingMode = "base64"
* Use your effectconnect private key here:
loCrypt.SetMacKeyString("PRIVATE_KEY")
loReq.AddHeader("SIGNATURE",loCrypt.MacStringENC(loSbStringToSign.GetAsString()))

loResp = loHttp.SynchronousRequest("submit.effectconnect.com",443,1,loReq)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loDt
    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.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXmlResp = CreateObject('Chilkat.Xml')
loXmlResp.LoadXml(loResp.BodyStr)
RELEASE loResp

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

* A sample response:

* <?xml version="1.0" encoding="utf-8"?>
* <ApiResponseContainer>
*     <Request>
*         <RequestType>Products</RequestType>
*         <RequestAction>Update</RequestAction>
*         <RequestVersion>2.0</RequestVersion>
*         <RequestIdentifier/>
*         <ProcessedAt>2019-04-18T15:37:32+02:00</ProcessedAt>
*     </Request>
*     <Response>
*         <Result>Success</Result>
*         <ProductsUpdateResponseContainer>
*             <ProcessID><![CDATA[f81ngzD2S7gooFk3]]></ProcessID>
*         </ProductsUpdateResponseContainer>
*     </Response>
* </ApiResponseContainer>
* 

lcRequestType = loXmlResp.GetChildContent("Request|RequestType")
lcRequestAction = loXmlResp.GetChildContent("Request|RequestAction")
lcRequestVersion = loXmlResp.GetChildContent("Request|RequestVersion")
lcProcessedAt = loXmlResp.GetChildContent("Request|ProcessedAt")
lcResult = loXmlResp.GetChildContent("Response|Result")
lcProcessID = loXmlResp.GetChildContent("Response|ProductsUpdateResponseContainer|ProcessID")

RELEASE loHttp
RELEASE loReq
RELEASE loDt
RELEASE loSbXml
RELEASE loSbStringToSign
RELEASE loCrypt
RELEASE loXmlResp