# Customized Panes for 'IMPMENLZ' Created: 2010/04/13
# PANE:Contact Search
[PANE]
ADMIN IMPMENLZ    01000Contact 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='FullName' Description='Full name' />"
  ListXML = ListXML & "<Column Name='FirstName' Description='First name'  />"
  ListXML = ListXML & "<Column Name='LastName' Description='Last name' />"
  ListXML = ListXML & "<Column Name='PreferredName' Description='Preferred name' />"
  ListXML = ListXML & "<Column Name='JobTitle' Description='Job title'  />"

  ListXML = ListXML & "<Column Name='Gender' Description='Gender' Hidden='true' />"
  ListXML = ListXML & "<Column Name='PreferredLanguage' Description='Preferred language' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ContactClass' Description='Contact class' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ContactType' Description='Contact type' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='ContactCategory' Description='Contact category' Hidden='true'  />"

  '  ListXML = ListXML & "<Column Name='ContactTerritory' Description='Contact territory' />"
  '  ListXML = ListXML & "<Column Name='Influence' Description='Influence' />"
  '  ListXML = ListXML & "<Column Name='ContactMethod' Description='Contact method' />"
  '  ListXML = ListXML & "<Column Name='ContactStatus' Description='Contact status' />"
  '  ListXML = ListXML & "<Column Name='CreatedDate' Description='Date created' Type='Date' HdrAlignment='center' Alignment='center' />"
  '  ListXML = ListXML & "<Column Name='LastContactDate' Description='Date of last contact' Type='Date' HdrAlignment='center' Alignment='center' />"

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


Function CustomizedPane_OnRefresh()

  dim XMLOut, XMLParam
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <TableName>CrmContact</TableName>"
  XMLParam = XMLParam & "   <NoXml>1</NoXml>"
  XMLParam = XMLParam & "   <ReturnRows>999999</ReturnRows>"
  XMLParam = XMLParam & "   <Columns>"
  XMLParam = XMLParam & "     <Column>FullName</Column>"
  XMLParam = XMLParam & "     <Column>FirstName</Column>"
  XMLParam = XMLParam & "     <Column>LastName</Column>"
  XMLParam = XMLParam & "     <Column>PreferredName</Column>"
  XMLParam = XMLParam & "     <Column>JobTitle</Column>"
  XMLParam = XMLParam & "     <Column>Gender</Column>"
  XMLParam = XMLParam & "     <Column>PreferredLanguage</Column>"
  XMLParam = XMLParam & "     <Column>ContactClass</Column>"
  XMLParam = XMLParam & "     <Column>ContactType</Column>"
  XMLParam = XMLParam & "     <Column>ContactCategory</Column>"

  '  XMLParam = XMLParam & "     <Column>ContactTerritory</Column>"
  '  XMLParam = XMLParam & "     <Column>Influence</Column>"
  '  XMLParam = XMLParam & "     <Column>ContactMethod</Column>"
  '  XMLParam = XMLParam & "     <Column>ContactStatus</Column>"
  '  XMLParam = XMLParam & "     <Column>CreatedDate</Column>"
  '  XMLParam = XMLParam & "     <Column>LastContactDate</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