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

Auswertung, Kundenuebersicht Credtisafe-API

Browse Source
This commit is contained in:
d.breimaier
2025-09-26 15:37:22 +02:00
parent 0871e82f58
commit 6b3ea231ed
8 changed files with 1781 additions and 1428 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -518,6 +518,8 @@ Public Class usrCntlKundenuebersicht
' TMPText = TMPText.Replace("/", "" & vbNewLine)
rtbAbf_Besonderheiten.Text = TMPText
initInsolvent(KUNDE_ERW.kde_CSinsolventAm)
' lblKreditlimit.BackColor = Color.White
lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture)
If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then
@@ -714,6 +716,21 @@ Public Class usrCntlKundenuebersicht
End If
End Sub
Sub initInsolvent(insolvent)
If insolvent IsNot Nothing Then
'Me.BackColor = Color.Red
lblInsolvent.Visible = True
lblInsolvent.Text = "KUNDE INSOLVENT " & IIf(IsDate(insolvent), " SEIT " & CDate(insolvent).ToShortDateString, "")
rtbInfo.Visible = True
'lblTARIFE.ForeColor = Color.White
Else
'Me.BackColor = Color.White
lblInsolvent.Visible = False
rtbInfo.Visible = False
'lblTARIFE.ForeColor = Color.FromArgb(0, 54, 128)
End If
End Sub
Sub showForm(t As String, Optional h As String = "")
Dim f As New Form
@@ -2857,37 +2874,37 @@ Public Class usrCntlKundenuebersicht
If lastChecked = Today Then
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
If bonaus IsNot Nothing Then
If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then
MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
Cursor = Cursors.Default
btnCreditsafe.Enabled = True
Exit Sub
End If
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
If bonaus IsNot Nothing Then
If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 Then
MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
Cursor = Cursors.Default
btnCreditsafe.Enabled = True
Exit Sub
End If
End If
End If
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
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
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
End If
Else
setCreditsafereportEntry(cs, company)
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
End If
Else
setCreditsafereportEntry(cs, company)
End If
Else
setCreditsafereportEntry(cs, company)
End If
@@ -3369,7 +3386,7 @@ Public Class usrCntlKundenuebersicht
If currentBonID > 0 Then company.csBonID = currentBonID
Dim dt As New DataTable()
If cs.getCompanyEvents(company, dt, checklastDate, True) = "Error" Then
If cs.getCompanyEvents(company, dt, True, 0, checklastDate, True) = "Error" Then
Exit Sub
End If