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

MDM-Summenbericht, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-10-15 16:16:34 +02:00
parent acbbbd7754
commit 8f9361abe4
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -30,7 +30,7 @@ Public Class frmMDMDatenverarbetiung
Case "PLOSE" : genSummenbericht_PLOSE()
Case "ASFINAG" : genSummenbericht_ASFINAG()
Case "UTA" : genSummenbericht_UTA()
Case "IDS" : genSummenbericht_IDS(17) : genSummenbericht_IDS(21)
Case "IDS" : genSummenbericht_IDS(17, cbxIDSmitVerag.Checked) : genSummenbericht_IDS(21, cbxIDSmitVerag.Checked)
Case "MSE" : genSummenbericht_MSE()
Case Else : MsgBox("Nicht verfügbar!")
End Select
@@ -551,15 +551,17 @@ Public Class frmMDMDatenverarbetiung
End Sub
Sub genSummenbericht_IDS(typ As Integer)
Sub genSummenbericht_IDS(typ As Integer, mitVerag360_VeragAG As Boolean)
Dim displayFilter = False
Dim sqlstr As String = ""
Dim sqlwhere = ""
Select Case typ
Case 17 : sqlwhere = "<>740543"
Case 21 : sqlwhere = " =740543"
Case 17 : sqlwhere = "<>740543" & IIf(mitVerag360_VeragAG, "", " and tblIDSTransactionsNew.KdNrVERAG not in (756150, 711104)")
Case 21 : sqlwhere = " =740543" & IIf(mitVerag360_VeragAG, "", " and tblIDSTransactionsNew.KdNrVERAG not in (756150, 711104)")
End Select
sqlstr &= "SELECT Adressen.AdressenNr, Adressen.[Name 1] as Name, tblIDSTransactionsNew.[CustomerCode], Sum(tblIDSTransactionsNew.[TransactionVolume]) AS Liter, Sum(tblIDSTransactionsNew.AmminclVAT) AS Brutto, Sum(tblIDSTransactionsNew.[TotalNetAmount]) AS Netto, Sum(tblIDSTransactionsNew.Rabattbetrag) AS Rabatt