# Customized Panes for 'IMPMENLZ' Created: 2010/04/13
# PANE:Multiple Ship Address Search
[PANE]
ADMIN IMPMENLZ 01000Multiple Ship Address Search 104 000000500001IMPMEN050M000 1281 00000CS SearchWindow
[VBSCRIPT]
Option Explicit
Function CustomizedPane_OnLoad()
' Notes :
'
' 1) The more columns that the business object must return, the slower it will run.
' 2) If the business object must return lots of rows it will significantly affect the performance.
' 3) Because the business object is not returning XML, the columns in this list must appear in the
' exact same sequence as the list supplied to the business object.
' 4) Columns that appear below with the Hidden option set to True will be available in the Field
' Chooser. These fields are returned by the business object but are not displayed to save time.
' 5) There are several columns that are commented out. This is to significantly reduce the time taken
' by the business object to return the data, and for the listview to display this. Because they
' appear in the code it is a simple case of removing the apostrophe that comments them out. The
' next time that this search is called these fields will be present.
' 6) When removing the apostrophe that comments out the entry, it must be done against both the column
' definition of what is to be displayed, as well as the business object.
dim 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 = ListXML & ""
ListXML = ListXML & ""
ListXML = ListXML & ""
CustomizedPane.CodeObject.ListviewProperties = ListXML
End Function
Function CustomizedPane_OnRefresh()
dim XMLOut, XMLParam
XMLParam = XMLParam & " "
XMLParam = XMLParam & " ArMultAddress"
XMLParam = XMLParam & " 1"
XMLParam = XMLParam & " 999999"
XMLParam = XMLParam & " "
XMLParam = XMLParam & " AddrCode"
XMLParam = XMLParam & " Customer"
XMLParam = XMLParam & " ShipToName"
XMLParam = XMLParam & " ShipToAddr1"
XMLParam = XMLParam & " ShipToAddr2"
XMLParam = XMLParam & " ShipToAddr3"
XMLParam = XMLParam & " ShipToAddr4"
XMLParam = XMLParam & " ShipToAddr5"
XMLParam = XMLParam & " ShipPostalCode"
XMLParam = XMLParam & " Area"
XMLParam = XMLParam & " State"
XMLParam = XMLParam & " CountyZip"
XMLParam = XMLParam & " City"
XMLParam = XMLParam & " RouteCode"
XMLParam = XMLParam & " RouteDistance"
XMLParam = XMLParam & " Nationality"
XMLParam = XMLParam & " GeographicArea"
XMLParam = XMLParam & " TaxRegnNum"
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
XMLParam = XMLParam & CustomizedPane.CodeObject.Statement
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
on error resume next
XMLOut = CallBO("COMFND",XMLParam,"auto")
if err then
msgbox err.Description, vBCritical, "Calling Business Object"
exit function
end if
' Switch on error handling
on error goto 0
' Take the XML that has been built and populate the ListviewData variable.
CustomizedPane.CodeObject.ListviewData = XMLOut
End Function