159 lines
8.7 KiB
VB.net
159 lines
8.7 KiB
VB.net
Imports System.Data.SqlClient
|
|
|
|
|
|
Public Class cMitarbeiter
|
|
Property mit_id As Integer
|
|
Property mit_username As String = ""
|
|
Property mit_pwd As String = ""
|
|
Property mit_geschlecht As String = ""
|
|
Property mit_affix As String = ""
|
|
Property mit_vname As String = ""
|
|
Property mit_nname As String = ""
|
|
Property mit_gebdat As String = ""
|
|
Property mit_strasse As String = ""
|
|
Property mit_hausnr As String = ""
|
|
Property mit_land As String = ""
|
|
Property mit_plz As String = ""
|
|
Property mit_ort As String = ""
|
|
Property mit_niederlassung As String = ""
|
|
Property mit_abteilung As String = ""
|
|
Property mit_position As String = ""
|
|
Property mit_durchwahl As String = ""
|
|
Property mit_email As String = ""
|
|
Property mit_mobiltel As String = ""
|
|
Property mit_allowAnruf As Boolean
|
|
Property mit_info As String = ""
|
|
Property mit_einstiegsdatum As String = ""
|
|
Property mit_gekuendigt As Boolean
|
|
Property mit_kuendigungsdatum As String = ""
|
|
Property mit_foto As String = ""
|
|
Property mit_firma As String = "VERAG"
|
|
Property mit_firmaFMZoll As Object = Nothing
|
|
Property mit_FMZollPersID As Object = Nothing
|
|
Property mit_standartFiliale As Integer = -1
|
|
Property mit_standardPreisliste As Integer = -1
|
|
Property mit_FMZollPersIDKasseIsnotSpedBuch As Boolean = False
|
|
Property mit_FMZollPersIDSpedBuch As Object = Nothing
|
|
Property mit_DpUserStandardDP As Object = Nothing
|
|
Property mit_DpUserStandardFirma As Object = Nothing
|
|
Property mit_DpUserStandardFirma2 As Object = Nothing
|
|
|
|
Property mit_EZOLL_SB As Object = Nothing
|
|
Property mit_ATLAS_SB As Object = Nothing
|
|
Property mit_FirmenDatenAnzeige As Object = Nothing
|
|
|
|
Property mit_DAKOSY_SB As Object = Nothing
|
|
Property mit_DAKOSY_SBFull As Object = Nothing
|
|
Property mit_TESTonly As Object = Nothing
|
|
Property mit_PasswortChanged As Object = Nothing
|
|
Property mit_TELOTEC_SB As Object = Nothing
|
|
|
|
|
|
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()
|
|
|
|
End Sub
|
|
|
|
Sub New(id)
|
|
Me.mit_id = id
|
|
LOAD(id)
|
|
|
|
End Sub
|
|
' Dim SQL As New SQL
|
|
|
|
Public Function Fullname() As String
|
|
Return (If(mit_vname, "") & " " & If(mit_nname, "")).Trim
|
|
End Function
|
|
|
|
|
|
Public Function LOAD(ByVal id As Integer) As Boolean
|
|
Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & ""
|
|
' adasdas()
|
|
' Dim d As VERAG_PROG_ALLGEMEIN.cMitarbeiter = Nothing
|
|
Try
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN
|
|
Using cmd As New SqlCommand(sqlstr, conn)
|
|
Dim dr = cmd.ExecuteReader()
|
|
If dr.HasRows Then
|
|
dr.Read()
|
|
' d = New VERAG_PROG_ALLGEMEIN.cMitarbeiter()
|
|
Try
|
|
Me.mit_id = dr.Item("mit_id")
|
|
Me.mit_username = dr.Item("mit_username")
|
|
Me.mit_pwd = dr.Item("mit_pwd")
|
|
Me.mit_affix = dr.Item("mit_affix")
|
|
If Not dr.Item("mit_geschlecht") Is DBNull.Value Then Me.mit_geschlecht = dr.Item("mit_geschlecht")
|
|
Me.mit_vname = dr.Item("mit_vname")
|
|
Me.mit_nname = dr.Item("mit_nname")
|
|
If Not dr.Item("mit_gebdat") Is DBNull.Value Then Me.mit_gebdat = dr.Item("mit_gebdat")
|
|
Me.mit_strasse = dr.Item("mit_strasse")
|
|
Me.mit_hausnr = dr.Item("mit_hausnr")
|
|
Me.mit_land = dr.Item("mit_land")
|
|
Me.mit_plz = dr.Item("mit_plz")
|
|
Me.mit_ort = dr.Item("mit_ort")
|
|
Me.mit_niederlassung = dr.Item("mit_niederlassung")
|
|
Me.mit_abteilung = dr.Item("mit_abteilung")
|
|
Me.mit_position = dr.Item("mit_position")
|
|
Me.mit_durchwahl = dr.Item("mit_durchwahl")
|
|
Me.mit_email = dr.Item("mit_email")
|
|
Me.mit_mobiltel = dr.Item("mit_mobiltel")
|
|
Me.mit_allowAnruf = dr.Item("mit_allowAnruf")
|
|
If Not dr.Item("mit_FMZollPersID") Is DBNull.Value Then Me.mit_FMZollPersID = dr.Item("mit_FMZollPersID")
|
|
If Not dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDKasseIsnotSpedBuch = dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch")
|
|
If Not dr.Item("mit_FMZollPersIDSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDSpedBuch = dr.Item("mit_FMZollPersIDSpedBuch")
|
|
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")
|
|
If Not dr.Item("mit_kuendigungsdatum") Is DBNull.Value Then Me.mit_kuendigungsdatum = dr.Item("mit_kuendigungsdatum")
|
|
If Not dr.Item("mit_foto") Is DBNull.Value Then Me.mit_foto = dr.Item("mit_foto")
|
|
Me.mit_firma = dr.Item("mit_firma")
|
|
If Not dr.Item("mit_firmaFMZoll") Is DBNull.Value Then Me.mit_firmaFMZoll = dr.Item("mit_firmaFMZoll")
|
|
If Not dr.Item("mit_EZOLL_SB") Is DBNull.Value Then Me.mit_EZOLL_SB = dr.Item("mit_EZOLL_SB")
|
|
If Not dr.Item("mit_ATLAS_SB") Is DBNull.Value Then Me.mit_ATLAS_SB = dr.Item("mit_ATLAS_SB")
|
|
If Not dr.Item("mit_DAKOSY_SB") Is DBNull.Value Then Me.mit_DAKOSY_SB = dr.Item("mit_DAKOSY_SB")
|
|
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")
|
|
If Not dr.Item("mit_AliasAD_Username") Is DBNull.Value Then Me.mit_AliasAD_Username = dr.Item("mit_AliasAD_Username")
|
|
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
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
|
|
End Try
|
|
End If
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Return True
|
|
Catch ex As Exception
|
|
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Mitarbeiter-Details:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
|
|
Return Nothing
|
|
End Try
|
|
Return False
|
|
End Function
|
|
|
|
End Class
|