From 5787f3aa6aff5f04dd4e0dae31f7243232e2d5e8 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 20 Apr 2026 09:14:48 +0200 Subject: [PATCH] Klipphausen --- Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb index afc388d..f3f45b5 100644 --- a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb +++ b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb @@ -277,6 +277,9 @@ Public Class frmAvisoWeiterleiten 'addBtn(flpFirma, "A", "FISK", "VERAG Fiskal") addBtn(flpFirma, "A", "VRR", "VERRECHNUNG") + + addBtn(flpFirma, "N", "KLIPP", "VERAG KLIPPHAUSEN") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='VERAG' order by team_id", "ADMIN") If dt IsNot Nothing Then For Each t In dt.Rows @@ -302,7 +305,10 @@ Public Class frmAvisoWeiterleiten Next End If ElseIf sender Is btnFrontoffice Then - addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE", True) + addBtn(flpFirma, "F", "FRONTOFFICE", "FRONT-OFFICE SUBEN", True) + 'addBtn(flpFirma, "F", "FRONTOFFICE_KLIPP", "FRONT-OFFICE KLIPPHAUSEN", True) -> Wenn Firma gegründet + + 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")