Initial

EDKB04OP/EdokaDokument.vb

@@ -0,0 +1,30 @@
+Public Class EdokaDokument
+
+    Public Function Cancel(ByVal message As String) As Boolean
+        Dim ret As Boolean = False
+        If Me.IsAbgeschlossen() Then
+            Dim edokaSqlDb As EdokaSqlDb = New EdokaSqlDb(Globals.sConnectionString_edoka)
+            edokaSqlDb.CancelDocument(Me.Id, message)
+            ret = Me.IsAufgehoben()
+        End If
+        Return ret
+    End Function
+
+    Public Function IsAbgeschlossen() As Boolean
+        Dim ret As Boolean = False
+        Dim edokaSqlDb As EdokaSqlDb = New EdokaSqlDb(Globals.sConnectionString_edoka)
+        ret = edokaSqlDb.IsDokumentAbgeschlossen(Me.Id)
+        Return ret
+    End Function
+
+    Public Function IsAufgehoben() As Boolean
+        Dim ret As Boolean = False
+        Dim edokaSqlDb As EdokaSqlDb = New EdokaSqlDb(Globals.sConnectionString_edoka)
+        ret = edokaSqlDb.IsDokumentAufgehoben(Me.Id)
+        Return ret
+    End Function
+
+
+    Public Property Id As String
+
+End Class