DataFlex
DataFlex
Peoplevox GetReportData
See more Peoplevox Examples
Demonstrates how to export data from a Peoplevox Warehouse Management System (WMS) using a system report template.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoSbSoapXml
Variant vReq
Handle hoReq
Handle hoHttp
Variant vResp
Handle hoResp
Handle hoXmlResponse
String sDetail
Handle hoCsv
Integer i
Integer iNumRows
String sTemp1
Integer iTemp1
Move False To iSuccess
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// Sends a POST that looks like this:
// POST /PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx HTTP/1.1
// Content-Type: text/xml;charset=UTF-8
// SOAPAction: http://www.peoplevox.net/GetReportData
// Content-Length: (automatically computed and added by Chilkat)
// Host: qac.peoplevox.net
//
// <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:peop="http://www.peoplevox.net/">
// <soap:Header>
// <peop:UserSessionCredentials>
// <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>
// <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>
// <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>
// </peop:UserSessionCredentials>
// </soap:Header>
// <soap:Body>
// <peop:GetReportData>
// <peop:getReportRequest>
// <peop:TemplateName>Item movement history</peop:TemplateName>
// <peop:PageNo>1</peop:PageNo>
// <peop:ItemsPerPage>20</peop:ItemsPerPage>
// <peop:OrderBy>[Date timestamp]</peop:OrderBy>
// <peop:Columns>[Item code],[Date timestamp],[From],[To],[Quantity],[Comments]</peop:Columns>
// <peop:SearchClause>([Date timestamp] > DateTime(2016,01,01,09,00,00))</peop:SearchClause>
// </peop:getReportRequest>
// </peop:GetReportData>
// </soap:Body>
// </soap:Envelope>
//
// Notice that a UserId is needed here. This is different than the username required for Peoplevox authentication.
// The UserId for the admin account is 1.
//
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbSoapXml
If (Not(IsComObjectCreated(hoSbSoapXml))) Begin
Send CreateComObject of hoSbSoapXml
End
Get ComAppend Of hoSbSoapXml '<?xml version="1.0" encoding="utf-8"?>' + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml '<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:peop="http://www.peoplevox.net/">' + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <soap:Header>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:UserSessionCredentials>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </peop:UserSessionCredentials>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </soap:Header>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <soap:Body>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:GetReportData>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:getReportRequest>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:TemplateName>Item movement history</peop:TemplateName>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:PageNo>1</peop:PageNo>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:ItemsPerPage>20</peop:ItemsPerPage>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:OrderBy>[Date timestamp]</peop:OrderBy>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:Columns>[Item code],[Date timestamp],[From],[To],[Quantity],[Comments]</peop:Columns>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " <peop:SearchClause>([Date timestamp] > DateTime(2016,01,01,09,00,00))</peop:SearchClause>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </peop:getReportRequest>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </peop:GetReportData>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml " </soap:Body>" + (character(13)) + (character(10)) To iSuccess
Get ComAppend Of hoSbSoapXml "</soap:Envelope>" To iSuccess
Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
If (Not(IsComObjectCreated(hoReq))) Begin
Send CreateComObject of hoReq
End
Set ComHttpVerb Of hoReq To "POST"
Set ComSendCharset Of hoReq To True
Set ComCharset Of hoReq To "utf-8"
Send ComAddHeader To hoReq "Content-Type" "text/xml"
Send ComAddHeader To hoReq "SOAPAction" "http://www.peoplevox.net/GetReportData"
Set ComPath Of hoReq To "/PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx"
Get ComGetAsString Of hoSbSoapXml To sTemp1
Get ComLoadBodyFromString Of hoReq sTemp1 "utf-8" To iSuccess
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
Set ComFollowRedirects Of hoHttp To True
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
If (Not(IsComObjectCreated(hoResp))) Begin
Send CreateComObject of hoResp
End
Get pvComObject of hoReq to vReq
Get pvComObject of hoResp to vResp
Get ComHttpSReq Of hoHttp "qac.peoplevox.net" 443 True vReq vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
// We should expect a 200 response if successful.
Get ComStatusCode Of hoResp To iTemp1
If (iTemp1 <> 200) Begin
Get ComStatusCode Of hoResp To iTemp1
Showln "Response StatusCode = " iTemp1
Get ComStatusLine Of hoResp To sTemp1
Showln "Response StatusLine: " sTemp1
Showln "Response Header:"
Get ComHeader Of hoResp To sTemp1
Showln sTemp1
Get ComBodyStr Of hoResp To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatXml)) To hoXmlResponse
If (Not(IsComObjectCreated(hoXmlResponse))) Begin
Send CreateComObject of hoXmlResponse
End
Get ComBodyStr Of hoResp To sTemp1
Get ComLoadXml Of hoXmlResponse sTemp1 To iSuccess
Get ComGetXml Of hoXmlResponse To sTemp1
Showln sTemp1
Get ComChilkatPath Of hoXmlResponse "soap:Body|GetReportDataResponse|GetReportDataResult|Detail|*" To sDetail
Get Create (RefClass(cComChilkatCsv)) To hoCsv
If (Not(IsComObjectCreated(hoCsv))) Begin
Send CreateComObject of hoCsv
End
Set ComHasColumnNames Of hoCsv To True
Get ComLoadFromString Of hoCsv sDetail To iSuccess
Get ComNumRows Of hoCsv To iTemp1
Showln "NumRows = " iTemp1
Get ComNumColumns Of hoCsv To iTemp1
Showln "NumColumns = " iTemp1
// Iterate over the rows, getting the ItemCode, Name, and Barcode
Move 0 To i
Get ComNumRows Of hoCsv To iNumRows
While (i < iNumRows)
Get ComGetCellByName Of hoCsv i "Item code" To sTemp1
Showln "Item code: " sTemp1
Get ComGetCellByName Of hoCsv i "Date timestamp" To sTemp1
Showln "Date timestamp: " sTemp1
Get ComGetCellByName Of hoCsv i "From" To sTemp1
Showln "From: " sTemp1
Get ComGetCellByName Of hoCsv i "To" To sTemp1
Showln "To: " sTemp1
Get ComGetCellByName Of hoCsv i "Quantity" To sTemp1
Showln "Quantity: " sTemp1
Get ComGetCellByName Of hoCsv i "Comments" To sTemp1
Showln "Comments: " sTemp1
Showln "-"
Move (i + 1) To i
Loop
End_Procedure