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

MDM Offertenprüfung für IDS

Browse Source
This commit is contained in:
d.breimaier
2024-12-04 17:28:33 +01:00
parent e1c8ce20be
commit 4a4a647b5a
2 changed files with 78 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_divers.vb
View File

@@ -525,7 +525,7 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
Sub genIDSBericht(art As String)
Dim dtOfferten As New DataTable
Dim sqlstr = ""
Select Case art
@@ -603,11 +603,51 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
Case "OFFERTEN"
sqlstr = "select Leistungen.LeistungsNr, Leistungen.LeistungsBez,tblIDSTransactionsNew.KdNrVERAG FROM Leistungen
INNER Join tbl_IDS_Länder On Leistungen.LeistungsNr = tbl_IDS_Länder.LeistungsNr
INNER Join tblIDSTransactionsNew On tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
Left JOIN Offertenpositionen on Offertenpositionen.KundenNr IN (select tblIDSTransactionsNew.KdNrVERAG from tblIDSTransactionsNew where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & MAIN.DateTimePicker2.Text & "') and Leistungen.LeistungsNr = Offertenpositionen.LeistungsNr and Leistungen.LeistungsBez = Offertenpositionen.LeistungsBez and ( Offertenpositionen.OffertenNr=17 or Offertenpositionen.OffertenNr=21)
where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & MAIN.DateTimePicker2.Text & "' and Offertenpositionen.LeistungsNr is null Group by Leistungen.LeistungsNr, Leistungen.LeistungsBez,tblIDSTransactionsNew.KdNrVERAG"
Dim dtKunden = SQL.loadDgvBySql("Select distinct(tblIDSTransactionsNew.KdNrVERAG) from tblIDSTransactionsNew where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & MAIN.DateTimePicker2.Text & "'", "FMZOLL")
If dtKunden.Rows.Count > 0 Then
For Each r In dtKunden.Rows
Dim kundenNr = r.Item("KdNrVERAG")
If Not IsDBNull(kundenNr) AndAlso kundenNr > 0 Then
Dim sqlStringfehlendeLeistungsNr = " select * from (SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,tblIDSTransactionsNew.KdNrVERAG FROM Leistungen INNER Join tbl_IDS_Länder On Leistungen.LeistungsNr = tbl_IDS_Länder.LeistungsNr INNER Join tblIDSTransactionsNew On tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode Left JOIN Offertenpositionen on Offertenpositionen.KundenNr = " & kundenNr & " and Leistungen.LeistungsNr = Offertenpositionen.LeistungsNr and Leistungen.LeistungsBez = Offertenpositionen.LeistungsBez and ( Offertenpositionen.OffertenNr=17 or Offertenpositionen.OffertenNr=21) where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & MAIN.DateTimePicker2.Text & "' and tblIDSTransactionsNew.KdNrVERAG = " & kundenNr & " and Offertenpositionen.LeistungsNr is null Group by Leistungen.LeistungsNr, Leistungen.LeistungsBez,tblIDSTransactionsNew.KdNrVERAG) as t1" 'Verag360 und VeragAG
Dim dtResult As New DataTable
dtResult = SQL.loadDgvBySql(sqlStringfehlendeLeistungsNr, "FMZOLL")
If dtOfferten IsNot Nothing Then
If Not dtOfferten.Columns.Contains("KdNrVERAG") Then
dtOfferten.Columns.Add("KdNrVERAG", GetType(String))
dtOfferten.Columns.Add("LeistungsNr", GetType(Integer))
dtOfferten.Columns.Add("LeistungsBez", GetType(String))
End If
For Each offert In dtResult.Rows
Dim ro As DataRow = dtOfferten.NewRow
ro("KdNrVERAG") = offert.Item("KdNrVERAG")
ro("LeistungsNr") = offert.Item("LeistungsNr")
ro("LeistungsBez") = offert.Item("LeistungsBez")
dtOfferten.Rows.Add(ro)
Next
End If
End If
Next
End If
Case Else
MsgBox("Auswertungsart nicht definiert!")
@@ -615,7 +655,15 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
End Select
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
Dim dt As DataTable
If art = "OFFERTEN" Then
dt = dtOfferten
Else
dt = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
End If
Dim print As New frmPrintLayout
print.Text = "IDS"
If dt Is Nothing OrElse dt.Rows.Count = 0 Then