# Customized Panes for 'INVPENLZ' Created: 2016/01/25
# PANE:RMA's per stock code
[PANE]
DUP                 INVPENLZ    01000RMA's per stock code                                                                                020                                                                                                                                                                                                                                                               000000500001INVPEN000M000                    0000                    00000                          0#
[VBSCRIPT]
' This script contains functions for customized pane events.
' You must not modify the name of the functions.
Option Explicit

Function CustomizedPane_OnLoad()
dim ListXML
ListXML = ListXML & "<Columns PrimaryNode='RMADetail' Style='DataGrid' AutoSize='true' FreezeColumn='0' AutoInsert='false' AllowDEL='false' AllowUndo='false' DragDrop='false' PopulateVisible='false' HighlightRow='false' >"
ListXML = ListXML & "<Column Name='RMANumber' Description='RMA number' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='Customer' Description='Customer' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='Line' Description='RMA line' Type='Numeric' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='StockCode' Description='Stock code' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='LineDesc' Description='RMA line type' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='EditedAuthorizedQty' Description='Authorized quantity' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='EditedReceivedQty' Description='Received quantity' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='RmaUom' Description='Uom' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='Translated_RMAActionDesc' Description='Action' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='ProblemCode' Description='Problem code' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='ProblemDesc' Description='Problem code description' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Name='CrossShipInd' Description='Cross shipment' Type='Checkbox' Alignment='Center' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Source='RMAHeader/Name' Description='Customer name' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "<Column Source='RMAHeader/RMADesc' Description='RMA status' Type='Alpha' Alignment='Left' HdrAlignment='Left' />"
ListXML = ListXML & "</Columns>"
CustomizedPane.CodeObject.ListviewProperties = ListXML


End Function


Function CustomizedPane_OnRefresh()
Dim strStockCode
If CustomizedPane.CodeObject.RefreshValue <> "" then
        strStockCode = CustomizedPane.CodeObject.RefreshValue
        else
        exit function
end if
dim XMLOut, XMLParam

XMLParam = XMLParam & " <Query>"
XMLParam = XMLParam & "   <Option>"
XMLParam = XMLParam & "     <ReportSequence>R</ReportSequence>"
XMLParam = XMLParam & "     <CrossShipments>I</CrossShipments>"
XMLParam = XMLParam & "     <IncludeProblemComments>N</IncludeProblemComments>"
XMLParam = XMLParam & "     <IncludeActionComments>N</IncludeActionComments>"
XMLParam = XMLParam & "   </Option>"
XMLParam = XMLParam & "   <Filter>"
XMLParam = XMLParam & "     <StockCode FilterType='S' FilterValue='" & FixCode(strStockCode) & "' />"
XMLParam = XMLParam & "   </Filter>"
XMLParam = XMLParam & " </Query>"
on error resume next
XMLOut = CallBO("RMAQ70",XMLParam,"auto")
if err then
  msgbox err.Description, vBCritical, "Calling Business Object"
  exit function
end if
' Switch on error handling
on error goto 0

Dim XMLDOM : Set XMLDOM = CreateObject("Microsoft.XMLDOM")
With XMLDOM
.Async = false
.LoadXML(XMLOut)
End With

Dim XMLOutList
Dim ListItem, List
set List = XMLDOM.GetElementsByTagName("RMA")
For Each ListItem in List
        Dim strRmaHName : strRmaHName = ListItem.GetElementsByTagName("Name").Item(0).Text
        Dim strRmaHDesc : strRmaHDesc = ListItem.GetElementsByTagName("RMADesc").Item(0).Text
        dim stkListItem, stkList
        dim strRmaDRma,strRmaDCust, strRmaDLn, strRmaDStk, strRmaDLnType, strRmaDAuthQty, strRmaDRecQty, strRmaDRmaUom, strRmaDActn, strRmaDPlm, strRmaDPlmDesc, strRmaDXShip
        set stkList = ListItem.GetElementsByTagName("RMADetail")
        for each stkListItem in stkList
                strRmaDRma = stkListItem.ChildNodes.Item(0).Text
                strRmaDCust = stkListItem.ChildNodes.Item(1).Text
                strRmaDLn = stkListItem.ChildNodes.Item(2).Text
                strRmaDStk = stkListItem.ChildNodes.Item(3).Text
                strRmaDLnType = stkListItem.ChildNodes.Item(9).Text
                strRmaDAuthQty = stkListItem.ChildNodes.Item(12).Text
                strRmaDRecQty = stkListItem.ChildNodes.Item(15).Text
                strRmaDRmaUom = stkListItem.ChildNodes.Item(16).Text
                strRmaDActn = stkListItem.ChildNodes.Item(19).Text
                strRmaDPlm = stkListItem.ChildNodes.Item(20).Text
                strRmaDPlmDesc = stkListItem.ChildNodes.Item(21).Text
                strRmaDXShip = stkListItem.ChildNodes.Item(22).Text

                XMLOutList = XMLOutList & strRmaDRma & chr(255) &strRmaDCust & chr(255) & strRmaDLn &_
                                        chr(255) & strRmaDStk & chr(255) & strRmaDLnType & chr(255) & strRmaDAuthQty &_
                                        chr(255) & strRmaDRecQty & chr(255) & strRmaDRmaUom & chr(255) & strRmaDActn &_
                                        chr(255) & strRmaDPlm & chr(255) & strRmaDPlmDesc & chr(255) & strRmaDXShip &_
                                        chr(255) & strRmaHName & chr(255) & strRmaHDesc & vbcrlf
        next
Next

CustomizedPane.CodeObject.ListviewData = XMLOutList
End Function

Function FixCode(strIn)
Dim OutStr : OutStr = strIn
OutStr = Replace(OutStr, "&", "&amp;")
OutStr = Replace(OutStr, """", "&quot;")
OutStr = Replace(OutStr, "'", "&apos;")
OutStr = Replace(OutStr, "<", "&lt;")
OutStr = Replace(OutStr, ">", "&gt;")
FixCode = OutStr
End Function