TimasAPI, usrCntlAPI

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -50,6 +50,8 @@ Public Class usrCntlMitarbeiter
             showVERAGATILLA("FRONTOFFICE")
         ElseIf TabControl1.SelectedIndex = 6 Then
             showVERAGATILLA("VERIMEX")
+        ElseIf TabControl1.SelectedIndex = 7 Then
+            showTIMAS()
         End If
     End Sub
 
@@ -186,6 +188,29 @@ Public Class usrCntlMitarbeiter
     End Sub
 
 
+    Public Sub showTIMAS()
+        'Paint wieder reaktivieren
+        locZeilen = -1
+        If Not Grid_aktiv Then Exit Sub
+
+        Dim dt As New DataTable()
+
+        dt.Columns.Add("id", GetType(Integer))
+        dt.Columns.Add("externid", GetType(String))
+        dt.Columns.Add("pnr1", GetType(String))
+        dt.Columns.Add("firstname", GetType(String))
+        dt.Columns.Add("lastname", GetType(String))
+        dt.Columns.Add("gender", GetType(String))
+        dt.Columns.Add("card", GetType(Integer))
+        dt.Columns.Add("info", GetType(String))
+
+        Dim timas As New cTimasAPI()
+        timas.getEmployeeList(dt)
+
+        dgvTimasNew.DataSource = dt
+
+    End Sub
+
 
     Private Sub sortDGV(dgv As DataGridView)
         With dgv
@@ -364,6 +389,7 @@ Public Class usrCntlMitarbeiter
             Case 4 : dgv = dgvAMBAR
             Case 5 : dgv = dgvFRONTOFFICE
             Case 6 : dgv = dgvVERIMEX
+            Case 7 : dgv = dgvTimasNew
         End Select
 
         If e.KeyCode = Keys.Return Then
@@ -418,7 +444,7 @@ Public Class usrCntlMitarbeiter
             If dgvFRONTOFFICE.SelectedRows.Count <> 1 Then Exit Sub
             copyUser(dgvFRONTOFFICE.CurrentRow.Cells(0).Value)
 
-        ElseIf TabControl1.SelectedIndex = 5 Then
+        ElseIf TabControl1.SelectedIndex = 6 Then
 
             If dgvVERIMEX.SelectedRows.Count <> 1 Then Exit Sub
             copyUser(dgvVERIMEX.CurrentRow.Cells(0).Value)
@@ -461,7 +487,7 @@ Public Class usrCntlMitarbeiter
                     dgvATILLA.ClearSelection()
                     Me.dgvATILLA.Rows(e.RowIndex).Selected = True
 
-                Case Else
+                Case "dgvVERIMEX"
 
                     rowClicked = dgvAMBAR.HitTest(e.X, e.Y)
                     dgvAMBAR.ClearSelection()
@@ -600,7 +626,7 @@ Public Class usrCntlMitarbeiter
 
             dgv = dgvFRONTOFFICE
 
-        ElseIf TabControl1.SelectedIndex = 5 Then
+        ElseIf TabControl1.SelectedIndex = 6 Then
 
             dgv = dgvVERIMEX