This commit is contained in:
2023-09-24 23:03:47 +02:00
parent 6e2166588b
commit 3f3b2ea783
5 changed files with 67 additions and 22 deletions

View File

@@ -121,6 +121,9 @@ Public Class frmAvisoWeiterleiten
Case "B"
text = "An '" & bezeichnung & "' gegeben."
WeiterleitungTextTV = bezeichnung
Case "W"
text = "An '" & bezeichnung & "' gegeben."
WeiterleitungTextTV = bezeichnung
End Select
@@ -252,7 +255,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, btnATILLA.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, Button2.Click
'flpAbteilung.Controls.Clear()
flpTeams.Controls.Clear()
' flpNiederlassung.Controls.Clear()
@@ -316,6 +319,9 @@ Public Class frmAvisoWeiterleiten
ElseIf sender Is btnAMBAR Then
addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
ElseIf sender Is Button2 Then
addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG")
End If
initButtonsTop(sender)
@@ -423,4 +429,5 @@ Public Class frmAvisoWeiterleiten
dgvAnmhaenge.ClearSelection()
End Sub
End Class