Timas-API, WIKI-API, GUI

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -30,6 +30,7 @@ Public Class frmMitarbDetails
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim FirmaTmp = ""
     Dim timas As cTimasAPI
+    Dim dtTimas As New DataTable
 
     Sub New()
 
@@ -565,6 +566,7 @@ Public Class frmMitarbDetails
         mitarbeiter.mit_teamId = If(cboTeam._value = "", Nothing, cboTeam._value)
         mitarbeiter.mit_CSuser = txtCSUser.Text
         mitarbeiter.mit_CSpwd = txtCSPW.Text
+        mitarbeiter.mit_PersonalNr = txtPersonalNr.Text
 
 
 
@@ -857,10 +859,8 @@ Public Class frmMitarbDetails
 
             If IsNothing(mitarbeiter.mit_timasId) Then
                 cbxTimasAngelegt.Checked = False
-                Dim dt As New DataTable
-
-                timas.getGroups(dt)
-                initDGV(dt)
+                timas.getGroups(dtTimas)
+                initDGV(dtTimas)
             Else
                 cbxTimasAngelegt.Checked = True
             End If
@@ -869,6 +869,7 @@ Public Class frmMitarbDetails
             btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked
             txtPersonalNr.Enabled = Not cbxTimasAngelegt.Checked
             dgvData.Visible = Not cbxTimasAngelegt.Checked
+            TabControl1.Visible = Not cbxTimasAngelegt.Checked
             rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
             btngetInfo.Visible = cbxTimasAngelegt.Checked
         End If
@@ -1123,11 +1124,22 @@ Public Class frmMitarbDetails
 
     Private Sub btnMAanlegen_Click(sender As Object, e As EventArgs) Handles btnMAanlegen.Click
 
-        If checkMandatoryFields() Then
-            timas.createMA(mitarbeiter, rtfInfoTimas.Text, dgvData)
-            tbcntr_TabIndexChanged(sender, e)
+        Dim newMid As Integer = 0
+        If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
+        getMitarbeiter()
+        If isUpdate Then
+            mitarbeiter.mit_id = mid
+            If UID.updateMitarbeiter(mitarbeiter) Then saveBerechtigungen(newMid)
+        Else
+            If UID.insertMitarbeiter(mitarbeiter, newMid) Then saveBerechtigungen(newMid)
         End If
 
+
+        If checkMandatoryFields() Then
+                timas.createMA(mitarbeiter, rtfInfoTimas.Text, dtTimas)
+                tbcntr_TabIndexChanged(sender, e)
+            End If
+
     End Sub
 
     Private Sub btngetInfo_Click(sender As Object, e As EventArgs) Handles btngetInfo.Click
@@ -1184,27 +1196,80 @@ Public Class frmMitarbDetails
 
     Sub initDGV(dt As DataTable)
 
-        dgvData.DataSource = dt
+        'dgvData.DataSource = dt
 
-        If dgvData.Columns.Count > 0 Then
-            With dgvData
-                .RowHeadersWidth = 10
-                .Columns("id").Visible = False
-                .Columns("groupType").Visible = False
-                .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-                .Columns("info").Width = 200
-                .Columns("set").Width = 20
-                .Columns("set").HeaderText = "X"
+        'If dgvData.Columns.Count > 0 Then
+        '    With dgvData
+        '        .RowHeadersWidth = 10
+        '        .Columns("id").Visible = False
+        '        .Columns("groupType").Visible = False
+        '        .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+        '        .Columns("info").Width = 200
+        '        .Columns("set").Width = 20
+        '        .Columns("set").HeaderText = "X"
 
-            End With
+        '    End With
 
+        'End If
+
+
+        If dtTimas.Columns.Count > 0 Then
+
+            If TabControl1.TabCount = 0 Then
+                For Each row As DataRow In dt.DefaultView.ToTable(True, "groupType").Rows
+                    Dim TabIndex As Integer                                         'Anzahl der erstellten Tabs, bei keinem Tab ist der Index 0
+                    TabIndex = TabControl1.TabCount
+                    TabControl1.TabPages.Add(row("groupType"))
+                    If TabIndex = 0 Then
+                        Dim tab As TabPage = Me.TabControl1.SelectedTab
+                        Dim dv = New DataView(dt)
+                        dv.RowFilter = "groupType = '" & tab.Text & "'"
+                        dgvData.DataSource = dv
+                        If dgvData.Columns.Count > 0 Then
+                            With dgvData
+                                .RowHeadersWidth = 10
+                                .Columns("id").Visible = False
+                                .Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                                .Columns("groupType").Visible = False
+                                .Columns("info").Width = 150
+                                .Columns("set").Width = 20
+                                .Columns("set").HeaderText = "X"
+                                .Dock = DockStyle.Fill
+
+                            End With
+                            tab.Controls.Add(Me.dgvData)
+                        End If
+                    End If
+
+                Next
+            End If
         End If
 
+
     End Sub
 
     Private Sub PictureBox9_Click_1(sender As Object, e As EventArgs) Handles PictureBox9.Click
         Dim webAddress As String = "https://zeit.verag.ag/"
         Process.Start(webAddress)
     End Sub
+
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+        If dgvData Is Nothing And dgvData.Rows.Count < 1 Then Exit Sub
+        Dim tab As TabPage = Me.TabControl1.SelectedTab
+        If ((Not tab Is Nothing) AndAlso (Not tab.Controls.Contains(Me.dgvData))) Then
+            Dim dv = New DataView(dtTimas)
+            dv.RowFilter = "groupType = '" & tab.Text & "'"
+            dgvData.DataSource = dv
+            If dgvData.Columns.Count > 0 Then
+                tab.Controls.Add(Me.dgvData)
+            End If
+
+            If (Me.isDataLoaded) Then
+            End If
+        End If
+    End Sub
+
+    Private isDataLoaded As Boolean = True
+
 End Class