|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(DataFlex) Peoplevox GetReportDataDemonstrates how to export data from a Peoplevox Warehouse Management System (WMS) using a system report template.
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 Boolean bTemp1 // 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 pvComObject of hoReq to vReq Get ComSynchronousRequest Of hoHttp "qac.peoplevox.net" 443 True vReq To vResp If (IsComObject(vResp)) Begin Get Create (RefClass(cComChilkatHttpResponse)) To hoResp Set pvComObject Of hoResp To vResp End Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 <> True) 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 Send Destroy of hoResp 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 |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.