edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Klipphausen

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-20 09:14:48 +02:00
parent dc6907820c
commit 5787f3aa6a
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
View File

@@ -277,6 +277,9 @@ Public Class frmAvisoWeiterleiten
'addBtn(flpFirma, "A", "FISK", "VERAG Fiskal") 'addBtn(flpFirma, "A", "FISK", "VERAG Fiskal")
addBtn(flpFirma, "A", "VRR", "VERRECHNUNG") 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") 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 If dt IsNot Nothing Then
For Each t In dt.Rows For Each t In dt.Rows
@@ -302,7 +305,10 @@ Public Class frmAvisoWeiterleiten
Next Next
End If End If
ElseIf sender Is btnFrontoffice Then 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 ElseIf sender Is btnATILLA Then
addBtn(flpFirma, "F", "ATILLA", "ATILLA", True) 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") Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='ATILLA' order by team_id", "ADMIN")