# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:WIP Jobs
[PANE]
ADMIN INVPENLZ    01000WIP Jobs                                                                                            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='Job' Style='DataGrid' AutoSize='false' FreezeColumn='1' >"
  ListXML = ListXML & "<Column Name='JobNumber' Description='Job' />"
  ListXML = ListXML & "<Column Name='JobDescription' Description='Job Description' />"
  ListXML = ListXML & "<Column Name='StockCode' Description='Stock code' />"
  ListXML = ListXML & "<Column Name='StockDescription' Description='Stock description' />"
  ListXML = ListXML & "<Column Name='QtyToMake' Description='Qty to make' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyManufactured' Description='Qty manufactured' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='DWarehouse' Description='W/h' />"
  ListXML = ListXML & "<Column Name='ConfirmedFlag' Description='Confirmed' />"
  ListXML = ListXML & "<Column Name='Complete' Description='Complete' />"
  ListXML = ListXML & "<Column Name='HrsBookToDate' Description='Hrs booked' Type='numeric' Decimals='2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='LabCostToDate' Description='Labor cost' Type='numeric' Decimals='2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MatCostToDate' Description='Material cost' Type='numeric' Decimals='2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ExpLabour' Description='Expected labor cost' Type='numeric' Decimals='5' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ExpMaterial' Description='Expected material cost' Type='numeric' Decimals='2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='SchStartDate' Description='Scheduled start date' Type='date' Hidden='true' />"
  ListXML = ListXML & "<Column Name='SchEndDate' Description='Scheduled end date' Type='date' Hidden='true' />"
  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 & "      <IncludeWorkInProgress>Y</IncludeWorkInProgress>"
  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