Initial

Backup/BusinessFacade/Dokument.vb

@@ -0,0 +1,75 @@
+Imports EDOKALib.Common
+
+'''<summary>Diese klasse beinhaltet die Logik für ein Dokument. Da diese Klasse vorständig sehr komplext wäre, ist diese hier NICHT vollständig und wird laufend um die benötigte Funktionalität erweitert</summary>
+Public Class Dokument
+
+#Region "Members"
+
+	Private _dokumentId As String
+
+#End Region
+
+#Region "Public methods"
+
+	Public Shared Function SetStatus()
+		Try
+			If IsNothing(Common.Action.Action) Then
+				'action muss existieren
+				TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Dokument.SetStatus", "2 Static action object is nothing", TraceLevel.Warning)
+				Throw New DokumentException(2, "Static action object is nothing")
+			End If
+
+			Dim paramName, value As String
+
+			'nötige werte aus action xml lesen
+            paramName = "OrderNr"
+            value = Action.Action.GetParameterByName("fanummer3").Value
+
+			Dim mitarbeiter As New mitarbeiter(Action.Action.CreatorTgNr)
+
+			Dim result As Integer
+			'effektiver status setzen
+			result = DataAccess.Dokument.SetStatus(Action.Action.SourceApplication, paramName, value, mitarbeiter.MitarbeiterNr)
+
+			If result <> 0 Then
+				Throw New DokumentException(1, "No rows have been affected")
+			End If
+
+		Catch ex As Exception
+			TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Dokument.SetStatus", ex.Message & ex.StackTrace, TraceLevel.Error)
+			Throw ex
+		End Try
+	End Function
+
+#End Region
+
+End Class
+
+#Region "DokumentException"
+
+Public Class DokumentException
+	Inherits Exception
+
+	Private _number As Integer
+	Private _description As String
+
+	Public Sub New(ByVal number As Integer, ByVal description As String)
+		_number = number
+		_description = description
+	End Sub
+
+	Public Overrides ReadOnly Property Message() As String
+		Get
+			Return _description
+		End Get
+	End Property
+
+	Public ReadOnly Property Number() As Integer
+		Get
+			Return _number
+		End Get
+	End Property
+
+End Class
+
+#End Region