neu

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -55,6 +55,7 @@ Public Class cMitarbeiter
     Property mit_teamId As Object = Nothing
     Property mit_ChatBenutzer As Boolean = True
     Property mit_FirmaHaupt As Object = Nothing
+    Property mit_ChatEasteregg As Boolean = False
 
     Sub New()
 
@@ -137,6 +138,9 @@ Public Class cMitarbeiter
 
 
                             Me.mit_ChatBenutzer = dr.Item("mit_ChatBenutzer")
+                            Me.mit_ChatEasteregg = dr.Item("mit_ChatEasteregg")
+
+
                             If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt")
 
 
@@ -155,4 +159,18 @@ Public Class cMitarbeiter
         Return False
     End Function
 
+    Public Shared Sub UPDATE_EASTEREGG(egg As Boolean, Optional mit_id As Integer = -1)
+        Try
+            If cAllgemein.MITARBEITER IsNot Nothing Then
+                If mit_id <= 0 Then
+                    mit_id = cAllgemein.MITARBEITER.mit_id
+                End If
+            End If
+        Dim sql As New SQL
+            If mit_id > 0 Then sql.doSQL("UPDATE tblMitarbeiter SET mit_ChatEasteregg='" & If(egg, 1, 0) & "' WHERE mit_id=" & mit_id, "ADMIN")
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
 End Class