Timas und Mitarbeiter (Sprache)

UID/Mitarbeiter/frmMitarbTimas.vb

@@ -96,20 +96,27 @@ Public Class frmMitarbTimas
 
         cbxAccount.Checked = emp.loginActive
 
-        If emp.entryDate = "null" Then
+        If emp.entryDate Is Nothing Then
             cbxEinsteigsDat.Checked = False
         Else
             cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = emp.entryDate
         End If
 
 
-        If emp.exitDate <> "null" Then
+        If emp.exitDate IsNot Nothing Then
             cbxGekuendigt.Checked = True
             datGekuendigtAm.Text = emp.exitDate
         Else
             cbxGekuendigt.Checked = False
         End If
 
+        If emp.birthdayDate Is Nothing Then
+            cbxGebDat.Checked = False
+        Else
+            cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate
+        End If
+
+
     End Sub
 
 
@@ -147,6 +154,7 @@ Public Class frmMitarbTimas
 
         If cbxEinsteigsDat.Checked Then emp.entryDate = datEinstiegsdatum.Text Else emp.entryDate = "null"
         If cbxGekuendigt.Checked Then emp.exitDate = datGekuendigtAm.Text Else emp.exitDate = "null"
+        If cbxGebDat.Checked Then emp.birthdayDate = txtGebDat.Text Else emp.birthdayDate = "null"
 
         'mitarbeiter.mit_TESTonly = cbxTestaccount.Checked
         If checkMandatoryFields() Then