Timas

UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb

@@ -57,6 +57,7 @@ Partial Class usrCntlMitarbeiter
         Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.cbxZE = New System.Windows.Forms.CheckBox()
         Me.Panel2.SuspendLayout()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -334,6 +335,7 @@ Partial Class usrCntlMitarbeiter
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.cbxZE)
         Me.Panel1.Controls.Add(Me.cbx)
         Me.Panel1.Controls.Add(Me.txtSuche)
         Me.Panel1.Controls.Add(Me.Button1)
@@ -422,6 +424,19 @@ Partial Class usrCntlMitarbeiter
         Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
         Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
+        'cbxZE
+        '
+        Me.cbxZE.AutoSize = True
+        Me.cbxZE.Checked = True
+        Me.cbxZE.CheckState = System.Windows.Forms.CheckState.Indeterminate
+        Me.cbxZE.Location = New System.Drawing.Point(659, 13)
+        Me.cbxZE.Name = "cbxZE"
+        Me.cbxZE.Size = New System.Drawing.Size(133, 17)
+        Me.cbxZE.TabIndex = 51
+        Me.cbxZE.Text = "Zeiterfassung-Account"
+        Me.cbxZE.ThreeState = True
+        Me.cbxZE.UseVisualStyleBackColor = True
+        '
         'usrCntlMitarbeiter
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -491,4 +506,5 @@ Partial Class usrCntlMitarbeiter
     Friend WithEvents dgvTimasNew As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents Button9 As Button
     Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
+    Friend WithEvents cbxZE As CheckBox
 End Class

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -77,6 +77,9 @@ Public Class usrCntlMitarbeiter
             sql &= " AND mit_gekuendigt=" & IIf(cbx.Checked, 1, 0)
         End If
 
+        If cbxZE.CheckState <> CheckState.Indeterminate Then
+            sql &= IIf(cbxZE.Checked, " AND mit_timasId is not null", " AND mit_timasId is null")
+        End If
 
         If firma = "VERAG" Then
 
@@ -282,10 +285,13 @@ Public Class usrCntlMitarbeiter
             .Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
 
+            '.AutoGenerateColumns = False
+
+
             '.Columns(9).Visible = False
 
-
         End With
+
     End Sub
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         Dim Firma = ""
@@ -849,4 +855,8 @@ Public Class usrCntlMitarbeiter
 
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub cbxZE_CheckedChanged(sender As Object, e As EventArgs) Handles cbxZE.CheckedChanged
+        Tabelle_anzeigen()
+    End Sub
 End Class