23 lines
588 B
VB.net
23 lines
588 B
VB.net
Imports System.Runtime.Serialization
|
|
Imports DigitalData.Services.EDMIService.Rights
|
|
Imports DigitalData.Modules.Language
|
|
|
|
Namespace Messages
|
|
Public Class AccessRightResult
|
|
Inherits BaseResult
|
|
|
|
Public Property Right As AccessRight = AccessRight.VIEW_ONLY
|
|
|
|
Public Sub New(AccessRight As AccessRight)
|
|
MyBase.New()
|
|
Right = AccessRight
|
|
End Sub
|
|
|
|
Public Sub New(Exception As Exception)
|
|
MyBase.New()
|
|
OK = False
|
|
ErrorMessage = Exception.Message
|
|
End Sub
|
|
End Class
|
|
|
|
End Namespace |