mailsender, etc.

UID/Mitarbeiter/usrCntlMitarbeiter.vb

@@ -249,6 +249,7 @@ Public Class usrCntlMitarbeiter
             ' MsgBox("ALLE:" & dt.Rows.Count & vbNewLine & "AKIVE:" & dt_onlyActive.Rows.Count)
 
         End If
+
         With dgvTimasNew
 
             .RowTemplate.Height = 20
@@ -263,9 +264,22 @@ Public Class usrCntlMitarbeiter
             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
             .AllowUserToOrderColumns = True
             If .ColumnCount > 5 Then .Columns(6).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+
+            For i As Integer = 0 To .Rows.Count - 1
+
+                .Rows(i).DefaultCellStyle.BackColor = If(.Rows(i).Cells("Ausweis-Nr").Value = "0", Color.IndianRed, Color.LightBlue)
+
+
+            Next
+
+
+
         End With
 
 
+
+
     End Sub
 
 
@@ -1005,6 +1019,7 @@ Public Class usrCntlMitarbeiter
             dt_Employee.Columns.Add("employeeId", GetType(Integer))
             dt_Employee.Columns.Add("Vorname", GetType(String))
             dt_Employee.Columns.Add("Nachname", GetType(String))
+            dt_Employee.Columns.Add("Ausweis-Nr", GetType(Integer))
 
             Dim dt_result As New DataTable
 
@@ -1022,6 +1037,7 @@ Public Class usrCntlMitarbeiter
                 ROW("employeeId") = r.Cells("Id").Value
                 ROW("Vorname") = r.Cells("Vorname").Value
                 ROW("Nachname") = r.Cells("Nachname").Value
+                ROW("Ausweis-Nr") = r.Cells("Ausweis-Nr").Value
                 dt_Employee.Rows.Add(ROW)
             Next
 
@@ -1053,7 +1069,7 @@ Public Class usrCntlMitarbeiter
 
                 Else
                     dt_result_temp = dt_result.Select("multiplier = '-'", "date").CopyToDataTable
-                    Info = "falsch ausbezahlte Überstunden (ÜS sind negativ -> Erhöhen den Saldo)"
+                    Info = "falsch ausbezahlte Überstunden (ÜS sind negativ -> Erhöhen den Saldo); Ausweis-Nr = 0 -> Mitarbeiter archiviert"
                 End If
 
                 If dt_result_temp.Rows.Count = 0 Then
@@ -1063,7 +1079,7 @@ Public Class usrCntlMitarbeiter
 
                     Dim query = From fa In dt_result_temp.AsEnumerable()
                                 Join emp In dt_Employee.AsEnumerable() On fa.Field(Of Integer)("employeeId") Equals emp.Field(Of Integer)("employeeId")
-                                Select result = fa.ItemArray.Concat({emp.Field(Of String)("Vorname"), emp.Field(Of String)("Nachname")}).ToArray()
+                                Select result = fa.ItemArray.Concat({emp.Field(Of String)("Vorname"), emp.Field(Of String)("Nachname"), emp.Field(Of Integer)("Ausweis-Nr")}).ToArray()
 
                     ' Neue Tabelle erstellen (Struktur erweitern)
                     Dim dt_merged As New DataTable
@@ -1075,10 +1091,11 @@ Public Class usrCntlMitarbeiter
 
                     ' Neue Spalten hinzufügen
                     dt_merged.Columns.Add("Vorname", GetType(String))
-                        dt_merged.Columns.Add("Nachname", GetType(String))
+                    dt_merged.Columns.Add("Nachname", GetType(String))
+                    dt_merged.Columns.Add("Ausweis-Nr", GetType(Integer))
 
-                        ' Daten einfügen
-                        For Each row In query
+                    ' Daten einfügen
+                    For Each row In query
                             dt_merged.Rows.Add(row)
                         Next