# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Foreign Prices
[PANE]
ADMIN INVPENLZ 01000Foreign Prices 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 to contain the XML that defines the listview structure
dim ListXML
' Build the XML that defines the listview structure
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
' Pass the XML to the ListviewProperties variable
CustomizedPane.CodeObject.ListviewProperties = ListXML
End Function
Function CustomizedPane_OnRefresh()
' Specify the variables to be used when calling the business object
dim XMLOut, XMLParam, Stockcode
CustomizedPane.CodeObject.ListviewData = " "
' Populate the Stockcode variable with the refresh value
Stockcode = CustomizedPane.CodeObject.RefreshValue
if Stockcode = "" then
exit function
end if
' Build the XML to be passed to the business object
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
on error resume next
' Call the business object passing it the XML, and place the result in XMLOut
XMLOut = CallBO("INVQWR",XMLParam,"auto")
if err then
exit function
end if
' Switch on error handling
on error goto 0
' Pass the results from the business object to the ListviewData variable
CustomizedPane.CodeObject.ListviewData = XMLOut
End Function