# Customized Panes for 'xxxxxxxx' Created: 2011/07/13
# PANE:List of RMAs
[PANE]
Phil  IMP04ZLZ    01000List of RMAs                                                                                        020                                                                                                                                                                                                                                                               000000000000IMP04Z000
[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='false' FreezeColumn='2'>"
ListXML = ListXML & "<Column Name='RMANumber' Description='RMA number' />"
ListXML = ListXML & "<Column Name='Line' Description='Line' />"
ListXML = ListXML & "<Column Name='StockCode' Description='Stock code'/>" 
ListXML = ListXML & "<Column Name='StockDesc' Description='Description' />"
ListXML = ListXML & "<Column Name='LongDescription' Description='Long description' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='AuthorizedQty' Description='Authorized quantity' />" 
ListXML = ListXML & "<Column Name='AuthorizedQtyUnits' Description='Authorized quantity units' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='ReceivedQty' Description='Received quantity'/>" 
ListXML = ListXML & "<Column Name='ReceivedQtyUnits' Description='Received quantity units' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='LineType' Description='RMA line code' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='LineDesc' Description='RMA line type' />" 
ListXML = ListXML & "<Column Name='ProblemCode' Description='Problem code 'Hidden='true' />" 
ListXML = ListXML & "<Column Name='ProblemDesc' Description='Problem description' />" 
ListXML = ListXML & "<Column Name='ProblemCommentText' Description='Problem comment text' 'Hidden='true' />" 
ListXML = ListXML & "<Column Name='ActionCommentText' Description='Action comment text' 'Hidden='true' />"
ListXML = ListXML & "<Column Name='CrossShipInd' Description='Cross shipment' />" 
ListXML = ListXML & "<Column Name='RmaUom' Description='RMA Uom' />"
ListXML = ListXML & "<Column Name='RmaAction' Description='RMA action' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='RmaActionDesc' Description='RMA action description' />" 
ListXML = ListXML & "</Columns>"
CustomizedPane.CodeObject.ListviewProperties = ListXML


End Function

Function CustomizedPane_OnRefresh()

dim XMLOut, XMLParam, Customer
Customer = CustomizedPane.CodeObject.RefreshValue

if Customer = "" then
   exit function
end if

XMLParam = XMLParam & " <Query>"
XMLParam = XMLParam & "   <Filter>"
XMLParam = XMLParam & "     <Customer FilterType='S' FilterValue='" & Customer & "'/>"
XMLParam = XMLParam & "   </Filter>"

XMLParam = XMLParam & " </Query>"
on error resume next
XMLOut = CallBO("RMAQ70",XMLParam,"auto")
if err then
  CustomizedPane.CodeObject.ListviewData = " "
  exit function
end if
' Switch on error handling
on error goto 0
CustomizedPane.CodeObject.ListviewData = XMLOUT


End Function