# Customized Panes for 'IMPMENLZ' Created: 2010/04/13
# PANE:Contract Search
[PANE]
ADMIN IMPMENLZ    01000Contract 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 & "<Columns PrimaryNode='Row' Style='DataGrid' AutoSize='false' FreezeColumn='1'>"
  ListXML = ListXML & "<Column Name='Contract' Description='Contract' />"
  ListXML = ListXML & "<Column Name='ContractDesc1' Description='Description' />"
  ListXML = ListXML & "<Column Name='Responsibility' Description='Responsibility code' />"
  ListXML = ListXML & "<Column Name='RespPerson' Description='Responsible person' />"
  ListXML = ListXML & "<Column Name='Customer' Description='Customer'  />"
  ListXML = ListXML & "<Column Name='HierarchyCode' Description='Hierarchy code' />"
  ListXML = ListXML & "<Column Name='PrgBillingMethod' Description='Progress billing method' />"
  ListXML = ListXML & "<Column Name='DepositMethod' Description='Deposit method' />"
  ListXML = ListXML & "<Column Name='DepositType' Description='Deposit type' />"
  ListXML = ListXML & "<Column Name='DepositPercent' Description='Deposit percent' />"

  ListXML = ListXML & "<Column Name='ContractDesc2' Description='Description 2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ContractDesc3' Description='Description 3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ContractDesc4' Description='Description 4' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ContractDesc5' Description='Description 5' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DepositProdClass' Description='Deposit product class' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='RetentionRequired' Description='Retention required' Type='Checkbox' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='RetentionCustomer' Description='Retention customer' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='RetentionMethod' Description='Retention method' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='RetentionType' Description='Retention type' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='RetentionPct' Description='Retention percent' Type='Numeric' Decimals='2' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='RetentionPrd' Description='Retention period' Type='Numeric' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='RetentionProdClass' Description='Retention product class' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='TermsCode' Description='Terms code' Hidden='true'  />"

  ListXML = ListXML & "</Columns>"
  CustomizedPane.CodeObject.ListviewProperties = ListXML
End Function


Function CustomizedPane_OnRefresh()

  dim XMLOut, XMLParam
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <TableName>PrjContMaster</TableName>"
  XMLParam = XMLParam & "   <NoXml>1</NoXml>"
  XMLParam = XMLParam & "   <ReturnRows>999999</ReturnRows>"
  XMLParam = XMLParam & "   <Columns>"
  XMLParam = XMLParam & "     <Column>Contract</Column>"
  XMLParam = XMLParam & "     <Column>ContractDesc1</Column>"
  XMLParam = XMLParam & "     <Column>Responsibility</Column>"
  XMLParam = XMLParam & "     <Column>RespPerson</Column>"
  XMLParam = XMLParam & "     <Column>Customer</Column>"
  XMLParam = XMLParam & "     <Column>HierarchyCode</Column>"
  XMLParam = XMLParam & "     <Column>PrgBillingMethod</Column>"
  XMLParam = XMLParam & "     <Column>DepositMethod</Column>"
  XMLParam = XMLParam & "     <Column>DepositType</Column>"
  XMLParam = XMLParam & "     <Column>DepositPercent</Column>"
  XMLParam = XMLParam & "     <Column>ContractDesc2</Column>"
  XMLParam = XMLParam & "     <Column>ContractDesc3</Column>"
  XMLParam = XMLParam & "     <Column>ContractDesc4</Column>"
  XMLParam = XMLParam & "     <Column>ContractDesc5</Column>"
  XMLParam = XMLParam & "     <Column>DepositProdClass</Column>"
  XMLParam = XMLParam & "     <Column>RetentionRequired</Column>"
  XMLParam = XMLParam & "     <Column>RetentionCustomer</Column>"
  XMLParam = XMLParam & "     <Column>RetentionMethod</Column>"
  XMLParam = XMLParam & "     <Column>RetentionType</Column>"
  XMLParam = XMLParam & "     <Column>RetentionPct</Column>"
  XMLParam = XMLParam & "     <Column>RetentionPrd</Column>"
  XMLParam = XMLParam & "     <Column>RetentionProdClass</Column>"
  XMLParam = XMLParam & "     <Column>TermsCode</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