Initial

2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
--- a/Backup/DataAccess/Mitarbeiter.vb
+++ b/Backup/DataAccess/Mitarbeiter.vb
@@ -0,0 +1,322 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle Mitarbeiter</summary>
+Public Class Mitarbeiter
+
+#Region "Constructor"
+
+	Public Sub New(ByVal mitarbeiterId As Integer)
+	End Sub
+
+#End Region
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Mitarbeitern zurück</summary>
+	'''<param name="teamNr">Nur Mitarbeiter von diesem Team</param>
+	'''<param name="funktionsGruppeNr">Nur Mitarbeiter von dieser Funktionsgruppe</param>
+	'''<param name="dsMitarbeiter">Das DataSet welches gefüllt werden soll</param>
+
+    Overloads Shared Sub GetListe(ByVal teamNr As Integer, ByVal funktionsGruppeNr As Integer, ByRef dsMitarbeiter As DataSet)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlCmd.CommandText = "sp_ListMitarbeiter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            If teamNr = 0 Then
+                sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", DBNull.Value))
+            Else
+                sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", teamNr))
+            End If
+
+            If funktionsGruppeNr = 0 Then
+                sqlCmd.Parameters.Add(New SqlParameter("@FunktionsGruppeNr", DBNull.Value))
+            Else
+                sqlCmd.Parameters.Add(New SqlParameter("@FunktionsGruppeNr", funktionsGruppeNr))
+            End If
+
+            sqlConn.Open()
+
+            da.SelectCommand = sqlCmd
+            da.Fill(dsMitarbeiter, "MitarbeiterListe")
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+            If da Is Nothing Then
+                da.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Gibt alle Details zur einem Mitarbeiter zurück</summary>
+    '''<param name="mitarbeiterNr">Die datenbank Nummer des Mitarbeiters (ID)</param>
+    '''<param name="dsMitarbeiter">Das zu füllende DataSet</param>
+
+	Overloads Shared Sub GetById(ByVal mitarbeiterNr As Integer, ByRef dsMitarbeiter As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetMitarbeiterById"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(dsMitarbeiter, "Mitarbeiter")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Gibt alle Details zur einem Mitarbeiter zurück</summary>
+	'''<param name="tgNummer">Die NT TG Nummer des Mitarbeiters (NTG, NtAccount)</param>
+	'''<param name="dsMitarbeiter">Das zu füllende DataSet</param>
+
+    Overloads Shared Sub GetByTgNummer(ByVal tgNummer As String, ByRef dsMitarbeiter As DataSet)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlCmd.CommandText = "sp_GetMitarbeiterByTgNummer"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@TgNummer", tgNummer))
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            da.SelectCommand = sqlCmd
+            da.Fill(dsMitarbeiter, "Mitarbeiter")
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+            If da Is Nothing Then
+                da.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Erstellt ein neues Standard Profil für den angegebenen Mitarbeiter</summary>
+    '''<param name="mitarbeiterNr">Die datenbank Nummer des Mitarbeiters (ID)</param>
+    '''<param name="mutiererMitarbeiterNr">Die datenbank Nummer des Mutierers (ID)</param>
+
+	Overloads Shared Sub CreateNewStandardProfil(ByVal mitarbeiterNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_InsMitarbeiterProfil"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Gibt alle Details zur einem Mitarbeiter zurück</summary>
+    Overloads Shared Function Insert(ByVal vorname As String, ByVal name As String, ByVal kurzzeichen As String, ByVal anrede As String, _
+ ByVal tgNummer As String, ByVal eMail As String, ByVal fax As String, ByVal telefon As String, _
+ ByVal unterschriftText As String, ByVal spracheNr As Integer, ByVal fuerMandant As Integer, _
+ ByVal showTipp As Boolean, ByVal partnerNr As Integer, ByVal mandantNr As Integer, _
+ ByVal isAktiv As Boolean, ByVal mailEmpfang As Boolean, ByVal edokaMessage As Boolean, _
+ ByVal funktion As String, ByVal mailDirektVersenden As Boolean, ByVal rang As String, _
+ ByVal mailDokumentrueckgang As Boolean, ByVal klassifizierungNr As Integer, _
+ ByVal edokaMail As Boolean, ByVal journalisierung As Boolean, ByVal getMeldung As Boolean, _
+ ByVal mail1 As String, ByVal mutiererMitarbeiterNr As Integer) As Integer
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlCmd.CommandText = "sp_InsertMitarbeiter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Vorname", vorname))
+            sqlCmd.Parameters.Add(New SqlParameter("@Name", name))
+            sqlCmd.Parameters.Add(New SqlParameter("@KurzZeichen", kurzzeichen))
+            sqlCmd.Parameters.Add(New SqlParameter("@Anrede", anrede))
+            sqlCmd.Parameters.Add(New SqlParameter("@TgNummer", tgNummer))
+            sqlCmd.Parameters.Add(New SqlParameter("@eMail", eMail))
+            sqlCmd.Parameters.Add(New SqlParameter("@Fax", fax))
+            sqlCmd.Parameters.Add(New SqlParameter("@Telefon", telefon))
+            sqlCmd.Parameters.Add(New SqlParameter("@UnterschriftText", unterschriftText))
+            sqlCmd.Parameters.Add(New SqlParameter("@SpracheNr", spracheNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@FuerMandantNr", fuerMandant))
+            sqlCmd.Parameters.Add(New SqlParameter("@ShowTipp", showTipp))
+            sqlCmd.Parameters.Add(New SqlParameter("@PartnerNr", partnerNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", isAktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@MailEmpfang", mailEmpfang))
+            sqlCmd.Parameters.Add(New SqlParameter("@EdokaMessage", edokaMessage))
+            sqlCmd.Parameters.Add(New SqlParameter("@Funktion", funktion))
+            sqlCmd.Parameters.Add(New SqlParameter("@MailDirektVersenden", mailDirektVersenden))
+            sqlCmd.Parameters.Add(New SqlParameter("@Rang", rang))
+            sqlCmd.Parameters.Add(New SqlParameter("@MailDokumentRueckgang", mailDokumentrueckgang))
+            sqlCmd.Parameters.Add(New SqlParameter("@KlassifizierungNr", klassifizierungNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@EdokaMail", edokaMail))
+            sqlCmd.Parameters.Add(New SqlParameter("@Journalisierung", journalisierung))
+            sqlCmd.Parameters.Add(New SqlParameter("@GebMeldung", getMeldung))
+            sqlCmd.Parameters.Add(New SqlParameter("@Mail1", mail1))
+
+            sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", -1))
+            sqlCmd.Parameters("@MitarbeiterNr").Direction = ParameterDirection.InputOutput
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", SqlDbType.Int))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            If sqlCmd.ExecuteNonQuery() = 0 Then
+                Return -1
+            Else
+                If Convert.ToInt32(sqlCmd.Parameters("@Return").Value) <> 0 Then
+                    Throw New Exception("DA.Mitarbeiter.Insert(): Return value was " + sqlCmd.Parameters("@Return").Value)
+                Else
+                    Return Convert.ToInt32(sqlCmd.Parameters("@MitarbeiterNr").Value)
+                End If
+            End If
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+        End Try
+    End Function
+
+	'''<summary>Aktualisiert alle Details von einem Mitarbeiter</summary>
+	Overloads Shared Function Update(ByVal mitarbeiterNr As Integer, ByVal vorname As String, ByVal name As String, ByVal kurzzeichen As String, ByVal anrede As String, _
+	ByVal tgNummer As String, ByVal eMail As String, ByVal fax As String, ByVal telefon As String, _
+	ByVal unterschriftText As String, ByVal spracheNr As Integer, ByVal fuerMandant As Integer, _
+	ByVal showTipp As Boolean, ByVal partnerNr As Integer, ByVal mandantNr As Integer, _
+	ByVal isAktiv As Boolean, ByVal mailEmpfang As Boolean, ByVal edokaMessage As Boolean, _
+	ByVal funktion As String, ByVal mailDirektVersenden As Boolean, ByVal rang As String, _
+	ByVal mailDokumentrueckgang As Boolean, ByVal klassifizierungNr As Integer, _
+	ByVal edokaMail As Boolean, ByVal journalisierung As Boolean, ByVal getMeldung As Boolean, _
+	ByVal mail1 As String, ByVal mutiererMitarbeiterNr As Integer)
+
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_UpdateMitarbeiter"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@Vorname", vorname))
+			sqlCmd.Parameters.Add(New SqlParameter("@Name", name))
+			sqlCmd.Parameters.Add(New SqlParameter("@KurzZeichen", kurzzeichen))
+			sqlCmd.Parameters.Add(New SqlParameter("@Anrede", anrede))
+			sqlCmd.Parameters.Add(New SqlParameter("@TgNummer", tgNummer))
+			sqlCmd.Parameters.Add(New SqlParameter("@eMail", eMail))
+			sqlCmd.Parameters.Add(New SqlParameter("@Fax", fax))
+			sqlCmd.Parameters.Add(New SqlParameter("@Telefon", telefon))
+			sqlCmd.Parameters.Add(New SqlParameter("@UnterschriftText", unterschriftText))
+			sqlCmd.Parameters.Add(New SqlParameter("@SpracheNr", spracheNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@FuerMandantNr", fuerMandant))
+			sqlCmd.Parameters.Add(New SqlParameter("@ShowTipp", showTipp))
+			sqlCmd.Parameters.Add(New SqlParameter("@PartnerNr", partnerNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", isAktiv))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MailEmpfang", mailEmpfang))
+			sqlCmd.Parameters.Add(New SqlParameter("@EdokaMessage", edokaMessage))
+			sqlCmd.Parameters.Add(New SqlParameter("@Funktion", funktion))
+			sqlCmd.Parameters.Add(New SqlParameter("@MailDirektVersenden", mailDirektVersenden))
+			sqlCmd.Parameters.Add(New SqlParameter("@Rang", rang))
+			sqlCmd.Parameters.Add(New SqlParameter("@MailDokumentRueckgang", mailDokumentrueckgang))
+			sqlCmd.Parameters.Add(New SqlParameter("@KlassifizierungNr", klassifizierungNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@EdokaMail", edokaMail))
+			sqlCmd.Parameters.Add(New SqlParameter("@Journalisierung", journalisierung))
+			sqlCmd.Parameters.Add(New SqlParameter("@GebMeldung", getMeldung))
+			sqlCmd.Parameters.Add(New SqlParameter("@Mail1", mail1))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Function
+
+#End Region
+
+End Class