edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -51,7 +51,10 @@ Public Class cMitarbeiter
Property mit_AliasAD_Domain As Object = Nothing
Property mit_AliasAD_Username As Object = Nothing
Property mit_teamId As Object = Nothing
Property mit_ChatBenutzer As Boolean = True
Property mit_FirmaHaupt As Object = Nothing
Sub New()
@@ -133,6 +136,8 @@ Public Class cMitarbeiter
If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId")
Me.mit_ChatBenutzer = dr.Item("mit_ChatBenutzer")
If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt")
Catch ex As Exception