# Customized Panes for 'xxxxxxxx' Created: 2010/03/03
# PANE:Bank Details
[PANE]
ADMIN ARSPENLZ    01001Bank Details                                                                                        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='Bank details' Type='H' />"
  Formprops = FormProps & "<Field Name='Bank' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Description' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Account number' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Currency' ID='1' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Currency description' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Telephone' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Foreign bank' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Ledger codes' Type='H' />"
  Formprops = FormProps & "<Field Name='Cash account ledger code' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Account description' Type='A' Group='1' />"
  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, Bank, FormData
  CustomizedPane.CodeObject.UpdateFormValues = " "

  ' Populate the RequisitionUser variable with the refresh value
  Bank = CustomizedPane.CodeObject.RefreshValue

  if Bank = "" then
    exit function
  end if


  ' Build up the XML that will be supplied to the business object
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <Month>C</Month>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & "   <Filter>"
  XMLParam = XMLParam & "     <Bank FilterType='S' FilterValue='" & Bank & "'/>"
  XMLParam = XMLParam & "   </Filter>"
  XMLParam = XMLParam & " </Query>"
  on error resume next



  ' Call the business object, supplying the XML and putting the result in to XMLOut
  XMLOut = CallBO("CSHQ45",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, BankCode, Description, AccNum, CurrencyCode, CurrencyDesc, Telephone, Foreign, CashAccount, CashAccountDesc

  ' 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
  BankCode = XMLDoc.SelectSingleNode("//Bank").Text
  Description = XMLDoc.SelectSingleNode("//BankDescription").Text
  AccNum = XMLDoc.SelectSingleNode("//AccountNumber").Text
  CurrencyCode = XMLDoc.SelectSingleNode("//Currency").Text
  CurrencyDesc = XMLDoc.SelectSingleNode("//TBLCUR_Description").Text
  Telephone = XMLDoc.SelectSingleNode("//Telephone").Text
  CashAccount = XMLDoc.SelectSingleNode("//CashLedgerAccount").Text
  CashAccountDesc = XMLDoc.SelectSingleNode("//GENMST_Description").Text

  Foreign = "Yes"

  If CurrencyCode = SystemVariables.CodeObject.LocalCurrency then
    Foreign = "No"
  End If



  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='Bank' Value='" & BankCode & "' />"
  FormData = FormData & "<Field Name='Description' Value='" & Description & "' />"
  FormData = FormData & "<Field Name='Account number' Value='" & AccNum & "' />"
  FormData = FormData & "<Field ID='1' Value='" & CurrencyCode & "' />"
  FormData = FormData & "<Field Name='Currency description' Value='" & CurrencyDesc & "' />"
  FormData = FormData & "<Field Name='Telephone' Value='" & Telephone & "' />"
  FormData = FormData & "<Field Name='Foreign bank' Value='" & Foreign & "' />"
  FormData = FormData & "<Field Name='Cash account ledger code' Value='" & CashAccount & "' />"
  FormData = FormData & "<Field Name='Account description' Value='" & CashAccountDesc & "' />"
  FormData = FormData & "</Fields></Form>"

  CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function