Imports System.ComponentModel
Imports GrapeCity.Viewer.Common.Model
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON

Public Class usrCntlMitarbeiter


    Dim ConnStr As String
    Private UID As New cMitarbeiter
    Private cOptionenDAL As New cOptionenDAL
    Private Grid_aktiv As Boolean = False
    Private Anzahl As Integer
    Private locZeilen As Integer = -1
    Public mid As Integer = -1

    Private Sub uctrlMitarbeiter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ConnStr = frmMain.ConnStr

        Try
            '  Me.Size = My.Settings.frmMainSize
            ' Me.Location = My.Settings.frmMainPosition
        Catch ex As Exception
            'nix tun - Standardgröße wird somit automatisch gesetzt
        End Try

        Grid_aktiv = True
        Tabelle_anzeigen()
        txtSuche.Focus()
    End Sub

    Public Sub Tabelle_anzeigen()
        If TabControl1.SelectedIndex = 0 Then
            showVERAGATILLA("VERAG")
        ElseIf TabControl1.SelectedIndex = 1 Then
            showVERAGATILLA("ATILLA")
        ElseIf TabControl1.SelectedIndex = 2 Then
            showVERAGATILLA("IMEX")
        ElseIf TabControl1.SelectedIndex = 3 Then
            showVERAGATILLA("UNISPED")
        ElseIf TabControl1.SelectedIndex = 4 Then
            showVERAGATILLA("AMBAR")
        ElseIf TabControl1.SelectedIndex = 5 Then
            showVERAGATILLA("FRONTOFFICE")
        ElseIf TabControl1.SelectedIndex = 6 Then
            showVERAGATILLA("VERIMEX")
        End If
    End Sub

    Public Sub showVERAGATILLA(firma)
        'Paint wieder reaktivieren
        locZeilen = -1
        If Not Grid_aktiv Then Exit Sub



        Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt FROM tblMitarbeiter WHERE (mit_firma='" & firma & "' OR (mit_firma='ALL' AND mit_FirmaHaupt='" & firma & "' )) "

        If txtSuche.Text <> "" Then
            sql &= " AND (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') "
        End If

        If cbx.CheckState <> CheckState.Indeterminate Then
            sql &= " AND mit_gekuendigt=" & IIf(cbx.Checked, 1, 0)
        End If


        If firma = "VERAG" Then

            ' dgvVERAG.DataSource = UID.AnzeigeTabelleFirma(sql)

            dgvVERAG.SET_SQL(sql, "ADMIN")
            dgvVERAG.LOAD()
            'Tabelle Kommt/Geht bereinigen
            If dgvVERAG.RowCount = 0 Then
                dgvVERAG.DataSource = Nothing
            Else
                sortDGV(dgvVERAG)
                'Eintraege_festlegen()
                'AL: Sortierung nach Ausfahrt (Zeit)
                dgvVERAG.Sort(dgvVERAG.Columns(3), ListSortDirection.Ascending)
            End If
        ElseIf firma = "ATILLA" Then
            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)

            dgvATILLA.SET_SQL(sql, "ADMIN")
            dgvATILLA.LOAD()

            'Tabelle Kommt/Geht bereinigen
            If dgvATILLA.RowCount = 0 Then
                dgvATILLA.DataSource = Nothing
            Else
                sortDGV(dgvATILLA)
                'Eintraege_festlegen()
                'AL: Sortierung nach Ausfahrt (Zeit)
                dgvATILLA.Sort(dgvATILLA.Columns(3), ListSortDirection.Ascending)
            End If
        ElseIf firma = "IMEX" Then
            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)

            dgvIMEX.SET_SQL(sql, "ADMIN")
            dgvIMEX.LOAD()

            'Tabelle Kommt/Geht bereinigen
            If dgvIMEX.RowCount = 0 Then
                dgvIMEX.DataSource = Nothing
            Else
                sortDGV(dgvIMEX)
                'Eintraege_festlegen()
                'AL: Sortierung nach Ausfahrt (Zeit)
                dgvIMEX.Sort(dgvIMEX.Columns(3), ListSortDirection.Ascending)
            End If
        ElseIf firma = "UNISPED" Then
            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)

            dgvUNISPED.SET_SQL(sql, "ADMIN")
            dgvUNISPED.LOAD()

            'Tabelle Kommt/Geht bereinigen
            If dgvUNISPED.RowCount = 0 Then
                dgvUNISPED.DataSource = Nothing
            Else
                sortDGV(dgvUNISPED)
                'Eintraege_festlegen()
                'AL: Sortierung nach Ausfahrt (Zeit)
                dgvUNISPED.Sort(dgvUNISPED.Columns(3), ListSortDirection.Ascending)
            End If
        ElseIf firma = "AMBAR" Then
            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)

            dgvAMBAR.SET_SQL(sql, "ADMIN")
            dgvAMBAR.LOAD()

            'Tabelle Kommt/Geht bereinigen
            If dgvAMBAR.RowCount = 0 Then
                dgvAMBAR.DataSource = Nothing
            Else
                sortDGV(dgvAMBAR)
                'Eintraege_festlegen()
                'AL: Sortierung nach Ausfahrt (Zeit)
                dgvAMBAR.Sort(dgvAMBAR.Columns(3), ListSortDirection.Ascending)
            End If

        ElseIf firma = "FRONTOFFICE" Then
            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)

            dgvFRONTOFFICE.SET_SQL(sql, "ADMIN")
            dgvFRONTOFFICE.LOAD()

            'Tabelle Kommt/Geht bereinigen
            If dgvFRONTOFFICE.RowCount = 0 Then
                dgvFRONTOFFICE.DataSource = Nothing
            Else
                sortDGV(dgvFRONTOFFICE)
                'Eintraege_festlegen()
                'AL: Sortierung nach Ausfahrt (Zeit)
                dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending)

            End If


        ElseIf firma = "VERIMEX" Then
            ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)

            dgvVERIMEX.SET_SQL(sql, "ADMIN")
            dgvVERIMEX.LOAD()

            'Tabelle Kommt/Geht bereinigen
            If dgvVERIMEX.RowCount = 0 Then
                dgvVERIMEX.DataSource = Nothing
            Else
                sortDGV(dgvVERIMEX)
                'Eintraege_festlegen()
                'AL: Sortierung nach Ausfahrt (Zeit)
                dgvVERIMEX.Sort(dgvVERIMEX.Columns(3), ListSortDirection.Ascending)

            End If
        End If

    End Sub



    Private Sub sortDGV(dgv As DataGridView)
        With dgv
            .RowTemplate.Height = 20
            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .AllowUserToOrderColumns = False
            .AllowUserToResizeColumns = False
            .AllowUserToResizeRows = False
            .RowTemplate.ReadOnly = True
            .RowHeadersVisible = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect

            .AllowUserToOrderColumns = True

            .Columns(0).Visible = False     'ID nicht anzeigen

            .Columns(1).Width = 150
            .Columns(1).HeaderText = "Username"
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

            .Columns(2).Width = 100
            .Columns(2).HeaderText = "Vorname"

            .Columns(3).Width = 130
            .Columns(3).HeaderText = "Nachname"

            .Columns(4).Width = 85
            .Columns(4).HeaderText = "Niederlassung"

            .Columns(5).Width = 85
            .Columns(5).HeaderText = "Abteilung"

            .Columns(6).Width = 120
            .Columns(6).HeaderText = "Email"

            .Columns(7).Width = 120
            .Columns(7).HeaderText = "TelefonNr."

            .Columns(8).Width = 80
            .Columns(8).HeaderText = "Gekündigt"


        End With
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Firma = ""
        Select Case TabControl1.SelectedIndex
            Case 0 : Firma = "VERAG"
            Case 1 : Firma = "ATILLA"
            Case 2 : Firma = "IMEX"
            Case 3 : Firma = "UNISPED"
            Case 4 : Firma = "AMBAR"
            Case 5 : Firma = "FRONTOFFICE"
            Case 6 : Firma = "VERIMEX"
        End Select
        Dim frmMitarbDetails As New frmMitarbDetails(Firma)
        frmMitarbDetails.Show()
        AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim frmMitarbDetails As New frmMitarbDetails
        frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value
        frmMitarbDetails.Show()
        AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If TabControl1.SelectedIndex = 0 Then
            Select Case MsgBox("Soll der Mitarbeiter '" & dgvVERAG.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
                Case vbYes
                    UID.delData(Convert.ToInt32(dgvVERAG.CurrentRow.Cells(0).Value))
                    Tabelle_anzeigen()
                Case vbNo

            End Select
        ElseIf TabControl1.SelectedIndex = 1 Then
            Select Case MsgBox("Soll der Mitarbeiter '" & dgvATILLA.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
                Case vbYes
                    UID.delData(Convert.ToInt32(dgvATILLA.CurrentRow.Cells(0).Value))
                    Tabelle_anzeigen()
                Case vbNo

            End Select
        ElseIf TabControl1.SelectedIndex = 2 Then
            Select Case MsgBox("Soll der Mitarbeiter '" & dgvIMEX.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
                Case vbYes
                    UID.delData(Convert.ToInt32(dgvIMEX.CurrentRow.Cells(0).Value))
                    Tabelle_anzeigen()
                Case vbNo

            End Select
        ElseIf TabControl1.SelectedIndex = 3 Then
            Select Case MsgBox("Soll der Mitarbeiter '" & dgvUNISPED.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
                Case vbYes
                    UID.delData(Convert.ToInt32(dgvUNISPED.CurrentRow.Cells(0).Value))
                    Tabelle_anzeigen()
                Case vbNo

            End Select
        ElseIf TabControl1.SelectedIndex = 4 Then
            Select Case MsgBox("Soll der Mitarbeiter '" & dgvAMBAR.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
                Case vbYes
                    UID.delData(Convert.ToInt32(dgvAMBAR.CurrentRow.Cells(0).Value))
                    Tabelle_anzeigen()
                Case vbNo

            End Select

        ElseIf TabControl1.SelectedIndex = 5 Then
            Select Case MsgBox("Soll der Mitarbeiter '" & dgvFRONTOFFICE.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
                Case vbYes
                    UID.delData(Convert.ToInt32(dgvFRONTOFFICE.CurrentRow.Cells(0).Value))
                    Tabelle_anzeigen()
                Case vbNo

            End Select
        ElseIf TabControl1.SelectedIndex = 5 Then
            Select Case MsgBox("Soll der Mitarbeiter '" & dgvVERIMEX.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
                Case vbYes
                    UID.delData(Convert.ToInt32(dgvVERIMEX.CurrentRow.Cells(0).Value))
                    Tabelle_anzeigen()
                Case vbNo

            End Select
        End If

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim l As IList(Of VERAG_PROG_ALLGEMEIN.cMitarbeiter)
        l = cOptionenDAL.getDataMitarb()
        frmPrintView.Show()
        frmPrintView.BefüllenMitarb(l)
    End Sub


    Private Sub handleClose()
        Tabelle_anzeigen()
        frmMain.BringToFront()
    End Sub



    Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick, dgvVERIMEX.CellDoubleClick
        Me.Cursor = Cursors.WaitCursor
        Dim frmMitarbDetails As New frmMitarbDetails
        frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value
        frmMitarbDetails.Show(Me)
        sender.RELOAD()
        Me.Cursor = Cursors.Default
        ' AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
    End Sub

    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
        txtSuche.Text = ""
        txtSuche.Focus()
        Tabelle_anzeigen()
    End Sub



    Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown

        Dim dgv As DataGridView = Nothing

        Select Case TabControl1.SelectedIndex
            Case 0 : dgv = dgvVERAG
            Case 1 : dgv = dgvATILLA
            Case 2 : dgv = dgvIMEX
            Case 3 : dgv = dgvUNISPED
            Case 4 : dgv = dgvAMBAR
            Case 5 : dgv = dgvFRONTOFFICE
            Case 6 : dgv = dgvVERIMEX
        End Select

        If e.KeyCode = Keys.Return Then
            If dgv.SelectedRows.Count > 0 Then
                dgvIMEX_CellContentClick(dgv, New DataGridViewCellEventArgs(0, dgv.SelectedRows(0).Index))
            End If

        End If
    End Sub

    Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
        Tabelle_anzeigen()
    End Sub

    Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckStateChanged
        Tabelle_anzeigen()
    End Sub

    Private Sub UserKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKopierenToolStripMenuItem.Click
        If TabControl1.SelectedIndex = 0 Then

            If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub
            copyUser(dgvVERAG.CurrentRow.Cells(0).Value)

        ElseIf TabControl1.SelectedIndex = 1 Then

            If dgvATILLA.SelectedRows.Count <> 1 Then Exit Sub
            copyUser(dgvATILLA.CurrentRow.Cells(0).Value)

        ElseIf TabControl1.SelectedIndex = 2 Then

            If dgvIMEX.SelectedRows.Count <> 1 Then Exit Sub
            copyUser(dgvIMEX.CurrentRow.Cells(0).Value)

        ElseIf TabControl1.SelectedIndex = 3 Then

            If dgvUNISPED.SelectedRows.Count <> 1 Then Exit Sub
            copyUser(dgvUNISPED.CurrentRow.Cells(0).Value)

        ElseIf TabControl1.SelectedIndex = 4 Then

            If dgvAMBAR.SelectedRows.Count <> 1 Then Exit Sub
            copyUser(dgvAMBAR.CurrentRow.Cells(0).Value)

        ElseIf TabControl1.SelectedIndex = 5 Then

            If dgvFRONTOFFICE.SelectedRows.Count <> 1 Then Exit Sub
            copyUser(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)

        ElseIf TabControl1.SelectedIndex = 5 Then

            If dgvVERIMEX.SelectedRows.Count <> 1 Then Exit Sub
            copyUser(dgvVERIMEX.CurrentRow.Cells(0).Value)

        End If
    End Sub

    Private Sub dgvVerag_CellMouseDown(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) Handles dgvVERAG.CellMouseDown, dgvVERIMEX.CellMouseDown, dgvUNISPED.CellMouseDown, dgvIMEX.CellMouseDown, dgvFRONTOFFICE.CellMouseDown, dgvATILLA.CellMouseDown, dgvAMBAR.CellMouseDown

        If e.Button = Windows.Forms.MouseButtons.Right AndAlso e.RowIndex > -1 Then
            Dim rowClicked As DataGridView.HitTestInfo
            Select Case sender.name
                Case "dgvVERAG"
                    rowClicked = dgvVERAG.HitTest(e.X, e.Y)
                    dgvVERAG.ClearSelection()
                    Me.dgvVERAG.Rows(e.RowIndex).Selected = True

                Case "dgvVERIMEX"
                    rowClicked = dgvVERIMEX.HitTest(e.X, e.Y)
                    dgvVERIMEX.ClearSelection()
                    Me.dgvVERIMEX.Rows(e.RowIndex).Selected = True

                Case "dgvUNISPED"
                    rowClicked = dgvUNISPED.HitTest(e.X, e.Y)
                    dgvUNISPED.ClearSelection()
                    Me.dgvUNISPED.Rows(e.RowIndex).Selected = True

                Case "dgvIMEX"
                    rowClicked = dgvIMEX.HitTest(e.X, e.Y)
                    dgvIMEX.ClearSelection()
                    Me.dgvIMEX.Rows(e.RowIndex).Selected = True

                Case "dgvFRONTOFFICE"
                    rowClicked = dgvFRONTOFFICE.HitTest(e.X, e.Y)
                    dgvFRONTOFFICE.ClearSelection()
                    Me.dgvFRONTOFFICE.Rows(e.RowIndex).Selected = True

                Case "dgvATILLA"
                    rowClicked = dgvATILLA.HitTest(e.X, e.Y)
                    dgvATILLA.ClearSelection()
                    Me.dgvATILLA.Rows(e.RowIndex).Selected = True

                Case Else

                    rowClicked = dgvAMBAR.HitTest(e.X, e.Y)
                    dgvAMBAR.ClearSelection()
                    Me.dgvAMBAR.Rows(e.RowIndex).Selected = True

            End Select

            ContextMenuStrip1.Show(MousePosition.X, MousePosition.Y)

        End If

    End Sub
    Private Sub copyUser(id As Integer)


        Me.Cursor = Cursors.WaitCursor
        Dim frmMitarbDetails As New frmMitarbDetails()

        frmMitarbDetails.mid = id
        frmMitarbDetails.Show(Me)
        frmMitarbDetails.isUpdate = False
        frmMitarbDetails.txtVname.Text = "Kopie von" & frmMitarbDetails.txtVname.Text
        Me.Cursor = Cursors.Default


    End Sub
End Class