# Customized Panes for 'SORPENLZ' Created: 2013/04/09
# PANE:Stock Code Header
[PANE]
DUP                 SORPENLZ    01001Stock Code Header                                                                                   090settings\DUP_VBS_SORPEN01.XML                                                                                                                                                                                                                                  000000503290SORPEN010M000                    0000                    00000       None               0#
[start-form]
<?xml version="1.0" encoding="Windows-1252"?>
<Form Description='Form Design' CustomForm='' >
<Fields>
<Field Name='Stock code' Type='A'  Value='' ID='001'>
</Field>
<Field Name='Description' Type='A'  Value='' ID='002'>
</Field>
<Field Name='Long description' Type='A'  Value='' ID='003'>
</Field>
<Field Name='Product class' Type='A'  Value='' ID='024'>
</Field>
<Field Name='Warehouse to use' Type='A'  Value='' ID='018'>
</Field>
<Field Name='Alternate key 1' Type='A'  Value='' ID='025'>
</Field>
<Field Name='Alternate key 2' Type='A'  Value='' ID='026'>
</Field>
<Field Name='Dangerous goods' Type='A'  Value='' Tooltip='TEST' ID='004'>
</Field>
<Field Name='Date of supersession' Type='D'  Value='00000000' Tooltip='No date' ID='005'>
</Field>
<Field Name='Stock on hold' Type='A'  Value='' ID='023'>
</Field>
<Field Name='Units of measure' Type='H'  Value='' ID='006' ShowGroupCollapsed='1'>
</Field>
<Field Name='Stocking unit of measure' Type='A'  Group='1' Value='' ID='007'>
</Field>
<Field Name='Alternate unit of measure' Type='A'  Group='1' Value='' ID='008'>
</Field>
<Field Name='Other unit of measure' Type='A'  Group='1' Value='' ID='009'>
</Field>
<Field Name='Manufacture unit of measure' Type='A'  Group='1' Value='' ID='012'>
</Field>
<Field Name='Cost unit of measure' Type='A'  Group='1' Value='' ID='017'>
</Field>
<Field Name='Mass' Type='M'  Value='0.000000' Decimals='6' ID='014'>
</Field>
<Field Name='Volume' Type='M'  Value='0.000000' Decimals='6' ID='015'>
</Field>
<Field Name='Kit type' Type='A'  Value='' ID='016'>
</Field>
<Field Name='Distribution' Type='H'  Value='' ID='019' ShowGroupCollapsed='1'>
</Field>
<Field Name='Supplier' Type='A'  Group='1' Uppercase='1' Value='' ID='020'>
</Field>
<Field Name='Lead time (days)' Type='M'  Group='1' Value='0' ID='021'>
</Field>
<Field Name='Dock to stock' Type='M'  Group='1' Value='0' ID='022'>
</Field>
</Fields>
</Form>
[end-form]
[VBSCRIPT]
Option Explicit

Function CustomizedPane_OnRefresh()

If CustomizedPane.CodeObject.RefreshValue = "" then
        Exit Function
End if

dim XMLOut, XMLParam

XMLParam = "<Query>"
XMLParam = XMLParam & "   <Key>"
XMLParam = XMLParam & "     <StockCode><![CDATA["& CustomizedPane.CodeObject.RefreshValue &"]]></StockCode>"
XMLParam = XMLParam & "   </Key>"
XMLParam = XMLParam & "   <Option>"
XMLParam = XMLParam & "     <IncludeNarrations>Y</IncludeNarrations>"
XMLParam = XMLParam & "     <ReturnNarrationsinBlock>N</ReturnNarrationsinBlock>"
XMLParam = XMLParam & "   </Option>"
XMLParam = XMLParam & "   <Filter>"
XMLParam = XMLParam & "     <Warehouse FilterType='L' FilterValue=''/>"
XMLParam = XMLParam & "   </Filter>"
XMLParam = XMLParam & " </Query>"
on error resume next
XMLOut = CallBO("INVQRY",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, DangerToolTip
        DangerToolTip = ""
        ' Handle Unit of measures to show EA \ 10.000
        ' Use Variables
        Dim AltUOM, AltUOMCnv, AltUOMMD
        Dim OthUOM, OthUOMCnv, OthUOMMD
        Dim MumUOM, MumUOMCnv, MumUOMMD
        Dim StockUOM :  StockUOM = XMLDom.documentElement.SelectSingleNode("StockItem/StockUom").Text
        AltUOM = XMLDom.documentElement.SelectSingleNode("StockItem/AlternateUom").Text
        AltUOMCnv = XMLDom.documentElement.SelectSingleNode("StockItem/ConvFactAltUom").Text
        AltUOMMD = XMLDom.documentElement.SelectSingleNode("StockItem/ConvMulDiv").Text
        OthUOM = XMLDom.documentElement.SelectSingleNode("StockItem/OtherUom").Text
        OthUOMCnv = XMLDom.documentElement.SelectSingleNode("StockItem/ConvFactOthUom").Text
        OthUOMMD = XMLDom.documentElement.SelectSingleNode("StockItem/MulDiv").Text
        MumUOM = XMLDom.documentElement.SelectSingleNode("StockItem/ManufactureUom").Text
        MumUOMCnv = XMLDom.documentElement.SelectSingleNode("StockItem/ConvFactMuM").Text
        MumUOMMD = XMLDom.documentElement.SelectSingleNode("StockItem/ManMulDiv").Text
        'Alt UOM
        If AltUOMMD = "D" then
                        FormData = FormData & "<Field Name='Alternate Unit Of Measure' Value='" & AltUOM & " = " & StockUOM & " / " & AltUOMCnv &"' />"
                        else
                        FormData = FormData & "<Field Name='Alternate Unit Of Measure' Value='" & AltUOM & " = " & StockUOM & " * " & AltUOMCnv &"' />"
                End if
                'Other UOM
        If OthUOMMD = "D" then
                        FormData = FormData & "<Field Name='Other Unit Of Measure' Value='" & OthUOM & " = " & StockUOM & " / " & OthUOMCnv &"' />"
                        else
                        FormData = FormData & "<Field Name='Other Unit Of Measure' Value='" & OthUOM & " = " & StockUOM & " * " & OthUOMCnv &"' />"
                End if
                'Manufacture UOM
        If MumUOMMD = "D" then
                        FormData = FormData & "<Field Name='Manufacture Unit Of Measure' Value='" & MumUOM & " = " & StockUOM & " / " & MumUOMCnv &"' />"
                        else
                        FormData = FormData & "<Field Name='Manufacture Unit Of Measure' Value='" & MumUOM & " = " & StockUOM & " * " & MumUOMCnv &"' />"
                End if
                ' UOM end
        FormData = FormData & "<Field Name='Date of supersession' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/SupercessionDate").Text & "' />"
        FormData = FormData & "<Field Name='Description' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("StockItem/Description").Text) & "' />"
        FormData = FormData & "<Field Name='Long Description' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("StockItem/LongDesc").Text) & "' />"
        FormData = FormData & "<Field Name='Product class' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/ProductClass").Text & "' />"
        FormData = FormData & "<Field Name='Stock code' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("StockItem/StockCode").Text) & "' />"
        on error resume next
        Len(XMLDom.documentElement.SelectSingleNode("StockItem/Narrations/DangerousGoodsHandling/Text").Text)
        if err then
                FormData = FormData & "<Field Name='Dangerous Goods' Value='' />"
                else
                DangerToolTip = CleanXML(XMLDom.documentElement.SelectSingleNode("StockItem/Narrations/DangerousGoodsHandling/Text").Text)
                FormData = FormData & "<Field Name='Dangerous Goods' Value='Notes present' />"
        End if
        on error goto 0
                Select Case XMLDom.documentElement.SelectSingleNode("StockItem/StockOnHold").Text
                        Case "F"
                                FormData = FormData & "<Field Name='Stock on hold' Value='Full Hold' />"
                        Case "P"
                                FormData = FormData & "<Field Name='Stock on hold' Value='Partial Hold' />"
                        Case Else
                                FormData = FormData & "<Field Name='Stock on hold' Value='No Hold' />"
                End Select
        FormData = FormData & "<Field Name='Stocking unit of measure' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/StockUom").Text & "' />"
        FormData = FormData & "<Field Name='Cost unit of measure' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/CostUom").Text & "' />"
        FormData = FormData & "<Field Name='Mass' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/Mass").Text & "' />"
        FormData = FormData & "<Field Name='Volume' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/Volume").Text & "' />"
        FormData = FormData & "<Field Name='Kit type' Type='M' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/KitType").Text & "' />"
        FormData = FormData & "<Field Name='Warehouse to use' Type='M' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/WarehouseToUse").Text & "' />"
        FormData = FormData & "<Field Name='Supplier' Type='M' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("StockItem/Supplier").Text) & "' />"
        FormData = FormData & "<Field Name='Lead time (days)' Type='M' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/LeadTime").Text & "' />"
        FormData = FormData & "<Field Name='Dock to stock' Type='M' Value='" & XMLDom.documentElement.SelectSingleNode("StockItem/DockToStock").Text & "' />"
        FormData = FormData & "<Field Name='Alternate key 1' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("StockItem/AlternateKey1").Text) & "' />"
        FormData = FormData & "<Field Name='Alternate key 2' Value='" & CleanXML(XMLDom.documentElement.SelectSingleNode("StockItem/AlternateKey2").Text) & "' />"
        FormData = FormData & "</Fields></Form>"
        CustomizedPane.CodeObject.UpdateFormValues = FormData
        StockCodeHeader.CodeObject.DangerousGoods = "<Field Foreground='255000000' IsBold='true'  Tooltip='" & DangerToolTip & "'  > </Field>"
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