Mitarbeiter, etc,

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -215,6 +215,10 @@ Public Class frmMitarbDetails
 
         cboAbteilung.Items.Clear()
         cboAbteilung.fillWithSQL("SELECT [abt_kuerzel],[abt_bezeichnung] FROM tblAbteilungen", False, "ADMIN", True)
+
+        cboFunktion.Items.Clear()
+        cboFunktion.fillWithSQL("SELECT [fun_kuerzel],[fun_bezeichnung] FROM tblMitarbeiter_Funktionen", False, "ADMIN", True)
+
         cboNiederlassung.Items.Clear()
         cboNiederlassung.fillWithSQL("SELECT [nl_kuerzel],[nl_bezeichnung] FROM tblNiederlassungen", False, "ADMIN", True)
 
@@ -318,6 +322,7 @@ Public Class frmMitarbDetails
         cboNiederlassung.changeItem(mitarbeiter.mit_niederlassung)
         cboFaktGrp.changeItem(mitarbeiter.mit_fakturierungsgruppe)
         cboAbteilung.changeItem(mitarbeiter.mit_abteilung)
+        cboFunktion.changeItem(mitarbeiter.mit_Funktion)
         cboPosition.Text = mitarbeiter.mit_position
         txtDurchwahl.Text = mitarbeiter.mit_durchwahl
         txtTelNr.Text = mitarbeiter.mit_telefonnr
@@ -631,6 +636,7 @@ Public Class frmMitarbDetails
         mitarbeiter.mit_niederlassung = cboNiederlassung._value
         mitarbeiter.mit_fakturierungsgruppe = cboFaktGrp._value
         mitarbeiter.mit_abteilung = cboAbteilung._value
+        mitarbeiter.mit_Funktion = cboFunktion._value
         mitarbeiter.mit_position = cboPosition.Text
         mitarbeiter.mit_durchwahl = txtDurchwahl.Text
         mitarbeiter.mit_email = txtEmail.Text
@@ -657,6 +663,7 @@ Public Class frmMitarbDetails
         mitarbeiter.mit_emailprivat = txtprivateEMail.Text
 
 
+
         If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then
             mitarbeiter.mit_FMZollPersID = cboPersonal._value
         Else