Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/.svn/pristine/79/7911ce6ed225ed677e35477e00d926ad1a81a501.svn-base
+++ b/.svn/pristine/79/7911ce6ed225ed677e35477e00d926ad1a81a501.svn-base
@@ -0,0 +1,150 @@
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports DevComponents
+Public Class clsMitarbeiter
+    Inherits DB.clsMitarbeiter
+
+    Public daten As New DataTable
+    Public Neuer_Datensatz As Boolean = False
+    Public Mitarbeiterdaten As New DataTable
+
+    Dim stammdaten As New DB.clsStammdaten
+    Dim SpaltenTitel As New Utils.Tabellenspalte
+    Public VerantwortlichISIdaten As New DataTable
+
+    Dim mMutierer As String
+    Property MutiererText() As String
+        Get
+            Return mMutierer
+        End Get
+        Set(ByVal value As String)
+            mMutierer = value
+        End Set
+    End Property
+
+    Sub New()
+        Mitarbeiterdaten = stammdaten.Get_Stammdaten("mitarbeiter", "bezeichnung")
+        VerantwortlichISIdaten = stammdaten.Get_Stammdaten("verantwortungisi", "bezeichnung")
+    End Sub
+
+    Sub dispose()
+        Mitarbeiterdaten.Dispose()
+        VerantwortlichISIdaten.Dispose()
+    End Sub
+    Public Function Get_Mitarbeitername(ByVal nr As Integer) As String
+        Return Get_Mutierer(nr)
+    End Function
+
+    Public Function Get_Mutierer(ByVal nr As Integer) As String
+        Try
+            Dim ma As New DB.clsMitarbeiter
+            Dim dt As New DataTable
+            Dim Retvalue As String
+            ma.cpMainConnectionProvider = Globals.conn
+            ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
+            dt = ma.SelectOne()
+            If dt.Rows.Count = 0 Then
+                Retvalue = ("{" + nr.ToString + "}")
+            Else
+                Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
+            End If
+            ma.Dispose()
+            dt.Dispose()
+            Return Retvalue
+        Catch
+            Return ""
+        End Try
+
+    End Function
+
+
+    Public Function Get_Data(ByVal Nr As Integer)
+        Me.cpMainConnectionProvider = Globals.conn
+        Me.iMitarbeiternr = New SqlInt32(CType(Nr, Int32))
+        Globals.conn.OpenConnection()
+        Me.daten = Me.SelectOne()
+        Globals.conn.CloseConnection(True)
+        Try
+            Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
+        Catch ex As Exception
+            Me.MutiererText = ""
+
+        End Try
+
+    End Function
+
+    Public Function Save_Data() As Integer
+        Me.cpMainConnectionProvider = Globals.conn
+        Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
+        Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
+        Globals.conn.OpenConnection()
+        Me.Update()
+        Globals.conn.CloseConnection(True)
+        Me.Neuer_Datensatz = False
+    End Function
+
+
+    ''' <summary>
+    ''' Löschen eines Datensatzes erstellen.
+    ''' </summary>
+    ''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
+        If Basenr <> 0 Then
+            Get_Data(Basenr)
+        End If
+        If bAktiv.Value = False Then Exit Function
+
+        Me.cpMainConnectionProvider = Globals.conn
+        Me.bAktiv = New SqlBoolean(CType(False, Boolean))
+        Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
+        Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
+        Globals.conn.OpenConnection()
+        Me.Update()
+        Globals.conn.CloseConnection(True)
+        Me.Neuer_Datensatz = False
+    End Function
+
+    Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
+        If Basenr <> 0 Then
+            Get_Data(Basenr)
+        End If
+        Me.cpMainConnectionProvider = Globals.conn
+        Globals.conn.OpenConnection()
+        MyBase.Delete()
+        Globals.conn.CloseConnection(True)
+        Me.Neuer_Datensatz = False
+    End Function
+
+    ''' <summary>
+    ''' Neue Person einfügen
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function Add_New() As Integer
+        Dim db As New DB.clsMyKey_Tabelle
+        db.cpMainConnectionProvider = Globals.conn
+        Dim newkey = db.get_dbkey("Mitarbeiter")
+        db.Dispose()
+        Me.bAktiv = New SqlBoolean(CType(True, Boolean))
+        Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
+        Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
+        Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
+        Me.sName = New SqlString(CType("", String))
+        Me.sVorname = New SqlString(CType("", String))
+        Me.sTgnummer = New SqlString(CType("", String))
+        Me.sEmail = New SqlString(CType("", String))
+        Me.cpMainConnectionProvider = Globals.conn
+        Try
+            Globals.conn.OpenConnection()
+            Me.Insert()
+            Globals.conn.CloseConnection(True)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        Me.Neuer_Datensatz = True
+        Return Me.iMitarbeiternr.Value
+    End Function
+
+End Class