div. Änderungen

SDL/kunden/frmBonitätsverlauf.vb

@@ -1,5 +1,4 @@
-Imports GrapeCity.DataVisualization.Chart
-Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmBonitätsverlauf
 
@@ -186,4 +185,51 @@ Public Class frmBonitätsverlauf
 
     End Sub
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCreditsafeDetails.Click
+
+        Try
+
+            Dim SQL_String = "SELECT
+       [createdDate] as Datum
+      ,[ruleName] as Bezeichnung
+      ,[globalEventCode] as Code
+      ,[oldValue] as alterWert
+      ,[newValue] as neuerWert
+      ,[sachbearbeiter] as Sachbearbeiter
+      ,[oldValueCL] as KreditlimitAlt
+      ,[newValueCL] as KreditlimitNeu
+      ,[oldValueCR] as BonRateAlt
+      ,[newValueCR] as BonRateNeu
+      ,[newValueCRIndex] as BonIndexNeu
+      ,[oldValueCRIndex] as BonIndexAlt
+      ,[oldRiskClass] as RiskoklasseAlt
+      ,[newRiskClass] as RiskoklasseNeu
+        FROM [VERAG].[dbo].[tblCreditsafeEvents] where [kundenNr] = " & KdSearchBox1.KdNr & " order by eventDate desc"
+
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim frm As New Form
+            frm.Text = "Creditsafe-Details"
+            Dim dgv As New DataGridView()
+            Dim dt As DataTable = SQL.loadDgvBySql(SQL_String, "FMZOLL")
+            dgv.DataSource = dt
+            If dgv IsNot Nothing Then
+                frm.Size = New Size(1500, 500)
+                dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
+                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
+
+
+        Catch ex As System.Exception
+
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
 End Class