# Customized Panes for 'xxxxxxxx' Created: 2010/03/03
# PANE:Supplier Branch Details
[PANE]
ADMIN ARSPENLZ    01001Supplier Branch 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='Branch' Type='A' />"
  Formprops = FormProps & "<Field Name='Branch description' Type='A' />"

  Formprops = FormProps & "<Field Name='G/L accounts' Type='H' />"
  Formprops = FormProps & "<Field Name='A/P control ledger code' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='A/P discount taken ledger code' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Purchase order numbering' Type='H' />"
  Formprops = FormProps & "<Field Name='Prefix' Type='A' Group='1' ID='1' />"
  Formprops = FormProps & "<Field Name='Next purchase order' Type='A' Group='1' ID='2' />"

  Formprops = FormProps & "<Field Name='GRN numbering' Type='H' />"
  Formprops = FormProps & "<Field Name='Prefix' Type='A' Group='1' ID='3' />"
  Formprops = FormProps & "<Field Name='Next GRN' Type='A' Group='1' ID='4' />"

  Formprops = FormProps & "<Field Name='Nationality' 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, SupplierBranch, FormData
  CustomizedPane.CodeObject.UpdateFormValues = " "

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

  if SupplierBranch = "" then
    exit function
  end if

  ' Build up the XML to be passed to the business object
  XMLParam = XMLParam & " <Fetch>"
  XMLParam = XMLParam & "   <TableName>ApBranch</TableName>"
  XMLParam = XMLParam & "   <Key>" & SupplierBranch & "</Key>"
  XMLParam = XMLParam & " </Fetch>"
  on error resume next

  ' Call the business object, supplying the XML and putting the result in to XMLOut
  XMLOut = CallBO("COMFCH",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, Branch, BrDesc
  Dim ApBrnGlCode, ApBrnDscGlCode, PoPrefix, PoNextNumber, GrnPrefix, GrnNextNumber, Nationality

  ' 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
  Branch = XMLDoc.SelectSingleNode("//Branch").Text
  BrDesc = XMLDoc.SelectSingleNode("//Description").Text
  ApBrnGlCode = XMLDoc.SelectSingleNode("//ApBrnGlCode").Text
  ApBrnDscGlCode = XMLDoc.SelectSingleNode("//ApBrnDscGlCode").Text
  PoPrefix = XMLDoc.SelectSingleNode("//PoPrefix").Text
  PoNextNumber = XMLDoc.SelectSingleNode("//PoNextNumber").Text
  GrnPrefix = XMLDoc.SelectSingleNode("//GrnPrefix").Text
  GrnNextNumber = XMLDoc.SelectSingleNode("//GrnNextNumber").Text
  Nationality = XMLDoc.SelectSingleNode("//Nationality").Text
  

  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='Branch' Value='" & Branch & "' />"
  FormData = FormData & "<Field Name='Branch description' Value='" & BrDesc & "' />"

  FormData = FormData & "<Field Name='A/P control ledger code' Value='" & ApBrnGlCode & "' />"
  FormData = FormData & "<Field Name='A/P discount taken ledger code' Value='" & ApBrnDscGlCode & "' />"

  FormData = FormData & "<Field ID='1' Value='" & PoPrefix & "' />"
  FormData = FormData & "<Field ID='2' Value='" & PoNextNumber & "' />"

  FormData = FormData & "<Field ID='3' Value='" & GrnPrefix & "' />"
  FormData = FormData & "<Field ID='4' Value='" & GrnNextNumber & "' />"

  FormData = FormData & "<Field Name='Nationality' Value='" & Nationality & "' />"
  FormData = FormData & "</Fields></Form>"

  CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function