WIP

MultiTool.Shared/Exceptions.vb

@@ -1,5 +1,8 @@
 Public Class Exceptions
-    Public MustInherit Class DocumentShowException
+    ''' <summary>
+    ''' Abstract class
+    ''' </summary>
+    Public MustInherit Class MultiToolException
         Inherits ApplicationException
 
         Public Sub New(message As String)
@@ -7,43 +10,59 @@
         End Sub
     End Class
 
+    ''' -----------------------------------------------
+
+    Public Class DocumentLoaderException
+        Inherits MultiToolException
+
+        Public Sub New(message As String)
+            MyBase.New(message)
+        End Sub
+    End Class
+
     Public Class WebServiceException
-        Inherits ApplicationException
+            Inherits MultiToolException
+
+            Public Sub New(message As String)
+                MyBase.New(message)
+            End Sub
+        End Class
+
+        Public Class MissingAttributeException
+            Inherits MultiToolException
+
+            Public Sub New(attributeName As String)
+                MyBase.New(attributeName)
+            End Sub
+        End Class
+        Public Class MultipleAccountsException
+            Inherits MultiToolException
+
+            Public Sub New(message As String)
+                MyBase.New(message)
+            End Sub
+        End Class
+        Public Class NoAccountException
+            Inherits MultiToolException
+
+            Public Sub New(message As String)
+                MyBase.New(message)
+            End Sub
+        End Class
+        Public Class NoMandatorException
+            Inherits MultiToolException
+
+            Public Sub New(message As String)
+                MyBase.New(message)
+            End Sub
+        End Class
+        Public Class MalformedXmlException
+            Inherits MultiToolException
+
+            Public Sub New(message As String)
+                MyBase.New(message)
+            End Sub
+        End Class
+
 
-        Public Sub New(message As String)
-            MyBase.New(message)
-        End Sub
     End Class
-
-    Public Class NoMandatorException
-        Inherits DocumentShowException
-
-        Public Sub New(message As String)
-            MyBase.New(message)
-        End Sub
-    End Class
-
-    Public Class MultipleAccountsException
-        Inherits DocumentShowException
-
-        Public Sub New(message As String)
-            MyBase.New(message)
-        End Sub
-    End Class
-
-    Public Class NoAccountException
-        Inherits DocumentShowException
-
-        Public Sub New(message As String)
-            MyBase.New(message)
-        End Sub
-    End Class
-
-    Public Class MalformedXmlException
-        Inherits ApplicationException
-
-        Public Sub New(message As String)
-            MyBase.New(message)
-        End Sub
-    End Class
-End Class