ADMIN2017-05-19T20:36:09.8300000ADMIN2017-06-21T03:07:21.0500000PS.UTILStruefalseOption Explicit On
Option Strict On
' (c) Copyright Intersoft Systems Limited, 2017. All rights reserved.
' ###################################################################
' Page set to show case finBL Functions.
'
' Version: 1.00.02 (19/05/2017)
'
' Usage: Run from Test
'
' Revision History
' ----------------
' 09/05/2017 1.00.00 ISS.ME Created.
' 19/05/2017 1.00.01 ISS.SH Added Date and File Utility pages.
' 1.00.02 ISS.ME Added Html Summary Pages.
' ###################################################################
' Reporting and User Interface Objects
Public mReports As ISfinReports
Public mUI As ISUserInterfaceBL
Public Overrides Function Initialise() As Boolean
' Assume Success
Initialise = True
' Initialise
mReports = DirectCast(psh.Reports, ISfinReports)
mUI = DirectCast(psh.UserInterface, ISUserInterfaceBL)
End Function
'################################################################################################################
' Text Utilities
'################################################################################################################
''' <summary>
''' *** Base64Encode ***
''' Base 64 encode text On control Leave
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub txtBase64Encode_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtBase64Encode.Leave
If Len(txtBase64Encode.Text) > 0 Then
txtBase64EncodeResult.Text = finBL.Runtime.TextUtilities.Base64Encode(txtBase64Encode.Text)
End If
End Sub
''' <summary>
''' *** txtBase64Decode ***
''' Base 64 decode text on control Leave
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub txtBase64Decode_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtBase64Decode.Leave
If Len(txtBase64Decode.Text) > 0 Then
txtBase64DecodeResult.Text = finBL.Runtime.TextUtilities.Base64Decode(txtBase64Decode.Text)
End If
End Sub
''' <summary>
''' *** txtCsvAppend ***
''' CSV Append text
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub txtCsvAppend_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtCsvAppend.Leave
If Len(txtCsvAppend.Text) > 0 Then
txtCsvAppendResult.Text = finBL.Runtime.TextUtilities.CsvAppend(txtCsvAppendResult.Text, txtCsvAppend.Text)
End If
End Sub
''' <summary>
''' *** GetTimeSpanText ***
''' Get time span
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub dtGetTimeSpanTextTo_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles dtGetTimeSpanTextTo.Leave
txtGetTimeSpanTextResult.Text = finBL.Runtime.TextUtilities.GetTimeSpanText(dtGetTimeSpanTextFrom.Value, dtGetTimeSpanTextTo.Value)
End Sub
''' <summary>
''' *** ListAppend ***
''' List Append
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub txtListAppend_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtListAppend.Leave
If Len(txtListAppend.Text) > 0 Then
txtListAppendResult.Text = finBL.Runtime.TextUtilities.ListAppend(txtListAppendResult.Text, txtListAppend.Text, "|")
End If
End Sub
''' <summary>
''' *** NumbersOnly ***
''' Returns number characters only from a String
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub txtNumbersOnly_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtNumbersOnly.Leave
If Len(txtNumbersOnly.Text) > 0 Then
txtNumbersOnlyResult.Text = finBL.Runtime.TextUtilities.NumbersOnly(txtNumbersOnly.Text)
End If
End Sub
''' <summary>
''' *** ProperCase ***
''' Converts a String to "proper" casing
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub txtProperCase_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtProperCase.Leave
If Len(txtProperCase.Text) > 0 Then
txtProperCaseResult.Text = finBL.Runtime.TextUtilities.ProperCase(txtProperCase.Text)
End If
End Sub
''' <summary>
''' *** SplitWordsAtCapitals ***
''' Splits words at capital letters
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub txtSplitWordsAtCapitals_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtSplitWordsAtCapitals.Leave
If Len(txtSplitWordsAtCapitals.Text) > 0 Then
txtSplitWordsAtCapitalsResult.Text = finBL.Runtime.TextUtilities.SplitWordsAtCapitals(txtSplitWordsAtCapitals.Text)
End If
End Sub
''' <summary>
''' *** XmlIndent ***
''' Indent a Raw XML String
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub txtXmlIndent_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtXmlIndent.Leave
If Len(txtXmlIndent.Text) > 0 Then
txtXmlIndentResult.Text = finBL.Runtime.TextUtilities.XmlIndent(txtXmlIndent.Text)
End If
End Sub
'################################################################################################################
' Number Utilities
'################################################################################################################
''' <summary>
''' *** AmountInWords ***
''' Displays a numerical value in words
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub numAmountInWords_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles numAmountInWords.Leave
If numAmountInWords.Value> 0 Then
txtAmountInWordsResult.Text = finBL.Runtime.NumberUtilities.AmountInWords(numAmountInWords.Value, True, "Zero")
End If
End Sub
''' <summary>
''' *** RoundCurrency ***
''' Round Currency
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub numRoundCurrency_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles numRoundCurrency.Leave
If numRoundCurrency.Value > 0 Then
numRoundCurrencyResult.Value = finBL.Runtime.NumberUtilities.RoundCurrency(numRoundCurrency.Value)
End If
End Sub
''' <summary>
''' *** numRoundCurrencyUp ***
''' Round Currency Value Up
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub numRoundCurrencyUp_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles numRoundCurrencyUp.Leave
If numRoundCurrencyUp.Value > 0 Then
numRoundCurrencyResultUp.Value = finBL.Runtime.NumberUtilities.RoundCurrencyUp(numRoundCurrencyUp.Value)
End If
End Sub
''' <summary>
''' *** numRoundCurrencyDown ***
''' Round Currency Value Down
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub numRoundCurrencyDown_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles numRoundCurrencyDown.Leave
If numRoundCurrencyDown.Value > 0 Then
numRoundCurrencyResultDown.Value = finBL.Runtime.NumberUtilities.RoundCurrencyDown(numRoundCurrencyDown.Value)
End If
End Sub
''' <summary>
''' *** numRoundDecimal ***
''' Round Decimal Value
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub numRoundDecimal_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles numRoundDecimal.Leave
If numRoundDecimal.Value > 0 Then
numRoundDecimalResult.Value = finBL.Runtime.NumberUtilities.RoundDecimal(CDec(numRoundDecimal.Value), finBL.Runtime.NumberUtilities.CurrencyDigits)
End If
End Sub
''' <summary>
''' *** numRoundDouble ***
''' Round Double Value
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub numRoundDouble_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles numRoundDouble.Leave
If numRoundDouble.Value > 0 Then
numRoundDoubleResult.Value = CDec(finBL.Runtime.NumberUtilities.RoundDouble(numRoundDouble.Value))
End If
End Sub
'################################################################################################################
' Html Summary Pages
'################################################################################################################
Public Sub cboAccounts_Change(sender As Object, e As finPageObjectChangeEventArgs) Handles cboAccounts.Change
Dim Account As finAccount
Dim Success As Boolean
' Assume Success
Success = True
' Initialise
Account = finBL.CreateAccount()
' Load Account
If Len(cboAccounts.Text) > 0 Then
Success = Account.Load(cboAccounts.Text)
' Display Script
If Success Then
htmlAccounts.Text = finBL.ScriptFunctions.BuiltInAccountGeneralSummaryScript2(Account)
Else
mui.MsgBox(finBL.Error.Message(True))
End If
End If
End Sub
Public Sub numColumns_ButtonClick(sender As Object, e As finPageObjectButtonClickEventArgs) Handles numColumns.ButtonClick
Dim Account As finAccount
Dim Caption As String
Dim ColumnWidth As Integer
Dim i As Integer
Dim kvlSummaryTables As ISKeyValueList
Dim NumberOfColumns As Integer
Dim sb As finHtmlSummaryPage2StringBuilder
Dim Success As Boolean
Dim SummaryTables As ISSummaryTables
' Initialise
Account = finBL.CreateAccount()
sb = finBL.CreateHtmlSummaryPage2StringBuilder()
kvlSummaryTables = finBL.Runtime.CreateKeyValueList()
NumberOfColumns = CInt(numColumns.Value)
If NumberOfColumns = 0 Then
' Clear
htmlSummaryPageBuilder.Text = ""
Else
' Load the selected Account
Success = Account.Load(cboAccount.Text)
If Success AndAlso Not Account.IsNew() Then
' Set defaults
ColumnWidth = CInt(100 / NumberOfColumns)
' Build List of Summary Tables
With finBL.SummaryPageStandardBlocks
kvlSummaryTables.Add("AccountSummary", .Account_Summary(ScriptInfo, Account))
kvlSummaryTables.Add("AccountFinancialDetails", .Account_FinancialDetails(ScriptInfo, Account, Account.Calculation))
kvlSummaryTables.Add("AccountTermAndPayments", .Account_TermAndPayments(ScriptInfo, Account, 0))
kvlSummaryTables.Add("AccountInterest", .Account_Interest(ScriptInfo, Account, Account.Calculation))
kvlSummaryTables.Add("AccountPaymentSchedule", .Account_PaymentSchedule(ScriptInfo, Account, True))
kvlSummaryTables.Add("AccountDates", .Account_Dates(ScriptInfo, Account))
End With
With sb
' Initialise HTML Block
.Initialise(iseSummaryPageTarget.Form)
.HtmlHeaderBegin("Summary Page", isefinSummaryPageStyle.Blocks)
.HtmlHeaderEnd()
' Begin a new section
.SectionColumnsBegin()
' Loop to add the appropriate number of columns and blocks
For i = 1 To NumberOfColumns
SummaryTables = DirectCast(kvlSummaryTables.ItemByIndex(i -1).Value, ISSummaryTables)
If SummaryTables IsNot Nothing Then
Caption = finBL.Runtime.TextUtilities.SplitWordsAtCapitals(kvlSummaryTables.ItemByIndex(i -1).Key)
' Start a new column
.ColumnBegin(String.Format("{0}%", ColumnWidth))
' Start a new block in the column
If i > 1 Then
.BlockBegin(Caption, "", isefinSummaryPageBlockHeadingStyle.Main, False)
Else
.BlockBegin(Caption, "", isefinSummaryPageBlockHeadingStyle.Normal, False)
End If
' Append summary table from the collection
.SummaryTablesAppend(SummaryTables)
' Close the block
.BlockEnd()
' Close the column
.ColumnEnd()
End If
Next
.SectionColumnsEnd()
End With
' Display the Html
htmlSummaryPageBuilder.Text = sb.ToString()
End If
End If
End Sub
'################################################################################################################
' General Functions
'################################################################################################################
''' <summary>
''' Clears results textboxes
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub NumberBox_Change(sender As Object, e As finPageObjectChangeEventArgs) Handles numAmountInWords.Change
Dim NumberBoxCurrent As finPageObjectNumberBox
Dim ResultsControlName As String
Dim TextBoxResult As finPageSetHandlerPageObject
NumberBoxCurrent = DirectCast(sender, finPageObjectNumberBox)
If NumberBoxCurrent IsNot Nothing Then
If NumberBoxCurrent.Value <= 0 Then
' Get the results control name
ResultsControlName = String.Format("{0}Result", NumberBoxCurrent.Name)
' Get the results control
If psh.CurrentPage.PageObjects.Exists(ResultsControlName) Then
TextBoxResult = psh.CurrentPage.PageObjects.Item(ResultsControlName)
' Clear the results control
If TextBoxResult IsNot Nothing Then
TextBoxResult.Value = ""
End If
End If
End If
End If
End Sub
''' <summary>
''' Clears results textboxes
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub TextBox_Change(sender As Object, e As finPageObjectChangeEventArgs) Handles txtBase64Encode.Change,
txtBase64Decode.Change,
txtCsvAppend.Change,
txtListAppend.Change,
txtNumbersOnly.Change,
txtProperCase.Change
Dim ResultsControlName As String
Dim TextBoxCurrent As finPageObjectTextBox
Dim TextBoxResult As finPageSetHandlerPageObject
TextBoxCurrent = DirectCast(sender, finPageObjectTextBox)
If TextBoxCurrent IsNot Nothing Then
If Len(TextBoxCurrent.Text) = 0 Then
' Get the results control name
ResultsControlName = String.Format("{0}Result", TextBoxCurrent.Name)
' Get the results control
If psh.CurrentPage.PageObjects.Exists(ResultsControlName) Then
TextBoxResult = psh.CurrentPage.PageObjects.Item(ResultsControlName)
' Clear the results control
If TextBoxResult IsNot Nothing Then
TextBoxResult.Value = ""
End If
End If
End If
End If
End Sub
''' <summary>
''' Clears results Dateboxes
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Public Sub DateBox_Change(sender As Object, e As finPageObjectChangeEventArgs) Handles dtGetTimeSpanTextFrom.Change,
dtGetTimeSpanTextTo.Change
Dim ResultsControlName As String
Dim DateBoxCurrent As finPageObjectDateBox
Dim TextBoxResult As finPageSetHandlerPageObject
DateBoxCurrent = DirectCast(sender, finPageObjectDateBox)
If DateBoxCurrent IsNot Nothing Then
If DateBoxCurrent.Value = Nothing OrElse DateBoxCurrent.Value = finBL.TimeZoneFunctions.GetCurrentDatabaseDate() Then
' Get the results control name
ResultsControlName = String.Format("{0}Result", DateBoxCurrent.Name)
' Get the results control
If psh.CurrentPage.PageObjects.Exists(ResultsControlName) Then
TextBoxResult = psh.CurrentPage.PageObjects.Item(ResultsControlName)
' Clear the results control
If TextBoxResult IsNot Nothing Then
TextBoxResult.Value = ""
End If
End If
End If
End If
End Sub
'################################################################################################################
' Date Utilities
'################################################################################################################
Public Sub dateMonthsDifference_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles dateMonthsDifference1.Leave,
dateMonthsDifference2.Leave
UpdateMonthsDifference()
End Sub
Private Sub UpdateMonthsDifference()
Dim Days As Integer
If dateMonthsDifference1.Value <> Nothing AndAlso dateMonthsDifference2.Value <> Nothing Then
numMonthsDifferenceMonths.Value = finBL.Runtime.DateUtilities.MonthsDifference(dateMonthsDifference1.Value, dateMonthsDifference2.Value, Days)
numMonthsDifferenceDays.Value = Days
Else
numMonthsDifferenceMonths.Value = 0
numMonthsDifferenceDays.Value = 0
End If
End Sub
Public Sub dateDOB_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles dateDOB.Leave
Dim Days As Integer
Dim Months As Integer
If dateDOB.Value = Nothing Then
txtAgeAsText.Text = ""
numAgeInYearsYears.Value = 0
numAgeInYearsDays.Value = 0
numAgeInYearsMonths.Value = 0
Else
txtAgeAsText.Text = finBL.Runtime.DateUtilities.AgeAsText(dateDOB.Value)
numAgeInYearsYears.Value = finBL.Runtime.DateUtilities.AgeInYears(datedob.Value,, Months, Days)
numAgeInYearsDays.Value = Days
numAgeInYearsMonths.Value = Months
End If
End Sub
'################################################################################################################
' File Utilities
'################################################################################################################
Public Sub txtFileName_ButtonClick(sender As Object, e As finPageObjectButtonClickEventArgs) Handles txtFileName.ButtonClick
Select Case e.ButtonId
Case "FileOpen"
mui.CommonDialog.GetFileOpen(txtFileName.Text, "", "Select File")
Case "Clear"
txtFileName.Text = ""
End Select
' Update fields
txtFileName_Update()
End Sub
Public Sub txtFileName_Leave(sender As Object, e As finPageObjectLeaveEventArgs) Handles txtFileName.Leave
txtFileName_Update()
End Sub
Private Sub txtFileName_Update()
If Len(txtFileName.Text) = 0 Then
txtFileNameFolder.Text = ""
txtFileNameName.Text = ""
txtFileNameExtension.Text = ""
txtFileNameContents.Text = ""
Else
With finBL.Runtime.FileUtilities
txtFileNameFolder.Text = .GetFileFolder(txtFileName.Text)
txtFileNameName.Text = .GetFileBase(txtFileName.Text)
txtFileNameExtension.Text = .GetFileExtension(txtFileName.Text)
.ReadTextFile(txtFileName.Text, txtFileNameContents.Text)
End With
End If
End Sub
Public Sub txtFileNameFolder_ButtonClick(sender As Object, e As finPageObjectButtonClickEventArgs) Handles txtFileNameFolder.ButtonClick
Dim List As ISList
Dim ReturnValue As String
Select Case e.ButtonId
Case "RecordOpen"
If Len(txtFileNameFolder.Text) <> 0 Then
If finBL.Runtime.FileUtilities.GetFileList(txtFileNameFolder.Text, List) Then
If mUI.CommonDialog.GetListSelection(ReturnValue, List, , "Select another file from same folder") Then
txtFileName.Text = String.Format("{0}\{1}", txtFileNameFolder.Text, ReturnValue)
txtFileName_Update()
End If
End If
End If
End Select
End Sub
Public Sub PageSet_CommandButtonClick(sender As Object, e As finPageSetHandlerCommandButtonClickEventArgs) Handles Me.CommandButtonClick
Select Case e.CommandButton
Case isefinPageSetCommandButton.Cancel
Case isefinPageSetCommandButton.Ok
Case isefinPageSetCommandButton.Back
Case isefinPageSetCommandButton.Finish
Case isefinPageSetCommandButton.Next
Case isefinPageSetCommandButton.Save
Case isefinPageSetCommandButton.Print
Case isefinPageSetCommandButton.WindowClose
End Select
End SubfalsefalsefalsefalsePage Set - BL Utilities700700truefinPOWERConnectVisualBasicTabbedPagesPage set to show case finBL FunctionstrueDateUtilitiesFlowUseful functions in finBL.Runtime.DateUtilitiesDate UtilitiestrueMonths Difference-1true16false04000Labelfalse0true00true200falsefalse9falsefalseHeading4true-1true20false04400DateBoxfalse0true00true100NonefalsefalsetrueNoneNoneNonetrue-1true20true04400DateBoxfalse0true00true100NonefalsefalsetrueNoneNoneNonetrueMonths:-1true20true04400NumberBoxfalse0false0finBL.Runtime.DateUtilities.MonthsDifference(dateMonthsDifference1.Value, dateMonthsDifference2.Value, Days)0true50falsefalseNaNNaNtruetrue0trueNonefalseNoneNoneNonetrueDays:-1true20true04400NumberBoxfalse0false00true50falsefalseNaNNaNtruetrue0trueNonefalseNoneNoneNonetrueAge-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true-1true20false04400DateBoxfalse0true00true100HistoricfalsefalsetrueNoneNoneNonetrue-1true20true04400TextBoxfalse0true0finBL.Runtime.DateUtilities.AgeAsText(dateDOB.Value)0true100falsefalse0NonefalseNoneNoneNonetrueYears:-1true20true04400NumberBoxfalse0false0finBL.Runtime.DateUtilities.AgeInYears(datedob.Value,, Months, Days)0true50falsefalseNaNNaNtruetrue0trueNonefalseNoneNoneNonetrueMonths:-1true20true04400NumberBoxfalse0false00true50falsefalseNaNNaNtruetrue0trueNonefalseNoneNoneNonetrueDays:-1true20true04400NumberBoxfalse0false00true50falsefalseNaNNaNtruetrue0trueNonefalseNoneNoneNonetrueFileUtilitiesFlowUseful functions in finBL.Runtime.DateUtilitiesFile UtilitiestrueFile Details-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4trueFile Name:-1true20false04400TextBoxfalse0true00true400falsefalse0NonefalseFileOpenClearNonetrue-1true20true04400TextBoxfalse0false0finBL.Runtime.FileUtilities.GetFileFolder()0true300falsefalse0NonefalseRecordOpenNoneNonetrue-1true20true04400TextBoxtrue0false0finBL.Runtime.FileUtilities.GetFileBase()0true150falsefalse0NonefalseNoneNoneNonetrue-1true20true04400TextBoxtrue0false0finBL.Runtime.FileUtilities.GetFileExtension()0true50falsefalse0NonefalseNoneNoneNonetrueContents:-1true20false04400TextBoxtrue0false00true975falsefalse0NonetruetrueNoneNoneNonetrueNumberUtilitiesFlowUseful functions in finBL.Runtime.NumberUtilitiesNumber UtilitiestrueAmount In Words-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true-1true20false04400NumberBoxfalse0true00true120falsefalseNaNNaNfalsefalse2trueCurrencytrueNoneNoneNonetrue-1true20true04800TextBoxtrue0true00true300falsefalse0NonefalseNoneNoneNonetrueRound Currency-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true-1true20false04400NumberBoxfalse0true00true120falsefalseNaNNaNfalsefalse8trueNonetrueNoneNoneNonetrue-1true20true04000NumberBoxtrue0false00true120falsefalseNaNNaNfalsefalse8trueCurrencytrueNoneNoneNonetrueRound Currency Up-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true-1true20false04400NumberBoxfalse0true00true120falsefalseNaNNaNfalsefalse8trueNonetrueNoneNoneNonetrue-1true20true04000NumberBoxtrue0false00true120falsefalseNaNNaNfalsefalse8trueCurrencytrueNoneNoneNonetrueRound Currency Down-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true-1true20false04400NumberBoxfalse0true00true120falsefalseNaNNaNfalsefalse8trueNonetrueNoneNoneNonetrue-1true20true04000NumberBoxtrue0false00true120falsefalseNaNNaNfalsefalse8trueCurrencytrueNoneNoneNonetrueRound Decimal-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true-1true20false04400NumberBoxfalse0true00true120falsefalseNaNNaNfalsefalse8trueNonetrueNoneNoneNonetrue-1true20true04000NumberBoxtrue0false00true120falsefalseNaNNaNfalsefalse2trueCurrencytrueNoneNoneNonetrueRound Double-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true-1true20false04400NumberBoxfalse0true00true120falsefalseNaNNaNfalsefalse8trueNonetrueNoneNoneNonetrue-1true20true04000NumberBoxtrue0false00true120falsefalseNaNNaNfalsefalse4trueCurrencytrueNoneNoneNonetrueTextUtilitiesFlowUseful functions in finBL.Runtime.TextUtilitiesText UtilitiestrueBase64Encode-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true0true20false04400TextBoxfalse0true00true300falsefalse0NonefalseNoneNoneNonetrue8true20true04000TextBoxtrue0true00true300falsefalse0NonefalseNoneNoneNonetrueBase64Decode-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true0true20false04400TextBoxfalse0true00true300falsefalse0NonefalseNoneNoneNonetrue8true20true04000TextBoxtrue0false00true300falsefalse0NonefalseNoneNoneNonetrueCsvAppend-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true0true20false04400TextBoxfalse0true00true300falsefalse0NonefalseNoneNoneNonetrue8true20true04000TextBoxtrue0false00true300falsefalse0NonefalseNoneNoneNonetrueListAppend-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true0true20false04400TextBoxfalse0true00true300falsefalse0NonefalseNoneNoneNonetrue8true20true04000TextBoxtrue0false00true300falsefalse0NonefalseNoneNoneNonetrueNumbersOnly-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true0true20false04400TextBoxfalse0true00true300falsefalse0NonefalseNoneNoneNonetrue8true20true04000TextBoxtrue0false00true300falsefalse0NonefalseNoneNoneNonetrueProperCase-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true0true20false04400TextBoxfalse0true00true300falsefalse0NonefalseNoneNoneNonetrue8true20true04000TextBoxtrue0false00true300falsefalse0NonefalseNoneNoneNonetrueSplitWordsAtCapitals-1true16false04000Labelfalse0true00true200falsefalse9falsefalseHeading4true0true20false04400TextBoxfalse0true00true300falsefalse0NonefalseNoneNoneNonetrue8true20true04000TextBoxtrue0false00true300falsefalse0NonefalseNoneNoneNonetrueXmlIndent-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4true0true<tag1><tag2></tag2><tag3></tag3></tag1>20false04400TextBoxfalse0true00true300falsefalse0NonefalseNoneNoneNonetrue8true100true04000TextBoxtrue0false00true300falsefalse0NonetruefalseNoneNoneNonetrueGetTimeSpanText-1true16false04000Labelfalse0true00true200falsefalse8.5falsefalseHeading4trueFrom:-1true20false04400DateBoxfalse0true00true100NonefalsefalsetrueNoneNoneNonetrueTo:-1true20true04000DateBoxfalse0true00true100NonefalsefalsetrueNoneNoneNonetrue0true20true04800TextBoxfalse0false00true300falsefalse0NonefalseNoneNoneNonetrueHTMLSummaryPagesFlowHTML Summary Pages and Summary Page FunctionsHTML Summary PagestrueSelect Account:-1true20false04000DbComboBoxfalse0true920true0falsefalse0StandardRangeAccountsfalsefalsefalsefalseNoneNoneNonetrue-1true700false04000HtmlPanelfalse0true00true0truetruetrueSummaryPageBuilderFlowBuild a custom Summary PageHTML Summary Page BuildertrueSelect Account:-1true20false04000DbComboBoxfalse0true920true0falsefalse0StandardRangeAccountsfalsefalsefalsefalseNoneNoneNonetrueNumber Of Columns:-1true20false04000NumberBoxfalse0true00true0falsefalse60falsefalse0trueNonetrueRefreshNoneNonetrue-1true700false04000HtmlPanelfalse0true00true0truetrue