# Customized Panes for 'xxxxxxxx' Created: 2010/03/03
# PANE:Customer Branch Details
[PANE]
ADMIN ARSPENLZ    01001Customer 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 information' Type='H' />"
  Formprops = FormProps & "<Field Name='Branch description' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Branch address line 1' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Branch address line 2' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Branch address line 3' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Sales value accounts' Type='H' />"
  Formprops = FormProps & "<Field Name='A/R Control (Dr)' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Freight charges (Cr)' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Finance charges (Cr)' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Rounding error (Cr)' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Deposit revenue (Cr)' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Sales tax (Cr)' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Cost of sales' Type='H' />"
  Formprops = FormProps & "<Field Name='Freight (Dr)' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Non-stocked misc. &amp; Freight (Cr)' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Invoice numbering' Type='H' />"
  Formprops = FormProps & "<Field Name='Prefix' Type='A' Group='1' ID='1' />"
  Formprops = FormProps & "<Field Name='Next invoice' Type='A' Group='1' ID='2' />"
  Formprops = FormProps & "<Field Name='Next credit note' Type='A' Group='1' ID='3' />"
  Formprops = FormProps & "<Field Name='Next debit note' Type='A' Group='1' ID='4' />"

  Formprops = FormProps & "<Field Name='RMA numbering' Type='H'/>"
  Formprops = FormProps & "<Field Name='Prefix' Type='A' Group='1' ID='5' />"
  Formprops = FormProps & "<Field Name='Next RMA' Type='A' Group='1' ID='6' />"

  Formprops = FormProps & "<Field Name='Sales order and del not numbering' Type='H'/>"
  Formprops = FormProps & "<Field Name='Prefix' Type='A' Group='1' ID='7' />"
  Formprops = FormProps & "<Field Name='Next sales order' Type='A' Group='1' ID='8' />"
  Formprops = FormProps & "<Field Name='Next credit note' Type='A' Group='1' ID='9' />"
  Formprops = FormProps & "<Field Name='Next debit note' Type='A' Group='1' ID='10' />"
  Formprops = FormProps & "<Field Name='Next delivery note' Type='A' Group='1' ID='11' />"
  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, CustomerBranch, FormData
  CustomizedPane.CodeObject.UpdateFormValues = " "

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

  if CustomerBranch = "" then
    exit function
  end if

  ' Build up the XML to be passed to the business object
  XMLParam = XMLParam & " <Fetch>"
  XMLParam = XMLParam & "   <TableName>SalBranch</TableName>"
  XMLParam = XMLParam & "   <Key>" & CustomerBranch & "</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, BrAddr1, BrAddr2, BrAddr3
  Dim SalesCtlAcc, FrtSalesAcc, FinChargeAcc, RoundingAcc, DepositAcc, SalesTaxAcc, FrtCosAcc, CosCtlAcc
  Dim PrefixNextInv, NextInvoice, NextCreditNote, NextDebitNote, PrefixNextRma, NextRma
  Dim PrefixNextSo, NextSalesOrder, NextSoCrNote, NextSoDbNote, NextDelNote

  ' 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
  BrAddr1 = XMLDoc.SelectSingleNode("//BranchAddr1").Text
  BrAddr2 = XMLDoc.SelectSingleNode("//BranchAddr2").Text
  BrAddr3 = XMLDoc.SelectSingleNode("//BranchAddr3").Text
  SalesCtlAcc = XMLDoc.SelectSingleNode("//SalesCtlAcc").Text
  FrtSalesAcc = XMLDoc.SelectSingleNode("//FrtSalesAcc").Text
  FinChargeAcc = XMLDoc.SelectSingleNode("//FinChargeAcc").Text
  RoundingAcc = XMLDoc.SelectSingleNode("//RoundingAcc").Text
  DepositAcc = XMLDoc.SelectSingleNode("//DepositAcc").Text
  SalesTaxAcc = XMLDoc.SelectSingleNode("//SalesTaxAcc").Text
  FrtCosAcc = XMLDoc.SelectSingleNode("//FrtCosAcc").Text
  CosCtlAcc = XMLDoc.SelectSingleNode("//CosCtlAcc").Text
  PrefixNextInv = XMLDoc.SelectSingleNode("//PrefixNextInv").Text
  NextInvoice = XMLDoc.SelectSingleNode("//NextInvoice").Text
  NextCreditNote = XMLDoc.SelectSingleNode("//NextCreditNote").Text
  NextDebitNote = XMLDoc.SelectSingleNode("//NextDebitNote").Text
  PrefixNextRma = XMLDoc.SelectSingleNode("//PrefixNextRma").Text
  NextRma = XMLDoc.SelectSingleNode("//NextRma").Text
  PrefixNextSo = XMLDoc.SelectSingleNode("//PrefixNextSo").Text  
  NextSalesOrder = XMLDoc.SelectSingleNode("//NextSalesOrder").Text
  NextSoCrNote = XMLDoc.SelectSingleNode("//NextSoCrNote").Text
  NextSoDbNote = XMLDoc.SelectSingleNode("//NextSoDbNote").Text  
  NextDelNote = XMLDoc.SelectSingleNode("//NextDelNote").Text


  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='Branch' Value='" & Branch & "' />"
  FormData = FormData & "<Field Name='Branch description' Value='" & BrDesc & "' />"
  FormData = FormData & "<Field Name='Branch address line 1' Value='" & BrAddr1 & "' />"
  FormData = FormData & "<Field Name='Branch address line 2' Value='" & BrAddr2 & "' />"
  FormData = FormData & "<Field Name='Branch address line 3' Value='" & BrAddr3 & "' />"

  FormData = FormData & "<Field Name='A/R Control (Dr)' Value='" & SalesCtlAcc & "' />"
  FormData = FormData & "<Field Name='Freight charges (Cr)' Value='" & FrtSalesAcc & "' />"
  FormData = FormData & "<Field Name='Finance charges (Cr)' Value='" & FinChargeAcc & "' />"
  FormData = FormData & "<Field Name='Rounding error (Cr)' Value='" & RoundingAcc & "' />"
  FormData = FormData & "<Field Name='Deposit revenue (Cr)' Value='" & DepositAcc & "' />"
  FormData = FormData & "<Field Name='Sales tax (Cr)' Value='" & SalesTaxAcc & "' />"

  FormData = FormData & "<Field Name='Freight (Dr)' Value='" & FrtCosAcc & "' />"
  FormData = FormData & "<Field Name='Non-stocked misc. &amp; Freight (Cr)' Value='" & CosCtlAcc & "' />"

  FormData = FormData & "<Field ID='1' Value='" & PrefixNextInv & "' />"
  FormData = FormData & "<Field ID='2' Value='" & NextInvoice & "' />"
  FormData = FormData & "<Field ID='3' Value='" & NextCreditNote & "' />"
  FormData = FormData & "<Field ID='4' Value='" & NextDebitNote & "' />"

  FormData = FormData & "<Field ID='5' Value='" & PrefixNextRma & "' />"
  FormData = FormData & "<Field ID='6' Value='" & NextRma & "' />"

  FormData = FormData & "<Field ID='7' Value='" & PrefixNextSo & "' />"
  FormData = FormData & "<Field ID='8' Value='" & NextSalesOrder & "' />"
  FormData = FormData & "<Field ID='9' Value='" & NextSoCrNote & "' />"
  FormData = FormData & "<Field ID='10' Value='" & NextSoDbNote & "' />"
  FormData = FormData & "<Field ID='11' Value='" & NextDelNote & "' />"

  FormData = FormData & "</Fields></Form>"

  CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function