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

6
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -374,7 +374,7 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0 Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1555) Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1538)
Me.tbcntrMain.TabIndex = 3 Me.tbcntrMain.TabIndex = 3
' '
'tbAllgemein 'tbAllgemein
@@ -2448,7 +2448,7 @@ Partial Class frmKundenblatt
Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel) Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel)
Me.tbFIBU.Location = New System.Drawing.Point(4, 25) Me.tbFIBU.Location = New System.Drawing.Point(4, 25)
Me.tbFIBU.Name = "tbFIBU" Me.tbFIBU.Name = "tbFIBU"
Me.tbFIBU.Size = New System.Drawing.Size(1644, 1526) Me.tbFIBU.Size = New System.Drawing.Size(1644, 1509)
Me.tbFIBU.TabIndex = 13 Me.tbFIBU.TabIndex = 13
Me.tbFIBU.Text = "FIBU" Me.tbFIBU.Text = "FIBU"
Me.tbFIBU.UseVisualStyleBackColor = True Me.tbFIBU.UseVisualStyleBackColor = True
@@ -3006,7 +3006,7 @@ Partial Class frmKundenblatt
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1651, 1684) Me.ClientSize = New System.Drawing.Size(1651, 1667)
Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain) Me.Controls.Add(Me.tbcntrMain)

10
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -30,7 +30,7 @@ Public Class frmMDMDatenverarbetiung
Case "PLOSE" : genSummenbericht_PLOSE() Case "PLOSE" : genSummenbericht_PLOSE()
Case "ASFINAG" : genSummenbericht_ASFINAG() Case "ASFINAG" : genSummenbericht_ASFINAG()
Case "UTA" : genSummenbericht_UTA() 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 "MSE" : genSummenbericht_MSE()
Case Else : MsgBox("Nicht verfügbar!") Case Else : MsgBox("Nicht verfügbar!")
End Select End Select
@@ -551,15 +551,17 @@ Public Class frmMDMDatenverarbetiung
End Sub End Sub
Sub genSummenbericht_IDS(typ As Integer) Sub genSummenbericht_IDS(typ As Integer, mitVerag360_VeragAG As Boolean)
Dim displayFilter = False Dim displayFilter = False
Dim sqlstr As String = "" Dim sqlstr As String = ""
Dim sqlwhere = "" Dim sqlwhere = ""
Select Case typ Select Case typ
Case 17 : sqlwhere = "<>740543" Case 17 : sqlwhere = "<>740543" & IIf(mitVerag360_VeragAG, "", " and tblIDSTransactionsNew.KdNrVERAG not in (756150, 711104)")
Case 21 : sqlwhere = " =740543" Case 21 : sqlwhere = " =740543" & IIf(mitVerag360_VeragAG, "", " and tblIDSTransactionsNew.KdNrVERAG not in (756150, 711104)")
End Select 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 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