# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Reserved Serials for Job (Parent)
[PANE]
ADMIN INVPENLZ 01000Reserved Serials for Job (Parent) 020 000000500000INVPEN000M
[VBSCRIPT]
' This script contains functions for customized pane events.
' You must not modify the name of the functions.
Option Explicit
Function CustomizedPane_OnLoad()
' Specify the variable used to contain the XML that defines the listview structure
dim ListXML
' Populate the XML that defines the listview structure
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
' Take the XML and pass it to the ListviewProperties variable
CustomizedPane.CodeObject.ListviewProperties = ListXML
End Function
Function CustomizedPane_OnRefresh()
' Specify the variables that will be used when calling the business object
dim XMLOut, XMLParam, Job
CustomizedPane.CodeObject.ListviewData = " "
' Populate the Stockcode variable with the refresh value
Job = CustomizedPane.CodeObject.RefreshValue
if Job = "" then
exit function
end if
' Build up the XML to be passed to the business object
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
XMLParam = XMLParam & " " & Job & ""
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
on error resume next
' Call the business object, supply the XML and put the resulting XML in to XMLOut
XMLOut = CallBO("WIPQRY",XMLParam,"auto")
if err then
exit function
end if
' Switch on error handling
on error goto 0
' Pass the output from the business object to the ListviewData variable
CustomizedPane.CodeObject.ListviewData = XMLOut
End Function