# Customized Panes for 'IMP040LZ' Created: 2010/05/20
# PANE:Sales Order Information
[PANE]
ADMIN IMP040LZ    01002Sales Order Information                                                                             020                                                                                                                                                                                                                                                               000000500001IMP040040M000                    0000                    00000
[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='Row' Style='DataGrid' AutoSize='false' FreezeColumn='0' >"
ListXML = ListXML & "<Column Name='SalesOrderDetails' Description='Sales order details' Width='300' TreeColumn='true'/>"
ListXML = ListXML & "<Column Name=' ' Description='Quantity' Width='100' Type='Numeric' HdrAlignment='Right' />"
ListXML = ListXML & "</Columns>"
CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function


Function CustomizedPane_OnRefresh()
  dim XMLOut, XMLParam, SalesOrder
  CustomizedPane.CodeObject.ListviewData = " "

  If CustomizedPane.CodeObject.RefreshValue <> "" then
    SalesOrder = CustomizedPane.CodeObject.RefreshValue
    CustomizedPane.CodeObject.GlobalVariable = CustomizedPane.CodeObject.RefreshValue
  Else
    SalesOrder = CustomizedPane.CodeObject.GlobalVariable
  End If

  If SalesOrder <> "" then
    XMLParam = XMLParam & " <Query>"
    XMLParam = XMLParam & "   <Key>"
    XMLParam = XMLParam & "     <SalesOrder>" & SalesOrder & "</SalesOrder>"
    XMLParam = XMLParam & "   </Key>"
    XMLParam = XMLParam & " </Query>"

    on error resume next
    XMLOut = CallBO("SORQOR",XMLParam,"auto")
    if err then
      msgbox err.Description, vBCritical, "Calling Business Object"
      exit function
    end if
    ' Switch on error handling
    on error goto 0
    CustomizedPane.CodeObject.ListviewData = XMLOut
  End If
End Function

Function CustomizedPane_OnLinkClicked()

' Split out the first value, being the key value.
dim myArray, myString
myarray = Split(CustomizedPane.CodeObject.ListviewRowReturned,VBTab) 

' Call traceability query for event 40700.
if CustomizedPane.CodeObject.HyperlinkEvent = 40700 then
   myString = "LOTPEN " + myArray(0) 
   SystemVariables.CodeObject.SYSPROProgramToRun = myString
end if

' Call serial query for event 40600.
if CustomizedPane.CodeObject.HyperlinkEvent = 40600 then
   myString = "INVPSB " + myArray(0) 
   SystemVariables.CodeObject.SYSPROProgramToRun = myString
end if


End Function