From 418e2703cadb7abc858fb9dac263588ac84c57a1 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 24 Nov 2023 15:59:08 +0100
Subject: [PATCH] Homeoffice Default Value

---
 VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb                   | 3 +++
 .../Mitarbeiterverzeichnis/frmMitarbeitersuche.vb              | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
index 173a9ba1..7709981b 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
@@ -89,6 +89,7 @@ Public Class cMitarbeiter
     Property mit_ATGRNAccessCode_AT51FP7 As Object = Nothing
     Property mit_ATGRNAccessCode_AT52VA6 As Object = Nothing
     Property mit_Sprachkentnisse As Object = Nothing
+    Property mit_homeoffice As Boolean = False
 
 
 
@@ -198,6 +199,7 @@ Public Class cMitarbeiter
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT51FP7", mit_ATGRNAccessCode_AT51FP7))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT52VA6", mit_ATGRNAccessCode_AT52VA6))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Sprachkentnisse", mit_Sprachkentnisse))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_homeoffice", mit_homeoffice))
 
 
         Return list
@@ -395,6 +397,7 @@ Public Class cMitarbeiter
                             If Not dr.Item("mit_ATGRNAccessCode_AT51FP7") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT51FP7 = dr.Item("mit_ATGRNAccessCode_AT51FP7")
                             If Not dr.Item("mit_ATGRNAccessCode_AT52VA6") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT52VA6 = dr.Item("mit_ATGRNAccessCode_AT52VA6")
                             If Not dr.Item("mit_Sprachkentnisse") Is DBNull.Value Then Me.mit_Sprachkentnisse = dr.Item("mit_Sprachkentnisse")
+                            Me.mit_homeoffice = dr.Item("mit_homeoffice")
 
 
                         Catch ex As Exception
diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
index dd0a9386..bce25b55 100644
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
@@ -105,6 +105,8 @@ Public Class frmMitarbeitersuche
             lblHandyNr.Visible = MA.mit_MAVerzeichnis_allowHandynummer
             lblHandyNr.Text = If(MA.mit_mobiltel, "")
 
+            cbxHomeoffice.Checked = MA.mit_homeoffice
+
 
             Select Case If(MA.mit_abteilung, "")
                 Case "GF" : lblAbteilung.Text = "Geschäftsführung"