TimasAPI

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -2,6 +2,7 @@
 Imports System.Net
 Imports System.Text
 Imports System.Windows.Controls
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 Imports GrapeCity.Viewer.Common.Model
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.cChilkat_Helper
@@ -51,8 +52,11 @@ Public Class usrCntlMitarbeiter
         ElseIf TabControl1.SelectedIndex = 6 Then
             showVERAGATILLA("VERIMEX")
         ElseIf TabControl1.SelectedIndex = 7 Then
-            showTIMAS()
+            If dgvTimasNew IsNot Nothing Then
+                showTIMAS()
+            End If
         End If
+
     End Sub
 
     Public Sub showVERAGATILLA(firma)
@@ -195,15 +199,6 @@ Public Class usrCntlMitarbeiter
 
         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)