# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Customer Notes
[PANE]
ADMIN xxxxxxxx    01000Customer Notes                                                                                      020                                                                                                                                                                                                                                                               000000500000INVPEN000M
[VBSCRIPT]
' This script contains functions for customized pane events.
' You must not modify the name of the functions.
Option Explicit

Function CustomizedPane_OnLoad()
  ' Specify the variable to contain the XML that defines the listview structure
  dim ListXML

  ' Build up the XML that defines the listview structure
  ListXML = ListXML & "<Columns PrimaryNode='Row' Style='DataGrid' AutoSize='false' >"
  ListXML = ListXML & "<Column Name='Line' Description='Line' Type='numeric' />"
  ListXML = ListXML & "<Column Name='Notation' Description='Notation' />"
  ListXML = ListXML & "</Columns>"

  ' Pass the XML to the ListviewProperties variable
  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function


Function CustomizedPane_OnRefresh()
  ' Specify the variables to be used when calling the business object
  dim XMLOut, XMLParam, Customer
  CustomizedPane.CodeObject.ListviewData = " "

  ' Populate the Stockcode variable with the refresh value
  Customer = CustomizedPane.CodeObject.RefreshValue

  if Customer = "" then
    exit function
  end if


  ' Build up the XML that will be supplied to the business object
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <TableName>ArNarration</TableName>"
  XMLParam = XMLParam & "   <Columns>"
  XMLParam = XMLParam & "     <Column>Line</Column>"
  XMLParam = XMLParam & "     <Column>Notation</Column>"
  XMLParam = XMLParam & "   </Columns>"
  XMLParam = XMLParam & "   <Where>"
  XMLParam = XMLParam & "     <Expression>"
  XMLParam = XMLParam & "       <OpenBracket>(</OpenBracket>"
  XMLParam = XMLParam & "       <Column>Customer</Column>"
  XMLParam = XMLParam & "       <Condition>EQ</Condition>"
  XMLParam = XMLParam & "       <Value>" & Customer & "</Value>"
  XMLParam = XMLParam & "       <CloseBracket>)</CloseBracket>"
  XMLParam = XMLParam & "     </Expression>"
  XMLParam = XMLParam & "     <Expression>"
  XMLParam = XMLParam & "       <AndOr>And</AndOr>"
  XMLParam = XMLParam & "       <OpenBracket>(</OpenBracket>"
  XMLParam = XMLParam & "       <Column>NoteType</Column>"
  XMLParam = XMLParam & "       <Condition>EQ</Condition>"
  XMLParam = XMLParam & "       <Value>AR</Value>"
  XMLParam = XMLParam & "       <CloseBracket>)</CloseBracket>"
  XMLParam = XMLParam & "     </Expression>"
  XMLParam = XMLParam & "   </Where>"
  XMLParam = XMLParam & " </Query>"


  on error resume next

  ' Call the business object, supplying the XML and putting the result in to XMLOut
  XMLOut = CallBO("COMFND",XMLParam,"auto")
  if err then
    exit function
  end if
  ' Switch on error handling
  on error goto 0

  ' Pass the reulting XML to the ListviewData variable
  CustomizedPane.CodeObject.ListviewData = XMLOut

End Function