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

ZA als Fehlzeit im Urlaubskalender implementiert

Browse Source
This commit is contained in:
d.breimaier
2023-02-01 16:52:04 +01:00
parent 4461f45be4
commit d3e49dc299
4 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/Dienstplan/frmDienstplanVariabel.vb
View File

@@ -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)

1
UID/Dienstplan/frmUrlKW.vb
View File

@@ -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

6
UID/Dienstplan/frmUrlaubsplaner.vb
View File

@@ -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