# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Goods in Transit
[PANE]
ADMIN INVPENLZ    01000Goods in Transit                                                                                    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 up the XML that defines the listview structure
  ListXML = ListXML & "<Columns PrimaryNode='ReferenceItem' Style='DataGrid' AutoSize='false' FreezeColumn='2' >"
  ListXML = ListXML & "<Column Name='SourceWarehouse' Description='Source W/h' />"
  ListXML = ListXML & "<Column Name='TargetWarehouse' Description='Target W/h' />"
  ListXML = ListXML & "<Column Name='Reference' Description='Reference' />"
  ListXML = ListXML & "<Column Name='Line' Description='Line' />"
  ListXML = ListXML & "<Column Name='GtrQuantity' Description='GIT qty' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyReceived' Description='Qty received' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='TransferComplete' Description='Complete' />"
  ListXML = ListXML & "<Column Name='UnitCost' Description='Unit cost' Type='numeric' Decimals='5' Hidden='true' />"
  ListXML = ListXML & "<Column Name='CostUom' Description='Cost uom' Hidden='true' />"
  ListXML = ListXML & "<Column Name='InitialValue' Description='Initial value' Hidden='true' />"
  ListXML = ListXML & "<Column Name='SalesOrder' Description='Sales order' Hidden='true' />"
  ListXML = ListXML & "<Column Name='SalesOrderLine' Description='Sales order line' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DeliveryNote' Description='Delivery note' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Invoice' Description='Invoice' Hidden='true' />"
  ListXML = ListXML & "<Column Name='TransfDocNum' Description='Transfer document number' Hidden='true' />"
  ListXML = ListXML & "<Column Name='TransactionDate' Description='Transaction date' Hidden='true' Type='date' />"
  ListXML = ListXML & "<Column Name='ExpectedDueDate' Description='Expected 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 up the XML that will be supplied to the business object
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <StockCode><![CDATA[" & Stockcode & "]]></StockCode>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeGoodsInTransit>Y</IncludeGoodsInTransit>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & " </Query>"
  on error resume next

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

  ' Pass the resulting XML to the ListviewData variable
  CustomizedPane.CodeObject.ListviewData = XMLOut

End Function