ADMIN2018-05-14T21:57:50.6600000ADMIN2018-05-16T00:14:25.0170000BLT.APPSHBusiness Layer Training - Application ShortcutsGeneraltruefalse
Option Explicit On
Option Strict On

' (c) Copyright Intersoft Systems Limited, 2018. All rights reserved.
' ###################################################################
' Summary Block Override Script.
'
' Version: 1.00.00 (16/05/2018)
'
' Usage: Must be configured in Global Settings > Summary Pages
'
' Revision History
' ----------------
' 16/05/2017  1.00.00   ISS.ME    Created.
' ########################################

Public Function Main(parameters As ISKeyValueList) As Boolean

  Dim ApplicationShortcutExternal As ISApplicationShortcut
  Dim ApplicationShortcutFormShow As ISApplicationShortcut
  Dim ApplicationShortcutHtmlShowUrl As ISApplicationShortcut
  Dim ApplicationShortcutMapShowClient As ISApplicationShortcut
  Dim ApplicationShortcutPageSet As ISApplicationShortcut
  Dim FilenameFull As String
  Dim PageSetId As String

  ' Assume Success
  Main = True

  ' Get Script Constants
  With ScriptInfo.Constants
    FilenameFull = .GetString("FilenameFull")
    PageSetId = .GetString("PageSetId")
  End With

  ' Initialise
  ApplicationShortcutFormShow = finBL.CreateApplicationShortcutFormShow("Accounts", "L10000", "Disbursements")
  ApplicationShortcutHtmlShowUrl = finBL.CreateApplicationShortcutHtmlShowUrl("www.google.co.nz", "Google", True)
  ApplicationShortcutMapShowClient = finBL.CreateApplicationShortcutMapShowClient("C10001")

  ' Check the File exists before creating an Application Shortcut for it
  If Not finBL.Runtime.FileUtilities.FileExists(FilenameFull) Then
    Main = False
    finBL.Error.ErrorBeginFormat("File '{0}' does not exist.",  FilenameFull)
  End If

  If Main Then
    ' Initialise the "External File" Application Shortcut
    ApplicationShortcutExternal = finBL.CreateApplicationShortcutExternal(FilenameFull)

    ' Check the Page Set exists before creating an Application Shortcut for it
    If Not finBL.PageSets.Exists(PageSetId) Then
      Main = False
      finBL.Error.ErrorBeginFormat("PageSet '{0}' does not exist.",  PageSetId)
    End If
  End If

  If Main Then
    ' Initialise the "PageSet" Application Shortcut
    ApplicationShortcutPageSet = finBL.CreateApplicationShortcutPageSet(PageSetId)

    ' Execute the Application Shortcut(s)
    Main = finBL.ExecuteApplicationShortcut(ApplicationShortcutFormShow)
'    Main = finBL.ExecuteApplicationShortcut(ApplicationShortcutHtmlShowUrl)
'    Main = finBL.ExecuteApplicationShortcut(ApplicationShortcutMapShowClient)
'    Main = finBL.ExecuteApplicationShortcut(ApplicationShortcutPageSet)
'    Main = finBL.ExecuteApplicationShortcut(ApplicationShortcutExternal)
  End If

End Function
VisualBasicfalse60truefalsefalsefalseNonefalseNonePS.UTILSC:\Program Files (x86)\Intersoft\finPOWERConnect3\Templates\Account_Letter.docx