Timas, SDl

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -292,6 +292,7 @@ Public Class frmMitarbDetails
         txtCSPW.Text = mitarbeiter.mit_CSpwd
         txtLohnNr.Text = mitarbeiter.mit_PersonalNr
         txtTelNr.Text = mitarbeiter.mit_telefonnr
+        txtprivateEMail.Text = mitarbeiter.mit_emailprivat
 
         cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
         txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
@@ -590,6 +591,7 @@ Public Class frmMitarbDetails
         mitarbeiter.mit_telefonnr = txtTelNr.Text
         mitarbeiter.mit_homeoffice = cbxHO.Checked
         mitarbeiter.mit_timasNichtStempeln = cbxTimasNichtStempeln1.Checked
+        mitarbeiter.mit_emailprivat = txtprivateEMail.Text
 
 
         If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then

UID/Mitarbeiter/frmMitarbTimas.vb

@@ -334,6 +334,13 @@ Public Class frmMitarbTimas
         If vbYes = MsgBox("Möchten Sie Daten aus AVISO/SDL übernehmen?", vbYesNo) Then
             If avisoEmp IsNot Nothing AndAlso avisoEmp.mit_username <> "" Then
                 txtUsername.Text = avisoEmp.mit_username
+
+                If avisoEmp.mit_emailprivat <> "" Then
+                    txtEmail.Text = avisoEmp.mit_emailprivat
+                ElseIf avisoEmp.mit_email <> ""Then
+                    txtEmail.Text = avisoEmp.mit_email
+                End If
+
                 If txtInfo.Text = "" Then
                     txtInfo.Text = avisoEmp.mit_firma & " - " & avisoEmp.mit_abteilung
                 End If