# Customized Panes for 'SORPENLZ' Created: 2013/04/09
# PANE:Customer Header
[PANE]
DUP                 SORPENLZ    01000Customer Header                                                                                     090settings\DUP_VBS_SORPEN00.XML                                                                                                                                                                                                                                  000000503290SORPEN000M000                    0000                    00000       None               0#
[start-form]
<?xml version="1.0" encoding="Windows-1252"?>
<Form Description='Form Design' CustomForm='' >
<Fields>
<Field Name='Customer' Type='A'  ButtonTooltip='Press Alt+F9 for alpha input' Value='' ID='001' NumericLength='15'>
</Field>
<Field Name='Name' Type='A'  Value='' ID='002'>
</Field>
<Field Name='Short name' Type='A'  Value='' ID='009'>
</Field>
<Field Name='Salesperson' Type='A'  Value='' ID='013'>
</Field>
<Field Name='Currency' Type='A'  Value='' ID='003'>
</Field>
<Field Name='Customer branch' Type='A'  Value='' ID='015'>
</Field>
<Field Name='Invoice terms' Type='A'  Value='' ID='010'>
</Field>
<Field Name='Area' Type='A'  Value='' ID='004'>
</Field>
<Field Name='Customer class' Type='A'  Value='' ID='026'>
</Field>
<Field Name='Customer on hold' Type='A'  Value='' ID='018'>
</Field>
<Field Name='Master/subaccount' Type='A'  Value='' ID='007'>
</Field>
<Field Name='Credit' Type='H'  Value='' ID='012' ShowGroupCollapsed='1'>
</Field>
<Field Name='Credit checking' Type='A'  Group='1' Value='' ID='005'>
</Field>
<Field Name='Credit status' Type='M'  Group='1' Value='0.00' Decimals='2' ID='006'>
</Field>
<Field Name='Credit status code' Type='A'  Group='1' Value='' ID='011'>
</Field>
<Field Name='Orders' Type='H'  Value='' ID='014' ShowGroupCollapsed='1'>
</Field>
<Field Name='Order value' Type='M'  Group='1' Value='0.00' Decimals='2' ID='016'>
</Field>
<Field Name='Number of outstanding orders' Type='M'  Group='1' Value='0' ID='017'>
</Field>
<Field Name='Contact information' Type='H'  Value='' ID='019' ShowGroupCollapsed='1'>
</Field>
<Field Name='Telephone number' Type='A'  Group='1' Value='' ID='020'>
</Field>
<Field Name='Telephone extension' Type='A'  Group='1' Value='' ID='022'>
</Field>
<Field Name='Additional Telephone number' Type='A'  Group='1' Value='' ID='021'>
</Field>
<Field Name='Fax' Type='A'  Group='1' Value='' ID='023'>
</Field>
<Field Name='Telex' Type='A'  Group='1' Value='' ID='024'>
</Field>
<Field Name='Email' Type='A'  Group='1' Value='' ID='025'>
</Field>
</Fields>
</Form>
[end-form]
[VBSCRIPT]
Option Explicit


Function CustomizedPane_OnRefresh()
Dim Customer
Customer = CustomizedPane.CodeObject.RefreshValue

If Customer = "" then
        Exit Function
End if

dim XMLOut, XMLParam

XMLParam = "<Query>"
XMLParam = XMLParam & "   <Key>"
XMLParam = XMLParam & "     <Customer><![CDATA[" & 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
XMLOut = CallBO("ARSQRY",XMLParam,"auto")

if err then
        exit function
end if
' Switch on error handling
on error goto 0

SetFieldValues(XMLOut)

End Function

Sub SetFieldValues(XMLOut)
        Dim XMLDom : Set XMLDom = CreateObject("Microsoft.XMLDOM")
        XMLDom.Async = False
                XMLDom.LoadXML(XMLOut)
        FormData = "<Form><Fields>"
        Dim XMLList, XMLItem, FormData, CustomerHoldFlag
        FormData = FormData & "<Field Name='Customer' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Header/Customer").Text) & "' />"
        FormData = FormData & "<Field Name='Name' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Header/Name").Text) & "' />"
        FormData = FormData & "<Field Name='Short name' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Header/ShortName").Text) & "' />"
        FormData = FormData & "<Field Name='Salesperson' Value='" & XMLDom.documentElement.SelectSingleNode("Header/Salesperson").Text & " - "& CleanXML(XMLDom.documentElement.SelectSingleNode("Header/SALSLS_Name").Text) &"' />"
        FormData = FormData & "<Field Name='Currency' Value='" & XMLDom.documentElement.SelectSingleNode("Header/Currency").Text & " - "& CleanXML(XMLDom.documentElement.SelectSingleNode("Header/TBLCUR_Description").Text) &"' />"
        FormData = FormData & "<Field Name='Customer branch' Value='" & XMLDom.documentElement.SelectSingleNode("Header/Branch").Text & " - "& CleanXML(XMLDom.documentElement.SelectSingleNode("Header/SALBRN_Description").Text) &"' />"
        FormData = FormData & "<Field Name='Invoice terms' Value='" & XMLDom.documentElement.SelectSingleNode("Header/TermsCode").Text & " - "& CleanXML(XMLDom.documentElement.SelectSingleNode("Header/TBLART_Description").Text) &"' />"
        FormData = FormData & "<Field Name='Area' Value='" & XMLDom.documentElement.SelectSingleNode("Header/Area").Text & "' />"
        FormData = FormData & "<Field Name='Customer class' Value='" & XMLDom.documentElement.SelectSingleNode("Header/CustomerClass").Text & "' />"
        If Trim(XMLDom.documentElement.SelectSingleNode("Header/CustomerOnHold").Text) = "Y" Then
                CustomerHoldFlag = "Y"
        End if
        FormData = FormData & "<Field Name='Customer on hold' Value='" & XMLDom.documentElement.SelectSingleNode("Header/CustomerOnHold").Text & "' />"
        FormData = FormData & "<Field Name='Credit' Type='H'  Value='' ID='012' ShowGroupCollapsed='1' />"
        FormData = FormData & "<Field Name='Credit checking' Value='" & XMLDom.documentElement.SelectSingleNode("Header/CreditCheckFlag").Text & "' />"
        FormData = FormData & "<Field Name='Credit status' Value='" & XMLDom.documentElement.SelectSingleNode("Header/CreditLimit").Text & "' />"
        FormData = FormData & "<Field Name='Credit status code' Value='" & XMLDom.documentElement.SelectSingleNode("Header/CreditStatus").Text & "' />"
        FormData = FormData & "<Field Name='Master/subaccount' Value='" & XMLDom.documentElement.SelectSingleNode("Header/MasterAccount").Text & "' />"
        FormData = FormData & "<Field Name='Orders' Type='H'  Value='' ID='014' ShowGroupCollapsed='1' />"
        FormData = FormData & "<Field Name='Order value' Type='M' Decimals='2' Value='" & XMLDom.documentElement.SelectSingleNode("Header/OutstOrdVal").Text & "' />"
        FormData = FormData & "<Field Name='Number of outstanding orders' Type='M' Value='" & XMLDom.documentElement.SelectSingleNode("Header/NumOutstOrd").Text & "' />"
        FormData = FormData & "<Field Name='Contact information' Type='H'  Value='' ID='019' ShowGroupCollapsed='1' />"
        FormData = FormData & "<Field Name='Telephone number' Value='" & XMLDom.documentElement.SelectSingleNode("Header/Telephone").Text & "' />"
        FormData = FormData & "<Field Name='Telephone extension' Value='" & XMLDom.documentElement.SelectSingleNode("Header/TelephoneExtn").Text & "' />"
        FormData = FormData & "<Field Name='Additional Telephone number' Value='" & XMLDom.documentElement.SelectSingleNode("Header/AddTelephone").Text & "' />"
        FormData = FormData & "<Field Name='Fax' Value='" & XMLDom.documentElement.SelectSingleNode("Header/Fax").Text & "' />"
        FormData = FormData & "<Field Name='Telex' Value='" & XMLDom.documentElement.SelectSingleNode("Header/Telex").Text & "' />"
        FormData = FormData & "<Field Name='Email' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Header/Email").Text) & "' />"
        FormData = FormData & "</Fields></Form>"
        CustomizedPane.CodeObject.UpdateFormValues = FormData
                If CustomerHoldFlag = "Y" then
                        CustomerHeader.CodeObject.CustomerOnHold = "<Field Foreground='255000000' IsBold='true' Value='Y'  > </Field>"
                        else
                        CustomerHeader.CodeObject.CustomerOnHold = "<Field Foreground='153153153' IsBold='false' Value='N'  > </Field>"
                End if
End Sub

Function CleanXML(TextIn)
TextIn = Replace(TextIn, "&", "&amp;")
TextIn = Replace(TextIn, """", "&quot;")
TextIn = Replace(TextIn, "'", "&apos;")
TextIn = Replace(TextIn, "<", "&lt;")
TextIn = Replace(TextIn, ">", "&gt;")
CleanXML = TextIn
End Function