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

Überarbeitung Schichtmodell

Browse Source
This commit is contained in:
d.breimaier
2022-12-06 17:11:58 +01:00
parent d2f9685c4e
commit f9a4646b6b
8 changed files with 177 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/Classes/cDienstplanSchicht.vb
View File

@@ -25,6 +25,8 @@
Property dedet_ExcelMonatFarbe As Object
Property dedet_ExcelMonatBezeichnung As String = ""
Property dedet_Splitschicht As Boolean = False
Property dedet_Hauptsplitschicht As Boolean = False
Property dedet_Aktiv As Boolean = True
Property ZEITEN As New List(Of cDienstplanSchichtZeiten)
@@ -71,6 +73,8 @@
Me.dedet_ExcelMonatFarbe = If(row("dedet_ExcelMonatFarbe") IsNot DBNull.Value, row("dedet_ExcelMonatFarbe"), Nothing)
Me.dedet_ExcelMonatBezeichnung = If(row("dedet_ExcelMonatBezeichnung") IsNot DBNull.Value, row("dedet_ExcelMonatBezeichnung"), "")
Me.dedet_Aktiv = CBool(row("dedet_Aktiv"))
Me.dedet_Splitschicht = CBool(row("dedet_Splitschicht"))
Me.dedet_Hauptsplitschicht = CBool(row("dedet_Hauptsplitschicht"))
LOAD_ZEITEN(Me.dedet_id)
End If