neu

Aviso/frmAvisoWeiterleiten.vb

@@ -232,6 +232,12 @@ Public Class frmAvisoWeiterleiten
         ElseIf sender Is btnUNIPED Then
             addBtn(flpFirma, "F", "UNISPED", "UNISPED", True)
 
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='UNISPED' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "IMEX")
+                Next
+            End If
         ElseIf sender Is btnFrontoffice Then
             addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
         ElseIf sender Is btnVERIMEX Then