Lua Requires Chilkat v11.0.0+
Lua
Peoplevox GetReportData
See more Peoplevox Examples
Demonstrates how to export data from a Peoplevox Warehouse Management System (WMS) using a system report template.Chilkat Lua Downloads
local chilkat = require("chilkat")
-- 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.
--
local sbSoapXml = chilkat.StringBuilder.new()
sbSoapXml:append("<?xml version=\"1.0\" encoding=\"utf-8\"?>\r\n")
sbSoapXml:append("<soap:Envelope xmlns:soap=\"http://www.w3.org/2003/05/soap-envelope\" xmlns:peop=\"http://www.peoplevox.net/\">\r\n")
sbSoapXml:append(" <soap:Header>\r\n")
sbSoapXml:append(" <peop:UserSessionCredentials>\r\n")
sbSoapXml:append(" <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>\r\n")
sbSoapXml:append(" <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>\r\n")
sbSoapXml:append(" <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>\r\n")
sbSoapXml:append(" </peop:UserSessionCredentials>\r\n")
sbSoapXml:append(" </soap:Header>\r\n")
sbSoapXml:append(" <soap:Body>\r\n")
sbSoapXml:append(" <peop:GetReportData>\r\n")
sbSoapXml:append(" <peop:getReportRequest>\r\n")
sbSoapXml:append(" <peop:TemplateName>Item movement history</peop:TemplateName>\r\n")
sbSoapXml:append(" <peop:PageNo>1</peop:PageNo>\r\n")
sbSoapXml:append(" <peop:ItemsPerPage>20</peop:ItemsPerPage>\r\n")
sbSoapXml:append(" <peop:OrderBy>[Date timestamp]</peop:OrderBy>\r\n")
sbSoapXml:append(" <peop:Columns>[Item code],[Date timestamp],[From],[To],[Quantity],[Comments]</peop:Columns>\r\n")
sbSoapXml:append(" <peop:SearchClause>([Date timestamp] > DateTime(2016,01,01,09,00,00))</peop:SearchClause>\r\n")
sbSoapXml:append(" </peop:getReportRequest>\r\n")
sbSoapXml:append(" </peop:GetReportData>\r\n")
sbSoapXml:append(" </soap:Body>\r\n")
sbSoapXml:append("</soap:Envelope>")
local req = chilkat.HttpRequest.new()
req.http_verb = "POST"
req.send_charset = true
req.charset = "utf-8"
req:add_header("Content-Type", "text/xml")
req:add_header("SOAPAction", "http://www.peoplevox.net/GetReportData")
req.path = "/PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx"
local success = req:load_body_from_string(sbSoapXml:get_as_string(), "utf-8")
local http = chilkat.Http.new()
http.follow_redirects = true
local resp = chilkat.HttpResponse.new()
success = http:http_sreq("qac.peoplevox.net", 443, true, req, resp)
if not success then
print(http.last_error_text)
return
end
-- We should expect a 200 response if successful.
if resp.status_code ~= 200 then
print("Response StatusCode = " .. resp.status_code)
print("Response StatusLine: " .. resp.status_line)
print("Response Header:")
print(resp.header)
print(resp.body_str)
return
end
local xmlResponse = chilkat.Xml.new()
success = xmlResponse:load_xml(resp.body_str)
print(xmlResponse:get_xml())
local detail = xmlResponse:chilkat_path("soap:Body|GetReportDataResponse|GetReportDataResult|Detail|*")
local csv = chilkat.Csv.new()
csv.has_column_names = true
csv:load_from_string(detail)
print("NumRows = " .. csv.num_rows)
print("NumColumns = " .. csv.num_columns)
-- Iterate over the rows, getting the ItemCode, Name, and Barcode
local i = 0
local numRows = csv.num_rows
while i < numRows do
print("Item code: " .. csv:get_cell_by_name(i, "Item code"))
print("Date timestamp: " .. csv:get_cell_by_name(i, "Date timestamp"))
print("From: " .. csv:get_cell_by_name(i, "From"))
print("To: " .. csv:get_cell_by_name(i, "To"))
print("Quantity: " .. csv:get_cell_by_name(i, "Quantity"))
print("Comments: " .. csv:get_cell_by_name(i, "Comments"))
print("-")
i = i + 1
end