% '
' Inventory Listing
'
MaxRecs = 20 ' maximum records per report
ZoomURL = "Invt.asp" ' name of zoom file. If blank none.
ZoomVendorURL = "Vendor.asp" ' name of zoom file. If blank none.
RunReport = (Request("RunReport")<>"")
RunVendorReport = (Request("RunReport")="2")
%>
Inventory Listing
<% ' LoginRights: If 1 user has full rights, if 0 or -1, browse only rights %>
<% LoginRights = request.cookies("Rights") %>
" TYPE="text/css">
<% ' DebugMode =1 ' uncomment this for page get/post debug help %>
<% If RunReport then '-------------run the report ------------- %>
<% If RunVendorReport then ' %>
Vendor Parts List
<%
' If we list only for Vendor we must get the current Vendor
' rowid and pass it to the VDF report
VRowId = request("VendorRowId")
' this calls the VDF report passing row Id and the URLs to link
' the report back to the Invt or Vendor entry screen.
oInvt.call "msg_SetHRefName", ZoomUrl
oInvt.call "msg_SetVendorHRefName", ZoomVendorUrl
oInvt.call "msg_RunVndrInvtList", VRowId
%>
<% else '-------------%>
Inventory Listing
<%
Index = request("Index") ' The last selected Index number
StartRowId = request("Start")
oInvt.call "msg_SetHRefName", ZoomUrl
oInvt.call "msg_SetVendorHRefName", ZoomVendorUrl
EndRowId = oInvt.call("get_RunInvtList", Index, StartRowId, MaxRecs)
%>
<% If StartRowId <>"" then %>
Previous Page
<% end if %>
<% If EndRowId <> "" then %>
Next Page
<% end if %>
New Report
<% end if %>
<% else '-------------set up the report ------------- %>