# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Supplier GRNs
[PANE]
ADMIN INVPENLZ    01000Supplier GRNs                                                                                       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='GRNDetail' Style='DataGrid' AutoSize='false' FreezeColumn='1' >"
  ListXML = ListXML & "<Column Name='Grn' Description='GRN' />"
  ListXML = ListXML & "<Column Name='PurchaseOrder' Description='Purchase order' />"
  ListXML = ListXML & "<Column Name='DeliveryNote' Description='Delivery note' />"
  ListXML = ListXML & "<Column Name='CurGrnValue' Description='Outstanding value' Type='numeric' Decimals='2' />"
  ListXML = ListXML & "<Column Name='GrnMatchedFlag' Description='Matched' />"
  ListXML = ListXML & "<Column Name='StockCode' Description='Stock code' />"
  ListXML = ListXML & "<Column Name='QtyReceived' Description='Quantity' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='OrigReceiptDate' Description='Original receipt date' Type='date' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Journal' Description='Journal number' Hidden='true' />"
  ListXML = ListXML & "<Column Name='JournalEntry' Description='Journal entry' Hidden='true' />"
  ListXML = ListXML & "<Column Name='GrnSource' Description='GRN Source' 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, Supplier
  CustomizedPane.CodeObject.ListviewData = " "

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

  if Supplier = "" 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 & "     <Supplier>" & Supplier & "</Supplier>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeInvoices>N</IncludeInvoices>"
  XMLParam = XMLParam & "     <IncludeReceipts>N</IncludeReceipts>"
  XMLParam = XMLParam & "     <IncludeScrapReject>N</IncludeScrapReject>"
  XMLParam = XMLParam & "     <IncludeGoodsReceivedNotes>Y</IncludeGoodsReceivedNotes>"
  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("APSQRY",XMLParam,"auto")
  if err then
    exit function
  end if
  ' Switch on error handling
  on error goto 0

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

End Function