Uerbestunden

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -1,4 +1,5 @@
 
+Imports System.Drawing
 Imports System.Globalization
 Imports System.Text
 Imports System.Threading
@@ -45,6 +46,8 @@ Public Class frmUeberstundenauszahlen
 
         End Select
 
+        cbxalle.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL")
+
 
         Dim dv = New DataView(dt)
         dv.RowFilter = "accountid = 65 Or accountid = 69 Or accountid = 70 Or accountid = 72 Or accountid = 73 Or accountid = 1209 Or accountid = 1235 Or accountid = 1550 Or accountid = 1551 Or accountid = 1553"
@@ -494,19 +497,38 @@ Public Class frmUeberstundenauszahlen
         Process.Start(webAddress)
     End Sub
 
-    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged, cbxalle.CheckedChanged
         If TabControl1.SelectedIndex = 1 Then
             Try
 
                 Dim dtbereitsausgezahlteUE As DataTable
-                Dim bereitsgezahlteueberstunden = "select uest_date as Datum ,isnull(uest_100,0) as ÜS100 , isnull(uest_50,0) as ÜS50, isnull(uest_25,0) as ÜS25, isnull(uest_0,0) as ÜS50_Saldo, isnull(uest_paidout_sum,0) as ausbezahlt, uest_systemuser as eingetragen_von ,uest_created as eingetragen_am 
+                Dim bereitsgezahlteueberstunden = "select uest_deleted as geloescht,  uest_date as Datum ,isnull(uest_100,0) as ÜS100 , isnull(uest_50,0) as ÜS50, isnull(uest_25,0) as ÜS25, isnull(uest_0,0) as ÜS50_Saldo, isnull(uest_paidout_sum,0) as ausbezahlt, uest_systemuser as eingetragen_von ,uest_created as eingetragen_am 
                 FROM [ADMIN].[dbo].[tblUeberstunden] 
-                where uest_deleted = 0 and uest_timasId = " & MA.mit_timasId & "
+                where uest_timasId = " & MA.mit_timasId & IIf(Not cbxalle.Checked, " and uest_deleted = 0", "") & "
                 Order by uest_date"
 
                 dtbereitsausgezahlteUE = SQL.loadDgvBySql(bereitsgezahlteueberstunden, "ADMIN", 100, True)
 
-                dgvUberstundenauszahlungen.DataSource = dtbereitsausgezahlteUE
+                With dgvUberstundenauszahlungen
+
+                    .DataSource = dtbereitsausgezahlteUE
+                    .Columns("geloescht").Visible = False
+
+                    For Each row As DataGridViewRow In .Rows
+
+                        If Not IsDBNull(row.Cells("geloescht").Value) Then
+                            If Not row.Cells("geloescht").Value Then
+                                row.DefaultCellStyle.BackColor = Color.LightGreen
+                            Else
+                                row.DefaultCellStyle.BackColor = Color.IndianRed
+                            End If
+
+                        End If
+                    Next
+
+
+                End With
+
 
 
             Catch ex As Exception
@@ -515,6 +537,7 @@ Public Class frmUeberstundenauszahlen
         End If
     End Sub
 
+
     Private Sub txtAusz_hhmm_KeyPress(sender As Object, e As KeyPressEventArgs)
         Select Case Asc(e.KeyChar)
             Case 48 To 57, 8, 44, 46, 58
@@ -892,7 +915,7 @@ Public Class frmUeberstundenauszahlen
 
         If stundenlfdSaldo < 0 And cbxoverwrite.Checked Then txtAusz50vonSaldo.Text = 0 'Wenn Saldo negativ, dann nichts vom lfd Saldo vorschlagen!
 
-            If Not refresh Then refresh = Not refresh
+        If Not refresh Then refresh = Not refresh
 
     End Sub