# Customized Panes for 'xxxxxxxx' Created: 2008/11/07
# PANE:Recent Purchases
[PANE]
Phil  IMP04ZLZ    00000Customer Recent Purchases                                                                           020                                                                                                                                                                                                                                                               000000000000IMP04Z000M
[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='PurchasedItem' Style='DataGrid' AutoSize='false'>"
ListXML = ListXML & "<Column Name='StockCode' Description='Stock code' Footer='Rows:{rowcount}'/>"
ListXML = ListXML & "<Column Name='Description' Description='Description' />"
ListXML = ListXML & "<Column Name='LongDesc' Description='Long desc' Hidden='true'/>"
ListXML = ListXML & "<Column Name='StockUom' Description='Stock uom' Hidden='true'/>"
ListXML = ListXML & "<Column Name='ProductClass' Description='Product class' />"
ListXML = ListXML & "<Column Name='QtyPurch1' Description='Qty purchased' />"
ListXML = ListXML & "<Column Name='LastPricePaid1' Description='Last price paid' />"
ListXML = ListXML & "<Column Name='PriceUom1' Description='Price u/m' />"
ListXML = ListXML & "<Column Name='Invoice1' Description='Invoice' />"
ListXML = ListXML & "<Column Name='InvoiceDate1' Description='Invoice date' GroupBy='true'/>"
ListXML = ListXML & "<Column Name='UnitDiscValue1' Description='Discount' Hidden='true'/>"
ListXML = ListXML & "<Column Name='CurrentPrice' Description='Current price' Hidden='true' />"
ListXML = ListXML & "<Column Name='CurrentPriceUM' Description='Current price u/m' Hidden='true' />"
ListXML = ListXML & "</Columns>"
CustomizedPane.CodeObject.ListviewProperties = ListXML


End Function

Function CustomizedPane_OnRefresh()

Dim dtCurDate, strCurDate

' Process purchases up to 120 days ago
dtCurDate = DateAdd("D",-120, Now)

strCurDate = Year(dtCurDate) & "-" & Right("0" & Month(dtCurDate),2) & "-" & Right("0" & Day(dtCurDate),2)

dim XMLOut, XMLParam, Customer

Customer = CustomizedPane.CodeObject.RefreshValue

if Customer = "" then
   exit function
end if

XMLParam = XMLParam & " <Query>"
XMLParam = XMLParam & "   <Key>"
XMLParam = XMLParam & "     <Customer>" & Customer & "</Customer>"
XMLParam = XMLParam & "   </Key>  "
XMLParam = XMLParam & "   <Option>    "
XMLParam = XMLParam & "     <FromDate>" & strCurDate & "</FromDate>"
XMLParam = XMLParam & "     <MaxNumber>100</MaxNumber>"
XMLParam = XMLParam & "     <IncludeCurrentPrice>Y</IncludeCurrentPrice>"
XMLParam = XMLParam & "     <XslStylesheet/>"
XMLParam = XMLParam & "   </Option>"
XMLParam = XMLParam & " </Query>"
on error resume next
XMLOut = CallBO("ARSQIP",XMLParam,"auto")
if err then
  CustomizedPane.CodeObject.ListviewData = " "
  exit function
end if
' Switch on error handling
on error goto 0
CustomizedPane.CodeObject.ListviewData = xmlout
End Function