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

ZE mehrere Firmen

Browse Source
This commit is contained in:
d.breimaier
2024-11-13 10:35:33 +01:00
parent 03e06bbb63
commit e3af2f2076
4 changed files with 58 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -95,6 +95,8 @@ Public Class cMitarbeiter
Property mit_homeoffice As Boolean = False
Property mit_timasNichtStempeln As Boolean = False
Property mit_ausstempelnBeiBeenden As Boolean = False
Property mit_timasMehrereFirmen As Boolean = False
Property mit_timasFirmen As Object = Nothing
Dim SQL As New SQL
@@ -206,6 +208,8 @@ Public Class cMitarbeiter
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))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasFirmen", mit_timasFirmen))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasMehrereFirmen", mit_timasMehrereFirmen))
@@ -409,6 +413,8 @@ Public Class cMitarbeiter
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_ausstempelnBeiBeenden = dr.Item("mit_ausstempelnBeiBeenden")
If Not dr.Item("mit_timasFirmen") Is DBNull.Value Then Me.mit_timasFirmen = dr.Item("mit_timasFirmen")
Me.mit_timasMehrereFirmen = dr.Item("mit_timasMehrereFirmen")
Catch ex As Exception