25 lines
521 B
VB.net
25 lines
521 B
VB.net
Imports System.Runtime.Serialization
|
|
|
|
Namespace Results
|
|
<Serializable>
|
|
<DataContract>
|
|
<KnownType(GetType(DBNull))>
|
|
Public MustInherit Class BaseResult
|
|
<DataMember>
|
|
Public Property OK As Boolean
|
|
<DataMember>
|
|
Public Property ErrorMessage As String
|
|
|
|
Public Sub New()
|
|
OK = True
|
|
End Sub
|
|
|
|
Public Sub New(ErrorMessage As String)
|
|
OK = False
|
|
Me.ErrorMessage = ErrorMessage
|
|
End Sub
|
|
End Class
|
|
End Namespace
|
|
|
|
|