# Customized Panes for 'WIPPENLZ' Created: 2012/11/22
# PANE:Customer Contact Info
[PANE]
DUP   WIPPENLZ    01000Customer Contact Info                                                                               090settings\DUP_VBS_WIPPEN01.XML                                                                                                                                                                                                                                  000000500000WIPPEN010M000                    0000                    00000                          0
[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='Customer' Type='A' />"
  Formprops = FormProps & "<Field Name='Name' Type='A' />"
  Formprops = FormProps & "<Field Name='Contact details' Type='H' />"
  Formprops = FormProps & "<Field Name='Contact' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Telephone number' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Telephone extension' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Additional telephone number' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Email address' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Sold to address' Type='H' />"
  Formprops = FormProps & "<Field Name='Sold to address line 1' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Sold to address line 2' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Sold to address line 3' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Sold to address line 4' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Sold to address line 5' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Sold to address postal code' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Ship to address' Type='H' />"
  Formprops = FormProps & "<Field Name='Ship to address line 1' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Ship to address line 2' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Ship to address line 3' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Ship to address line 4' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Ship to address line 5' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Ship to address postal code' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Salesperson' Type='A' />"
  Formprops = FormProps & "<Field Name='Branch' 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 Customer 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, AccNumber, Name, Contact, Telephone, Extension, AddTelephone, Email, Sales, Branch
  Dim Sold1, Sold2, Sold3, Sold4, Sold5, SoldP, Ship1, Ship2, Ship3, Ship4, Ship5, ShipP

  ' 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
  AccNumber = XMLDoc.SelectSingleNode("//Customer").Text
  Name = XMLDoc.SelectSingleNode("//Name").Text
  Contact = XMLDoc.SelectSingleNode("//Contact").Text
  Telephone = XMLDoc.SelectSingleNode("//Telephone").Text
  Extension = XMLDoc.SelectSingleNode("//TelephoneExtn").Text
  AddTelephone = XMLDoc.SelectSingleNode("//AddTelephone").Text
  Email = XMLDoc.SelectSingleNode("//Email").Text
  Sold1 = XMLDoc.SelectSingleNode("//SoldToAddr1").Text
  Sold2 = XMLDoc.SelectSingleNode("//SoldToAddr2").Text
  Sold3 = XMLDoc.SelectSingleNode("//SoldToAddr3").Text
  Sold4 = XMLDoc.SelectSingleNode("//SoldToAddr4").Text
  Sold5 = XMLDoc.SelectSingleNode("//SoldToAddr5").Text
  SoldP = XMLDoc.SelectSingleNode("//SoldPostalCode").Text
  Ship1 = XMLDoc.SelectSingleNode("//ShipToAddr1").Text
  Ship2 = XMLDoc.SelectSingleNode("//ShipToAddr2").Text
  Ship3 = XMLDoc.SelectSingleNode("//ShipToAddr3").Text
  Ship4 = XMLDoc.SelectSingleNode("//ShipToAddr4").Text
  Ship5 = XMLDoc.SelectSingleNode("//ShipToAddr5").Text
  ShipP = XMLDoc.SelectSingleNode("//ShipPostalCode").Text
  Sales = XMLDoc.SelectSingleNode("//SALSLS_Name").Text
  Branch = XMLDoc.SelectSingleNode("//SALBRN_Description").Text


  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='Customer' Value='" & Cleanup(AccNumber) & "' />"
  FormData = FormData & "<Field Name='Name' Value='" & Cleanup(Name) & "' />"
  FormData = FormData & "<Field Name='Contact' Value='" & Cleanup(Contact) & "' />"
  FormData = FormData & "<Field Name='Telephone number' Value='" & Cleanup(Telephone) & "' />"
  FormData = FormData & "<Field Name='Telephone extension' Value='" & Cleanup(Extension) & "' />"
  FormData = FormData & "<Field Name='Additional telephone number' Value='" & Cleanup(AddTelephone) & "' />"
  FormData = FormData & "<Field Name='Email address' Value='" & Cleanup(Email) & "' />"
  FormData = FormData & "<Field Name='Sold to address line 1' Value='" & Cleanup(Sold1) & "' />"
  FormData = FormData & "<Field Name='Sold to address line 2' Value='" & Cleanup(Sold2) & "' />"
  FormData = FormData & "<Field Name='Sold to address line 3' Value='" & Cleanup(Sold3) & "' />"
  FormData = FormData & "<Field Name='Sold to address line 4' Value='" & Cleanup(Sold4) & "' />"
  FormData = FormData & "<Field Name='Sold to address line 5' Value='" & Cleanup(Sold5) & "' />"
  FormData = FormData & "<Field Name='Sold to address postal code' Value='" & Cleanup(SoldP) & "' />"
  FormData = FormData & "<Field Name='Ship to address line 1' Value='" & Cleanup(Ship1) & "' />"
  FormData = FormData & "<Field Name='Ship to address line 2' Value='" & Cleanup(Ship2) & "' />"
  FormData = FormData & "<Field Name='Ship to address line 3' Value='" & Cleanup(Ship3) & "' />"
  FormData = FormData & "<Field Name='Ship to address line 4' Value='" & Cleanup(Ship4) & "' />"
  FormData = FormData & "<Field Name='Ship to address line 5' Value='" & Cleanup(Ship5) & "' />"
  FormData = FormData & "<Field Name='Ship to address postal code' Value='" & Cleanup(ShipP) & "' />"
  FormData = FormData & "<Field Name='Salesperson' Value='" & Cleanup(Sales) & "' />"
  FormData = FormData & "<Field Name='Branch' Value='" & Cleanup(Branch) & "' />"
  FormData = FormData & "</Fields></Form>"

CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function

Function Cleanup(KeyField)
KeyField = Replace(KeyField, "&", "&amp;")
Cleanup = KeyField
End Function