neu

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -116,6 +116,11 @@
         cboFirmaHaupt.Items.Add("VERIMEX")
 
 
+        cboFaktGrp.Items.Clear()
+        cboFaktGrp.fillWithSQL("SELECT [Code],[Bezeichnung] FROM tblFakturierungsgruppe", False, "ADMIN", False)
+        cboFaktGrp.changeItem("")
+
+
         ZOLLDATENBEARB = False
 
         txtPwd.Visible = False
@@ -234,6 +239,7 @@
         txtPlz.Text = mitarbeiter.mit_plz
         txtOrt.Text = mitarbeiter.mit_ort
         cboNiederlassung.changeItem(mitarbeiter.mit_niederlassung)
+        cboFaktGrp.changeItem(mitarbeiter.mit_fakturierungsgruppe)
         cboAbteilung.changeItem(mitarbeiter.mit_abteilung)
         cboPosition.Text = mitarbeiter.mit_position
         txtDurchwahl.Text = mitarbeiter.mit_durchwahl
@@ -499,6 +505,7 @@
         mitarbeiter.mit_plz = txtPlz.Text
         mitarbeiter.mit_ort = txtOrt.Text
         mitarbeiter.mit_niederlassung = cboNiederlassung._value
+        mitarbeiter.mit_fakturierungsgruppe = cboFaktGrp._value
         mitarbeiter.mit_abteilung = cboAbteilung._value
         mitarbeiter.mit_position = cboPosition.Text
         mitarbeiter.mit_durchwahl = txtDurchwahl.Text
@@ -786,7 +793,7 @@
             End Try
 
             Try
-                cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID]  FROM [zzPersonal] ORDER BY UserID ", False, "EZOLL", True)
+                cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID]  FROM [zzPersonal] where lizenznr='S01122' ORDER BY UserID ", False, "EZOLL", True)
             Catch ex As Exception
                 MsgBox("EZOLL Problem")
                 tbcntr.SelectedIndex = 0