creditsafeAPI Monitoring, Kundenuebersicht, Zugferd, etc.

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -671,6 +671,9 @@ Public Class usrCntlKundenuebersicht
             Button3.BackgroundImage = My.Resources.fragezeichen
             '     Button4.Visible = False
             '  Button5.Visible = False
+
+            PictureBox7.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False)
+
         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!")
         End Try
@@ -3104,6 +3107,8 @@ Public Class usrCntlKundenuebersicht
 
         pdfObject = cs.getPDF(company, failureDesc)
 
+        cs.AddCompanyToPortfolio(company)
+
         cs.getSubscriptionCountries(dt)
 
         If dt.Rows.Count > 0 AndAlso dt.AsEnumerable.Any(Function(c) company.country = c.Item("countryIso2").ToString) Then
@@ -3257,15 +3262,57 @@ Public Class usrCntlKundenuebersicht
         End If
     End Sub
 
-    Private Sub lblBonitaet_TextChanged(sender As Object, e As EventArgs) Handles lblBonitaet.TextChanged
 
-    End Sub
+    Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
 
-    Private Sub lblBonitaetRisikostufe_TextChanged(sender As Object, e As EventArgs) Handles lblBonitaetRisikostufe.TextChanged
+        Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
 
-    End Sub
 
-    Private Sub Label39_Click(sender As Object, e As EventArgs) Handles Label39.Click
+        Dim cs = New cCreditSafeAPI("creditsafe")
+
+        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 dt As New DataTable()
+            cs.getCompanyEvents(company, dt)
+
+            If dt.Rows.Count > 0 Then
+                Dim frm As New Form
+                Dim dgv As New DataGridView()
+
+                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
+
+                If dgv.Columns.Contains("newValue") Then dgv.Columns("newValue").HeaderText = "Nachher"
+                If dgv.Columns.Contains("oldValue") Then dgv.Columns("oldValue").HeaderText = "Vorher"
+                If dgv.Columns.Contains("eventDate") Then dgv.Columns("eventDate").HeaderText = "Geändert am"
+
+
+                dgv.DataSource = dt
+
+                If dgv IsNot Nothing Then
+
+                    frm.Size = New Size(750, 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
+
+
+            Else
+                    MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
+            End If
+
+        End If
 
     End Sub
 End Class