Bugfix Kundensuche, MDMAuswertung

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -976,7 +976,7 @@ Public Class usrCntlMDMAuswertungen
         End If
     End Sub
 
-    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
+    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles btnContractdaten.Click
 
         Try
 
@@ -1024,7 +1024,7 @@ Public Class usrCntlMDMAuswertungen
 
     End Sub
 
-    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
+    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles bntGesamtsummen.Click
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Dim displayFilter = False
         Dim sqlstr As String = ""
@@ -1160,13 +1160,10 @@ Public Class usrCntlMDMAuswertungen
         End If
     End Sub
 
-    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles btnKartenpruefung.Click
 
         Try
 
-            MsgBox("Funktion noch nicht implementiert!")
-            Exit Sub
-
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
             Dim dtAsfinagKartenpruef As DataTable = SQL.loadDgvBySql("
                         SELECT cardnumber, Kreditkarten.KartenNr, Kreditkarten.AdressenNr, (SELECT Offerten.OffertenNr FROM [VERAG].[dbo].[Offerten] WHERE (((Offerten.KundenNr)=isnull([Kreditkarten].[AdressenNr],0)) AND ((Offerten.OffertenNr)=11))) AS Offerte_11
@@ -1177,7 +1174,22 @@ Public Class usrCntlMDMAuswertungen
                             ORDER BY cardnumber", "FMZOLL")
 
             If dtAsfinagKartenpruef.Rows.Count = 0 Then
-                MsgBox("Keine Daten vorhanden")
+                MsgBox("Prüfung abgeschlossen" & vbNewLine & "Daten in Ordnung!")
+            Else
+                Dim frm As New Form
+                Dim dgv As New DataGridView()
+                dgv.DataSource = dtAsfinagKartenpruef
+                If dgv IsNot Nothing Then
+                    frm.Size = New Size(1400, 1000)
+                    dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50)
+                    dgv.Dock = DockStyle.Fill
+                    dgv.Anchor = AnchorStyles.Left
+                    dgv.Anchor = AnchorStyles.Top
+                    dgv.ReadOnly = True
+                    frm.Controls.Add(dgv)
+                    frm.StartPosition = FormStartPosition.CenterScreen
+                    frm.ShowDialog()
+                End If
             End If
 
 
@@ -1187,7 +1199,7 @@ Public Class usrCntlMDMAuswertungen
 
     End Sub
 
-    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
+    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnMautbericht.Click
         MsgBox("Funktion noch nicht implementiert!")
 
         'Try