68 lines
1.6 KiB
VB.net
68 lines
1.6 KiB
VB.net
Imports System.Runtime.Serialization
|
|
Imports System.ServiceModel
|
|
|
|
Namespace Exceptions
|
|
|
|
|
|
Public Class UnexpectedErrorException(Of UnexpectedErrorFault)
|
|
Inherits FaultException
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
End Sub
|
|
End Class
|
|
|
|
<DataContract>
|
|
Public Class BaseFault
|
|
''' <summary>
|
|
''' The human readable error message
|
|
''' </summary>
|
|
<DataMember>
|
|
Public Property ErrorMessage As String
|
|
|
|
<DataMember>
|
|
Public Property InnerException As Exception
|
|
|
|
<DataMember>
|
|
Public Property IsRecoverable As Boolean = True
|
|
End Class
|
|
|
|
<DataContract>
|
|
Public Class UnexpectedErrorFault
|
|
Inherits BaseFault
|
|
|
|
Public Sub New(Exception As Exception)
|
|
MyBase.New()
|
|
ErrorMessage = "Unexpected Error"
|
|
IsRecoverable = True
|
|
InnerException = Exception
|
|
|
|
End Sub
|
|
End Class
|
|
|
|
<DataContract>
|
|
Public Class DataTableDoesNotExistFault
|
|
Inherits BaseFault
|
|
|
|
Public Sub New(Name As String)
|
|
MyBase.New()
|
|
ErrorMessage = $"Datatable {Name} does not exist"
|
|
IsRecoverable = True
|
|
InnerException = Nothing
|
|
End Sub
|
|
End Class
|
|
|
|
<DataContract>
|
|
Public Class ObjectDoesNotExistFault
|
|
Inherits BaseFault
|
|
|
|
Public Sub New(ObjectId As Long)
|
|
MyBase.New()
|
|
ErrorMessage = $"Object with Id {ObjectId} does not exist"
|
|
IsRecoverable = True
|
|
InnerException = Nothing
|
|
End Sub
|
|
End Class
|
|
|
|
End Namespace
|