26 lines
643 B
VB.net
26 lines
643 B
VB.net
Imports System.Runtime.Serialization
|
|
Imports DigitalData.Modules.Language
|
|
Imports DigitalData.Modules.EDMI.API.Rights
|
|
|
|
Namespace Messages
|
|
<DataContract>
|
|
<Serializable>
|
|
Public Class AccessRightResult
|
|
Inherits BaseResult
|
|
|
|
<DataMember>
|
|
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 |