# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Reserved Lots for Job (Components) 
[PANE]
ADMIN INVPENLZ    01000Reserved Lots for Job (Components)                                                                  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 used to contain the XML that defines the listview structure
  dim ListXML

  ' Populate the XML that defines the listview structure
  ListXML = ListXML & "<Columns PrimaryNode='MaterialReservedLots' Style='DataGrid' AutoSize='false' FreezeColumn='1' >"
  ListXML = ListXML & "<Column Name='StockCode' Description='Stock code' />"
  ListXML = ListXML & "<Column Name='Line' Description='Line' Type='numeric' />"
  ListXML = ListXML & "<Column Name='Lot' Description='Lot number' />"
  ListXML = ListXML & "<Column Name='Warehouse' Description='Warehouse' />"
  ListXML = ListXML & "<Column Name='QtyReserved' Description='Qty reserved' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyIssued' Description='Qty issued' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='LotCompleted' Description='Lot completed' />"
  ListXML = ListXML & "<Column Name='Bin' Description='Concession Bin' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='Version' Description='Version' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Release' Description='Release' Hidden='true' />"
  ListXML = ListXML & "</Columns>"


  ' Take the XML and pass it to the ListviewProperties variable
  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function

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

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

  if Job = "" then
    exit function
  end if

  ' Build up the XML to be passed to the business object
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <Job>" & Job & "</Job>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeMaterialAllocations>Y</IncludeMaterialAllocations>"
  XMLParam = XMLParam & "     <IncludeMaterialReservedLots>Y</IncludeMaterialReservedLots>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & " </Query>"
  on error resume next


  ' Call the business object, supply the XML and put the resulting XML in to XMLOut
  XMLOut = CallBO("WIPQRY",XMLParam,"auto")
  if err then
    exit function
  end if
  ' Switch on error handling
  on error goto 0

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

End Function