# Customized Panes for 'xxxxxxxx' Created: 2008/10/27
# PANE:Purchase Order Mechandise Lines
[PANE]
Phil  INVPENLZ    01000Purchase Order Mechandise Lines                                                                     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='Merchandise' Style='DataGrid' AutoSize='false' FreezeColumn='1'>"
  ListXML = ListXML & "<Column Name='MStockCode' Description='Stock code' />"
  ListXML = ListXML & "<Column Name='MStockDes' Description='Stock description' />"
  ListXML = ListXML & "<Column Name='LongDesc' Description='Long description' Hidden='True' />"
  ListXML = ListXML & "<Column Name='MWarehouse' Description='Warehouse' />"
  ListXML = ListXML & "<Column Name='MOrderQty' Description='Order quantity' Type='numeric' Decimals='3' Hidden='True' />"
  ListXML = ListXML & "<Column Name='MOrderUom' Description='Order unit of measure' Hidden='True' />"  
  ListXML = ListXML & "<Column Name='MReceivedQty' Description='Received quantity' Type='numeric' Decimals='3' Hidden='True' />" 
  ListXML = ListXML & "<Column Name='MOutstandingQty' Description='Outstanding quantity' Type='numeric' Decimals='3' />" 
  ListXML = ListXML & "<Column Name='MPrice' Description='Price' Type='numeric' Decimals='5' />" 
  ListXML = ListXML & "<Column Name='MPriceUom' Description='Price unit of measure' Hidden='True' />"
  ListXML = ListXML & "<Column Name='OrderValue' Description='Order value' Type='numeric' Decimals='5' Hidden='True' />"
  ListXML = ListXML & "<Column Name='MLatestDueDate' Description='Latest due date' Type='date' />"
  ListXML = ListXML & "<Column Name='MProductClass' Description='Product class' Hidden='True' />"
  ListXML = ListXML & "<Column Name='MSupCatalogue' Description='Catalogue number' Hidden='True' />"
  ListXML = ListXML & "<Column Name='Line' Description='Line number' Type='numeric' Hidden='True' />"
  ListXML = ListXML & "</Columns>"

  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function


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

  Purchaseorder = CustomizedPane.CodeObject.RefreshValue

  if Purchaseorder = "" then
     exit function 
  end if

  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <PurchaseOrder>" & Purchaseorder & "</PurchaseOrder>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeFreightLines>N</IncludeFreightLines>"
  XMLParam = XMLParam & "     <IncludeMiscLines>N</IncludeMiscLines>"
  XMLParam = XMLParam & "     <IncludeCommentLines>N</IncludeCommentLines>"
  XMLParam = XMLParam & "     <IncludeCompletedLines>N</IncludeCompletedLines>"
  XMLParam = XMLParam & "     <IncludeGrns>N</IncludeGrns>"
  XMLParam = XMLParam & "     <IncludeHistory>N</IncludeHistory>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & " </Query>"

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

  ' Switch on error handling
  on error goto 0


  ' Load the new XML file in to the ListviewData variable
  CustomizedPane.CodeObject.ListviewData = XMLOut


End Function