edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

creditsafe, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-01 09:20:20 +02:00
parent 1de5f5b8b5
commit 1a7507e868
3 changed files with 52 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -672,7 +672,7 @@ Public Class usrCntlKundenuebersicht
' Button4.Visible = False
' Button5.Visible = False
PictureBox7.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False)
pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso False 'aktuell noch deaktiviert!!
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!")
@@ -1590,16 +1590,16 @@ Public Class usrCntlKundenuebersicht
dgvAufschub.Rows.Clear()
If AUFSCHUB IsNot Nothing Then
For Each AB In AUFSCHUB
Dim art = ""
Select Case AB.kdAkto_art
Case "10" : art = "10 - ZOLL/EUST"
Case "15" : art = "15 - ZOLL"
Case "20" : art = "20 - EUST"
End Select
dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin)
Next
End If
For Each AB In AUFSCHUB
Dim art = ""
Select Case AB.kdAkto_art
Case "10" : art = "10 - ZOLL/EUST"
Case "15" : art = "15 - ZOLL"
Case "20" : art = "20 - EUST"
End Select
dgvAufschub.Rows.Add(AB.kdAkto_id, art, AB.kdAkto_hauptzollamt, AB.kdAkto_kontonummer, AB.kdAkto_eori, AB.kdAkto_eoriNL, AB.kdAkto_bin)
Next
End If
dgvAufschub.ClearSelection()
@@ -2839,7 +2839,7 @@ Public Class usrCntlKundenuebersicht
If lblBonitaetsdatum._value <> Nothing Then
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
If lastChecked = Today Then
@@ -2859,26 +2859,26 @@ Public Class usrCntlKundenuebersicht
If cs.checkDateOfLastRequest(company) < lastChecked Then
Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
If a = vbYes Then
Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
If a = vbYes Then
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
End If
Else
setCreditsafereportEntry(cs, company)
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
End If
Else
Else
setCreditsafereportEntry(cs, company)
End If
Else
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
setCreditsafereportEntry(cs, company)
End If
Else
MsgBox("Authentifizierungsfehler bei Creditsafe-User")
End If
@@ -3263,18 +3263,17 @@ Public Class usrCntlKundenuebersicht
End Sub
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles pbCreditsafeChanges.Click
Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
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)
cs.getCompanyEvents(company, dt, True)
If dt.Rows.Count > 0 Then
Dim frm As New Form
@@ -3287,11 +3286,6 @@ Public Class usrCntlKundenuebersicht
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
@@ -3304,12 +3298,13 @@ Public Class usrCntlKundenuebersicht
dgv.ReadOnly = True
frm.Controls.Add(dgv)
frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog()
End If
Else
MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
End If
End If