div. Änderungen

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -306,6 +306,7 @@ Public Class frmMitarbDetails
 
         cbxHO.Checked = mitarbeiter.mit_homeoffice
         cbxTimasNichtStempeln1.Checked = mitarbeiter.mit_timasNichtStempeln
+        cbxBeiBeendenAusstempeln.Checked = mitarbeiter.mit_ausstempelnBeiBeenden
 
 
 
@@ -581,6 +582,7 @@ Public Class frmMitarbDetails
         mitarbeiter.mit_PersonalNr = txtLohnNr.Text
         mitarbeiter.mit_telefonnr = txtTelNr.Text
         mitarbeiter.mit_homeoffice = cbxHO.Checked
+        mitarbeiter.mit_ausstempelnBeiBeenden = cbxBeiBeendenAusstempeln.Checked
         mitarbeiter.mit_timasNichtStempeln = cbxTimasNichtStempeln1.Checked
         mitarbeiter.mit_emailprivat = txtprivateEMail.Text
 
@@ -1426,7 +1428,7 @@ Public Class frmMitarbDetails
 
 
                 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, cast (case when isnull([uest_ignorePayoutDate],0) = 0 then 0 else 1 end as bit) as ignoreAuszahlungsdatum
+                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, cast (case when isnull([uest_ignorePayoutDate],0) = 0 then 0 else 1 end as bit) ignoreAuszahlungsdatum
                 FROM [ADMIN].[dbo].[tblUeberstunden] 
                 where uest_deleted = 0 and uest_maId = " & mitarbeiter.mit_id & "
                 Order by uest_date"
@@ -1453,5 +1455,12 @@ Public Class frmMitarbDetails
 
     End Sub
 
+    Private Sub cbxBeiBeendenAusstempeln_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBeiBeendenAusstempeln.CheckedChanged
+
+    End Sub
+
+    Private Sub cbxHO_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHO.CheckedChanged
+
+    End Sub
 End Class