From d3e49dc2996d7eb22bad2c90d8aef81a7dbb2b87 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 1 Feb 2023 16:52:04 +0100 Subject: [PATCH] ZA als Fehlzeit im Urlaubskalender implementiert --- UID/Dienstplan/frmDienstplanVariabel.vb | 4 ++-- UID/Dienstplan/frmUrlKW.vb | 1 + UID/Dienstplan/frmUrlaubsplaner.vb | 6 ++++++ UID/My Project/AssemblyInfo.vb | 4 ++-- 4 files changed, 11 insertions(+), 4 deletions(-) diff --git a/UID/Dienstplan/frmDienstplanVariabel.vb b/UID/Dienstplan/frmDienstplanVariabel.vb index 39f3318..409878f 100644 --- a/UID/Dienstplan/frmDienstplanVariabel.vb +++ b/UID/Dienstplan/frmDienstplanVariabel.vb @@ -1403,9 +1403,9 @@ Public Class frmDienstplanVariabel If onlyFehlzeiten Then 'MsgBox("MA-ID: " & eintrag.dstetr_dstmaId & " " & "existingEntry: " & existingEntry & " Art: " & eintrag.dstetr_art & " DATUM: " & eintrag.dstetr_datum) - If existingEntry = 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS") Or existingEntry = 0 Then + If existingEntry = 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS" Or eintrag.dstetr_art = "ZA") Or existingEntry = 0 Then SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False) - ElseIf existingEntry > 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS") Then 'wenn mehr als 1 Eintrag pro Tag -> Splitschicht + ElseIf existingEntry > 1 AndAlso (eintrag.dstetr_art = "URL" Or eintrag.dstetr_art = "KS" Or eintrag.dstetr_art = "DR" Or eintrag.dstetr_art = "BS" Or eintrag.dstetr_art = "ZA") Then 'wenn mehr als 1 Eintrag pro Tag -> Splitschicht SQLDienst.delDstEintraegeMaId(datum, datum, niederlassung, m.dstma_id) SQLDienst.updateInsertByDienstEintrag(eintrag, niederlassung,, False) diff --git a/UID/Dienstplan/frmUrlKW.vb b/UID/Dienstplan/frmUrlKW.vb index eeb98e7..c1f312d 100644 --- a/UID/Dienstplan/frmUrlKW.vb +++ b/UID/Dienstplan/frmUrlKW.vb @@ -62,6 +62,7 @@ Public Class frmUrlKW cboArt.Items.Add((New VERAG_PROG_ALLGEMEIN.MyListItem("Krankenstand", "KS"))) cboArt.Items.Add((New VERAG_PROG_ALLGEMEIN.MyListItem("Dienstreise", "DR"))) cboArt.Items.Add((New VERAG_PROG_ALLGEMEIN.MyListItem("Berufsschule", "BS"))) + cboArt.Items.Add((New VERAG_PROG_ALLGEMEIN.MyListItem("Zeitausgleich", "ZA"))) cboArt.SelectedIndex = 0 diff --git a/UID/Dienstplan/frmUrlaubsplaner.vb b/UID/Dienstplan/frmUrlaubsplaner.vb index 454bec6..4ec98e2 100644 --- a/UID/Dienstplan/frmUrlaubsplaner.vb +++ b/UID/Dienstplan/frmUrlaubsplaner.vb @@ -101,6 +101,9 @@ Public Class frmUrlaubsplaner Case "DR" r.Cells(.ColumnCount - 1).Style.BackColor = Color.Gray r.Cells(.ColumnCount - 1).Style.ForeColor = Color.White + Case "ZA" + r.Cells(.ColumnCount - 1).Style.BackColor = Color.Yellow + r.Cells(.ColumnCount - 1).Style.ForeColor = Color.Black End Select End If @@ -136,6 +139,9 @@ Public Class frmUrlaubsplaner Case "DR" r.Cells(.ColumnCount - 1).Style.BackColor = Color.Gray r.Cells(.ColumnCount - 1).Style.ForeColor = Color.White + Case "ZA" + r.Cells(.ColumnCount - 1).Style.BackColor = Color.Yellow + r.Cells(.ColumnCount - 1).Style.ForeColor = Color.Black End Select End If Next diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 4ed44e4..4894b6a 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +