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

Mitarbeiter, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-05-18 16:55:32 +02:00
parent 5960098ccf
commit cbb437a666
1 changed files with 0 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -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")