neu

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -39,6 +39,8 @@ Public Class usrCntlMitarbeiter
             showVERAGATILLA("AMBAR")
         ElseIf TabControl1.SelectedIndex = 5 Then
             showVERAGATILLA("FRONTOFFICE")
+        ElseIf TabControl1.SelectedIndex = 6 Then
+            showVERAGATILLA("VERIMEX")
         End If
     End Sub
 
@@ -147,14 +149,31 @@ Public Class usrCntlMitarbeiter
                 dgvFRONTOFFICE.DataSource = Nothing
             Else
                 sortDGV(dgvFRONTOFFICE)
-            'Eintraege_festlegen()
-            'AL: Sortierung nach Ausfahrt (Zeit)
-            dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending)
+                '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
 
 
@@ -213,6 +232,7 @@ Public Class usrCntlMitarbeiter
             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()
@@ -275,6 +295,14 @@ Public Class usrCntlMitarbeiter
                     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
 
@@ -295,7 +323,7 @@ Public Class usrCntlMitarbeiter
 
 
 
-    Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick
+    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
@@ -324,6 +352,7 @@ Public Class usrCntlMitarbeiter
             Case 3 : dgv = dgvUNISPED
             Case 4 : dgv = dgvAMBAR
             Case 5 : dgv = dgvFRONTOFFICE
+            Case 6 : dgv = dgvVERIMEX
         End Select
 
         If e.KeyCode = Keys.Return Then