Mitarbeiteranalge TIMAS API

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -855,21 +855,23 @@ Public Class frmMitarbDetails
 
             If IsNothing(mitarbeiter.mit_timasId) Then
                 cbxTimasAngelegt.Checked = False
-
-                If Not cbxTimasAngelegt.Checked Then
-                    Dim dt As New DataTable
-                    dt.Columns.Add("id", GetType(Integer))
-                    dt.Columns.Add("name", GetType(String))
-                    dt.Columns.Add("info", GetType(String))
-                    dt.Columns.Add("set", GetType(Boolean))
-                    getGroups("application,json", dt)
-                    initDGV(dt)
-                End If
-
+                Dim dt As New DataTable
+                dt.Columns.Add("id", GetType(Integer))
+                dt.Columns.Add("name", GetType(String))
+                dt.Columns.Add("info", GetType(String))
+                dt.Columns.Add("set", GetType(Boolean))
+                getGroups("application,json", dt)
+                initDGV(dt)
             Else
-                'txtPersonalNr.Enabled = False
                 cbxTimasAngelegt.Checked = True
             End If
+
+
+            btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked
+            txtPersonalNr.Enabled = Not cbxTimasAngelegt.Checked
+            dgvData.Visible = Not cbxTimasAngelegt.Checked
+            rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
+            btngetInfo.Visible = cbxTimasAngelegt.Checked
         End If
 
     End Sub
@@ -1299,7 +1301,14 @@ Public Class frmMitarbDetails
             Debug.WriteLine(json)
             rtfInfoTimas.Text = "Timas-ID: " & json.StringOf("id") & vbNewLine
             rtfInfoTimas.Text &= "MA-ID: " & json.StringOf("externid") & vbNewLine
-            rtfInfoTimas.Text &= "Name: " & json.StringOf("firstname") & " " & json.StringOf("lastname")
+            rtfInfoTimas.Text &= "PersonalNr: " & json.StringOf("pnr1") & vbNewLine
+            rtfInfoTimas.Text &= "Name: " & json.StringOf("firstname") & " " & json.StringOf("lastname") & vbNewLine
+            rtfInfoTimas.Text &= "Info: " & json.StringOf("info") & vbNewLine
+            rtfInfoTimas.Text &= "Startdatum: " & json.StringOf("entry") & vbNewLine
+            If json.BoolOf("loginActive") Then
+                rtfInfoTimas.Text &= "Login: " & json.StringOf("login")
+            End If
+
 
 
         Catch ex As WebException
@@ -1310,11 +1319,11 @@ Public Class frmMitarbDetails
 
     Private Sub cbxTimasAngelegt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTimasAngelegt.CheckedChanged
 
+        btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked
         txtPersonalNr.Enabled = Not cbxTimasAngelegt.Checked
-        btnMAanlegen.Enabled = Not cbxTimasAngelegt.Checked
-        btngetInfo.Enabled = cbxTimasAngelegt.Checked
-
-
+        dgvData.Visible = Not cbxTimasAngelegt.Checked
+        rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
+        btngetInfo.Visible = cbxTimasAngelegt.Checked
 
     End Sub
 
@@ -1350,13 +1359,12 @@ Public Class frmMitarbDetails
                 .RowHeadersWidth = 10
                 .Columns("id").Visible = False
                 .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-                .Columns("info").Width = 50
+                .Columns("info").Width = 200
                 .Columns("set").Width = 20
                 .Columns("set").HeaderText = "X"
 
             End With
 
-
         End If
 
     End Sub