# Customized Panes for 'xxxxxxxx' Created: 2008/10/27
# PANE:Dispatch Notes
[PANE]
Phil  INVPENLZ    01000Dispatch Notes                                                                                      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='DispatchNoteItem' Style='DataGrid' AutoSize='false' FreezeColumn='1'>"
  ListXML = ListXML & "<Column Name='DispatchNote' Description='Dispatch note number' />"
  ListXML = ListXML & "<Column Name='Customer' Description='Customer' />"
  ListXML = ListXML & "<Column Name='CustomerName' Description='Customer name' />"
  ListXML = ListXML & "<Column Name='DispatchCustName' Description='Dispatch customer name' />"
  ListXML = ListXML & "<Column Name='DispatchAddress1' Description='Dispatch address line 1' />"
  ListXML = ListXML & "<Column Name='DispatchAddress2' Description='Dispatch address line 2' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DispatchAddress3' Description='Dispatch address line 3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DispatchAddress4' Description='Dispatch address line 4' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DispatchAddress5' Description='Dispatch address line 5' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DispatchPostalCode' Description='Dispatch postal code' Hidden='true' />"
  ListXML = ListXML & "<Column Name='PlannedDeliverDate' Description='Planned delivery date' Type='date' />" 
  ListXML = ListXML & "<Column Name='ActualDeliveryDate' Description='Actual delivery date' Type='date' />"
  ListXML = ListXML & "<Column Name='DispatchNoteStatus' Description='DispatchNoteStatus' />"
  ListXML = ListXML & "<Column Name='CustomerPoNumber' Description='Customer Po number' />"  
  ListXML = ListXML & "<Column Name='Currency' Description='Currency' />" 
  ListXML = ListXML & "</Columns>"

  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function



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

  SalesOrder = CustomizedPane.CodeObject.RefreshValue

  if SalesOrder = "" then
     exit function 
  end if

  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Filter>"
  XMLParam = XMLParam & "     <SalesOrder FilterType='S' FilterValue='" & SalesOrder & "' />"
  XMLParam = XMLParam & "   </Filter>"
  XMLParam = XMLParam & " </Query>"

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

  ' Switch on error handling
  on error goto 0

  CustomizedPane.CodeObject.ListviewData = XMLOUT



End Function