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

Bon, kundenubersicht, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-03 17:31:59 +02:00
parent 1eccc1c634
commit 8c4d04703b
3 changed files with 299 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
SDL/kunden/frmBonitätsverlauf.vb
View File

@@ -43,9 +43,10 @@ Public Class frmBonitätsverlauf
If KdSearchBox1.KdNr_value > 0 Then
With MyDatagridview1
Dim sqlstr As String = ""
Dim KD_ERW As New cKundenErweitert(KdSearchBox1.KdNr_value)
If KD_ERW.kde_CreditSaveId IsNot Nothing AndAlso KD_ERW.kde_CreditSaveId <> "" AndAlso newView Then
If KD_ERW.kde_CreditSaveId IsNot Nothing AndAlso KD_ERW.kde_CreditSaveId <> "" Then
Dim sqlIndex As String = ""
@@ -55,13 +56,7 @@ Public Class frmBonitätsverlauf
sqlIndex = "ba_CreditSaveBonitaetsIndex"
End If
sqlstr &= "SELECT *
FROM (
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
Dim sqlNewViewAdd As String = " UNION ALL
SELECT
CAST(e.eventDate AS DATE) AS ba_Datum,MAX(e.crValue) AS " & sqlIndex & ",NULL AS ba_GruendundsDatum,NULL AS ba_Umsatz,NULL AS ba_Mitarbeiter,MAX(e.clValue) AS ba_Hoechstkredit,MAX(e.sachbearbeiter) AS ba_Sachbearbeiter,NULL AS ba_Zahlungsweise,NULL AS ba_GFName,NULL AS ba_Risikostufe,NULL AS ba_CreditSaveRisikoklasse,Source AS ba_Pruefungstool,NULL AS ba_GSName,NULL AS ba_Geschaeftszweck,NULL AS ba_datenarchivId
@@ -71,7 +66,7 @@ Public Class frmBonitätsverlauf
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 = 'CR' OR e.globalEventCode = 'CR' THEN " & IIf(Not KD_ERW.kde_CreditSaveId.ToLower.Contains("at"), "e.newValueCRIndex", "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
@@ -81,10 +76,20 @@ Public Class frmBonitätsverlauf
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
) AS Temp
GROUP BY e.companyId, e.portfolioId, CAST(e.eventDate AS DATE), Source"
sqlstr &= "SELECT *
FROM (
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 & IIf(newView, sqlNewViewAdd, "") & ") AS Temp
ORDER BY Temp.ba_Datum DESC;"
Else
sqlstr = "SELECT * FROM [tblBonitaetsauskunft] where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
End If

17
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -3185,6 +3185,7 @@ Public Class usrCntlKundenuebersicht
Exit Sub
End If
'#wenn PDF und JSON in einem geht, dann folgende Zeile auskommentieren!
pdfObject = cs.getPDF(company, failureDesc)
'cs.AddCompanyToPortfolio(company)
@@ -3352,14 +3353,17 @@ Public Class usrCntlKundenuebersicht
If cs.authenticate() = "200" Then
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-30))
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, checklastDate)
If cs.getCompanyEvents(company, dt, checklastDate, True) = "Error" Then
Exit Sub
End If
If dt.Rows.Count > 0 Then
Dim frm As New Form
@@ -3387,10 +3391,17 @@ Public Class usrCntlKundenuebersicht
frm.Controls.Add(dgv)
frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog()
If frm.ShowDialog().Cancel Then
initCreditsave()
setKD(kdNr)
End If
End If
Else
MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
End If