Option Explicit On
Option Strict On
'Tanner Notes:
'SQL connection automaticall performed in ggBomBas


Imports Fast

Public Class CB_gaTnnInd
    Inherits ggBom.ggBomBas
    Private mDta As New CB_gaTnn.CB_gaTnnDta
    ' Private mcurBalanceThreshold As Decimal 'TODO: apply naming conventions



#Region "Execute"
    Public Sub Execute(pcurBalanceThreshold As Decimal)

        If pcurBalanceThreshold <= 0 Then
            Throw New Exception("Invalid Balance Threshold. The parameter must be a positive value.")
        ElseIf pcurBalanceThreshold = vbNull Then
            Throw New Exception("A decimal parameter is required.")
        End If

        ' mcurBalanceThreshold = pcurBalanceThreshold 'set as global variable

        Dim custFDA As New ggFda.ggFdaCls
        custFDA = mDta.getBalances(pcurBalanceThreshold)





        '  Stage = MustBeSet



    End Sub

    Public Sub IndicateDangerous()
        'TODO: if called, account is above threshold, so indicate it as "dangerous"
    End Sub
#End Region

#Region "Retrieval"



    Public Sub GetTotalBalance()
        'TODO: get total balance of customer across multiple accounts
    End Sub



#End Region


#Region "Transaction Requirement"
    Public Overrides ReadOnly Property TransactionRequirement() As ggBom.ggBomBas.TransactionSetting
        Get
            Return ggBom.ggBomBas.TransactionSetting.Supported
        End Get
    End Property
#End Region

End Class