Kundenblatt, kundenuebersicht, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -3225,9 +3225,9 @@ Public Class cFakturierung
                 RK_found = True
             End If
         Next
-        MsgBox(RU_found)
+        'MsgBox(RU_found)
-        MsgBox(RK_found)
+        'MsgBox(RK_found)
-        MsgBox(RU_found And RK_found)
+        'MsgBox(RU_found And RK_found)
         If RU_found And RK_found Then Return True
         If Not RU_found And Not RK_found Then Return True
 

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCreditreformBoniAuskunft.vb

@@ -1,4 +1,6 @@
-Public Class usrcntlCreditreformBoniAuskunft
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrcntlCreditreformBoniAuskunft
     Implements FormualrInterface
 
     Public Event CHANGED(name, value)
@@ -9,6 +11,7 @@
     Public Event LOADED()
     Public KdNR As Integer = -1
     Public SAVED As Boolean = False
+    Dim creditsafe_newView As Boolean = False
     Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
         initKdNR(kdnr)
     End Sub
@@ -86,6 +89,10 @@
         cboCRArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Wien", "Wien"))
         cboCRArt.SelectedIndex = 0
         If KdNR > 0 Then initKdNR(KdNR)
+
+        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+        creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
+
         RaiseEvent LOADED()
     End Sub
 
@@ -138,6 +145,8 @@
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Dim frmBonitätsverlauf As New frmBonitätsverlauf(KdNR, Me)
+
+        frmBonitätsverlauf.newView = creditsafe_newView
         frmBonitätsverlauf.Show()
     End Sub
 

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -3675,9 +3675,9 @@ Public Class frmMDM_USTVAntrag
             End Select
 
             Dim path As String = PDFInvoicesPath(posID)
-            If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez)
+            Dim fileInfo As New FileInfo(path)
+            If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez & fileInfo.Extension)
 
-            'NOCH DEAKTIVIERT
             If vbYes = MsgBox("Möchten Sie die Positionsliste an die Mail hinzufügen?", vbYesNoCancel) Then
 
                 Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
@@ -3685,8 +3685,10 @@ Public Class frmMDM_USTVAntrag
                 If Not spedBuch.ErfassungsNr = "" Then
 
                     Dim pathPosList As String = generatePOSListe(spedBuch, posID, False)
-
+                    If pathPosList <> "" Then
-                    If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS)
+                        Dim fileInfoPos As New FileInfo(pathPosList)
+                        If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS & fileInfoPos.Extension)
+                    End If
 
                 End If
 
@@ -3700,6 +3702,10 @@ Public Class frmMDM_USTVAntrag
                 Mail.HTMLBody = TextHTML
             End If
 
+            Mail.To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
+            Mail.CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an")
+            Mail.BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an")
+
             Mail.Display()
             Me.Cursor = Cursors.Default
         Catch ex As Exception

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_datenarchivId").Visible = 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_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"

SDL/kunden/frmKundenblatt.vb

@@ -45,6 +45,7 @@ Public Class frmKundenblatt
     Private WithEvents timShow As New Timer With {.Interval = 10}
     Private WithEvents timHide As New Timer With {.Interval = 10}
     Dim isVerag360 As Boolean = False
+    Dim creditsafe_newView As Boolean = False
 
     Sub New()
 
@@ -122,6 +123,10 @@ Public Class frmKundenblatt
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
             btnBonitaetBearbeiten.Visible = True
         End If
+
+        Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+        creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
+
         'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
         Me.KeyPreview = True
         pnlInfo.Height = 0
@@ -2188,6 +2193,7 @@ Public Class frmKundenblatt
     Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
 
         Dim f As New frmBonitätsverlauf(kdNr)
+        f.newView = creditsafe_newView
         f.Show()
         AddHandler f.FormClosed, Sub()
                                      KdSearchBox1.KdNr = kdNr

SDL/kunden/usrCntlKundenuebersicht.resx

@@ -242,10 +242,10 @@
   <metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1303, 17</value>
   </metadata>
-  <metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
-  </metadata>
   <metadata name="ContextMenuStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>153, 56</value>
   </metadata>
+  <metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
 </root>

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -55,6 +55,7 @@ Public Class usrCntlKundenuebersicht
     Dim PDF_Attach_TMP_VERTRAEGE = ""
     Property BER_STUFE = 99
     Private datenarchivId = -1
+    Dim creditsafe_newView As Boolean = False
 
     Public Sub New()
         Try
@@ -233,6 +234,9 @@ Public Class usrCntlKundenuebersicht
 
             End Select
 
+            Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
+            creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
+
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("UID_EORI_Prüfung", "SDL") Then
                 If Not VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
                     Button1.Visible = True
@@ -672,7 +676,7 @@ Public Class usrCntlKundenuebersicht
             '     Button4.Visible = False
             '  Button5.Visible = False
 
-            pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso False 'aktuell noch deaktiviert!!
+            pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso creditsafe_newView
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!")
@@ -2173,7 +2177,11 @@ Public Class usrCntlKundenuebersicht
 
 
     Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
+
+
+
         Dim f As New frmBonitätsverlauf(kdNr)
+        f.newView = creditsafe_newView
         f.Show()
         AddHandler f.FormClosed, Sub()
                                      setKD(kdNr)
@@ -2928,7 +2936,7 @@ Public Class usrCntlKundenuebersicht
         cBonitaetsauskunft.ba_CSmax = csmax
         cBonitaetsauskunft.ba_CScountry = cscountry
 
-        ' Öster. Unternemen -> Creditscore, sonst Index
+        ' Öster. Unternehmen -> Creditscore, sonst Index
         If (IsNumeric(company.csIndex)) Then
             company.csIndex = company.csIndex.Replace(".", ",")
             cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = CDbl(company.csIndex)
@@ -2977,6 +2985,8 @@ Public Class usrCntlKundenuebersicht
         If cBonitaetsauskunft.SAVE Then
             SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
 
+            company.csBonID = cBonitaetsauskunft.ba_id
+
             Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
             KDERW.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
             KDERW.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
@@ -3272,19 +3282,27 @@ Public Class usrCntlKundenuebersicht
         If cs.authenticate() = "200" Then
             Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "")
             company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
+
+            Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
+
+            If currentBonID > 0 Then company.csBonID = currentBonID
+
             Dim dt As New DataTable()
-            cs.getCompanyEvents(company, dt, True)
+            cs.getCompanyEvents(company, dt, False)
 
             If dt.Rows.Count > 0 Then
                 Dim frm As New Form
                 Dim dgv As New DataGridView()
 
+                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMIN", "AVISO") Then
                     If dt.Columns.Contains("eventid") Then dt.Columns("eventid").ColumnMapping = MappingType.Hidden
                     If dt.Columns.Contains("companyId") Then dt.Columns("companyId").ColumnMapping = MappingType.Hidden
                     If dt.Columns.Contains("portfolioId") Then dt.Columns("portfolioId").ColumnMapping = MappingType.Hidden
                     If dt.Columns.Contains("localEventCode") Then dt.Columns("localEventCode").ColumnMapping = MappingType.Hidden
                     If dt.Columns.Contains("globalEventCode") Then dt.Columns("globalEventCode").ColumnMapping = MappingType.Hidden
                     If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden
+                End If
+
 
                 dgv.DataSource = dt
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -1,6 +1,13 @@
 
+Imports System.Data.SqlClient
 Imports System.Net
+Imports System.Numerics
+Imports System.Reflection
+Imports System.Runtime.InteropServices.ComTypes
+Imports System.Text.RegularExpressions
 Imports System.Threading
+Imports System.Web.UI
+Imports Microsoft.VisualBasic.ApplicationServices
 
 
 Public Class cCreditSafeAPI
@@ -429,8 +436,75 @@ Public Class cCreditSafeAPI
                 R("newValue") = compObj.StringOf("newValue")
                 R("eventDate") = dateTime.GetAsTimestamp(getAsLocal)
                 R("createdDate") = dateTime.GetAsTimestamp(getAsLocal)
+
                 dtEvents.Rows.Add(R)
 
+                Dim cEvent As New cCreditsafeEvent(CLng(R("eventId")))
+
+                cEvent.eventId = R("eventId")
+                cEvent.companyId = R("companyId")
+                cEvent.portfolioId = R("portfolioId")
+                cEvent.ruleName = R("ruleName")
+                cEvent.localEventCode = R("localEventCode").trim()
+                cEvent.globalEventCode = R("globalEventCode").trim()
+                cEvent.eventDate = R("eventDate")
+                cEvent.createdDate = R("createdDate")
+                cEvent.importDate = Now()
+                cEvent.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                cEvent.oldValue = R("oldValue")
+                cEvent.newValue = R("newValue")
+
+
+                'OLD-VALUES
+                If cEvent.oldValue IsNot Nothing AndAlso IsNumeric(cEvent.oldValue) AndAlso Not cEvent.oldValue.ToString.Contains("€") Then
+                    If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
+                        cEvent.oldValueCL = cEvent.oldValue
+                    ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
+                        cEvent.oldValueCR = cEvent.oldValue
+                    End If
+
+                Else
+                    If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
+                        cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
+                        cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
+                        cEvent.oldValueCL = cEvent.oldValue
+                    ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
+                        cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
+                        cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
+                        cEvent.oldValueCR = cEvent.oldValue
+                    End If
+
+                End If
+
+
+                'NEW-VALUES
+                If cEvent.newValue IsNot Nothing AndAlso IsNumeric(cEvent.newValue) AndAlso Not cEvent.newValue.ToString.Contains("€") Then
+                    If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
+                        cEvent.newValueCL = cEvent.newValue
+                    ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
+                        cEvent.newValueCR = cEvent.newValue
+                    End If
+                Else
+
+                    If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
+                        cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
+                        cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
+                        cEvent.newValueCL = cEvent.newValue
+
+                    ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
+                        cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
+                        cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
+                        cEvent.newValueCR = cEvent.newValue
+                    End If
+
+                End If
+
+                If cEvent.bonId Is Nothing AndAlso company.csBonID > 0 Then
+                    cEvent.bonId = company.csBonID
+                End If
+
+                cEvent.SAVE()
+
                 j = j + 1
             End While
         Next
@@ -824,8 +898,8 @@ Public Class cCreditSafeAPI
         Public Property csCEO As String
         Public Property csTurnover As String
         Public Property language As String
-
         Public Property csBank As String
+        Public Property csBonID As Integer = -1
 
 
 
@@ -852,4 +926,141 @@ Public Class cCreditSafeAPI
         End Sub
     End Class
 
+    Public Class cCreditsafeEvent
+
+        Property eventId As Long
+        Property companyId As Object = Nothing
+        Property portfolioId As Object = Nothing
+        Property ruleName As Object = Nothing
+        Property localEventCode As Object = Nothing
+        Property globalEventCode As Object = Nothing
+        Property oldValue As Object = Nothing
+        Property newValue As Object = Nothing
+        Property eventDate As Object = Nothing
+        Property createdDate As Object = Nothing
+        Property importDate As Object = Nothing
+        Property bonId As Object = Nothing
+        Property Sachbearbeiter As Object = Nothing
+        Property oldValueCR As Object = Nothing
+        Property newValueCR As Object = Nothing
+        Property oldValueCL As Object = Nothing
+        Property newValueCL As Object = Nothing
+
+
+        Public hasEntry = False
+
+
+        Sub New(eventId)
+            Me.eventId = eventId
+            LOAD()
+        End Sub
+        Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+            Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eventId", eventId,, True))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("companyId", companyId))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("portfolioId", portfolioId))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ruleName", ruleName))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("localEventCode", localEventCode))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("globalEventCode", globalEventCode))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValue", oldValue))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValue", newValue))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eventDate", eventDate))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("createdDate", createdDate))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("importDate", importDate))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bonId", bonId))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCR", oldValueCR))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCR", newValueCR))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCL", oldValueCL))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCL", newValueCL))
+
+
+            Return list
+        End Function
+
+
+
+        Public Function SAVE() As Boolean
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblCreditsafeEvents  WHERE eventId=@eventId) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+            Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+        End Function
+
+        Public Sub LOAD()
+            Try
+                hasEntry = False
+                Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                    Using cmd As New SqlCommand("SELECT * FROM tblCreditsafeEvents WHERE eventId=@eventId  ", conn)
+                        cmd.Parameters.AddWithValue("@eventId", eventId)
+                        Dim dr = cmd.ExecuteReader()
+                        If dr.Read Then
+                            For Each li In getParameterList()
+                                Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                                If dr.Item(li.Text) Is DBNull.Value Then
+                                    propInfo.SetValue(Me, Nothing)
+                                Else
+                                    propInfo.SetValue(Me, dr.Item(li.Text))
+                                End If
+
+                            Next
+                            hasEntry = True
+                        End If
+                        dr.Close()
+                    End Using
+                End Using
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End Sub
+
+
+
+        Public Function getUpdateCmd() As String
+            Try
+                Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+                Dim str As String = ""
+                For Each i In list
+                    If Not i.isPrimaryParam Then
+                        str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                    End If
+                Next
+                str = str.Substring(0, str.Length - 1) 'wg. ','
+                Return (" UPDATE tblCreditsafeEvents SET " & str & " WHERE eventId=@eventId ")
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+            Return ""
+        End Function
+
+
+        Public Function getInsertCmd() As String
+            Try
+                Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+                Dim str As String = ""
+                Dim values As String = ""
+                For Each i In list
+                    'If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                    'End If
+                Next
+                str = str.Substring(0, str.Length - 1) 'wg. ','
+                values = values.Substring(0, values.Length - 1) 'wg. ','
+                Return (" INSERT INTO tblCreditsafeEvents  (" & str & ") VALUES(" & values & ")  ")
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+            Return ""
+        End Function
+    End Class
+
 End Class