# Customized Panes for 'xxxxxxxx' Created: 2008/10/27
# PANE:Contacts Per Customer
[PANE]
Phil  IMPMENLX    01000Contacts Per Customer                                                                               020                                                                                                                                                                                                                                                               000000500000IMPMEN000M
[VBSCRIPT]
' This script contains functions for customized pane events.
' You must not modify the name of the functions.
Option Explicit

Function CustomizedPane_OnLoad()


dim ListXML
  ListXML = ListXML & "<Columns PrimaryNode='Contact' Style='DataGrid' AutoSize='false' FreezeColumn='1'>"
  ListXML = ListXML & "<Column Name='ContactId' Description='Contact Id' Hidden='true' />"
  ListXML = ListXML & "<Column Name='FullName' Description='Full name' />"
  ListXML = ListXML & "<Column Name='PreferredName' Description='Preferred name' />"
  ListXML = ListXML & "<Column Name='JobTitle' Description='Job title' />"
  ListXML = ListXML & "<Column Name='Department' Description='Department' />"
  ListXML = ListXML & "<Column Name='Office' Description='Office' />"
  ListXML = ListXML & "<Column Name='WorkEmail' Description='Work email address' />"
  ListXML = ListXML & "<Column Name='WorkTelephone' Description='Work telephone number' />"
  ListXML = ListXML & "<Column Name='WorkTelephoneExtn' Description='Work telephone extension' />"
  ListXML = ListXML & "<Column Name='Territory' Description='Territory' Hidden='true' />"
  ListXML = ListXML & "</Columns>"
  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function

Function CustomizedPane_OnRefresh()

  dim XMLOut, XMLParam, Account

  Account = CustomizedPane.CodeObject.RefreshValue

  if Account = "" then
    exit function
  end if

  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <KeyType>A</KeyType>"
  XMLParam = XMLParam & "     <KeyValue>" & Account & "</KeyValue>" 
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & " </Query>"

  on error resume next
  XMLOut = CallBO("CMSQRC",XMLParam,"auto")
  if err then
    CustomizedPane.CodeObject.ListviewData = " "
    exit function
  end if
  ' Switch on error handling
  on error goto 0
  CustomizedPane.CodeObject.ListviewData = XMLOUT

End Function