neu

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -88,6 +88,14 @@
         cboFirma.Items.Add("ALLE")
 
 
+        cboFirmaHaupt.Items.Clear()
+        cboFirmaHaupt.Items.Add("VERAG")
+        cboFirmaHaupt.Items.Add("ATILLA")
+        cboFirmaHaupt.Items.Add("IMEX")
+        cboFirmaHaupt.Items.Add("UNISPED")
+        cboFirmaHaupt.Items.Add("AMBAR")
+        cboFirmaHaupt.Items.Add("FRONTOFFICE")
+
 
         ZOLLDATENBEARB = False
 
@@ -224,15 +232,18 @@
 
         If mitarbeiter.mit_firma = "ALL" Then
             cboFirma.Text = "ALLE"
+            cboFirmaHaupt.Text = mitarbeiter.mit_FirmaHaupt
         Else
             cboFirma.Text = mitarbeiter.mit_firma
         End If
 
+        cbxChatBenutzer.Checked = mitarbeiter.mit_ChatBenutzer
         cboFirmaFMZOLL.changeItem(If(mitarbeiter.mit_firmaFMZoll, ""))
 
         cboTeam.changeItem(If(mitarbeiter.mit_teamId, ""))
 
 
+
         cboKasse.changeItem("")
         If mitarbeiter.mit_FMZollPersID IsNot Nothing Then
             cboKasse.changeItem(SQL.getValueTxtBySql("SELECT [Standard_RKSV_KasseId]  FROM [Personal] WHERE ID='" & mitarbeiter.mit_FMZollPersID & "'", "FMZOLL"))
@@ -461,6 +472,7 @@
         mitarbeiter.mit_teamId = If(cboTeam._value = "", Nothing, cboTeam._value)
 
 
+
         If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then
             mitarbeiter.mit_FMZollPersID = cboPersonal._value
         Else
@@ -524,9 +536,11 @@
 
         If cboFirma.Text = "ALLE" Then
             mitarbeiter.mit_firma = "ALL"
+            mitarbeiter.mit_FirmaHaupt = cboFirmaHaupt.Text
         Else
             mitarbeiter.mit_firma = cboFirma.Text
         End If
+        mitarbeiter.mit_ChatBenutzer = cbxChatBenutzer.Checked
 
         If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""
         mitarbeiter.mit_gekuendigt = cbxGekuendigt.Checked
@@ -719,6 +733,6 @@
         If cboFirma.Text <> "" Then
             cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
         End If
-
+        cboFirmaHaupt.Enabled = (cboFirma.Text = "ALLE")
     End Sub
 End Class