Classic ASP
Classic ASP
Peoplevox GetReportData
See more Peoplevox Examples
Demonstrates how to export data from a Peoplevox Warehouse Management System (WMS) using a system report template.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' 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.
'
set sbSoapXml = Server.CreateObject("Chilkat.StringBuilder")
success = sbSoapXml.Append("<?xml version=""1.0"" encoding=""utf-8""?>" & vbCrLf)
success = sbSoapXml.Append("<soap:Envelope xmlns:soap=""http://www.w3.org/2003/05/soap-envelope"" xmlns:peop=""http://www.peoplevox.net/"">" & vbCrLf)
success = sbSoapXml.Append(" <soap:Header>" & vbCrLf)
success = sbSoapXml.Append(" <peop:UserSessionCredentials>" & vbCrLf)
success = sbSoapXml.Append(" <peop:UserId>PEOPLEVOX_USER_ID</peop:UserId>" & vbCrLf)
success = sbSoapXml.Append(" <peop:ClientId>PEOPLEVOX_CLIENT_ID</peop:ClientId>" & vbCrLf)
success = sbSoapXml.Append(" <peop:SessionId>PEOPLEVOX_SESSION_ID</peop:SessionId>" & vbCrLf)
success = sbSoapXml.Append(" </peop:UserSessionCredentials>" & vbCrLf)
success = sbSoapXml.Append(" </soap:Header>" & vbCrLf)
success = sbSoapXml.Append(" <soap:Body>" & vbCrLf)
success = sbSoapXml.Append(" <peop:GetReportData>" & vbCrLf)
success = sbSoapXml.Append(" <peop:getReportRequest>" & vbCrLf)
success = sbSoapXml.Append(" <peop:TemplateName>Item movement history</peop:TemplateName>" & vbCrLf)
success = sbSoapXml.Append(" <peop:PageNo>1</peop:PageNo>" & vbCrLf)
success = sbSoapXml.Append(" <peop:ItemsPerPage>20</peop:ItemsPerPage>" & vbCrLf)
success = sbSoapXml.Append(" <peop:OrderBy>[Date timestamp]</peop:OrderBy>" & vbCrLf)
success = sbSoapXml.Append(" <peop:Columns>[Item code],[Date timestamp],[From],[To],[Quantity],[Comments]</peop:Columns>" & vbCrLf)
success = sbSoapXml.Append(" <peop:SearchClause>([Date timestamp] > DateTime(2016,01,01,09,00,00))</peop:SearchClause>" & vbCrLf)
success = sbSoapXml.Append(" </peop:getReportRequest>" & vbCrLf)
success = sbSoapXml.Append(" </peop:GetReportData>" & vbCrLf)
success = sbSoapXml.Append(" </soap:Body>" & vbCrLf)
success = sbSoapXml.Append("</soap:Envelope>")
set req = Server.CreateObject("Chilkat.HttpRequest")
req.HttpVerb = "POST"
req.SendCharset = 1
req.Charset = "utf-8"
req.AddHeader "Content-Type","text/xml"
req.AddHeader "SOAPAction","http://www.peoplevox.net/GetReportData"
req.Path = "/PEOPLEVOX_CLIENT_ID/resources/integrationservicev4.asmx"
success = req.LoadBodyFromString(sbSoapXml.GetAsString(),"utf-8")
set http = Server.CreateObject("Chilkat.Http")
http.FollowRedirects = 1
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpSReq("qac.peoplevox.net",443,1,req,resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
' We should expect a 200 response if successful.
If (resp.StatusCode <> 200) Then
Response.Write "<pre>" & Server.HTMLEncode( "Response StatusCode = " & resp.StatusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Response StatusLine: " & resp.StatusLine) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( resp.Header) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"
Response.End
End If
set xmlResponse = Server.CreateObject("Chilkat.Xml")
success = xmlResponse.LoadXml(resp.BodyStr)
Response.Write "<pre>" & Server.HTMLEncode( xmlResponse.GetXml()) & "</pre>"
detail = xmlResponse.ChilkatPath("soap:Body|GetReportDataResponse|GetReportDataResult|Detail|*")
set csv = Server.CreateObject("Chilkat.Csv")
csv.HasColumnNames = 1
success = csv.LoadFromString(detail)
Response.Write "<pre>" & Server.HTMLEncode( "NumRows = " & csv.NumRows) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "NumColumns = " & csv.NumColumns) & "</pre>"
' Iterate over the rows, getting the ItemCode, Name, and Barcode
i = 0
numRows = csv.NumRows
Do While i < numRows
Response.Write "<pre>" & Server.HTMLEncode( "Item code: " & csv.GetCellByName(i,"Item code")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Date timestamp: " & csv.GetCellByName(i,"Date timestamp")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "From: " & csv.GetCellByName(i,"From")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "To: " & csv.GetCellByName(i,"To")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Quantity: " & csv.GetCellByName(i,"Quantity")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Comments: " & csv.GetCellByName(i,"Comments")) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "-") & "</pre>"
i = i + 1
Loop
%>
</body>
</html>