# Customized Panes for 'xxxxxxxx' Created: 2016/14/10
# PANE:Purchase Order Values (Order currency)
[PANE]
ADMIN ARSPENLZ 01001Purchase Order Values (Order currency) 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 = ""
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 SalesOrder 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 & " "
XMLParam = XMLParam & " "
XMLParam = XMLParam & " "
on error resume next
' Call the business object, supplying the XML and putting the result in to XMLOut
XMLOut = CallBO("PORQOV",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, PONum, Supplier, SupplierClass, Customer, CustPO, CurrencyCode, CurrencyDesc
Dim LOutNetMerch, LOutNetTotal, LOutNetFreight, LOutNetMisc, LOutGrossMerchV
Dim LOutGrossMerchT, LOutDiscMerchV, LOutDiscTotal
Dim LOrigOutNetMerch, LOrigNetTotal, LOrigNetFreight, LOrigNetMisc, LOrigGrossMerchV
Dim LOrigGrossMerchT, LOrigDiscMerchV, LOrigDiscTotal
Dim OOutNetMerch, OOutNetTotal, OOutNetFreight, OOutNetMisc, OOutGrossMerchV, OOutGrossMerchT
Dim OOutDiscMerchV, OOutDiscTotal
Dim OOrigOutNetMerch, OOrigNetTotal, OOrigNetFreight, OOrigNetMisc, OOrigGrossMerchV
Dim OOrigGrossMerchT, OOrigDiscMerchV, OOrigDiscTotal
Dim MassTR, MassOO, VolumeTR, VolumeOO
' 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
PONum = XMLDoc.SelectSingleNode("//PurchaseOrder/PurchaseOrder").Text
Supplier = XMLDoc.SelectSingleNode("//Supplier").Text
SupplierClass = XMLDoc.SelectSingleNode("//SupplierClass").Text
Customer = XMLDoc.SelectSingleNode("//Customer").Text
CustPO = XMLDoc.SelectSingleNode("//CustomerPoNumber").Text
CurrencyCode = XMLDoc.SelectSingleNode("//Currency").Text
CurrencyDesc = XMLDoc.SelectSingleNode("//Description").Text
LOutNetMerch = XMLDoc.SelectSingleNode("//LocalCurrency/OutstandingValues/NetMerchValue").Text
LOutNetTotal = XMLDoc.SelectSingleNode("//LocalCurrency/OutstandingValues/NetTotal").Text
LOutNetFreight = XMLDoc.SelectSingleNode("//LocalCurrency/OutstandingValues/NetFreightValue").Text
LOutNetMisc = XMLDoc.SelectSingleNode("//LocalCurrency/OutstandingValues/NetMiscValue").Text
LOutGrossMerchV = XMLDoc.SelectSingleNode("//LocalCurrency/OutstandingValues/GrossMerchValue").Text
LOutGrossMerchT = XMLDoc.SelectSingleNode("//LocalCurrency/OutstandingValues/GrossMerchTotal").Text
LOutDiscMerchV = XMLDoc.SelectSingleNode("//LocalCurrency/OutstandingValues/DiscMerchValue").Text
LOutDiscTotal = XMLDoc.SelectSingleNode("//LocalCurrency/OutstandingValues/DiscountTotal").Text
LOrigOutNetMerch = XMLDoc.SelectSingleNode("//LocalCurrency/OriginalValues/NetMerchValue").Text
LOrigNetTotal = XMLDoc.SelectSingleNode("//LocalCurrency/OriginalValues/NetTotal").Text
LOrigNetFreight = XMLDoc.SelectSingleNode("//LocalCurrency/OriginalValues/NetFreightValue").Text
LOrigNetMisc = XMLDoc.SelectSingleNode("//LocalCurrency/OriginalValues/NetMiscValue").Text
LOrigGrossMerchV = XMLDoc.SelectSingleNode("//LocalCurrency/OriginalValues/GrossMerchValue").Text
LOrigGrossMerchT = XMLDoc.SelectSingleNode("//LocalCurrency/OriginalValues/GrossMerchTotal").Text
LOrigDiscMerchV = XMLDoc.SelectSingleNode("//LocalCurrency/OriginalValues/DiscMerchValue").Text
LOrigDiscTotal = XMLDoc.SelectSingleNode("//LocalCurrency/OriginalValues/DiscountTotal").Text
OOutNetMerch = XMLDoc.SelectSingleNode("//OrderCurrency/OutstandingValues/NetMerchValue").Text
OOutNetTotal = XMLDoc.SelectSingleNode("//OrderCurrency/OutstandingValues/NetTotal").Text
OOutNetFreight = XMLDoc.SelectSingleNode("//OrderCurrency/OutstandingValues/NetFreightValue").Text
OOutNetMisc = XMLDoc.SelectSingleNode("//OrderCurrency/OutstandingValues/NetMiscValue").Text
OOutGrossMerchV = XMLDoc.SelectSingleNode("//OrderCurrency/OutstandingValues/GrossMerchValue").Text
OOutGrossMerchT = XMLDoc.SelectSingleNode("//OrderCurrency/OutstandingValues/GrossMerchTotal").Text
OOutDiscMerchV = XMLDoc.SelectSingleNode("//OrderCurrency/OutstandingValues/DiscMerchValue").Text
OOutDiscTotal = XMLDoc.SelectSingleNode("//OrderCurrency/OutstandingValues/DiscountTotal").Text
OOrigOutNetMerch = XMLDoc.SelectSingleNode("//OrderCurrency/OriginalValues/NetMerchValue").Text
OOrigNetTotal = XMLDoc.SelectSingleNode("//OrderCurrency/OriginalValues/NetTotal").Text
OOrigNetFreight = XMLDoc.SelectSingleNode("//OrderCurrency/OriginalValues/NetFreightValue").Text
OOrigNetMisc = XMLDoc.SelectSingleNode("//OrderCurrency/OriginalValues/NetMiscValue").Text
OOrigGrossMerchV = XMLDoc.SelectSingleNode("//OrderCurrency/OriginalValues/GrossMerchValue").Text
OOrigGrossMerchT = XMLDoc.SelectSingleNode("//OrderCurrency/OriginalValues/GrossMerchTotal").Text
OOrigDiscMerchV = XMLDoc.SelectSingleNode("//OrderCurrency/OriginalValues/DiscMerchValue").Text
OOrigDiscTotal = XMLDoc.SelectSingleNode("//OrderCurrency/OriginalValues/DiscountTotal").Text
MassTR = XMLDoc.SelectSingleNode("//MassToReceive").Text
MassOO = XMLDoc.SelectSingleNode("//MassOnOrder").Text
VolumeTR = XMLDoc.SelectSingleNode("//VolumeToReceive").Text
VolumeOO = XMLDoc.SelectSingleNode("//VolumeOnOrder").Text
FormData = ""
CustomizedPane.CodeObject.UpdateFormValues = FormData
End Function
Function CleanData(InString)
Dim newString
newString = Replace(InString, "&", "&")
newString = Replace(newString, """", """)
newString = Replace(newString, "'", "'")
newString = Replace(newString, "<", "<")
newString = Replace(newString, ">", ">")
CleanData = newString
End Function