# Customized Panes for 'xxxxxxxx' Created: 2008/10/27
# PANE:Sales Orders
[PANE]
Phil  IMPMENLX    01000Customer Sales Orders                                                                               020                                                                                                                                                                                                                                                               000000500000IMPMEN000M
[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='SalesOrderItem' Style='DataGrid' AutoSize='false' FreezeColumn='1'>"
ListXML = ListXML & "<Column Name='SalesOrder' Description='Sales order' />"
ListXML = ListXML & "<Column Name='OrderStatus' Description='Order status' />"
ListXML = ListXML & "<Column Name='Branch' Description='Branch' />"
ListXML = ListXML & "<Column Name='Salesperson' Description='Salesperson' />"
ListXML = ListXML & "<Column Name='CustomerPoNumber' Description='Customer po number' />"
ListXML = ListXML & "<Column Name='OrderDate' Description='Order date' />"
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

' Returns up to 9,999 sales orders.

XMLParam = XMLParam & " <Query>"
XMLParam = XMLParam & "   <Option>"
XMLParam = XMLParam & "     <IncludeCompletedOrders>Y</IncludeCompletedOrders>"
XMLParam = XMLParam & "     <IncludeCancelledOrders>Y</IncludeCancelledOrders>"
XMLParam = XMLParam & "     <IncludeForwardOrders>Y</IncludeForwardOrders>"
XMLParam = XMLParam & "     <StartAtOrder/>"
XMLParam = XMLParam & "     <ReturnOrders>9999</ReturnOrders>"
XMLParam = XMLParam & "     <OutstandingQty/>"
XMLParam = XMLParam & "     <ReturnPreviousOrder/>"
XMLParam = XMLParam & "     <XslStylesheet/>"
XMLParam = XMLParam & "   </Option>"
XMLParam = XMLParam & "   <Filter>"
XMLParam = XMLParam & "     <Customer FilterType='S' FilterValue='" & Customer & "'/>"
XMLParam = XMLParam & "   </Filter>"
XMLParam = XMLParam & " </Query>"
on error resume next
XMLOut = CallBO("SORQSO",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