# Customized Panes for 'xxxxxxxx' Created: 2010/03/03
# PANE:Purchase Order Header Details
[PANE]
ADMIN ARSPENLZ    01001Purchase Order Header 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='Purchase order' Type='A' />"
  Formprops = FormProps & "<Field Name='Supplier' Type='A' />"
  Formprops = FormProps & "<Field Name='Supplier name' Type='A' />"
  Formprops = FormProps & "<Field Name='Supplier class' Type='A' />"
  Formprops = FormProps & "<Field Name='Supplier address details' Type='H' />"
  Formprops = FormProps & "<Field Name='Address line 1' ID='1' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 2' ID='2' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 3' ID='3' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 4' ID='4' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 5' ID='5' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Postal code' ID='6' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Delivery address details' Type='H' />"
  Formprops = FormProps & "<Field Name='Delivery name' ID='10' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 1' ID='11' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 2' ID='12' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 3' ID='13' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 4' ID='14' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Address line 5' ID='15' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Postal code' ID='16' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Customer details' Type='H' />"
  Formprops = FormProps & "<Field Name='Customer' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Customer PO number' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Order header details' Type='H' />"
  Formprops = FormProps & "<Field Name='Currency' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Currency description' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Order status' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Order type' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Payment terms' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Tax status' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Shipping instructions' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Order discount' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Buyer' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Buyer name' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Document format' Group='1' Type='A' />"
  Formprops = FormProps & "<Field Name='Order dates' Type='H' />"
  Formprops = FormProps & "<Field Name='Entry date' Group='1' Type='D' />"
  Formprops = FormProps & "<Field Name='Due date' Group='1' Type='D' />"
  Formprops = FormProps & "<Field Name='Memo date' Group='1' Type='D' />"
  Formprops = FormProps & "<Field Name='memo code' Group='1' 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, Purchaseorder, FormData
  CustomizedPane.CodeObject.UpdateFormValues = " "

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

  if Purchaseorder = "" then
    exit function
  end if

  ' Build up the XML to be passed to the business object
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <PurchaseOrder><![CDATA[" & Purchaseorder & "]]></PurchaseOrder>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeStockedLines>N</IncludeStockedLines>"
  XMLParam = XMLParam & "     <IncludeNonStockedLines>N</IncludeNonStockedLines>"
  XMLParam = XMLParam & "     <IncludeFreightLines>N</IncludeFreightLines>"
  XMLParam = XMLParam & "     <IncludeMiscellaneousLines>N</IncludeMiscellaneousLines>"
  XMLParam = XMLParam & "     <IncludeCommentLines>N</IncludeCommentLines>"
  XMLParam = XMLParam & "     <IncludeCompletedLines>N</IncludeCompletedLines>"
  XMLParam = XMLParam & "     <IncludeGrns>N</IncludeGrns>"
  XMLParam = XMLParam & "     <IncludeHistory>N</IncludeHistory>"
  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("PORQRY",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, PONumber, Supplier, SupplierName, SupplierClass, SuppAddr1, SuppAddr2, SuppAddr3, SuppAddr4, SuppAddr5
  Dim SuppPostalCode, Delname, DelAddr1, DelAddr2, DelAddr3, DelAddr4, DelAddr5, DelPostalCode, Customer, CustPONumber, CurrencyCode
  Dim CurrencyDesc, OrderStatus, OrderType, PayTerms, TaxStatus, ShipIns, OrderDisc, Buyer, BuyerName, DocFormat, FullOrderStatus
  Dim EntryDate, DueDate, MemoDate, MemoCode

  ' 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
  PONumber = XMLDoc.SelectSingleNode("//PurchaseOrder").Text
  Supplier = XMLDoc.SelectSingleNode("//Supplier").Text
  SupplierName = XMLDoc.SelectSingleNode("//SupplierName").Text
  SupplierClass = XMLDoc.SelectSingleNode("//SupplierClass").Text
  SuppAddr1 = XMLDoc.SelectSingleNode("//SupplierAddr1").Text
  SuppAddr2 = XMLDoc.SelectSingleNode("//SupplierAddr2").Text
  SuppAddr3 = XMLDoc.SelectSingleNode("//SupplierAddr3").Text
  SuppAddr4 = XMLDoc.SelectSingleNode("//SupplierAddr4").Text
  SuppAddr5 = XMLDoc.SelectSingleNode("//SupplierAddr5").Text
  SuppPostalCode = XMLDoc.SelectSingleNode("//SupPostalCode").Text
  Delname = XMLDoc.SelectSingleNode("//DeliveryName").Text
  DelAddr1 = XMLDoc.SelectSingleNode("//DeliveryAddr1").Text
  DelAddr2 = XMLDoc.SelectSingleNode("//DeliveryAddr2").Text
  DelAddr3 = XMLDoc.SelectSingleNode("//DeliveryAddr3").Text
  DelAddr4 = XMLDoc.SelectSingleNode("//DeliveryAddr4").Text
  DelAddr5 = XMLDoc.SelectSingleNode("//DeliveryAddr5").Text
  DelPostalCode = XMLDoc.SelectSingleNode("//PostalCode").Text
  Customer = XMLDoc.SelectSingleNode("//Customer").Text
  CustPONumber = XMLDoc.SelectSingleNode("//CustomerPoNumber").Text
  CurrencyCode = XMLDoc.SelectSingleNode("//Currency").Text
  CurrencyDesc = XMLDoc.SelectSingleNode("//Description").Text
  OrderStatus = XMLDoc.SelectSingleNode("//OrderStatus").Text
  OrderType = XMLDoc.SelectSingleNode("//OrderType").Text
  PayTerms = XMLDoc.SelectSingleNode("//PaymentTerms").Text
  TaxStatus = XMLDoc.SelectSingleNode("//TaxStatus").Text
  ShipIns = XMLDoc.SelectSingleNode("//ShippingInstrs").Text
  OrderDisc = XMLDoc.SelectSingleNode("//OrderDiscount").Text
  Buyer = XMLDoc.SelectSingleNode("//Buyer").Text
  BuyerName = XMLDoc.SelectSingleNode("//Name").Text
  DocFormat = XMLDoc.SelectSingleNode("//DocumentFormat").Text
  EntryDate = XMLDoc.SelectSingleNode("//OrderEntryDate").Text
  DueDate = XMLDoc.SelectSingleNode("//OrderDueDate").Text
  MemoDate = XMLDoc.SelectSingleNode("//MemoDate").Text
  MemoCode = XMLDoc.SelectSingleNode("//MemoCode").Text


  Select Case OrderStatus 

          Case "0"
               FullOrderStatus = "0 - In process"

          Case "1"
               FullOrderStatus = "1 - Ready to print"

          Case "4"
               FullOrderStatus = "4 - Order printed"

          Case "9"
               FullOrderStatus = "9 - Complete"

          Case "*"
               FullOrderStatus = "* - Cancelled during entry"

          Case Else 
               FullOrderStatus = OrderStatus               

        End select



  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='Purchase order number' Value='" & PONumber & "' />"
  FormData = FormData & "<Field Name='Supplier' Value='" & Supplier & "' />"
  FormData = FormData & "<Field Name='Supplier name' Value='" & SupplierName & "' />"
  FormData = FormData & "<Field Name='Supplier class' Value='" & CleanData(SupplierClass) & "' />"
  FormData = FormData & "<Field ID='1' Value='" & CleanData(SuppAddr1) & "' />"
  FormData = FormData & "<Field ID='2' Value='" & CleanData(SuppAddr2) & "' />"
  FormData = FormData & "<Field ID='3' Value='" & CleanData(SuppAddr3) & "' />"
  FormData = FormData & "<Field ID='4' Value='" & CleanData(SuppAddr4) & "' />"
  FormData = FormData & "<Field ID='5' Value='" & CleanData(SuppAddr5) & "' />"
  FormData = FormData & "<Field ID='6' Value='" & CleanData(SuppPostalCode) & "' />"
  FormData = FormData & "<Field ID='10' Value='" & CleanData(Delname) & "' />"
  FormData = FormData & "<Field ID='11' Value='" & CleanData(DelAddr1) & "' />"
  FormData = FormData & "<Field ID='12' Value='" & CleanData(DelAddr2) & "' />"
  FormData = FormData & "<Field ID='13' Value='" & CleanData(DelAddr3) & "' />"
  FormData = FormData & "<Field ID='14' Value='" & CleanData(DelAddr4) & "' />"
  FormData = FormData & "<Field ID='15' Value='" & CleanData(DelAddr5) & "' />"
  FormData = FormData & "<Field ID='16' Value='" & DelPostalCode & "' />"
  FormData = FormData & "<Field Name='Customer' Value='" & CleanData(Customer) & "' />"
  FormData = FormData & "<Field Name='Customer P/O number' Value='" & CleanData(CustPONumber) & "' />"
  FormData = FormData & "<Field Name='Currency' Value='" & CleanData(CurrencyCode) & "' />"
  FormData = FormData & "<Field Name='Currency description' Value='" & CleanData(CurrencyDesc) & "' />"
  FormData = FormData & "<Field Name='Order status' Value='" & CleanData(FullOrderStatus) & "' />"
  FormData = FormData & "<Field Name='Order type' Value='" & OrderType & "' />"
  FormData = FormData & "<Field Name='Payment terms' Value='" & CleanData(PayTerms) & "' />"
  FormData = FormData & "<Field Name='Tax status' Value='" & CleanData(TaxStatus) & "' />"
  FormData = FormData & "<Field Name='Shipping instructions' Value='" & CleanData(ShipIns) & "' />"
  FormData = FormData & "<Field Name='Order discount' Value='" & OrderDisc & "' />"
  FormData = FormData & "<Field Name='Buyer' Value='" & CleanData(Buyer) & "' />"
  FormData = FormData & "<Field Name='Buyer name' Value='" & CleanData(BuyerName) & "' />"
  FormData = FormData & "<Field Name='Document format' Value='" & DocFormat & "' />"
  FormData = FormData & "<Field Name='Entry date' Value='" & EntryDate & "' />"
  FormData = FormData & "<Field Name='Due date' Value='" & DueDate & "' />"
  FormData = FormData & "<Field Name='Memo date' Value='" & MemoDate & "' />"
  FormData = FormData & "<Field Name='Memo code' Value='" & MemoCode & "' />"
  FormData = FormData & "</Fields></Form>"

CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function
Function CleanData(InString)
Dim newString
newString = Replace(InString, "&", "&amp;")
newString = Replace(newString, """", "&quot;")
newString = Replace(newString, "'", "&apos;")
newString = Replace(newString, "<", "&lt;")
newString = Replace(newString, ">", "&gt;")
CleanData = newString
End Function