# Customized Panes for 'xxxxxxxx' Created: 2008/10/27
# PANE:Warehouses
[PANE]
Phil  INVPENLZ    01000Stock Code Warehouses                                                                               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()

dim ListXML
  ListXML = ListXML & "<Columns PrimaryNode='WarehouseItem' Style='DataGrid' AutoSize='false' FreezeColumn='1'>"
  ListXML = ListXML & "<Column Name='Warehouse' Description='Warehouse' />"
  ListXML = ListXML & "<Column Name='Description' Description='Description' Hidden='true'/>"
  ListXML = ListXML & "<Column Name='QtyOnHand' Description='Qty on hand' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='AvailableQty' Description='Available qty' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyOnOrder' Description='Qty on order' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyInInspection' Description='Qty in inspection' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MinimumQty' Description='Minimum qty' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MaximumQty' Description='Maximum qty' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='QtyOnBackOrder' Description='Qty on back order' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyAllocated' Description='Qty allocated' Hidden='true' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='MtdQtyReceived' Description='Mtd qty received' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MtdQtyAdjusted' Description='Mtd qty adjusted' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MtdQtyIssued' Description='Mtd qty issued' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='YtdQtySold' Description='Ytd qty sold' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='PrevYearQtySold' Description='Prev year qty sold' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='QtyInTransit' Description='Qty in transit' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='QtyAllocatedWip' Description='Qty allocated wip' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MtdQtySold' Description='Mtd qty sold' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='MtdQtyTrf' Description='Mtd qty trf' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='UserField1' Description='User field1' Hidden='true'/>"
  ListXML = ListXML & "<Column Name='UserField2' Description='User field2' Hidden='true'/>"
  ListXML = ListXML & "<Column Name='UserField3' Description='User field3' Hidden='true'/>"
  ListXML = ListXML & "<Column Name='DefaultBin' Description='Default bin' Hidden='true'/>"
  ListXML = ListXML & "<Column Name='UnitCost' Description='Unit cost' Type='numeric' Decimals='5' Hidden='true'/>"
  ListXML = ListXML & "<Column Name='StockCode' Description='Stock code' Hidden='true' />"
  ListXML = ListXML & "</Columns>"
  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function


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

  Stockcode = CustomizedPane.CodeObject.RefreshValue

  if Stockcode = "" then
     exit function 
  end if

  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <StockCode><![CDATA[" & Stockcode & "]]></StockCode>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & " </Query>"

  on error resume next
  
  XMLOut = CallBO("INVQRY",XMLParam,"auto")
  if err then
    exit function
  end if

  ' Switch on error handling
  on error goto 0

  CustomizedPane.CodeObject.ListviewData = Replace(XMLOUT, "<WarehouseItem>", "<WarehouseItem><StockCode><![CDATA[" & Stockcode & "]]></StockCode>")


End Function