diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
index 9301f2ec..bfe72f90 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
@@ -297,36 +297,6 @@ Public Class cMitarbeiter
     End Function
 
 
-
-    'Public Sub LOAD(Optional topMax As String = "")
-    '    Try
-    '        Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
-    '            Using cmd As New SqlCommand("Select * FROM tblMitarbeiter WHERE mit_id=@mit_id  ", conn)
-    '                cmd.Parameters.AddWithValue("@mit_id", mit_id)
-    '                Dim dr = cmd.ExecuteReader()
-    '                If dr.Read Then
-    '                    For Each l In getParameterList()
-    '                        Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
-
-    '                        If dr.Item(l.Text) Is DBNull.Value Then
-    '                            propInfo.SetValue(Me, Nothing)
-    '                        Else
-    '                            propInfo.SetValue(Me, dr.Item(l.Text))
-    '                        End If
-
-    '                    Next
-    '                    Me.LOAD_MEMBERS()
-    '                    Me.LOAD_MESSAGES(topMax)
-    '                End If
-    '                dr.Close()
-    '            End Using
-    '        End Using
-    '    Catch ex As Exception
-    '        MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
-    '    End Try
-    'End Sub
-
-
     Public Function LOAD(ByVal id As Integer, Optional isTimas As Boolean = False) As Boolean
         Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE " & IIf(isTimas, "mit_timasId = " & id & "", "mit_id = " & id & "")
         '  adasdas()
@@ -367,11 +337,8 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_DpUserStandardDP") Is DBNull.Value Then Me.mit_DpUserStandardDP = dr.Item("mit_DpUserStandardDP")
                             If Not dr.Item("mit_DpUserStandardFirma") Is DBNull.Value Then Me.mit_DpUserStandardFirma = dr.Item("mit_DpUserStandardFirma")
                             If Not dr.Item("mit_DpUserStandardFirma2") Is DBNull.Value Then Me.mit_DpUserStandardFirma2 = dr.Item("mit_DpUserStandardFirma2")
-
-
                             If Not dr.Item("mit_standartFiliale") Is DBNull.Value Then Me.mit_standartFiliale = dr.Item("mit_standartFiliale")
                             If Not dr.Item("mit_standardPreisliste") Is DBNull.Value Then Me.mit_standardPreisliste = dr.Item("mit_standardPreisliste")
-
                             Me.mit_info = dr.Item("mit_info")
                             If Not dr.Item("mit_einstiegsdatum") Is DBNull.Value Then Me.mit_einstiegsdatum = dr.Item("mit_einstiegsdatum")
                             Me.mit_gekuendigt = dr.Item("mit_gekuendigt")
@@ -387,7 +354,6 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_DAKOSY_SBFull") Is DBNull.Value Then Me.mit_DAKOSY_SBFull = dr.Item("mit_DAKOSY_SBFull")
                             If Not dr.Item("mit_TESTonly") Is DBNull.Value Then Me.mit_TESTonly = dr.Item("mit_TESTonly")
                             If Not dr.Item("mit_PasswortChanged") Is DBNull.Value Then Me.mit_PasswortChanged = dr.Item("mit_PasswortChanged")
-
                             If Not dr.Item("mit_FirmenDatenAnzeige") Is DBNull.Value Then Me.mit_FirmenDatenAnzeige = dr.Item("mit_FirmenDatenAnzeige")
                             If Not dr.Item("mit_TELOTEC_SB") Is DBNull.Value Then Me.mit_TELOTEC_SB = dr.Item("mit_TELOTEC_SB")
                             If Not dr.Item("mit_AliasAD_Domain") Is DBNull.Value Then Me.mit_AliasAD_Domain = dr.Item("mit_AliasAD_Domain")
@@ -395,20 +361,16 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_AliasAD_Domain2") Is DBNull.Value Then Me.mit_AliasAD_Domain2 = dr.Item("mit_AliasAD_Domain2")
                             If Not dr.Item("mit_AliasAD_Username2") Is DBNull.Value Then Me.mit_AliasAD_Username2 = dr.Item("mit_AliasAD_Username2")
                             If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId")
-
                             Me.mit_ChatBenutzer = dr.Item("mit_ChatBenutzer")
                             Me.mit_ChatEasteregg = dr.Item("mit_ChatEasteregg")
                             Me.mit_ChatEasteregg2 = dr.Item("mit_ChatEasteregg2")
-
                             If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt")
-
                             If Not dr.Item("mit_MAVerzeichnis_SettingsTstmp") Is DBNull.Value Then Me.mit_MAVerzeichnis_SettingsTstmp = dr.Item("mit_MAVerzeichnis_SettingsTstmp")
                             Me.mit_MAVerzeichnis_allowGebDat = dr.Item("mit_MAVerzeichnis_allowGebDat")
                             Me.mit_MAVerzeichnis_allowGebDatOhneJahr = dr.Item("mit_MAVerzeichnis_allowGebDatOhneJahr")
                             Me.mit_MAVerzeichnis_allowWohnadresse = dr.Item("mit_MAVerzeichnis_allowWohnadresse")
                             Me.mit_MAVerzeichnis_allowHandynummer = dr.Item("mit_MAVerzeichnis_allowHandynummer")
                             Me.mit_MAVerzeichnis_allowFoto = dr.Item("mit_MAVerzeichnis_allowFoto")
-
                             If Not dr.Item("mit_foto_DocId") Is DBNull.Value Then Me.mit_foto_DocId = dr.Item("mit_foto_DocId")
                             If Not dr.Item("mit_fotoHover1_DocId") Is DBNull.Value Then Me.mit_fotoHover1_DocId = dr.Item("mit_fotoHover1_DocId")
                             If Not dr.Item("mit_fotoHover2_DocId") Is DBNull.Value Then Me.mit_fotoHover2_DocId = dr.Item("mit_fotoHover2_DocId")
@@ -429,7 +391,6 @@ Public Class cMitarbeiter
                             Me.mit_ausstempelnBeiBeenden = dr.Item("mit_ausstempelnBeiBeenden")
                             If Not dr.Item("mit_timasFirmen") Is DBNull.Value Then Me.mit_timasFirmen = dr.Item("mit_timasFirmen")
                             Me.mit_timasMehrereFirmen = dr.Item("mit_timasMehrereFirmen")
-
                             If Not dr.Item("mit_Notfall_Handy") Is DBNull.Value Then Me.mit_Notfall_Handy = dr.Item("mit_Notfall_Handy")
                             If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name")
                             If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail")