'##############################################################################

' Author: Kevin Koch

' Description:  This class represents a facade layer and the component

'               tier where business logic is contained for functionality

'              regarding Clients

'##############################################################################

Public Class ClientServices

    Private Const CLASS_NAME As String = "ClientServices"

    '#########################################################################################################################

    ' Returns all clients from the client table

    '#########################################################################################################################

    Public Function GetAllClients() As DataSet

        Const METHOD_NAME As String = "GetAllClients"

        Try

            Dim DbObj As ClientDb = New ClientDb()

            Return DbObj.GetAllClients()

        Catch dbEx As DbTierException

            'Exception has already been logged, just throw it to the ASPX

            Throw dbEx

        Catch ex As Exception

            'Exception occurred within this method, log it

            Log.WriteLogEntry(ex, Me.CLASS_NAME, METHOD_NAME)

            Throw New BizTierException(ex.Message, ex)

        End Try

    End Function

End Class