Kundenblatt, kundenuebersicht, etc.

SDL/kunden/frmBonitätsverlauf.vb

@@ -1,6 +1,10 @@
-Public Class frmBonitätsverlauf
+Imports GrapeCity.DataVisualization.Chart
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmBonitätsverlauf
 
     Public kdnr = -1
+    Public newView As Boolean = False
     Sub New(kdnr)
         InitializeComponent()
         Me.kdnr = kdnr
@@ -39,7 +43,86 @@
             If KdSearchBox1.KdNr_value > 0 Then
                 With MyDatagridview1
                     Dim sqlstr As String = ""
-                    sqlstr &= "SELECT *  FROM [tblBonitaetsauskunft] where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
+                    Dim KD_ERW As New cKundenErweitert(KdSearchBox1.KdNr_value)
+
+                    If KD_ERW.kde_CreditSaveId IsNot Nothing AndAlso KD_ERW.kde_CreditSaveId <> "" AndAlso newView Then
+
+                        Dim sqlIndex As String = ""
+
+                        If KD_ERW.kde_CreditSaveId.ToLower.Contains("at") Then
+                            sqlIndex = ",ba_CreditSaveBonitaetsScore"
+                        Else
+                            sqlIndex = ",ba_CreditSaveBonitaetsIndex"
+                        End If
+
+
+
+                        sqlstr &= "
+SELECT  ba_Datum" & sqlIndex & ",ba_GruendundsDatum,ba_Umsatz,ba_Mitarbeiter,ba_Hoechstkredit,ba_Sachbearbeiter,ba_Zahlungsweise,ba_GFName,ba_Risikostufe,ba_CreditSaveRisikoklasse,ba_Pruefungstool,ba_GSName,ba_Geschaeftszweck,ba_datenarchivId
+                    FROM tblBonitaetsauskunft  
+                    where ba_KundenNr= " & KdSearchBox1.KdNr_value & "
+
+UNION ALL 
+
+
+SELECT  
+    cast(e.eventDate as Date),
+    MAX(e.crValue) AS TotalCR,
+	NULL,
+	NULL,
+    NULL,
+	MAX(e.clValue) AS TotalCL,
+    MAX(sachbearbeiter),
+	NULL,
+	NULL,
+	NULL,
+	NULL,
+	Source,
+	NULL,
+	NULL,
+	NULL
+FROM (SELECT 
+        e.companyId,
+        e.portfolioId,
+        e.eventDate,
+        e.sachbearbeiter,
+        CASE WHEN e.localEventCode = 'CR' OR e.globalEventCode ='CR' THEN e.newValueCR ELSE 0 END AS crValue,
+        CASE WHEN e.localEventCode = 'CL' OR e.globalEventCode ='CL' THEN e.newValueCL ELSE 0 END AS clValue,
+                'creditsafe API' AS Source
+    FROM [VERAG].[dbo].[tblCreditsafeEvents] e
+    INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b 
+        ON e.bonId = b.ba_id
+    WHERE b.ba_KundenNr = " & KdSearchBox1.KdNr_value & "
+      AND b.ba_Pruefungstool = 'creditsafe API'
+      AND (e.localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR'))
+) e
+GROUP BY e.companyId, e.portfolioId, cast(e.eventDate as Date), Source
+    order by ba_Datum desc"
+
+                    Else
+
+                        sqlstr &= "SELECT   ba_Datum
+                                           ,ba_Sachbearbeiter
+                                           ,ba_BonitaetsIndex
+                                           ,ba_CreditSaveBonitaetsIndex
+                                           ,ba_CreditSaveBonitaetsScore
+                                           ,ba_GruendundsDatum
+                                           ,ba_Umsatz
+                                           ,ba_Mitarbeiter
+                                           ,ba_Hoechstkredit
+                                           ,ba_Zahlungsweise
+                                           ,ba_GFName
+                                           ,ba_Risikostufe
+                                           ,ba_CreditSaveRisikoklasse
+                                           ,ba_Pruefungstool
+                                           ,ba_GSName
+                                           ,ba_Geschaeftszweck
+                                           ,ba_datenarchivId
+                                            FROM tblBonitaetsauskunft where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
+
+
+                    End If
+
 
                     .SET_SQL(sqlstr, "FMZOLL")
                     .LOAD()
@@ -49,24 +132,9 @@
                     .ReadOnly = True
                     .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                     .MultiSelect = False
-
-                    .Columns("ba_id").Visible = False
-                    .Columns("ba_KundenNr").Visible = False
-                    .Columns("ba_MaId").Visible = False
-
-
-                    .Columns("ba_CRArt").Visible = False
-                    .Columns("ba_CRAnsprechpartnerHerrFrau").Visible = False
-                    .Columns("ba_CRAnsprechpartner").Visible = False
-                    .Columns("ba_Firma").Visible = False
-                    .Columns("ba_Adresse1").Visible = False
-                    .Columns("ba_Adresse2").Visible = False
-                    .Columns("ba_LetztesBearbeitungsDatum").Visible = False
-                    .Columns("ba_Bankverbindung").Visible = False
-                    .Columns("ba_Sonstiges").Visible = False
+                    .Columns("ba_datenarchivId").Visible = False
                     .Columns("ba_Umsatz").DefaultCellStyle.Format = "C2"
                     .Columns("ba_Hoechstkredit").DefaultCellStyle.Format = "C2"
-                    .Columns("ba_datenarchivId").Visible = False
 
                     Dim c As New DataGridViewImageColumn
                     c.Name = "PDF" : c.HeaderText = "Bericht"