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

Leihgeldkassa

Browse Source
This commit is contained in:
d.breimaier
2025-12-22 11:43:02 +01:00
parent ca608ec141
commit 9a50902adf
6 changed files with 41 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/cSqlDb.vb
View File

@@ -1104,6 +1104,7 @@ Public Class FMZOLL_SQL
d.isLeihgeldkasse = dr.Item("isLeihgeldkasse")
d.AllowLG = dr.Item("AllowLG")
d.automFIBUBuchung = dr.Item("automFIBUBuchung")
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then d.cRKSV_KasseID = 6 'TESTKASSE
If d.cRKSV_KasseID > 0 Then
@@ -1149,6 +1150,7 @@ Public Class FMZOLL_SQL
d.isLeihgeldkasse = dr.Item("isLeihgeldkasse")
d.AllowLG = dr.Item("AllowLG")
d.automFIBUBuchung = dr.Item("automFIBUBuchung")
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then d.cRKSV_KasseID = 6 'TESTKASSE
If d.cRKSV_KasseID > 0 Then