# Customized Panes for 'xxxxxxxx' Created: 2013/10/31
# PANE:Invoices
[PANE]
Phil  IMP04ZLZ    01000Customer Invoices                                                                                   020                                                                                                                                                                                                                                                               000000000000IMP04Z000
[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='InvoiceDetail' Style='DataGrid' AutoSize='false' FreezeColumn='1'>"
ListXML = ListXML & "<Column Name='Invoice' Description='Invoice' />"
ListXML = ListXML & "<Column Name='InvoiceDate' Description='Invoice date' GroupBy='true'/>"
ListXML = ListXML & "<Column Name='CurrencyValue' Description='Invoice amount'/>" 
ListXML = ListXML & "<Column Name='InvoiceBal' Description='Invoice balance' Total='true'/>"
ListXML = ListXML & "<Column Name='DueDate' Description='Due date' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='CustomerPoNumber' Description='Customer po number' />" 
ListXML = ListXML & "<Column Name='Branch' Description='Branch' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='SalesOrder' Description='Sales order' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='ProofOfDelivery' Description='Proof of delivery' Hidden='true'/>" 
ListXML = ListXML & "<Column Name='PodReference' Description='Pod reference' Hidden='true'/>" 
ListXML = ListXML & "</Columns>"
CustomizedPane.CodeObject.ListviewProperties = ListXML


End Function

Function CustomizedPane_OnRefresh()

dim XMLOut, XMLParam, Customer
Customer = CustomizedPane.CodeObject.RefreshValue

if Customer = "" then
   exit function
end if

XMLParam = XMLParam & " <Query>"
XMLParam = XMLParam & "   <Key>"
XMLParam = XMLParam & "     <Customer><![CDATA[" & Customer & "]]></Customer>"
XMLParam = XMLParam & "   </Key>"
XMLParam = XMLParam & "   <Option>"
XMLParam = XMLParam & "     <AsOfPeriod>C</AsOfPeriod>"
XMLParam = XMLParam & "     <IncludeInvoices>Y</IncludeInvoices>"
XMLParam = XMLParam & "     <AgeingOption>S</AgeingOption>"
XMLParam = XMLParam & "     <AgeColumn1>30</AgeColumn1>"
XMLParam = XMLParam & "     <AgeColumn2>60</AgeColumn2>"
XMLParam = XMLParam & "     <AgeColumn3>90</AgeColumn3>"
XMLParam = XMLParam & "     <AgeColumn4>120</AgeColumn4>"
XMLParam = XMLParam & "     <AgeColumn5>150</AgeColumn5>"
XMLParam = XMLParam & "     <AgeColumn6>180</AgeColumn6>"
XMLParam = XMLParam & "     <AgeColumn7>210</AgeColumn7>"
XMLParam = XMLParam & "     <XslStylesheet/>"
XMLParam = XMLParam & "   </Option>"
XMLParam = XMLParam & " </Query>"
on error resume next
XMLOut = CallBO("ARSQRY",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