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

openAI

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-07-02 08:01:34 +02:00
parent 74ea4ad132
commit 21b0b5fbe3
3 changed files with 261 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -159,7 +159,7 @@ Public Class usrCntlMDMAuswertungen
" and RechnungsDatum between '" & datWoelflVon.Value.ToShortDateString & "' and '" & datWoelflBis.Value.ToShortDateString & "'" &
" order by [RechnungsNr] "
' MsgBox(sqlstr)
Dim SQL As New SQL
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "FMZOLL")
@@ -172,12 +172,12 @@ Public Class usrCntlMDMAuswertungen
Exit Sub
End Try
Dim clmns As String = ""
Dim notfoundStr = ""
For Each r As DataRow In dt.Rows
If r.Item("LeistungsBez").ToString.Contains("00/23") Or r.Item("LeistungsBez").ToString.Contains("DL/23") Then
Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & r.Item("FilialenNr").ToString & " AND AbfertigungsNr = " & r.Item("AbfertigungsNr").ToString, "FMZOLL"))
Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & r.Item("FilialenNr").ToString & " AND AbfertigungsNr = " & r.Item("AbfertigungsNr").ToString, "FMZOLL",,, -1))
Dim listVZMonth As New List(Of Integer)
@@ -236,7 +236,8 @@ Public Class usrCntlMDMAuswertungen
r.Item("LeistungsBez") = LeistungsBez
End If
Else
notfoundStr &= r.Item("FilialenNr").ToString & " And AbfertigungsNr = " & r.Item("AbfertigungsNr").ToString & vbNewLine
End If
@@ -244,10 +245,14 @@ Public Class usrCntlMDMAuswertungen
Next
If notfoundStr <> "" Then
MsgBox("Antrag nicht gefunden: " & notfoundStr)
End If
If dt.Columns.Contains("RK_ID") Then dt.Columns.Remove("RK_ID")
For i = 0 To dt.Columns.Count - 1
clmns &= dt.Columns(i).ColumnName.ToString().Replace(";", ",") & ";"
clmns &= dt.Columns(i).ColumnName.ToString().Replace(";", ", ") & ";"
Next
@@ -261,7 +266,7 @@ Public Class usrCntlMDMAuswertungen
clmns &= dt.Rows(i).Item(j).ToString().Replace(vbNewLine, "").Replace(vbCr, "").Replace(vbLf, "").Replace("\n", "").Replace("\r", "").Replace(vbCrLf, "") & ";"
' If Not o Is Nothing AndAlso Not o.value Is Nothing Then
'clmns &= o.Value.ToString().Replace(";", ",") & ";"
'clmns &= o.Value.ToString().Replace(";", ", ") & ";"
' Else
' clmns &= ";"
'End If
@@ -467,15 +472,15 @@ Public Class usrCntlMDMAuswertungen
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Dim displayFilter = False
Dim sqlstr As String = ""
sqlstr &= " SELECT COUNT(*) as COUNT,prod_descr,sou_descr, out_descr ,SUM(TOT_QTY) as TOT_QTY, MAX(SOU_CURR) as SOU_CURR,"
sqlstr &= " SUM(ORIG_LIST_PRICE) as ORIG_LIST_PRICE_SUM, COUNT(ORIG_LIST_PRICE) as ORIG_LIST_PRICE_COUNT,AVG(ORIG_LIST_PRICE) as ORIG_LIST_PRICE_AVG, "
sqlstr &= " SUM(SC_BC_RATE) as SC_BC_RATE_SUM, COUNT(SC_BC_RATE) as SC_BC_RATE_COUNT,AVG(SC_BC_RATE) as SC_BC_RATE_AVG, "
sqlstr &= " SUM(PLATTS_PRICE) as PLATTS_PRICE_SUM, COUNT(PLATTS_PRICE) as PLATTS_PRICE_COUNT,AVG(PLATTS_PRICE) as PLATTS_PRICE_AVG, "
sqlstr &= " SUM(EUR_IV_BC_AMNT) as EUR_IV_BC_AMNT"
sqlstr &= " Select COUNT(*) As COUNT,prod_descr,sou_descr, out_descr ,SUM(TOT_QTY) As TOT_QTY, MAX(SOU_CURR) As SOU_CURR,"
sqlstr &= " SUM(ORIG_LIST_PRICE) As ORIG_LIST_PRICE_SUM, COUNT(ORIG_LIST_PRICE) As ORIG_LIST_PRICE_COUNT,AVG(ORIG_LIST_PRICE) As ORIG_LIST_PRICE_AVG, "
sqlstr &= " SUM(SC_BC_RATE) As SC_BC_RATE_SUM, COUNT(SC_BC_RATE) As SC_BC_RATE_COUNT,AVG(SC_BC_RATE) As SC_BC_RATE_AVG, "
sqlstr &= " SUM(PLATTS_PRICE) As PLATTS_PRICE_SUM, COUNT(PLATTS_PRICE) As PLATTS_PRICE_COUNT,AVG(PLATTS_PRICE) As PLATTS_PRICE_AVG, "
sqlstr &= " SUM(EUR_IV_BC_AMNT) As EUR_IV_BC_AMNT"
sqlstr &= " FROM [tblIDS_Transaktionen] "
sqlstr &= " WHERE 1=1 "
sqlstr &= " WHERE 1= 1 "
Select Case cboIDSDateType._value
Case "LDat" : sqlstr &= " AND [TRS_DATE] between '" & datIDSVon.Value & "' and '" & datIDSBis.Value & "' "
Case "LDat" : sqlstr &= " And [TRS_DATE] between '" & datIDSVon.Value & "' and '" & datIDSBis.Value & "' "
Case "RGDat" : sqlstr &= " AND BC_INVO_DATE between '" & datIDSVon.Value & "' and '" & datIDSBis.Value & "' "
End Select
If txtOrt.Text <> "" Then