# Customized Panes for 'IMPMENLZ' Created: 2010/04/07
# PANE:Stock Code Search
[PANE]
ADMIN IMPMENLZ    01000Stock Code Search                                                                                   104                                                                                                                                                                                                                                                               000000500001IMPMEN050M000                    0000                    00000      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 & "<Columns PrimaryNode='Row' Style='DataGrid' AutoSize='false' FreezeColumn='1' >"
  ListXML = ListXML & "<Column Name='StockCode' Description='Stock code' />"
  ListXML = ListXML & "<Column Name='Description' Description='Description' />"
  ListXML = ListXML & "<Column Name='LongDesc' Description='LongDesc' />"
  ListXML = ListXML & "<Column Name='ProductClass' Description='Product class' />"
  ListXML = ListXML & "<Column Name='Supplier' Description='Supplier' />"
  ListXML = ListXML & "<Column Name='StockOnHold' Description='On Hold' />"
  ListXML = ListXML & "<Column Name='AlternateKey1' Description='Alternate key 1' Hidden='true' />"
  ListXML = ListXML & "<Column Name='AlternateKey2' Description='Alternate key 2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='UserField1' Description='User field 1' Hidden='true' />"
  ListXML = ListXML & "<Column Name='UserField2' Description='User field 2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='SupercessionDate' Description='Date of supersession' Type='Date' Alignment='Center' HdrAlignment='center' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DrawOfficeNum' Description='Drawing number' Hidden='true' />"
  '  ListXML = ListXML & "<Column Name='UserField3' Description='User field 3' />"
  '  ListXML = ListXML & "<Column Name='UserField4' Description='User field 4' />"
  '  ListXML = ListXML & "<Column Name='UserField5' Description='User field 5' />"
  '  ListXML = ListXML & "<Column Name='ClearingFlag' Description='Clearing stock flag' />"
  '  ListXML = ListXML & "<Column Name='TraceableType' Description='Traceable' />"
  '  ListXML = ListXML & "<Column Name='WarehouseToUse' Description='Warehouse to use' />"
  ListXML = ListXML & "</Columns>"
  CustomizedPane.CodeObject.ListviewProperties = ListXML
End Function


Function CustomizedPane_OnRefresh()
  dim XMLOut, XMLParam

  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <TableName>InvMaster</TableName>"
  XMLParam = XMLParam & "   <NoXml>1</NoXml>"
  XMLParam = XMLParam & "   <ReturnRows>999999</ReturnRows>"
  XMLParam = XMLParam & "   <Columns>"
  XMLParam = XMLParam & "     <Column>StockCode</Column>"
  XMLParam = XMLParam & "     <Column>Description</Column>"
  XMLParam = XMLParam & "     <Column>LongDesc</Column>"
  XMLParam = XMLParam & "     <Column>ProductClass</Column>"
  XMLParam = XMLParam & "     <Column>Supplier</Column>"
  XMLParam = XMLParam & "     <Column>StockOnHold</Column>"
  XMLParam = XMLParam & "     <Column>AlternateKey1</Column>"
  XMLParam = XMLParam & "     <Column>AlternateKey2</Column>"
  XMLParam = XMLParam & "     <Column>UserField1</Column>"
  XMLParam = XMLParam & "     <Column>UserField2</Column>"
  XMLParam = XMLParam & "     <Column>SupercessionDate</Column>"
  XMLParam = XMLParam & "     <Column>DrawOfficeNum</Column>"
  '  XMLParam = XMLParam & "     <Column>UserField3</Column>"
  '  XMLParam = XMLParam & "     <Column>UserField4</Column>"
  '  XMLParam = XMLParam & "     <Column>UserField5</Column>"
  '  XMLParam = XMLParam & "     <Column>ClearingFlag</Column>"
  '  XMLParam = XMLParam & "     <Column>TraceableType</Column>"
  '  XMLParam = XMLParam & "     <Column>WarehouseToUse</Column>"
  XMLParam = XMLParam & "   </Columns>"
  XMLParam = XMLParam & "   <Where>"

  XMLParam = XMLParam & CustomizedPane.CodeObject.Statement

  XMLParam = XMLParam & "   </Where>"
  XMLParam = XMLParam & "  </Query>"


  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