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