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")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE")) cboALIASDomain.Items.Clear() cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGOST", "VERAGOST")) cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-SBG", "VERAG-SBG")) cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGNEUHAUS", "VERAGNEUHAUS")) cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-NCTS (ATILLA)", "VERAG-NCTS")) cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISU.AT")) cboFirma.Items.Clear() cboFirma.Items.Add("VERAG") cboFirma.Items.Add("ATILLA") cboFirma.Items.Add("IMEX") cboFirma.Items.Add("UNISPED") cboFirma.Items.Add("AMBAR") cboFirma.Items.Add("FRONTOFFICE") cboFirma.Items.Add("ALLE") 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 cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain) txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username If mitarbeiter.mit_firma = "ALL" Then cboFirma.Text = "ALLE" Else cboFirma.Text = mitarbeiter.mit_firma 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 mitarbeiter.mit_AliasAD_Domain = cboALIASDomain._value mitarbeiter.mit_AliasAD_Username = txtALIASUser.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.Text = "ALLE" Then mitarbeiter.mit_firma = "ALL" Else mitarbeiter.mit_firma = cboFirma.Text 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