# Customized Panes for 'xxxxxxxx' Created: 2010/03/03
# PANE:Master Account
[PANE]
ADMIN ARSPENLZ    01001Master Account                                                                                      090settings\ADMIN_VBS_ARSPEN01.XML                                                                                                                                                                                                                                000000500000ARSPEN010M000                    0000                    00000
[VBSCRIPT]
' This script contains functions for form and field events.
' You must not modify the name of the functions.
Option Explicit

Function CustomizedPane_OnLoad()
  Dim FormProps
  FormProps = "<Form><Fields>"
  Formprops = FormProps & "<Field Name='Master account' Type='A' />"
  Formprops = FormProps & "<Field Name='Store number' Type='A' />"
  Formprops = FormProps & "</Fields></Form>"
  CustomizedPane.CodeObject.FormProperties = FormProps
End Function


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

  ' 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 & "   <Key>"
  XMLParam = XMLParam & "     <Customer>" & Customer & "</Customer>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeFutures>N</IncludeFutures>"
  XMLParam = XMLParam & "     <IncludeTransactions>N</IncludeTransactions>"
  XMLParam = XMLParam & "     <IncludeCheckPayments>N</IncludeCheckPayments>"
  XMLParam = XMLParam & "     <IncludePostDated>N</IncludePostDated>"
  XMLParam = XMLParam & "     <IncludeZeroBalances>N</IncludeZeroBalances>"
  XMLParam = XMLParam & "     <IncludeCustomForms>N</IncludeCustomForms>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & " </Query>"
  on error resume next

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


  ' Define the variables required for extracting the information from the DOM.
  Dim XMLDoc, MasterAccount, StoreNumber

  ' Load the output from the business object in to the DOM
  Set XMLDoc = createobject("MSXML2.DOMDocument")
  XMLDoc.async = false
  XMLDoc.LoadXML(XMLOut)

  ' Populate the values for the fields
  MasterAccount = XMLDoc.SelectSingleNode("//MasterAccount").Text
  StoreNumber = XMLDoc.SelectSingleNode("//StoreNumber").Text

  If MasterAccount = "" then
    MasterAccount = "Not a sub-account"
  End if

  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='Master account' Value='" & MasterAccount & "' />"
  FormData = FormData & "<Field Name='Store number' Value='" & StoreNumber & "' />"
  FormData = FormData & "</Fields></Form>"

CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function