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

abr

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-15 16:13:59 +01:00
parent e1e92ffe3d
commit 9cfaa1fa01
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -62,6 +62,7 @@ Public Class frmAbrechnungsMaske
MyComboBox2.Items.Clear() MyComboBox2.Items.Clear()
Select Case FirmaTmp Select Case FirmaTmp
Case "VERAG" Case "VERAG"
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then
Dim whereFirma = " AND FIRMENGRUPPE In ('VERAG360')" Dim whereFirma = " AND FIRMENGRUPPE In ('VERAG360')"

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -590,7 +590,7 @@ Public Class usrCntlFaktAbrechnung
whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE','VERAGAG_DE') " whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE','VERAGAG_DE') "
End If End If
pnlDocs.Visible = True pnlDocs.Visible = True
Case "VERA360" Case "VERAG360"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then
whereFirma = " AND FIRMENGRUPPE IN ('VERAG360','VERAGAG_DE') " : pnlDocs.Visible = True whereFirma = " AND FIRMENGRUPPE IN ('VERAG360','VERAGAG_DE') " : pnlDocs.Visible = True
Else Else