neu

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -3,6 +3,7 @@ Imports System.Drawing
 
 Public Class frmMitarbeitersuche
     Dim mit_id As Integer = -1
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Sub New()
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -93,7 +94,13 @@ Public Class frmMitarbeitersuche
                 Case "BH", "BU" : lblAbteilung.Text = "Buchhaltung"
                 Case "MDM" : lblAbteilung.Text = "Maut/Diesel/Mehrwertsteuer"
                 Case "FISKAL" : lblAbteilung.Text = "Fiskalabteilung"
-                Case "ZOLL" : lblAbteilung.Text = "Zollabteilung"
+                Case "ZOLL", "QS" : lblAbteilung.Text = "Zollabteilung"
+                    If MA.mit_teamId IsNot Nothing Then
+                        Dim team = SQL.DLookup("team_bezeichnung", "tblTeams", "team_id='" & MA.mit_teamId & "'", "ADMIN", "")
+                        If team <> "" Then
+                            lblAbteilung.Text &= " / " & team
+                        End If
+                    End If
                 Case Else : lblAbteilung.Text = If(MA.mit_abteilung, "")
             End Select