edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Flag "Zeiterfassung" in Mitarbeiterübersicht

Browse Source
This commit is contained in:
d.breimaier
2023-11-07 14:59:47 +01:00
parent 70d50dcd2a
commit fd41b761e6
3 changed files with 138 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
UID/Mitarbeiter/frmMitarbeiter.vb
View File

@@ -52,7 +52,7 @@ Public Class frmMitarbeiter
'Paint wieder reaktivieren 'Paint wieder reaktivieren
locZeilen = -1 locZeilen = -1
If Not Grid_aktiv Then Exit Sub If Not Grid_aktiv Then Exit Sub
Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt, case when mit_timasId is null then 0 else 1 end as Zeiterfassung FROM tblMitarbeiter " Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt, cast (case when mit_timasId is null then 0 else 1 end as bit) mit_ze FROM tblMitarbeiter "
If txtSuche.Text <> "" Then If txtSuche.Text <> "" Then
sql &= " WHERE (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') " sql &= " WHERE (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') "
End If End If

214
UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb generated
View File

@@ -31,13 +31,21 @@ Partial Class usrCntlMitarbeiter
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.c = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage5 = New System.Windows.Forms.TabPage() Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage6 = New System.Windows.Forms.TabPage() Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage7 = New System.Windows.Forms.TabPage() Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage8 = New System.Windows.Forms.TabPage() Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.dgvTimasNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.cbx = New System.Windows.Forms.CheckBox() Me.cbx = New System.Windows.Forms.CheckBox()
Me.txtSuche = New System.Windows.Forms.TextBox() Me.txtSuche = New System.Windows.Forms.TextBox()
@@ -49,35 +57,27 @@ Partial Class usrCntlMitarbeiter
Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.dgvVERAG = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvATILLA = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvTimasNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
CType(Me.c, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout() Me.TabPage4.SuspendLayout()
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage5.SuspendLayout() Me.TabPage5.SuspendLayout()
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage6.SuspendLayout() Me.TabPage6.SuspendLayout()
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage7.SuspendLayout() Me.TabPage7.SuspendLayout()
CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage8.SuspendLayout() Me.TabPage8.SuspendLayout()
CType(Me.dgvTimasNew, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvTimasNew, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Button6 'Button6
@@ -166,7 +166,7 @@ Partial Class usrCntlMitarbeiter
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.Controls.Add(Me.dgvVERAG) Me.TabPage1.Controls.Add(Me.c)
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
@@ -175,6 +175,16 @@ Partial Class usrCntlMitarbeiter
Me.TabPage1.Text = "VERAG" Me.TabPage1.Text = "VERAG"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
' '
'c
'
Me.c.AKTUALISIERUNGS_INTERVALL = -1
Me.c.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.c.Dock = System.Windows.Forms.DockStyle.Fill
Me.c.Location = New System.Drawing.Point(3, 3)
Me.c.Name = "c"
Me.c.Size = New System.Drawing.Size(875, 616)
Me.c.TabIndex = 24
'
'TabPage2 'TabPage2
' '
Me.TabPage2.Controls.Add(Me.dgvATILLA) Me.TabPage2.Controls.Add(Me.dgvATILLA)
@@ -186,6 +196,16 @@ Partial Class usrCntlMitarbeiter
Me.TabPage2.Text = "ATILLA" Me.TabPage2.Text = "ATILLA"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
' '
'dgvATILLA
'
Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvATILLA.Location = New System.Drawing.Point(3, 3)
Me.dgvATILLA.Name = "dgvATILLA"
Me.dgvATILLA.Size = New System.Drawing.Size(875, 616)
Me.dgvATILLA.TabIndex = 25
'
'TabPage3 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.dgvIMEX) Me.TabPage3.Controls.Add(Me.dgvIMEX)
@@ -197,6 +217,16 @@ Partial Class usrCntlMitarbeiter
Me.TabPage3.Text = "IMEX" Me.TabPage3.Text = "IMEX"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'dgvIMEX
'
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvIMEX.Name = "dgvIMEX"
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvIMEX.TabIndex = 25
'
'TabPage4 'TabPage4
' '
Me.TabPage4.Controls.Add(Me.dgvUNISPED) Me.TabPage4.Controls.Add(Me.dgvUNISPED)
@@ -208,6 +238,16 @@ Partial Class usrCntlMitarbeiter
Me.TabPage4.Text = "UNISPED" Me.TabPage4.Text = "UNISPED"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
' '
'dgvUNISPED
'
Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3)
Me.dgvUNISPED.Name = "dgvUNISPED"
Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616)
Me.dgvUNISPED.TabIndex = 25
'
'TabPage5 'TabPage5
' '
Me.TabPage5.Controls.Add(Me.dgvAMBAR) Me.TabPage5.Controls.Add(Me.dgvAMBAR)
@@ -219,6 +259,16 @@ Partial Class usrCntlMitarbeiter
Me.TabPage5.Text = "AMBAR" Me.TabPage5.Text = "AMBAR"
Me.TabPage5.UseVisualStyleBackColor = True Me.TabPage5.UseVisualStyleBackColor = True
' '
'dgvAMBAR
'
Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3)
Me.dgvAMBAR.Name = "dgvAMBAR"
Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616)
Me.dgvAMBAR.TabIndex = 25
'
'TabPage6 'TabPage6
' '
Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE) Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE)
@@ -230,6 +280,16 @@ Partial Class usrCntlMitarbeiter
Me.TabPage6.Text = "FRONT-OFFICE" Me.TabPage6.Text = "FRONT-OFFICE"
Me.TabPage6.UseVisualStyleBackColor = True Me.TabPage6.UseVisualStyleBackColor = True
' '
'dgvFRONTOFFICE
'
Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
Me.dgvFRONTOFFICE.TabIndex = 26
'
'TabPage7 'TabPage7
' '
Me.TabPage7.Controls.Add(Me.dgvVERIMEX) Me.TabPage7.Controls.Add(Me.dgvVERIMEX)
@@ -241,6 +301,16 @@ Partial Class usrCntlMitarbeiter
Me.TabPage7.Text = "VERIMEX" Me.TabPage7.Text = "VERIMEX"
Me.TabPage7.UseVisualStyleBackColor = True Me.TabPage7.UseVisualStyleBackColor = True
' '
'dgvVERIMEX
'
Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvVERIMEX.Name = "dgvVERIMEX"
Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvVERIMEX.TabIndex = 27
'
'TabPage8 'TabPage8
' '
Me.TabPage8.Controls.Add(Me.dgvTimasNew) Me.TabPage8.Controls.Add(Me.dgvTimasNew)
@@ -251,6 +321,17 @@ Partial Class usrCntlMitarbeiter
Me.TabPage8.Text = "Zeiterfassung" Me.TabPage8.Text = "Zeiterfassung"
Me.TabPage8.UseVisualStyleBackColor = True Me.TabPage8.UseVisualStyleBackColor = True
' '
'dgvTimasNew
'
Me.dgvTimasNew.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvTimasNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvTimasNew.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvTimasNew.Location = New System.Drawing.Point(0, 0)
Me.dgvTimasNew.Name = "dgvTimasNew"
Me.dgvTimasNew.ReadOnly = True
Me.dgvTimasNew.Size = New System.Drawing.Size(881, 622)
Me.dgvTimasNew.TabIndex = 0
'
'Panel1 'Panel1
' '
Me.Panel1.Controls.Add(Me.cbx) Me.Panel1.Controls.Add(Me.cbx)
@@ -341,87 +422,6 @@ Partial Class usrCntlMitarbeiter
Me.ContextMenuStrip2.Name = "ContextMenuStrip2" Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
' '
'dgvVERAG
'
Me.dgvVERAG.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVERAG.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVERAG.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvVERAG.Location = New System.Drawing.Point(3, 3)
Me.dgvVERAG.Name = "dgvVERAG"
Me.dgvVERAG.Size = New System.Drawing.Size(875, 616)
Me.dgvVERAG.TabIndex = 24
'
'dgvATILLA
'
Me.dgvATILLA.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvATILLA.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvATILLA.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvATILLA.Location = New System.Drawing.Point(3, 3)
Me.dgvATILLA.Name = "dgvATILLA"
Me.dgvATILLA.Size = New System.Drawing.Size(875, 616)
Me.dgvATILLA.TabIndex = 25
'
'dgvIMEX
'
Me.dgvIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvIMEX.Name = "dgvIMEX"
Me.dgvIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvIMEX.TabIndex = 25
'
'dgvUNISPED
'
Me.dgvUNISPED.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvUNISPED.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUNISPED.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUNISPED.Location = New System.Drawing.Point(3, 3)
Me.dgvUNISPED.Name = "dgvUNISPED"
Me.dgvUNISPED.Size = New System.Drawing.Size(875, 616)
Me.dgvUNISPED.TabIndex = 25
'
'dgvAMBAR
'
Me.dgvAMBAR.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAMBAR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAMBAR.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvAMBAR.Location = New System.Drawing.Point(3, 3)
Me.dgvAMBAR.Name = "dgvAMBAR"
Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616)
Me.dgvAMBAR.TabIndex = 25
'
'dgvFRONTOFFICE
'
Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3)
Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE"
Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616)
Me.dgvFRONTOFFICE.TabIndex = 26
'
'dgvVERIMEX
'
Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3)
Me.dgvVERIMEX.Name = "dgvVERIMEX"
Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616)
Me.dgvVERIMEX.TabIndex = 27
'
'dgvTimasNew
'
Me.dgvTimasNew.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvTimasNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvTimasNew.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvTimasNew.Location = New System.Drawing.Point(0, 0)
Me.dgvTimasNew.Name = "dgvTimasNew"
Me.dgvTimasNew.ReadOnly = True
Me.dgvTimasNew.Size = New System.Drawing.Size(881, 622)
Me.dgvTimasNew.TabIndex = 0
'
'usrCntlMitarbeiter 'usrCntlMitarbeiter
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -435,25 +435,25 @@ Partial Class usrCntlMitarbeiter
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.TabControl1.ResumeLayout(False) Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
CType(Me.c, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False) Me.TabPage2.ResumeLayout(False)
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage3.ResumeLayout(False) Me.TabPage3.ResumeLayout(False)
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False) Me.TabPage4.ResumeLayout(False)
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage5.ResumeLayout(False) Me.TabPage5.ResumeLayout(False)
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage6.ResumeLayout(False) Me.TabPage6.ResumeLayout(False)
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage7.ResumeLayout(False) Me.TabPage7.ResumeLayout(False)
CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage8.ResumeLayout(False) Me.TabPage8.ResumeLayout(False)
CType(Me.dgvTimasNew, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.Panel3.ResumeLayout(False) Me.Panel3.ResumeLayout(False)
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
CType(Me.dgvVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvATILLA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvIMEX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvTimasNew, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -464,7 +464,7 @@ Partial Class usrCntlMitarbeiter
Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents dgvVERAG As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents c As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents dgvATILLA As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents dgvATILLA As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel1 As System.Windows.Forms.Panel

56
UID/Mitarbeiter/usrCntlMitarbeiter.vb
View File

@@ -67,7 +67,7 @@ Public Class usrCntlMitarbeiter
Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt, case when mit_timasId is null then 0 else 1 end as mit_ze, isnull(mit_foto_DocId,'') as mit_foto_DocId FROM tblMitarbeiter WHERE (mit_firma='" & firma & "' OR (mit_firma='ALL' AND mit_FirmaHaupt='" & firma & "' )) " Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,cast (case when mit_timasId is null then 0 else 1 end as bit) mit_ze,mit_durchwahl,mit_gekuendigt, isnull(mit_foto_DocId,'') as mit_foto_DocId FROM tblMitarbeiter WHERE (mit_firma='" & firma & "' OR (mit_firma='ALL' AND mit_FirmaHaupt='" & firma & "' )) "
If txtSuche.Text <> "" Then If txtSuche.Text <> "" Then
sql &= " AND (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') " sql &= " AND (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') "
@@ -82,16 +82,16 @@ Public Class usrCntlMitarbeiter
' dgvVERAG.DataSource = UID.AnzeigeTabelleFirma(sql) ' dgvVERAG.DataSource = UID.AnzeigeTabelleFirma(sql)
dgvVERAG.SET_SQL(sql, "ADMIN") c.SET_SQL(sql, "ADMIN")
dgvVERAG.LOAD() c.LOAD()
'Tabelle Kommt/Geht bereinigen 'Tabelle Kommt/Geht bereinigen
If dgvVERAG.RowCount = 0 Then If c.RowCount = 0 Then
dgvVERAG.DataSource = Nothing c.DataSource = Nothing
Else Else
sortDGV(dgvVERAG) sortDGV(c)
'Eintraege_festlegen() 'Eintraege_festlegen()
'AL: Sortierung nach Ausfahrt (Zeit) 'AL: Sortierung nach Ausfahrt (Zeit)
dgvVERAG.Sort(dgvVERAG.Columns(3), ListSortDirection.Ascending) c.Sort(c.Columns(3), ListSortDirection.Ascending)
End If End If
ElseIf firma = "ATILLA" Then ElseIf firma = "ATILLA" Then
' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql) ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql)
@@ -269,14 +269,18 @@ Public Class usrCntlMitarbeiter
.Columns(6).Width = 120 .Columns(6).Width = 120
.Columns(6).HeaderText = "Email" .Columns(6).HeaderText = "Email"
.Columns(7).Width = 120
.Columns(7).HeaderText = "TelefonNr."
.Columns(8).Width = 80 .Columns(7).Width = 70
.Columns(8).HeaderText = "Gekündigt" .Columns(7).HeaderText = "Zeiterf."
.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(8).Width = 120
.Columns(8).HeaderText = "TelefonNr."
.Columns(9).Width = 70
.Columns(9).HeaderText = "Gekünd."
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(9).Width = 80
.Columns(9).HeaderText = "Zeiterfassung"
'.Columns(9).Visible = False '.Columns(9).Visible = False
@@ -301,16 +305,16 @@ Public Class usrCntlMitarbeiter
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim frmMitarbDetails As New frmMitarbDetails Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = dgvVERAG.CurrentRow.Cells(0).Value frmMitarbDetails.mid = c.CurrentRow.Cells(0).Value
frmMitarbDetails.Show() frmMitarbDetails.Show()
AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose AddHandler frmMitarbDetails.FormClosing, AddressOf handleClose
End Sub End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If TabControl1.SelectedIndex = 0 Then If TabControl1.SelectedIndex = 0 Then
Select Case MsgBox("Soll der Mitarbeiter '" & dgvVERAG.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?") Select Case MsgBox("Soll der Mitarbeiter '" & c.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
Case vbYes Case vbYes
UID.delData(Convert.ToInt32(dgvVERAG.CurrentRow.Cells(0).Value)) UID.delData(Convert.ToInt32(c.CurrentRow.Cells(0).Value))
Tabelle_anzeigen() Tabelle_anzeigen()
Case vbNo Case vbNo
@@ -383,7 +387,7 @@ Public Class usrCntlMitarbeiter
Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick, dgvVERIMEX.CellDoubleClick Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, c.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick, dgvVERIMEX.CellDoubleClick
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Dim frmMitarbDetails As New frmMitarbDetails Dim frmMitarbDetails As New frmMitarbDetails
frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value
@@ -406,7 +410,7 @@ Public Class usrCntlMitarbeiter
Dim dgv As DataGridView = Nothing Dim dgv As DataGridView = Nothing
Select Case TabControl1.SelectedIndex Select Case TabControl1.SelectedIndex
Case 0 : dgv = dgvVERAG Case 0 : dgv = c
Case 1 : dgv = dgvATILLA Case 1 : dgv = dgvATILLA
Case 2 : dgv = dgvIMEX Case 2 : dgv = dgvIMEX
Case 3 : dgv = dgvUNISPED Case 3 : dgv = dgvUNISPED
@@ -439,13 +443,13 @@ Public Class usrCntlMitarbeiter
If TabControl1.SelectedIndex = 0 Then If TabControl1.SelectedIndex = 0 Then
If dgvVERAG.SelectedRows.Count <> 1 Then Exit Sub If c.SelectedRows.Count <> 1 Then Exit Sub
Select Case sender.Name Select Case sender.Name
Case copyUserName Case copyUserName
copyUser(dgvVERAG.CurrentRow.Cells(0).Value) copyUser(c.CurrentRow.Cells(0).Value)
Case setPermissionsName Case setPermissionsName
Dim frm As New frmBenutzerBerGruppenKopieren(dgvVERAG.CurrentRow.Cells(0).Value) Dim frm As New frmBenutzerBerGruppenKopieren(c.CurrentRow.Cells(0).Value)
frm.Show(Me) frm.Show(Me)
End Select End Select
@@ -517,15 +521,15 @@ Public Class usrCntlMitarbeiter
End If End If
End Sub End Sub
Private Sub dgvVerag_CellMouseDown(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) Handles dgvVERAG.CellMouseDown, dgvVERIMEX.CellMouseDown, dgvUNISPED.CellMouseDown, dgvIMEX.CellMouseDown, dgvFRONTOFFICE.CellMouseDown, dgvATILLA.CellMouseDown, dgvAMBAR.CellMouseDown Private Sub dgvVerag_CellMouseDown(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) Handles c.CellMouseDown, dgvVERIMEX.CellMouseDown, dgvUNISPED.CellMouseDown, dgvIMEX.CellMouseDown, dgvFRONTOFFICE.CellMouseDown, dgvATILLA.CellMouseDown, dgvAMBAR.CellMouseDown
If e.Button = Windows.Forms.MouseButtons.Right AndAlso e.RowIndex > -1 Then If e.Button = Windows.Forms.MouseButtons.Right AndAlso e.RowIndex > -1 Then
Dim rowClicked As DataGridView.HitTestInfo Dim rowClicked As DataGridView.HitTestInfo
Select Case sender.name Select Case sender.name
Case "dgvVERAG" Case "dgvVERAG"
rowClicked = dgvVERAG.HitTest(e.X, e.Y) rowClicked = c.HitTest(e.X, e.Y)
dgvVERAG.ClearSelection() c.ClearSelection()
Me.dgvVERAG.Rows(e.RowIndex).Selected = True Me.c.Rows(e.RowIndex).Selected = True
Case "dgvVERIMEX" Case "dgvVERIMEX"
rowClicked = dgvVERIMEX.HitTest(e.X, e.Y) rowClicked = dgvVERIMEX.HitTest(e.X, e.Y)
@@ -709,7 +713,7 @@ Public Class usrCntlMitarbeiter
If TabControl1.SelectedIndex = 0 Then If TabControl1.SelectedIndex = 0 Then
dgv = dgvVERAG dgv = c
ElseIf TabControl1.SelectedIndex = 1 Then ElseIf TabControl1.SelectedIndex = 1 Then