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

MDM-Abrechnung, Leihgeld, UID-Pruefungen ,etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-05 11:50:48 +01:00
parent 4e88299736
commit 03364cf5f8
4 changed files with 23 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1501,8 +1501,8 @@ Public Class frmMDMDatenverarbetiung
Dim top = ""
Dim sqlWhere = ""
Select Case art
Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "")
Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "")
Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543"
Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543"
Case Else
MsgBox("falscher Typ!") : Return False