You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
966 B
31 lines
966 B
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
|