neu

Aviso/frmAvisoWeiterleiten.vb

@@ -31,6 +31,18 @@ Public Class frmAvisoWeiterleiten
             Exit Sub
         End If
 
+        Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
+
+        If AVISO.FIRMA = "ATILLA" Then
+
+            For Each p As Control In MyFlowLayoutPanel1.Controls.OfType(Of Button).Where(Function(ctrl) ctrl.Name <> "btnATILLA" And ctrl.Name <> "btnVERIMEX").ToList
+                MyFlowLayoutPanel1.Controls.Remove(p)
+            Next
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then btnVERIMEX.PerformClick()
+            Panel2.Enabled = False
+        Else
+            btnATILLA.Visible = False
+        End If
         'tbcntr.Appearance = TabAppearance.FlatButtons
         'tbcntr.ItemSize = New Size(0, 1)
         'tbcntr.SizeMode = TabSizeMode.Fixed
@@ -39,13 +51,7 @@ Public Class frmAvisoWeiterleiten
         loaded = True
     End Sub
 
-    Private Sub Panel2_Paint(sender As Object, e As PaintEventArgs)
 
-    End Sub
-
-    Private Sub MyFlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs)
-
-    End Sub
 
     'Private Sub Button6_Click(sender As Object, e As EventArgs)
     '    Dim flp As FlowLayoutPanel = flpFi
@@ -198,7 +204,7 @@ Public Class frmAvisoWeiterleiten
     '    initButtons(sender)
     'End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, btnFrontoffice.Click, btnVERIMEX.Click, btnAMBAR.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnVERAG.Click, btnIMEX.Click, btnUNIPED.Click, btnFrontoffice.Click, btnVERIMEX.Click, btnAMBAR.Click, btnATILLA.Click
         'flpAbteilung.Controls.Clear()
         flpTeams.Controls.Clear()
         '  flpNiederlassung.Controls.Clear()
@@ -240,9 +246,18 @@ Public Class frmAvisoWeiterleiten
             End If
         ElseIf sender Is btnFrontoffice Then
             addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
+        ElseIf sender Is btnATILLA Then
+            addBtn(flpFirma, "F", "ATILLA", "ATILLA", True)
         ElseIf sender Is btnVERIMEX Then
-            addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)
-
+            'addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)
+            Dim whereTeams = ""
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then whereTeams = " AND team_bezeichnung='TEAM EXPORT' "
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERIMEX' " & whereTeams & " 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"),, "VERIMEX")
+                Next
+            End If
         ElseIf sender Is btnAMBAR Then
             addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
 
@@ -353,5 +368,4 @@ Public Class frmAvisoWeiterleiten
         dgvAnmhaenge.ClearSelection()
     End Sub
 
-
 End Class