# Customized Panes for 'xxxxxxxx' Created: 2011/03/14
# PANE:List of Sales Orders
[PANE]
ADMIN INVPENLZ    01000List of Sales Orders                                                                                020                                                                                                                                                                                                                                                               000000500000INVPEN000M
[VBSCRIPT]
' This script contains functions for customized pane events.
' You must not modify the name of the functions.
Option Explicit

Function CustomizedPane_OnLoad()
  ' Specify the variable to contain the XML that defines the listview structure
  dim ListXML

  ' Build the XML that defines the listview structure
  ListXML = ListXML & "<Columns PrimaryNode='SalesOrderItem' Style='DataGrid' AutoSize='false' FreezeColumn='2' >"
  ListXML = ListXML & "<Column Name='SalesOrder' Description='Sales order' />"
  ListXML = ListXML & "<Column Name='SalesOrderLine' Description='Line' />"
  ListXML = ListXML & "<Column Name='OrderStatus' Description='Status' />"
  ListXML = ListXML & "<Column Name='Customer' Description='Customer' />"
  ListXML = ListXML & "<Column Name='MWarehouse' Description='W/h' />"
  ListXML = ListXML & "<Column Name='MOrderQty' Description='Order qty' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='MOrderUom' Description='Order Uom' />"
  ListXML = ListXML & "<Column Name='MShipQty' Description='Ship qty' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='MBackOrderQty' Description='Back order qty' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='MBin' Description='Bin' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MPrice' Description='Price' Type='numeric' Decimals='5' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MPriceUom' Description='Price Uom' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MLineShipDate' Description='Ship date' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MCustRequestDat' Description='Customer request date' Hidden='true' Type='date' />"
  ListXML = ListXML & "</Columns>"

  ' Pass the XML to the ListviewProperties variable
  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function

Function CustomizedPane_OnRefresh()
  ' Specify the variables to be used when calling the business object
  dim XMLOut, XMLParam, Stockcode
  CustomizedPane.CodeObject.ListviewData = " "

  ' Populate the Stockcode variable with the refresh value
  Stockcode = CustomizedPane.CodeObject.RefreshValue

  if Stockcode = "" then
    exit function
  end if

  ' Build the XML to be passed to the business object
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <StockCode><![CDATA[" & Stockcode & "]]></StockCode>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "      <IncludeJobsCompleted>I</IncludeJobsCompleted>"
  XMLParam = XMLParam & "     <IncludeSalesOrders>Y</IncludeSalesOrders>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & " </Query>"
  on error resume next

  ' Call the business object passing it the XML, and place the result in XMLOut
  XMLOut = CallBO("INVQWR",XMLParam,"auto")
  if err then
    exit function
  end if
  ' Switch on error handling
  on error goto 0

  ' Pass the results from the business object to the ListviewData variable
  CustomizedPane.CodeObject.ListviewData = XMLOut

End Function