753 lines
34 KiB
VB.net
753 lines
34 KiB
VB.net
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("ALLE", "ALLE"))
|
|
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"))
|
|
cboDPFirma2.Items.Clear()
|
|
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
|
|
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
|
|
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
|
|
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
|
|
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
|
|
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
|
|
cboDPFirma2.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"))
|
|
|
|
cboALIASDomain2.Items.Clear()
|
|
cboALIASDomain2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
|
cboALIASDomain2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGOST", "VERAGOST"))
|
|
cboALIASDomain2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
|
|
cboALIASDomain2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-SBG", "VERAG-SBG"))
|
|
cboALIASDomain2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGNEUHAUS", "VERAGNEUHAUS"))
|
|
cboALIASDomain2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-NCTS (ATILLA)", "VERAG-NCTS"))
|
|
cboALIASDomain2.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")
|
|
|
|
|
|
cboFirmaHaupt.Items.Clear()
|
|
cboFirmaHaupt.Items.Add("VERAG")
|
|
cboFirmaHaupt.Items.Add("ATILLA")
|
|
cboFirmaHaupt.Items.Add("IMEX")
|
|
cboFirmaHaupt.Items.Add("UNISPED")
|
|
cboFirmaHaupt.Items.Add("AMBAR")
|
|
cboFirmaHaupt.Items.Add("FRONTOFFICE")
|
|
|
|
|
|
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
|
|
|
|
cboALIASDomain2.changeItem(mitarbeiter.mit_AliasAD_Domain2)
|
|
txtALIASUser2.Text = mitarbeiter.mit_AliasAD_Username2
|
|
|
|
|
|
If mitarbeiter.mit_firma = "ALL" Then
|
|
cboFirma.Text = "ALLE"
|
|
cboFirmaHaupt.Text = mitarbeiter.mit_FirmaHaupt
|
|
Else
|
|
cboFirma.Text = mitarbeiter.mit_firma
|
|
End If
|
|
|
|
cbxChatBenutzer.Checked = mitarbeiter.mit_ChatBenutzer
|
|
cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
|
|
|
|
cboTeam.changeItem(If(mitarbeiter.mit_teamId, ""))
|
|
|
|
|
|
|
|
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)
|
|
If mitarbeiter.mit_DpUserStandardFirma2 IsNot Nothing Then cboDPFirma2.changeItem(mitarbeiter.mit_DpUserStandardFirma2)
|
|
|
|
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
|
|
mitarbeiter.mit_AliasAD_Domain2 = cboALIASDomain2._value
|
|
mitarbeiter.mit_AliasAD_Username2 = txtALIASUser2.Text
|
|
mitarbeiter.mit_teamId = If(cboTeam._value = "", Nothing, cboTeam._value)
|
|
|
|
|
|
|
|
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
|
|
mitarbeiter.mit_DpUserStandardFirma2 = cboDPFirma2._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"
|
|
mitarbeiter.mit_FirmaHaupt = cboFirmaHaupt.Text
|
|
Else
|
|
mitarbeiter.mit_firma = cboFirma.Text
|
|
End If
|
|
mitarbeiter.mit_ChatBenutzer = cbxChatBenutzer.Checked
|
|
|
|
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 [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
|
|
|
|
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
|
|
cboTeam.Items.Clear()
|
|
If cboFirma.Text <> "" Then
|
|
cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
|
|
End If
|
|
cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE")
|
|
End Sub
|
|
End Class |