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

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -325,13 +325,16 @@ Public Class frmBelegNeu
Dim where = "1 = 1"
If PERSONAL.Niederlassung = "SUB" Then where = "Preislisten_visibleSUB = 1"
If PERSONAL.Niederlassung = "SUA" Then where = "Preislisten_visibleATILLA = 1"
If PERSONAL.Niederlassung = "SUA" Then
where = "Preislisten_visibleATILLA = 1"
If PERSONAL.cRKSV_KasseID = 1 Then where = "Preislisten_visibleSUB = 1" 'MDM
End If
If PERSONAL.Niederlassung = "SBG" Then where = "Preislisten_visibleSBG = 1"
If PERSONAL.Niederlassung = "WAI" Then where = "Preislisten_visibleWAI = 1"
If PERSONAL.Niederlassung = "NKD" Then where = "Preislisten_visibleNKD = 1"
If PERSONAL.Niederlassung = "IME" Then
where = "Preislisten_visibleIMEX = 1"
If PERSONAL.cRKSV_KasseID = 1 Then where = "Preislisten_visibleSUB = 1"
' If PERSONAL.cRKSV_KasseID = 1 Then where = "Preislisten_visibleSUB = 1"'MDM
End If
If PERSONAL.Mandant = "FO" Then where = "Preislisten_visibleFRONTOFFICE = 1"

2
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -859,7 +859,7 @@ Public Class frmKassenbuch
btnBelegLeihgeld.Visible = False
btnBelegGSKunde.Visible = False
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then 'vorher IMEX
If Not PERSONAL.isLeihgeldkasse Then btnBelegLeihgeld.Visible = False
btnBelegGSKunde.Visible = False 'VERAG-MDM KAsse bei IMEX
If PERSONAL.cRKSV_Kasse.rksv_id = 1 Then