NEU

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -0,0 +1,679 @@
+Public Class frmMitarbDetails
+
+    Private UID As New cMitarbeiter
+    Private berechtigungen As New List(Of cBerechtigungen)
+    Public mid As Integer = -1
+    Private isUpdate As Boolean = False
+    Private mitarbeiter As New VERAG_PROG_ALLGEMEIN.cMitarbeiter
+    Private usrBerechtigung As New List(Of cUserBerechtigungen)
+    Private usrBerechtigungNEU As New List(Of cUserBerechtigungen)
+    Dim ZOLLDATENBEARB = False
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim FirmaTmp = ""
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(Firma)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.FirmaTmp = Firma
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub frmMitarbDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        cboFirmaFMZOLL.fillWithSQL("SELECT[Firma_ID],[Firma_Bez]  FROM [tblFirma] ", True, "FMZOLL", True)
+        ' cboKasse.fillWithSQL("SELECT [Standard_RKSV_KasseId],[Name]  FROM [Personal] ", True, "FMZOLL", True)
+        cboKasse.fillWithSQL("SELECT [rksv_id],[rksv_bez]  FROM [tblRKSV_Kassen] ", True, "FMZOLL", True)
+
+        cboPersonal.fillWithSQL("SELECT  ID, Name FROM Personal WHERE [Status]<>'L' ORDER BY Name ", False, "FMZOLL", True)
+        cboSpedbuch.fillWithSQL("SELECT  ID, Name FROM Personal WHERE [Status]<>'L' ORDER BY Name ", False, "FMZOLL", True)
+
+        MyComboBox2.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", False, "FMZOLL", True)
+        MyComboBox3.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez]  FROM [tblPreislisten] ORDER BY PreislistenBez", False, "FMZOLL", True)
+
+        cboDP.fillWithSQL("SELECT [dpset_niederlassung]  FROM [tblDienstSettings] ORDER BY dpset_niederlassung", False, "ADMIN", True)
+
+
+        MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM [VERAG].[dbo].[tblFirma]", False, "FMZOLL")
+        MyListBox1.Items.Insert(0, New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A"))
+
+        cboDPFirma.Items.Clear()
+        cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
+        cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+
+
+        ZOLLDATENBEARB = False
+
+        txtPwd.Visible = False
+        berechtigungen = UID.getBerechtigungen()
+        cbxEinsteigsDat.Checked = False
+        cbxGebDat.Checked = False
+        If Not IsNothing(berechtigungen) Then
+            For Each d As cBerechtigungen In berechtigungen
+                If d.prog_codename = "ADMIN" Then cboAdminBer.Items.Add(d.ber_name)
+                If d.prog_codename = "DISPO" Then cboDispoBer.Items.Add(d.ber_name)
+                If d.prog_codename = "UID" Then cboUidBer.Items.Add(d.ber_name)
+                If d.prog_codename = "PARKZEIT" Then cboParkzeitBer.Items.Add(d.ber_name)
+                If d.prog_codename = "ZOLL" Then cboZollBer.Items.Add(d.ber_name)
+                If d.prog_codename = "SDL" Then cboSdlBer.Items.Add(d.ber_name)
+                If d.prog_codename = "AVISO" Then cboAvisoBer.Items.Add(d.ber_name)
+            Next
+            cboAdminBer.SelectedIndex = 0
+        End If
+        ' cboNiederlassung.SelectedIndex = 0
+
+        If FirmaTmp <> "" Then
+            cboFirma.Text = FirmaTmp
+        End If
+
+        cboAbteilung.Items.Clear()
+        cboAbteilung.fillWithSQL("SELECT [abt_kuerzel],[abt_bezeichnung] FROM tblAbteilungen", False, "ADMIN", True)
+        cboNiederlassung.Items.Clear()
+        cboNiederlassung.fillWithSQL("SELECT [nl_kuerzel],[nl_bezeichnung] FROM tblNiederlassungen", False, "ADMIN", True)
+
+
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollabteilung", "ZOLL"))
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("quick-stop", "QS"))
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Buchhaltung", "BH"))
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EDV", "EDV"))
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Fiskal", "FISK"))
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Geschäftsführung", "GF"))
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lager", "LAGER"))
+        ' cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MDM", "MDM"))
+        'cboAbteilung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verrechnung", "VRR"))
+
+
+
+        '  cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        '  cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Suben", "SUB"))
+        '  cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Salzburg", "SBG"))
+        '  cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Waidhaus", "WAI"))
+        '  cboNiederlassung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Nickelsdorf", "NKD"))
+
+
+        txtGebDat.Format = DateTimePickerFormat.Custom
+        txtGebDat.CustomFormat = "dd.MM.yyyy"
+        datGekuendigtAm.Format = DateTimePickerFormat.Custom
+        datGekuendigtAm.CustomFormat = "dd.MM.yyyy"
+        datEinstiegsdatum.Format = DateTimePickerFormat.Custom
+        datEinstiegsdatum.CustomFormat = "dd.MM.yyyy"
+        If mid >= 0 Then
+            'mid = frmMitarbeiter.mid
+            mitarbeiter = UID.getMitarbeiterById(mid)
+            usrBerechtigung = UID.getUserBerechtigungen(mid)
+            '   usrBerechtigungNEU = UID.getUserBerechtigungenNEU(mid)
+
+            If Not IsNothing(mitarbeiter) Then
+                initMitarbeiter()
+            Else
+                MsgBox("Fehler beim Laden der Daten!")
+            End If
+        Else
+            rbtnGeschlechtM.Checked = True
+            ' btnSave.Visible = False
+            TabControl2.TabPages.Remove(TabPage3)
+            txtPwd.Text = "0000"
+        End If
+
+        If False Then
+
+            For Each ber As cUserBerechtigungen In usrBerechtigungNEU
+                If ber.bepr_programm = "ADMIN" Then cbxADMIN.Checked = True ': cboAdminBer.Text = ber.ber_name
+                If ber.bepr_programm = "SDL" Then cbxSDL.Checked = True ': cboSdlBer.Text = ber.ber_name
+                If ber.bepr_programm = "AVISO" Then cbxAVISO.Checked = True ': cboAvisoBer.Text = ber.ber_name
+            Next
+
+        End If
+
+        For Each ber As cUserBerechtigungen In usrBerechtigung
+
+            If ber.bepr_programm = "ADMIN" Then cbxADMIN.Checked = True : cboAdminBer.Text = ber.ber_name
+            If ber.bepr_programm = "DISPO" Then cbxDISPO.Checked = True : cboDispoBer.Text = ber.ber_name
+            If ber.bepr_programm = "UID" Then cbxUID.Checked = True : cboUidBer.Text = ber.ber_name
+            If ber.bepr_programm = "PARKZEIT" Then cbxPARKZEIT.Checked = True : cboParkzeitBer.Text = ber.ber_name
+            If ber.bepr_programm = "ZOLL" Then cbxZOLL.Checked = True : cboZollBer.Text = ber.ber_name
+            If ber.bepr_programm = "SDL" Then cbxSDL.Checked = True : cboSdlBer.Text = ber.ber_name
+            If ber.bepr_programm = "AVISO" Then cbxAVISO.Checked = True : cboAvisoBer.Text = ber.ber_name
+        Next
+
+    End Sub
+    Private Sub initMitarbeiter()
+        isUpdate = True
+        ' mit_id.Text = mitarbeiter.mit_id
+        Label48.Text = mitarbeiter.mit_id
+        txtUsername.Text = mitarbeiter.mit_username
+        txtPwd.Text = mitarbeiter.mit_pwd
+        If mitarbeiter.mit_geschlecht = "m" Then rbtnGeschlechtM.Checked = True
+        If mitarbeiter.mit_geschlecht = "w" Then rbtnGeschlechtW.Checked = True
+        txtTitel.Text = mitarbeiter.mit_affix
+        txtVname.Text = mitarbeiter.mit_vname
+        txtNname.Text = mitarbeiter.mit_nname
+        If mitarbeiter.mit_gebdat = "" Then
+            cbxGebDat.Checked = False
+        Else
+            cbxGebDat.Checked = True : txtGebDat.Text = mitarbeiter.mit_gebdat
+        End If
+        txtStrasse.Text = mitarbeiter.mit_strasse
+        txtHausnummer.Text = mitarbeiter.mit_hausnr
+        txtLand.Text = mitarbeiter.mit_land
+        txtPlz.Text = mitarbeiter.mit_plz
+        txtOrt.Text = mitarbeiter.mit_ort
+        cboNiederlassung.changeItem(mitarbeiter.mit_niederlassung)
+        cboAbteilung.changeItem(mitarbeiter.mit_abteilung)
+        cboPosition.Text = mitarbeiter.mit_position
+        txtDurchwahl.Text = mitarbeiter.mit_durchwahl
+        txtEmail.Text = mitarbeiter.mit_email
+        txtMobiltel.Text = mitarbeiter.mit_mobiltel
+        cbxAnrufen.Checked = mitarbeiter.mit_allowAnruf
+        txtInfo.Text = mitarbeiter.mit_info
+        txtDakosySB.Text = mitarbeiter.mit_DAKOSY_SB
+        txtDyFullName.Text = If(mitarbeiter.mit_DAKOSY_SBFull, "")
+        txtTelotecSB.Text = mitarbeiter.mit_TELOTEC_SB
+
+        If mitarbeiter.mit_firma = "VERAG" Then
+            cboFirma.SelectedIndex = 0
+        ElseIf mitarbeiter.mit_firma = "ATILLA" Then
+            cboFirma.SelectedIndex = 1
+        ElseIf mitarbeiter.mit_firma = "IMEX" Then
+            cboFirma.SelectedIndex = 2
+        ElseIf mitarbeiter.mit_firma = "ALL" Then
+            cboFirma.SelectedIndex = 3
+        End If
+
+        cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
+
+        cboKasse.changeItem("")
+        If mitarbeiter.mit_FMZollPersID IsNot Nothing Then
+            cboKasse.changeItem(SQL.getValueTxtBySql("SELECT [Standard_RKSV_KasseId]  FROM [Personal] WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
+        End If
+
+
+        If mitarbeiter.mit_FirmenDatenAnzeige IsNot Nothing AndAlso mitarbeiter.mit_FirmenDatenAnzeige <> "" Then
+            For Each f In mitarbeiter.mit_FirmenDatenAnzeige.ToString.Split(",")
+                'Dim i = 0
+                For i = 0 To MyListBox1.Items.Count - 1
+                    '  If DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value = f Then
+                    '   MsgBox(MyListBox1.Items.IndexOf(i))
+                    'End If
+                    If DirectCast(MyListBox1.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then
+                        MyListBox1.SetSelected(i, True)
+                    End If
+                Next
+            Next
+        End If
+
+
+        If mitarbeiter.mit_einstiegsdatum = "" Then
+            cbxEinsteigsDat.Checked = False
+        Else
+            cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = mitarbeiter.mit_einstiegsdatum
+        End If
+        If mitarbeiter.mit_kuendigungsdatum = "" Then
+            cbxGekuendigt.Checked = False
+        Else
+            cbxGekuendigt.Checked = True : datGekuendigtAm.Text = mitarbeiter.mit_kuendigungsdatum
+        End If
+
+        If mitarbeiter.mit_FMZollPersID > 0 Then
+            cboPersonal._value = mitarbeiter.mit_FMZollPersID
+        End If
+
+        If mitarbeiter.mit_DpUserStandardDP IsNot Nothing Then cboDP.changeItem(mitarbeiter.mit_DpUserStandardDP)
+        If mitarbeiter.mit_DpUserStandardFirma IsNot Nothing Then cboDPFirma.changeItem(mitarbeiter.mit_DpUserStandardFirma)
+
+        cbxSpedBuch.Checked = mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch
+
+        If mitarbeiter.mit_FMZollPersIDSpedBuch > 0 Then
+            cboSpedbuch._value = mitarbeiter.mit_FMZollPersIDSpedBuch
+        End If
+
+        If mitarbeiter.mit_standartFiliale > 0 Then
+            MyComboBox2._value = mitarbeiter.mit_standartFiliale
+        End If
+
+        If mitarbeiter.mit_standardPreisliste > 0 Then
+            MyComboBox3._value = mitarbeiter.mit_standardPreisliste
+        End If
+
+        cbxTestaccount.Checked = If(mitarbeiter.mit_TESTonly, False)
+
+        picFoto.ImageLocation = mitarbeiter.mit_foto
+    End Sub
+
+
+    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+
+        If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
+        getMitarbeiter()
+        If isUpdate Then
+            mitarbeiter.mit_id = mid
+            If UID.updateMitarbeiter(mitarbeiter) Then saveBerechtigungen() : Me.Close()
+        Else
+            If UID.insertMitarbeiter(mitarbeiter) Then saveBerechtigungen() : Me.Close()
+        End If
+
+    End Sub
+    Private Sub saveBerechtigungen()
+        Dim ber_admin As String = ""
+        Dim ber_dispo As String = ""
+        Dim ber_uid As String = ""
+        Dim ber_parkzeit As String = ""
+        Dim ber_zoll As String = ""
+        Dim ber_sdl As String = ""
+        Dim ber_aviso As String = ""
+        For Each ber As cUserBerechtigungen In usrBerechtigung
+            If ber.bepr_programm = "ADMIN" Then ber_admin = ber.ber_name
+            If ber.bepr_programm = "DISPO" Then ber_dispo = ber.ber_name
+            If ber.bepr_programm = "UID" Then ber_uid = ber.ber_name
+            If ber.bepr_programm = "PARKZEIT" Then ber_parkzeit = ber.ber_name
+            If ber.bepr_programm = "ZOLL" Then ber_zoll = ber.ber_name
+            If ber.bepr_programm = "SDL" Then ber_sdl = ber.ber_name
+            If ber.bepr_programm = "AVISO" Then ber_aviso = ber.ber_name
+        Next
+
+
+        If cbxADMIN.Checked Then
+            UID.insertUpdateBerechtigungProg(mid, Nothing, "ADMIN", True)
+        Else
+            UID.deleteBerechtigungProg(mid, "ADMIN")
+        End If
+
+        If cbxAVISO.Checked Then
+            UID.insertUpdateBerechtigungProg(mid, Nothing, "AVISO", True)
+        Else
+            UID.deleteBerechtigungProg(mid, "AVISO")
+        End If
+
+        If cbxDISPO.Checked Then
+            UID.insertUpdateBerechtigungProg(mid, Nothing, "DISPO", True)
+        Else
+            UID.deleteBerechtigungProg(mid, "DISPO")
+        End If
+
+        If cbxSDL.Checked Then
+            UID.insertUpdateBerechtigungProg(mid, Nothing, "SDL", True)
+        Else
+            UID.deleteBerechtigungProg(mid, "SDL")
+        End If
+
+
+        Dim akt_ber_admin As String = ""
+        Dim akt_ber_dispo As String = ""
+        Dim akt_ber_uid As String = ""
+        Dim akt_ber_parkzeit As String = ""
+        Dim akt_ber_zoll As String = ""
+        Dim akt_ber_sdl As String = ""
+        Dim akt_ber_aviso As String = ""
+        If cbxADMIN.Checked Then akt_ber_admin = cboAdminBer.Text
+        If cbxDISPO.Checked Then akt_ber_dispo = cboDispoBer.Text
+        If cbxUID.Checked Then akt_ber_uid = cboUidBer.Text
+        If cbxPARKZEIT.Checked Then akt_ber_parkzeit = cboParkzeitBer.Text
+        If cbxZOLL.Checked Then akt_ber_zoll = cboZollBer.Text
+        If cbxSDL.Checked Then akt_ber_sdl = ""
+        If cbxAVISO.Checked Then akt_ber_aviso = cboAvisoBer.Text
+
+        If Not ber_admin = akt_ber_admin Then 'WEnn sich die Berechtigung geändert hat
+            Dim berid As Integer = getBerId("ADMIN", cboAdminBer.Text) 'ID anhand der ausgewählten Berechtigung holen 
+            If akt_ber_admin = "" Then : UID.deleteBerechtigungProg(mid, "ADMIN") ' wenn keine gesetzt ist -> Berechtigung löschen
+            ElseIf ber_admin = "" Then : UID.insertBerechtigungProg(mid, berid, "ADMIN", True) ' wenn vorher keine gesetzt war -> insert
+            Else : UID.updateBerechtigungProg(mid, berid, "ADMIN") ' bei Änderung -> update
+            End If
+        End If
+
+        'If Not ber_dispo = akt_ber_dispo Then
+        '    Dim berid As Integer = getBerId("DISPO", cboDispoBer.Text)
+        '    If akt_ber_dispo = "" Then : UID.deleteBerechtigungProg(mid, "DISPO")
+        '    ElseIf ber_dispo = "" Then : UID.insertBerechtigungProg(mid, berid, "DISPO", True)
+        '    Else : UID.updateBerechtigungProg(mid, berid, "DISPO")
+        '    End If
+        'End If
+
+        If Not ber_uid = akt_ber_uid Then
+            Dim berid As Integer = getBerId("UID", cboUidBer.Text)
+            If akt_ber_uid = "" Then : UID.deleteBerechtigungProg(mid, "UID")
+            ElseIf ber_uid = "" Then : UID.insertBerechtigungProg(mid, berid, "UID", True)
+            Else : UID.updateBerechtigungProg(mid, berid, "UID")
+            End If
+        End If
+
+        If Not ber_parkzeit = akt_ber_parkzeit Then
+            Dim berid As Integer = getBerId("PARKZEIT", cboParkzeitBer.Text)
+            If akt_ber_parkzeit = "" Then : UID.deleteBerechtigungProg(mid, "PARKZEIT")
+            ElseIf ber_parkzeit = "" Then : UID.insertBerechtigungProg(mid, berid, "PARKZEIT", True)
+            Else : UID.updateBerechtigungProg(mid, berid, "PARKZEIT")
+            End If
+        End If
+
+
+        If Not ber_zoll = akt_ber_zoll Then
+            Dim berid As Integer = getBerId("ZOLL", cboZollBer.Text)
+            If akt_ber_zoll = "" Then : UID.deleteBerechtigungProg(mid, "ZOLL")
+            ElseIf ber_zoll = "" Then : UID.insertBerechtigungProg(mid, berid, "ZOLL", True)
+            Else : UID.updateBerechtigungProg(mid, berid, "ZOLL")
+            End If
+        End If
+        '  If Not ber_sdl = akt_ber_sdl Then
+        'Dim berid As Integer = getBerId("SDL", cboSdlBer.Text)
+        '   If akt_ber_sdl = "" Then : UID.deleteBerechtigungProg(mid, "SDL")
+        '  ElseIf ber_sdl = "" Then : UID.insertBerechtigungProg(mid, berid, "SDL", True)
+        '  Else : UID.updateBerechtigungProg(mid, berid, "SDL")
+        '  End If
+        '  End If
+        ' If Not ber_aviso = akt_ber_aviso Then
+        'Dim berid As Integer = getBerId("AVISO", cboAvisoBer.Text)
+        ' If akt_ber_aviso = "" Then 'UID.deleteBerechtigungProg(mid, "AVISO")
+        'ElseIf ber_aviso = "" Then : UID.insertBerechtigungProg(mid, berid, "AVISO", True)
+        '    Else : UID.updateBerechtigungProg(mid, berid, "AVISO")
+        '   End If
+        ' End If
+    End Sub
+
+    Private Function getBerId(ByVal codename As String, ByVal name As String) As String
+        For Each ber As cBerechtigungen In berechtigungen
+            If ber.prog_codename = codename And ber.ber_name = name Then Return ber.ber_id
+        Next
+        Return "-1"
+    End Function
+
+    Private Sub getMitarbeiter()
+        mitarbeiter.mit_username = txtUsername.Text
+        mitarbeiter.mit_pwd = txtPwd.Text
+        mitarbeiter.mit_affix = txtTitel.Text
+        If rbtnGeschlechtM.Checked Then mitarbeiter.mit_geschlecht = "m"
+        If rbtnGeschlechtW.Checked Then mitarbeiter.mit_geschlecht = "w"
+        mitarbeiter.mit_vname = txtVname.Text
+        mitarbeiter.mit_nname = txtNname.Text
+        If cbxGebDat.Checked Then mitarbeiter.mit_gebdat = txtGebDat.Text Else mitarbeiter.mit_gebdat = ""
+        mitarbeiter.mit_strasse = txtStrasse.Text
+        mitarbeiter.mit_hausnr = txtHausnummer.Text
+        mitarbeiter.mit_land = txtLand.Text
+        mitarbeiter.mit_plz = txtPlz.Text
+        mitarbeiter.mit_ort = txtOrt.Text
+        mitarbeiter.mit_niederlassung = cboNiederlassung._value
+        mitarbeiter.mit_abteilung = cboAbteilung._value
+        mitarbeiter.mit_position = cboPosition.Text
+        mitarbeiter.mit_durchwahl = txtDurchwahl.Text
+        mitarbeiter.mit_email = txtEmail.Text
+        mitarbeiter.mit_mobiltel = txtMobiltel.Text
+        mitarbeiter.mit_allowAnruf = cbxAnrufen.Checked
+        mitarbeiter.mit_info = txtInfo.Text
+        mitarbeiter.mit_DAKOSY_SB = txtDakosySB.Text
+        mitarbeiter.mit_DAKOSY_SBFull = txtDyFullName.Text
+        mitarbeiter.mit_TELOTEC_SB = txtTelotecSB.Text
+
+
+        If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then
+            mitarbeiter.mit_FMZollPersID = cboPersonal._value
+        Else
+            mitarbeiter.mit_FMZollPersID = -1
+        End If
+
+        mitarbeiter.mit_FirmenDatenAnzeige = ""
+        For Each a In MyListBox1.SelectedItems
+            If DirectCast(a, VERAG_PROG_ALLGEMEIN.MyListItem).Value = "A" Then
+                ' For Each i In MyListBox1.Items
+                mitarbeiter.mit_FirmenDatenAnzeige = "A"
+                ' Next
+                Exit For
+            End If
+        Next
+        If mitarbeiter.mit_FirmenDatenAnzeige = "" Then
+            For Each i In MyListBox1.SelectedItems
+                mitarbeiter.mit_FirmenDatenAnzeige &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ","
+            Next
+        End If
+        If mitarbeiter.mit_FirmenDatenAnzeige <> "" And mitarbeiter.mit_FirmenDatenAnzeige.ToString.EndsWith(",") Then
+            mitarbeiter.mit_FirmenDatenAnzeige = mitarbeiter.mit_FirmenDatenAnzeige.ToString.Substring(0, mitarbeiter.mit_FirmenDatenAnzeige.ToString.Length - 1)
+        End If
+
+
+
+
+        mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch = cbxSpedBuch.Checked
+        mitarbeiter.mit_FMZollPersIDSpedBuch = Nothing
+        If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 And cbxSpedBuch.Checked Then
+            mitarbeiter.mit_FMZollPersIDSpedBuch = cboSpedbuch._value
+        End If
+
+        mitarbeiter.mit_DpUserStandardDP = cboDP._value
+        mitarbeiter.mit_DpUserStandardFirma = cboDPFirma._value
+
+        If IsNumeric(MyComboBox2._value) AndAlso MyComboBox2._value > 0 Then
+            mitarbeiter.mit_standartFiliale = MyComboBox2._value
+        Else
+            mitarbeiter.mit_standartFiliale = -1
+        End If
+
+        If IsNumeric(MyComboBox3._value) AndAlso MyComboBox3._value > 0 Then
+            mitarbeiter.mit_standardPreisliste = MyComboBox3._value
+        Else
+            mitarbeiter.mit_standardPreisliste = -1
+        End If
+
+        mitarbeiter.mit_firmaFMZoll = If(cboFirmaFMZOLL._value = "", Nothing, cboFirmaFMZOLL._value)
+
+        If ZOLLDATENBEARB Then
+            mitarbeiter.mit_EZOLL_SB = If(cboEZOLL_SB._value = "", Nothing, cboEZOLL_SB._value)
+            mitarbeiter.mit_ATLAS_SB = If(cboATLAS_SB._value = "", Nothing, cboATLAS_SB._value)
+        End If
+
+        If mitarbeiter.mit_FMZollPersID IsNot Nothing And cboKasse._value <> "" Then
+
+            cboKasse.changeItem(SQL.doSQL("UPDATE [Personal] SET Standard_RKSV_KasseId='" & cboKasse._value & "' WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
+        End If
+
+
+        If cboFirma.SelectedIndex = 0 Then
+            mitarbeiter.mit_firma = "VERAG"
+        ElseIf cboFirma.SelectedIndex = 1 Then
+            mitarbeiter.mit_firma = "ATILLA"
+        ElseIf cboFirma.SelectedIndex = 2 Then
+            mitarbeiter.mit_firma = "IMEX"
+        ElseIf cboFirma.SelectedIndex = 3 Then
+            mitarbeiter.mit_firma = "ALL"
+        End If
+
+        If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""
+        mitarbeiter.mit_gekuendigt = cbxGekuendigt.Checked
+        If cbxGekuendigt.Checked Then mitarbeiter.mit_kuendigungsdatum = datGekuendigtAm.Text Else mitarbeiter.mit_kuendigungsdatum = ""
+        If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation
+        mitarbeiter.mit_TESTonly = cbxTestaccount.Checked
+
+    End Sub
+
+    Private Sub Label8_Click(sender As Object, e As EventArgs)
+        txtPwd.Visible = Not txtPwd.Visible
+    End Sub
+
+    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles picFoto.Click
+        Dim fd As OpenFileDialog = New OpenFileDialog()
+        Dim strFileName As String
+
+        If Not System.IO.Directory.Exists("\\192.168.0.90\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\") Then
+            System.IO.Directory.CreateDirectory("\\192.168.0.90\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\")
+        End If
+        If Not System.IO.Directory.Exists("\\192.168.0.91\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\") Then
+            System.IO.Directory.CreateDirectory("\\192.168.0.91\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\")
+        End If
+
+        fd.Title = "Bild auswählen"
+        fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\"
+
+        fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
+        fd.FilterIndex = 2
+        fd.RestoreDirectory = True
+
+        If fd.ShowDialog() = DialogResult.OK Then
+            strFileName = fd.FileName
+            picFoto.ImageLocation = strFileName
+
+            Dim myValue = InputBox("Bitte Name eingeben (mit Endung)", "FileName", cut_file(strFileName))
+            If myValue <> "" Then
+                FileCopy(fd.FileName, "\\192.168.0.91\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\" & myValue)
+                FileCopy(fd.FileName, "\\192.168.0.90\f\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\" & myValue)
+            End If
+            mitarbeiter.mit_foto = strFileName
+        End If
+    End Sub
+
+    Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function 
+        While file.Contains("\")
+            file = file.Remove(0, 1)
+        End While
+        Return file
+    End Function
+
+    Private Sub cbxADMIN_CheckedChanged(sender As Object, e As EventArgs) Handles cbxADMIN.CheckedChanged
+        cboAdminBer.Enabled = cbxADMIN.Checked
+    End Sub
+
+
+    Private Sub cbxUID_CheckedChanged(sender As Object, e As EventArgs) Handles cbxUID.CheckedChanged
+        cboUidBer.Enabled = cbxUID.Checked
+    End Sub
+
+    Private Sub cbxDISPO_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDISPO.CheckedChanged
+        cboDispoBer.Enabled = cbxDISPO.Checked
+    End Sub
+
+    Private Sub cbxPARKZEIT_CheckedChanged(sender As Object, e As EventArgs) Handles cbxPARKZEIT.CheckedChanged
+        cboParkzeitBer.Enabled = cbxPARKZEIT.Checked
+    End Sub
+
+    Private Sub cbxZOLL_CheckedChanged(sender As Object, e As EventArgs) Handles cbxZOLL.CheckedChanged
+        cboZollBer.Enabled = cbxZOLL.Checked
+    End Sub
+    Private Sub cbxSDL_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSDL.CheckedChanged
+        cboSdlBer.Enabled = cbxSDL.Checked
+    End Sub
+    Private Sub cbxAVISO_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAVISO.CheckedChanged
+        cboAvisoBer.Enabled = cbxAVISO.Checked
+    End Sub
+
+    Private Sub Label8_Click_1(sender As Object, e As EventArgs) Handles Label8.DoubleClick
+        txtPwd.Visible = True
+        Label8.Visible = False
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs)
+        If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
+        getMitarbeiter()
+        If isUpdate Then
+            mitarbeiter.mit_id = mid
+            If UID.updateMitarbeiter(mitarbeiter) Then Me.Close()
+        End If
+    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinsteigsDat.CheckedChanged
+        datEinstiegsdatum.Enabled = cbxEinsteigsDat.Checked
+    End Sub
+
+    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles cbxGebDat.CheckedChanged
+        txtGebDat.Enabled = cbxGebDat.Checked
+    End Sub
+
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        frmMitarbBerechtigungen.codename = "SDL"
+        frmMitarbBerechtigungen.progId = 7
+        frmMitarbBerechtigungen.maId = mid
+        frmMitarbBerechtigungen.Show()
+    End Sub
+
+    Private Sub cbxGekuendigt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxGekuendigt.CheckedChanged
+        datGekuendigtAm.Enabled = cbxGekuendigt.Checked
+    End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 7, "SDL")
+        frmBenutzerBerGruppen.Show(Me)
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 1, "ADMIN")
+        frmBenutzerBerGruppen.Show(Me)
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 5, "AVISO")
+        frmBenutzerBerGruppen.Show(Me)
+    End Sub
+
+
+    Private Sub cbxSpedBuch_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSpedBuch.CheckedChanged
+        cboSpedbuch.Enabled = sender.checked
+        If sender.checked Then
+            Label37.Text = "Benutzer Kasse:"
+        Else
+            Label37.Text = "Zuordnung / FM-ZOLL Personal - Tabelle:"
+        End If
+    End Sub
+
+
+    Private Sub cboNiederlassung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboNiederlassung.SelectedIndexChanged
+
+    End Sub
+
+
+    Private Sub tbcntr_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
+        If tbcntr.SelectedIndex = 1 Then
+            Try
+                cboATLAS_SB.fillWithSQL("SELECT [bassba_sbnr],[bassba_sbnr] FROM [atlas].[dbo].[bassba]  ORDER BY bassba.bassba_sbnr", False, If(cboNiederlassung._value = "SBG", "ATLAS_SBG", "ATLAS"), True)
+            Catch ex As Exception
+                MsgBox("ATLAS Problem")
+                tbcntr.SelectedIndex = 0
+                Exit Sub
+            End Try
+
+            Try
+                cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID]  FROM [ezoll].[dbo].[zzPersonal] ORDER BY UserID ", False, "EZOLL", True)
+            Catch ex As Exception
+                MsgBox("EZOLL Problem")
+                tbcntr.SelectedIndex = 0
+                Exit Sub
+            End Try
+
+            If If(mitarbeiter.mit_EZOLL_SB, -1) > 0 Then
+                cboEZOLL_SB._value = mitarbeiter.mit_EZOLL_SB
+            End If
+            If If(mitarbeiter.mit_ATLAS_SB, "") <> "" Then
+                cboATLAS_SB._value = mitarbeiter.mit_ATLAS_SB
+            End If
+
+            ZOLLDATENBEARB = True
+        End If
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        Dim frmBenutzerBerGruppen As New frmBenutzerBerGruppen(mid, 3, "DISPO")
+        frmBenutzerBerGruppen.Show(Me)
+    End Sub
+
+    Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked
+        If vbYes = MsgBox("Möchten Sie das Kennwort wirklich zurücksetzen? " & vbNewLine & "Der Benutzer wird beim nächsten Login zur Eingabe aufgefordert.", vbYesNoCancel) Then
+            '  txtPwd.Text = "0000"
+            getMitarbeiter()
+            mitarbeiter.mit_PasswortChanged = Nothing
+            UID.updateMitarbeiter(mitarbeiter)
+        End If
+    End Sub
+
+End Class