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

Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-09-06 15:40:58 +02:00
parent ad7fa10999
commit a9228921e0
32 changed files with 6225 additions and 1100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -94,9 +94,7 @@ Public Class cMitarbeiter
Property mit_Sprachkentnisse As Object = Nothing
Property mit_homeoffice As Boolean = False
Property mit_timasNichtStempeln As Boolean = False
Property mit_ausstempelnBeiBeenden As Boolean = False
Dim SQL As New SQL
@@ -207,6 +205,8 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_homeoffice", mit_homeoffice))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasNichtStempeln", mit_timasNichtStempeln))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_emailprivat", mit_emailprivat))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ausstempelnBeiBeenden", mit_ausstempelnBeiBeenden))
Return list
@@ -408,6 +408,7 @@ Public Class cMitarbeiter
Me.mit_homeoffice = dr.Item("mit_homeoffice")
Me.mit_timasNichtStempeln = dr.Item("mit_timasNichtStempeln")
If Not dr.Item("mit_emailprivat") Is DBNull.Value Then Me.mit_emailprivat = dr.Item("mit_emailprivat")
Me.mit_timasNichtStempeln = dr.Item("mit_ausstempelnBeiBeenden")
Catch ex As Exception