MDM, IDS, USTVA

SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_divers.vb

@@ -53,10 +53,10 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
 
             Case "IDS"
 
-                Button6.Visible = False
                 Button2.Visible = False
-                Button6.Text = "Nach Spezifikation"
-                Button2.Text = "Leistungsnummern"
+                Button6.Visible = True
+                Button2.Text = "Nach Spezifikation"
+                Button6.Text = "fehl. Offerten"
                 Button1.Text = "Kunden"
                 Button3.Text = "Ländercodes"
                 Button3.Visible = True
@@ -100,6 +100,10 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
 
                 genMSEBericht("SPEZ")
 
+
+            Case "IDS"
+                genIDSBericht("OFFERTEN")
+
             Case Else
 
                 MsgBox("nicht definiert!")
@@ -148,6 +152,7 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
             Case "MSE"
                 genMSEBericht("LENR")
 
+
         End Select
 
 
@@ -596,9 +601,13 @@ Public Class usrCntlMDMDatenverarbeitungAuswertungen_divers
                         ORDER BY 
                            tblIDSTransactionsNew.[CustomerCode];"
 
-            Case "TRANS"
+            Case "OFFERTEN"
 
-                sqlstr = ""
+                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 ( 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"
 
             Case Else
                 MsgBox("Auswertungsart nicht definiert!")