Imports System.Runtime.Serialization
Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging

Public Class Base
    Public Class BaseMethod
        Inherits BaseClass

        Friend ReadOnly Database As MSSQLServer
        Friend ReadOnly State As State

        Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pState As State)
            MyBase.New(pLogConfig)
            Database = pDatabase
            State = pState
        End Sub
    End Class

    Public MustInherit Class BaseResponse
        <DataMember>
        Public Property OK As Boolean
        <DataMember>
        Public Property ErrorMessage As String
        <DataMember>
        Public Property ErrorDetails As String

        Public Sub New()
            OK = True
        End Sub

        Public Sub New(Message As String)
            OK = False
            ErrorMessage = Message
        End Sub

        Public Sub New(Exception As Exception)
            OK = False
            ErrorMessage = Exception.Message
        End Sub

        Public Sub New(Exception As Exception, Details As String)
            OK = False
            ErrorMessage = Exception.Message
            ErrorDetails = Details
        End Sub
    End Class
End Class