# Customized Panes for 'xxxxxxxx' Created: 2010/03/03
# PANE:Supplier Purchases by Month
[PANE]
ADMIN ARSPENLZ    01001Supplier Purchases by Month                                                                         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='Supplier' Type='A' />"
  Formprops = FormProps & "<Field Name='Supplier name' Type='A' />"
  Formprops = FormProps & "<Field Name='Purchase details' Type='H'  />"
  Formprops = FormProps & "<Field Name='Month1' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month2' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month3' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month4' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month5' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month6' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month7' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month8' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month9' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month10' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month11' Group='1' Type='N' Decimals='2' />"
  Formprops = FormProps & "<Field Name='Month12' Group='1' Type='N' Decimals='2' />"
  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, Supplier, FormData
  CustomizedPane.CodeObject.UpdateFormValues = " "

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

  if Supplier = "" 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 & "     <Supplier>" & Supplier & "</Supplier>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeInvoices>N</IncludeInvoices>"
  XMLParam = XMLParam & "     <IncludeReceipts>N</IncludeReceipts>"
  XMLParam = XMLParam & "     <IncludeScrapReject>N</IncludeScrapReject>"
  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("APSQRY",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, SupplierCode, SuppName, Purch1, Purch2, Purch3, Purch4, Purch5, Purch6, Purch7
  Dim Purch8, Purch9, Purch10, Purch11, Purch12

  ' 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
   SuppName = XMLDoc.SelectSingleNode("//SupplierName").Text
  Purch1 = XMLDoc.SelectSingleNode("//PurchValMth1").Text
  Purch2 = XMLDoc.SelectSingleNode("//PurchValMth2").Text
  Purch3 = XMLDoc.SelectSingleNode("//PurchValMth3").Text
  Purch4 = XMLDoc.SelectSingleNode("//PurchValMth4").Text
  Purch5 = XMLDoc.SelectSingleNode("//PurchValMth5").Text
  Purch6 = XMLDoc.SelectSingleNode("//PurchValMth6").Text
  Purch7 = XMLDoc.SelectSingleNode("//PurchValMth7").Text
  Purch8 = XMLDoc.SelectSingleNode("//PurchValMth8").Text
  Purch9 = XMLDoc.SelectSingleNode("//PurchValMth9").Text
  Purch10 = XMLDoc.SelectSingleNode("//PurchValMth10").Text
  Purch11 = XMLDoc.SelectSingleNode("//PurchValMth11").Text
  Purch12 = XMLDoc.SelectSingleNode("//PurchValMth12").Text

  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='Supplier' Value='" & Supplier & "' />"
  FormData = FormData & "<Field Name='Supplier name' Value='" & SuppName & "' />"
  FormData = FormData & "<Field Name='Month1' Value='" & Purch1 & "' />"
  FormData = FormData & "<Field Name='Month2' Value='" & Purch2 & "' />"
  FormData = FormData & "<Field Name='Month3' Value='" & Purch3 & "' />"
  FormData = FormData & "<Field Name='Month4' Value='" & Purch4 & "' />"
  FormData = FormData & "<Field Name='Month5' Value='" & Purch5 & "' />"
  FormData = FormData & "<Field Name='Month6' Value='" & Purch6 & "' />"
  FormData = FormData & "<Field Name='Month7' Value='" & Purch7 & "' />"
  FormData = FormData & "<Field Name='Month8' Value='" & Purch8 & "' />"
  FormData = FormData & "<Field Name='Month9' Value='" & Purch9 & "' />"
  FormData = FormData & "<Field Name='Month10' Value='" & Purch10 & "' />"
  FormData = FormData & "<Field Name='Month11' Value='" & Purch11 & "' />"
  FormData = FormData & "<Field Name='Month12' Value='" & Purch12 & "' />"
  FormData = FormData & "</Fields></Form>"

CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function