# Customized Panes for 'IMPMENLZ' Created: 2010/04/13
# PANE:Account Search
[PANE]
ADMIN IMPMENLZ    01000Account 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='Account' Description='Account' />"
  ListXML = ListXML & "<Column Name='Name' Description='Name'  />"
  ListXML = ListXML & "<Column Name='AccountOnHold' Description='On hold' Type='Checkbox' />"
  ListXML = ListXML & "<Column Name='AccountType' Description='Account type' />"
  ListXML = ListXML & "<Column Name='Salesperson' Description='Salesperson' />"
  ListXML = ListXML & "<Column Name='Branch' Description='Branch'  />"

  ListXML = ListXML & "<Column Name='Customer' Description='Customer' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Supplier' Description='Supplier' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Area' Description='Geographic area' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Telephone' Description='Telephone' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='AddTelephone' Description='Additional telephone' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='Email' Description='Email' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='Contact' Description='Contact' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='CreditLimit' Description='Credit limit' Type='Numeric' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='DateAccountAdded' Description='Date account added' Type='Date' HdrAlignment='center' Alignment='center' Hidden='true'  />"

  '  ListXML = ListXML & "<Column Name='Currency' Description='Currency' />"
  '  ListXML = ListXML & "<Column Name='UserField1' Description='User field 1' />"
  '  ListXML = ListXML & "<Column Name='UserField2' Description='User field 2' Type='Numeric' Decimals='2' />"
  '  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='StateCode' Description='State code' />"
  '  ListXML = ListXML & "<Column Name='SoldState' Description='Sold to state' />"
  '  ListXML = ListXML & "<Column Name='SoldCountry' Description='Sold to country'  />"
  '  ListXML = ListXML & "<Column Name='SoldZip' Description='Sold to zip code' />"
  '  ListXML = ListXML & "<Column Name='ShipState' Description='Ship to state' />"
  '  ListXML = ListXML & "<Column Name='ShipCountry' Description='Ship to country'  />"
  '  ListXML = ListXML & "<Column Name='ShipZip' Description='Ship to zip code' />"
  '  ListXML = ListXML & "<Column Name='SalesWarehouse' Description='Warehouse' />"

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


Function CustomizedPane_OnRefresh()

  dim XMLOut, XMLParam
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <TableName>CrmAccount</TableName>"
  XMLParam = XMLParam & "   <NoXml>1</NoXml>"
  XMLParam = XMLParam & "   <ReturnRows>999999</ReturnRows>"
  XMLParam = XMLParam & "   <Columns>"
  XMLParam = XMLParam & "     <Column>Account</Column>"
  XMLParam = XMLParam & "     <Column>Name</Column>"
  XMLParam = XMLParam & "     <Column>AccountOnHold</Column>"
  XMLParam = XMLParam & "     <Column>AccountType</Column>"
  XMLParam = XMLParam & "     <Column>Salesperson</Column>"
  XMLParam = XMLParam & "     <Column>Branch</Column>"
  XMLParam = XMLParam & "     <Column>Customer</Column>"
  XMLParam = XMLParam & "     <Column>Supplier</Column>"
  XMLParam = XMLParam & "     <Column>Area</Column>"
  XMLParam = XMLParam & "     <Column>Telephone</Column>"
  XMLParam = XMLParam & "     <Column>AddTelephone</Column>"
  XMLParam = XMLParam & "     <Column>Email</Column>"
  XMLParam = XMLParam & "     <Column>Contact</Column>"
  XMLParam = XMLParam & "     <Column>CreditLimit</Column>"
  XMLParam = XMLParam & "     <Column>DateAccountAdded</Column>"

  '  XMLParam = XMLParam & "     <Column>Currency</Column>"
  '  XMLParam = XMLParam & "     <Column>UserField1</Column>"
  '  XMLParam = XMLParam & "     <Column>UserField2</Column>"
  '  XMLParam = XMLParam & "     <Column>UserField3</Column>"
  '  XMLParam = XMLParam & "     <Column>UserField4</Column>"
  '  XMLParam = XMLParam & "     <Column>UserField5</Column>"
  '  XMLParam = XMLParam & "     <Column>StateCode</Column>"
  '  XMLParam = XMLParam & "     <Column>SoldState</Column>"
  '  XMLParam = XMLParam & "     <Column>SoldCountry</Column>"
  '  XMLParam = XMLParam & "     <Column>SoldZip</Column>"
  '  XMLParam = XMLParam & "     <Column>ShipState</Column>"
  '  XMLParam = XMLParam & "     <Column>ShipCountry</Column>"
  '  XMLParam = XMLParam & "     <Column>ShipZip</Column>"
  '  XMLParam = XMLParam & "     <Column>SalesWarehouse</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