SEndungsdetails ATilla

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -319,7 +319,12 @@ Public Class frmAvisoWeiterleiten
             End If
         ElseIf sender Is btnAMBAR Then
             addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
-
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='AMBAR' 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"),, "AMBAR")
+                Next
+            End If
         ElseIf sender Is Button2 Then
             addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG")