49 lines
1.3 KiB
VB.net
49 lines
1.3 KiB
VB.net
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
|