ADMIN/SDL/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

Imports System.ComponentModel
Imports System.Drawing

Public Class frmMitarbeitersuche
    Dim mit_id As Integer = -1
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Sub New(mit_id As Integer)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.mit_id = mit_id
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub lblMail_Click(sender As Object, e As EventArgs) Handles lblMail.Click
        If lblMail.Text <> "" Then Process.Start("Mailto:" & lblMail.Text)
    End Sub

    Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load
        pnl.Visible = False
        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
            MsgBox("Noch nicht verfügbar!")
            Me.Close()
        End If

        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_MAVerzeichnis_SettingsTstmp Is Nothing And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pseudoUser Then
            MsgBox("Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu können. Sie können die Einstellungen jederzeit ändern.")

            Dim f As New frmMitarbeitersucheBearbeiten(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
            If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            Else
                Me.Close()
            End If
            initMA()
        End If


        sbMitarbeiter.initSearchBox(Me.FindForm, " [mit_id] ,[mit_username] ,(mit_vname + ' ' + mit_nname ) AS Name , CASE WHEN mit_firma='ALL' THEN mit_firmaHaupt ELSE mit_firma END as Firma, mit_niederlassung as Niederlassung FROM tblMitarbeiter", {"mit_vname", "mit_nname"}, "  1=1 AND mit_gekuendigt=0 AND [mit_TESTonly]=0 AND [mit_pseudoUser]=0 ", "mit_id", "mit_id", "Name", "ADMIN", , 400, 200, {"mit_id", "mit_username"})
        initMA()

    End Sub


    Private Sub sbMitarbeiter_PropertyChanged() Handles sbMitarbeiter.VALUE_CHANGED
        initMA()
    End Sub

    Sub initMA()
        btn.Visible = False
        pnl.Visible = False
        Dim MA As cMitarbeiter = Nothing
        If sbMitarbeiter._value <> "" Then
            MA = New cMitarbeiter(sbMitarbeiter._value)
        End If

        If MA Is Nothing Then
            clearMA()
        Else

            pnl.Visible = True
            lblName.Text = If(MA.mit_vname, "") & " " & If(MA.mit_nname, "")
            lblSpitzname.Text = If(MA.mit_MAVerzeichnis_Spitzname, "")
            lblFirma.Text = MA.getFirma
            lblNiederlassung.Text = If(MA.mit_niederlassung, "")

            lblTelefon.Text = If(MA.mit_durchwahl, "")
            lblMail.Text = If(MA.mit_email, "")
            '    lblWohnadresse.Text = (If(MA.mit_land, "") & " " & If(MA.mit_plz, "") & " " & If(MA.mit_ort, "")).Trim
            lblWohnadresse.Text = (If(MA.mit_plz, "") & " " & If(MA.mit_ort, "")).Trim

            pnlWohnadresse.Visible = MA.mit_MAVerzeichnis_allowWohnadresse

            lblMotto.Text = MA.mit_MAVerzeichnis_Motto
            If lblMotto.Text.Trim <> "" Then lblMotto.Text = """" & lblMotto.Text & """"
            pnlMotto.Visible = (lblMotto.Text <> "")

            lblHandyNr.Visible = MA.mit_MAVerzeichnis_allowHandynummer
            lblHandyNr.Text = If(MA.mit_mobiltel, "")


            Select Case If(MA.mit_abteilung, "")
                Case "GF" : lblAbteilung.Text = "Geschäftsführung"
                    If MA.mit_vname = "Johann" And MA.mit_nname = "Luxbauer" Then lblAbteilung.Text = "VORSTAND / Geschäftsführung"
                Case "VRR" : lblAbteilung.Text = "Verrechnung"
                Case "BH", "BU" : lblAbteilung.Text = "Buchhaltung"
                Case "MDM" : lblAbteilung.Text = "Maut/Diesel/Mehrwertsteuer"
                Case "FISKAL" : lblAbteilung.Text = "Fiskalabteilung"
                Case "ZOLL", "QS" : lblAbteilung.Text = "Zollabteilung"
                    If MA.mit_teamId IsNot Nothing Then
                        Dim team = SQL.DLookup("team_bezeichnung", "tblTeams", "team_id='" & MA.mit_teamId & "'", "ADMIN", "")
                        If team <> "" Then
                            lblAbteilung.Text &= " / " & team
                        End If
                    End If
                Case Else : lblAbteilung.Text = If(MA.mit_abteilung, "")
            End Select

            If MA.mit_MAVerzeichnis_allowGebDat Then
                pnlGeburtstag.Visible = True
                If MA.mit_MAVerzeichnis_allowGebDatOhneJahr AndAlso IsDate(If(MA.mit_gebdat, "")) Then
                    lblGeburtstag.Text = CDate(MA.mit_gebdat).ToString("dd.MM.")
                Else
                    lblGeburtstag.Text = If(MA.mit_gebdat, "")
                End If
            Else
                pnlGeburtstag.Visible = False
            End If

            pic.BackgroundImage = My.Resources.personGray_m
            picGeschlecht.Visible = True
            If MA.mit_geschlecht = "w" Then
                pic.BackgroundImage = My.Resources.personGray_w
                picGeschlecht.BackgroundImage = My.Resources.weiblich
            Else
                pic.BackgroundImage = My.Resources.personGray_m
                picGeschlecht.BackgroundImage = My.Resources.männlich
            End If

            If MA.mit_MAVerzeichnis_allowFoto AndAlso MA.mit_foto_DocId IsNot Nothing Then
                Try
                    pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_foto_DocId))
                Catch ex As Exception
                    pic.BackgroundImage = My.Resources.personGray_m
                End Try
            End If

            Select Case MA.getFirma
                Case "VERAG" : PictureBox3.BackgroundImage = My.Resources.Verag_AG_Logopng
                Case "UNISPED" : PictureBox3.BackgroundImage = My.Resources.Unisped_logo
                Case "ATILLA" : PictureBox3.BackgroundImage = My.Resources.Atilla
                Case "AMBAR" : PictureBox3.BackgroundImage = My.Resources.ambar_simple
                Case "IMEX" : PictureBox3.BackgroundImage = My.Resources.IMEX_LOGO_simple
                Case "FRONTOFFICE" : PictureBox3.BackgroundImage = My.Resources.FrontOfficeSUB_Horizontal
                Case Else
                    PictureBox3.BackgroundImage = Nothing
            End Select
            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
                btn.Visible = True
            End If
            If VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then

                btn.Visible = True
            End If
        End If
    End Sub


    Sub clearMA()

        lblName.Text = ""
        lblSpitzname.Text = ""
        lblFirma.Text = ""
        lblNiederlassung.Text = ""
        lblAbteilung.Text = ""
        lblTelefon.Text = ""
        lblMail.Text = ""
        lblHandyNr.Text = ""
        lblWohnadresse.Text = ""
        pnlWohnadresse.Visible = False
        pnlGeburtstag.Visible = False
        pnlMotto.Visible = False
        pic.BackgroundImage = My.Resources.personGray_m
        picGeschlecht.Visible = False
    End Sub

    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        If sbMitarbeiter._value = "" Then Exit Sub
        Dim f As New frmMitarbeitersucheBearbeiten(sbMitarbeiter._value)
        f.ShowDialog(Me)
        initMA()
    End Sub

    Private Sub frmMitarbeitersuche_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        If mit_id > 0 Then
            sbMitarbeiter.SET_VALUE(mit_id)
            initMA()
        End If
    End Sub

    Private Sub pnl_Paint(sender As Object, e As Windows.Forms.PaintEventArgs) Handles pnl.Paint

    End Sub


End Class