# Customized Panes for 'SORPENLZ' Created: 2013/04/09
# PANE:Supplier Header
[PANE]
DUP                 SORPENLZ    01002Supplier Header                                                                                     090settings\DUP_VBS_SORPEN02.XML                                                                                                                                                                                                                                  000000503290SORPEN020M000                    0000                    00000       None               0#
[start-form]
<?xml version="1.0" encoding="Windows-1252"?>
<Form Description='Form Design' CustomForm='' >
<Fields>
<Field Name='Supplier' Type='A'  Uppercase='1' ButtonTooltip='Press Alt+F9 for alpha input' Value='' ID='001' NumericLength='07'>
</Field>
<Field Name='Name' Type='A'  Value='' ID='002'>
</Field>
<Field Name='Bank' Type='A'  Value='' ID='009'>
</Field>
<Field Name='Currency' Type='A'  Value='' ID='003'>
</Field>
<Field Name='Supplier branch' Type='A'  Value='' ID='013'>
</Field>
<Field Name='Supplier terms' Type='A'  Value='' ID='015'>
</Field>
<Field Name='Area' Type='A'  Value='' ID='004'>
</Field>
<Field Name='Nationality' Type='A'  Value='' ID='010'>
</Field>
<Field Name='Supplier class' Type='A'  Value='' ID='026'>
</Field>
<Field Name='User field 1' Type='A'  Value='' ID='008'>
</Field>
<Field Name='User field 2' Type='A'  Value='' ID='028'>
</Field>
<Field Name='Supplier on hold' Type='A'  Value='' ID='018'>
</Field>
<Field Name='Payment information' Type='H'  Value='' ID='012' ShowGroupCollapsed='1'>
</Field>
<Field Name='Default cheque day' Type='A'  Group='1' Value='' ID='005'>
</Field>
<Field Name='Bank account' Type='A'  Group='1' Value='' ID='006'>
</Field>
<Field Name='Bank branch' Type='A'  Group='1' Value='' ID='029'>
</Field>
<Field Name='Tax registration number' Type='A'  Group='1' Value='' ID='011'>
</Field>
<Field Name='Purchase order information' Type='H'  Value='' ID='014' ShowGroupCollapsed='1'>
</Field>
<Field Name='Purchase orders allowed' Type='A'  Group='1' Value='' ID='016'>
</Field>
<Field Name='Contracts' Type='A'  Group='1' Value='' ID='017'>
</Field>
<Field Name='Last purchase date' Type='D'  Group='1' Value='00000000' Tooltip='No date' ID='030'>
</Field>
<Field Name='Min purchase order value' Type='A'  Group='1' Value='' ID='007'>
</Field>
<Field Name='Min purchase order mass' Type='A'  Group='1' Value='' ID='032'>
</Field>
<Field Name='Min purchase order volume' Type='A'  Group='1' Value='' ID='033'>
</Field>
<Field Name='Default purchase order format' Type='A'  Group='1' Value='' ID='034'>
</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='Fax' Type='A'  Group='1' Value='' ID='023'>
</Field>
<Field Name='Fax contact' 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 Supplier
Supplier = CustomizedPane.CodeObject.RefreshValue

If Supplier = "" then
        Exit Function
End if

dim XMLOut, XMLParam

XMLParam = XMLParam & " <Query>"
XMLParam = XMLParam & "   <Key>"
XMLParam = XMLParam & "     <Supplier><![CDATA["& 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 & "     <IncludeUnapprovedInvInCashProj>N</IncludeUnapprovedInvInCashProj>"
XMLParam = XMLParam & "     <CashProjectionAtCurrentRate>N</CashProjectionAtCurrentRate>"
XMLParam = XMLParam & "     <IncludeRetainedInvoices>N</IncludeRetainedInvoices>"
XMLParam = XMLParam & "     <IncludeInvoicePayments>N</IncludeInvoicePayments>"
XMLParam = XMLParam & "     <IncludeRegisteredInvoices>N</IncludeRegisteredInvoices>"
XMLParam = XMLParam & "     <IncludeGoodsReceivedNotes>N</IncludeGoodsReceivedNotes>"
XMLParam = XMLParam & "     <IncludeCustomForms>N</IncludeCustomForms>"
XMLParam = XMLParam & "     <MultiMediaImageType>BMP</MultiMediaImageType>"
XMLParam = XMLParam & "     <XslStylesheet/>"
XMLParam = XMLParam & "   </Option>"
XMLParam = XMLParam & " </Query>"
on error resume next
XMLOut = CallBO("APSQRY",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, SupplierHoldFlag
        FormData = FormData & "<Field Name='Supplier' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/Supplier").Text) & "' />"
        FormData = FormData & "<Field Name='Name' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/SupplierName").Text) & "' />"
        FormData = FormData & "<Field Name='Bank' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/Bank").Text) & " - "& CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/APSBNK_Description").Text) &"' />"
        FormData = FormData & "<Field Name='Currency' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/Currency").Text & " - "& CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/TBLCUR_Description").Text) &"' />"
        FormData = FormData & "<Field Name='Supplier branch' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/Branch").Text & " - "& CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/APSBRN_Description").Text) &"' />"
        FormData = FormData & "<Field Name='Supplier terms' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/TBLAPT_Description").Text) & "' />"
        FormData = FormData & "<Field Name='Area' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/Area").Text & "' />"
        FormData = FormData & "<Field Name='Nationality' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/Nationality").Text & "' />"
                FormData = FormData & "<Field Name='Supplier class' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/SupplierClass").Text & "' />"
        FormData = FormData & "<Field Name='User field 1' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/UserField1").Text) & "' />"
        FormData = FormData & "<Field Name='User field 2' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/UserField2").Text) & "' />"
        If Trim(XMLDom.documentElement.SelectSingleNode("Supplier/OnHold").Text) = "Y" Then
                SupplierHoldFlag = "Y"
        End if
        FormData = FormData & "<Field Name='Supplier on hold' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/OnHold").Text & "' />"
        'Payment Info Group
        FormData = FormData & "<Field Name='Payment information' Type='H'  Value='' ID='012' ShowGroupCollapsed='1' />"
        FormData = FormData & "<Field Name='Default cheque day' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/DefaultChequeDay").Text & "' />"
        FormData = FormData & "<Field Name='Bank account' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/BankAccount").Text & "' />"
        FormData = FormData & "<Field Name='Bank branch' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/BankBranch").Text & "' />"
        FormData = FormData & "<Field Name='Tax registration number' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/TaxRegnNum").Text & "' />"
        'Payment Info Group End
        'PO Header
        FormData = FormData & "<Field Name='Purchase order information' Type='H'  Value='' ID='014' ShowGroupCollapsed='1' />"
                FormData = FormData & "<Field Name='Purchase orders allowed' Type='A' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/PurchOrdAllowed").Text & "' />"
        FormData = FormData & "<Field Name='Contracts' Type='A' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/Contracts").Text & "' />"
        FormData = FormData & "<Field Name='Last purchase date' Type='D'  Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/LastPurchDate").Text & "' />"
        FormData = FormData & "<Field Name='Min purchase order value' Type='A'  Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/MinPoVal").Text & "' />"
        FormData = FormData & "<Field Name='Min purchase order mass' Type='D'  Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/MinPoMass").Text & "' />"
        FormData = FormData & "<Field Name='Min purchase order volume' Type='D'  Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/MinPoVolume").Text & "' />"
        FormData = FormData & "<Field Name='Default purchase order format' Type='D'  Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/PoDefaultDoc").Text & "' />"
        ' End PO Header
        FormData = FormData & "<Field Name='Telephone number' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/Telephone").Text & "' />"
        FormData = FormData & "<Field Name='Fax' Value='" & XMLDom.documentElement.SelectSingleNode("Supplier/Fax").Text & "' />"
        FormData = FormData & "<Field Name='Fax contact' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/FaxContact").Text) & "' />"
        FormData = FormData & "<Field Name='Email' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("Supplier/Email").Text) & "' />"
        FormData = FormData & "</Fields></Form>"

        CustomizedPane.CodeObject.UpdateFormValues = FormData
        If SupplierHoldFlag = "Y" then
                SupplierHeader.CodeObject.SupplierOnHold = "<Field Foreground='255000000' IsBold='true' Value='Y'  > </Field>"
                else
                SupplierHeader.CodeObject.SupplierOnHold = "<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