# Customized Panes for 'IMPMENLZ' Created: 2010/04/07
# PANE:Asset search
[PANE]
ADMIN IMPMENLZ    01000Asset 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='Asset' Description='Asset' />"
  ListXML = ListXML & "<Column Name='Description' Description='Description' />"
  ListXML = ListXML & "<Column Name='Branch' Description='Branch' />"
  ListXML = ListXML & "<Column Name='AssetQty' Description='Asset quantity' Type='Numeric' Decimals='5' />"
  ListXML = ListXML & "<Column Name='AssetStatus' Description='Status' />"
  ListXML = ListXML & "<Column Name='AssetType' Description='Type' />"
  ListXML = ListXML & "<Column Name='Location' Description='Location' />"
  ListXML = ListXML & "<Column Name='PurchaseDate' Description='Date of purchase' Type='Date' Alignment='Center' HdrAlignment='center' />"
  ListXML = ListXML & "<Column Name='DateSold' Description='Date sold' Type='Date' Alignment='Center' HdrAlignment='center' Hidden='true' />"
  ListXML = ListXML & "<Column Name='AssetGroupCode' Description='Group code' Hidden='true' />"
  ListXML = ListXML & "<Column Name='AgreementCode' Description='Agreement code' Hidden='true' />"

  ListXML = ListXML & "<Column Name='AccountType' Description='Account type' Hidden='true' />"
  ListXML = ListXML & "<Column Name='NewOldFlag' Description='New / old flag' Hidden='true' />"
  ListXML = ListXML & "<Column Name='AssetCostCenter' Description='Cost center' Hidden='true' />"
  ListXML = ListXML & "<Column Name='OrigStartDepnDate' Description='Original date depreciation started' Type='Date' Alignment='Center' HdrAlignment='center' Hidden='true' />"
  ListXML = ListXML & "<Column Name='OrigStartYear' Description='Original year depreciation started' Hidden='true' />"
  ListXML = ListXML & "<Column Name='UserDef1' Description='User-defined value' Type='Numeric' Decimals='2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='UserDef2' Description='User-defined date' Type='Date' Alignment='Center' HdrAlignment='center' Hidden='true' />"
  ListXML = ListXML & "<Column Name='UserDef3' Description='User-defined description 1' Hidden='true' />"
  ListXML = ListXML & "<Column Name='UserDef4' Description='User-defined description 2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DisposedFlag' Description='Disposed flag' Type='Checkbox' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DisposalReason' Description='Reason for disposal' Hidden='true' />"

  '  ListXML = ListXML & "<Column Name='FirstInstalDate' Description='Date of first instalment' Type='Date' Alignment='Center' HdrAlignment='center' />"
  '  ListXML = ListXML & "<Column Name='AssetID' Description='ID / serial code' />"
  '  ListXML = ListXML & "<Column Name='CapexCode' Description='Capex code' />"
  '  ListXML = ListXML & "<Column Name='CycleCountCode' Description='Cycle count code' />"
  '  ListXML = ListXML & "<Column Name='RespUser' Description='Responsible user' />"
  '  ListXML = ListXML & "<Column Name='AssetOwner' Description='Owner' />"
  '  ListXML = ListXML & "<Column Name='Supplier' Description='Supplier' />"
  '  ListXML = ListXML & "<Column Name='PurchasePeriod' Description='Period number of purchase' />"
  '  ListXML = ListXML & "<Column Name='PurchaseYear' Description='year of purchase' />"
  '  ListXML = ListXML & "<Column Name='MasterAsset' Description='Asset code of master' />"
  '  ListXML = ListXML & "<Column Name='MemoDate' Description='Memo date' Type='Date' Alignment='Center' HdrAlignment='center' />"
  '  ListXML = ListXML & "<Column Name='OriginalAssetQty' Description='Original quantity of asset' />"
  '  ListXML = ListXML & "<Column Name='OrigStartPeriod' Description='Original period depreciation started' Hidden='true' />"
  ListXML = ListXML & "</Columns>"
  CustomizedPane.CodeObject.ListviewProperties = ListXML
End Function


Function CustomizedPane_OnRefresh()
  dim XMLOut, XMLParam

  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <TableName>AssetMaster</TableName>"
  XMLParam = XMLParam & "   <NoXml>1</NoXml>"
  XMLParam = XMLParam & "   <ReturnRows>999999</ReturnRows>"
  XMLParam = XMLParam & "   <Columns>"
  XMLParam = XMLParam & "     <Column>Asset</Column>"
  XMLParam = XMLParam & "     <Column>Description</Column>"
  XMLParam = XMLParam & "     <Column>Branch</Column>"
  XMLParam = XMLParam & "     <Column>AssetQty</Column>"
  XMLParam = XMLParam & "     <Column>AssetStatus</Column>"
  XMLParam = XMLParam & "     <Column>AssetType</Column>"
  XMLParam = XMLParam & "     <Column>Location</Column>"
  XMLParam = XMLParam & "     <Column>PurchaseDate</Column>"
  XMLParam = XMLParam & "     <Column>DateSold</Column>"
  XMLParam = XMLParam & "     <Column>AssetGroupCode</Column>"
  XMLParam = XMLParam & "     <Column>AgreementCode</Column>"
  XMLParam = XMLParam & "     <Column>AccountType</Column>"
  XMLParam = XMLParam & "     <Column>NewOldFlag</Column>"
  XMLParam = XMLParam & "     <Column>AssetCostCenter</Column>"
  XMLParam = XMLParam & "     <Column>OrigStartDepnDate</Column>"
  XMLParam = XMLParam & "     <Column>OrigStartYear</Column>"
  XMLParam = XMLParam & "     <Column>UserDef1</Column>"
  XMLParam = XMLParam & "     <Column>UserDef2</Column>"
  XMLParam = XMLParam & "     <Column>UserDef3</Column>"
  XMLParam = XMLParam & "     <Column>UserDef4</Column>"
  XMLParam = XMLParam & "     <Column>DisposedFlag</Column>"
  XMLParam = XMLParam & "     <Column>DisposalReason</Column>"

  '  XMLParam = XMLParam & "     <Column>FirstInstalDate</Column>"
  '  XMLParam = XMLParam & "     <Column>AssetID</Column>"
  '  XMLParam = XMLParam & "     <Column>CapexCode</Column>"
  '  XMLParam = XMLParam & "     <Column>CycleCountCode</Column>"
  '  XMLParam = XMLParam & "     <Column>RespUser</Column>"
  '  XMLParam = XMLParam & "     <Column>AssetOwner</Column>"
  '  XMLParam = XMLParam & "     <Column>Supplier</Column>"
  '  XMLParam = XMLParam & "     <Column>PurchasePeriod</Column>"
  '  XMLParam = XMLParam & "     <Column>PurchaseYear</Column>"
  '  XMLParam = XMLParam & "     <Column>MasterAsset</Column>"
  '  XMLParam = XMLParam & "     <Column>MemoDate</Column>"
  '  XMLParam = XMLParam & "     <Column>OriginalAssetQty</Column>"
  '  XMLParam = XMLParam & "     <Column>OrigStartPeriod</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