neu

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -44,6 +44,7 @@
         cboDP.fillWithSQL("SELECT [dpset_niederlassung]  FROM [tblDienstSettings] ORDER BY dpset_niederlassung", False, "ADMIN", True)
 
 
+
         MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM [VERAG].[dbo].[tblFirma]", False, "FMZOLL")
         MyListBox1.Items.Insert(0, New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A"))
 
@@ -210,7 +211,6 @@
         txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
 
 
-
         If mitarbeiter.mit_firma = "ALL" Then
             cboFirma.Text = "ALLE"
         Else
@@ -219,6 +219,9 @@
 
         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"))
@@ -443,6 +446,7 @@
         mitarbeiter.mit_TELOTEC_SB = txtTelotecSB.Text
         mitarbeiter.mit_AliasAD_Domain = cboALIASDomain._value
         mitarbeiter.mit_AliasAD_Username = txtALIASUser.Text
+        mitarbeiter.mit_teamId = If(cboTeam._value = "", Nothing, cboTeam._value)
 
 
         If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then
@@ -697,4 +701,11 @@
         End If
     End Sub
 
+    Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
+        cboTeam.Items.Clear()
+        If cboFirma.Text <> "" Then
+            cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & cboFirma.Text & "'", False, "ADMIN", True)
+        End If
+
+    End Sub
 End Class