ATILLA Status 2 (VERIMEX, INDONESIEN), Login Warenort, Sprache div.

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -101,7 +101,7 @@ Public Class frmAvisoWeiterleiten
     End Sub
 
 
-    Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "")
+    Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "", Optional WL_Text As String = "")
         Dim text = ""
         Dim WeiterleitungTextTV = ""
         Dim code = 3
@@ -123,6 +123,9 @@ Public Class frmAvisoWeiterleiten
                 WeiterleitungTextTV = bezeichnung
         End Select
 
+
+
+
         'Anhänge:
         Dim collAnhIds = ""
         Try
@@ -151,7 +154,12 @@ Public Class frmAvisoWeiterleiten
         Else
             ASF.insertVermerkAllg(AvisoId, text, 46)
             If rtbVermerk.Text.Trim <> "" Then ASF.insertVermerkAllg(AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
-            ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
+            If WL_Text <> "" Then
+                ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV, WL_Text)
+            Else
+                ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
+            End If
+
         End If
 
 
@@ -162,10 +170,10 @@ Public Class frmAvisoWeiterleiten
             End If
         End If
 
-            ' Me.Close()
-            '  End If
+        ' Me.Close()
+        '  End If
 
-            Me.Close()
+        Me.Close()
         Me.DialogResult = DialogResult.OK
     End Sub
 
@@ -189,7 +197,11 @@ Public Class frmAvisoWeiterleiten
         btn.Enabled = enabled
 
         AddHandler btn.Click, Sub()
-                                  btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
+                                  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                                      Case "ATILLA" : btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma, "WL: " & If(bezeichnungFirma <> "ATILLA", "[" & bezeichnungFirma & "] ", "") & bezeichnung)
+                                      Case Else : btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
+                                  End Select
+
                                   initButtons(flpFirma, btn)
                               End Sub
 
@@ -263,6 +275,12 @@ Public Class frmAvisoWeiterleiten
             addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True)
         ElseIf sender Is btnATILLA Then
             addBtn(flpFirma, "F", "ATILLA", "ATILLA", True)
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='ATILLA' 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"),, "ATILLA")
+                Next
+            End If
         ElseIf sender Is btnVERIMEX Then
             'addBtn(flpFirma, "F", "VERIMEX", "VERIMEX", True)
             Dim whereTeams = ""