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

credtisafe, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-03 10:13:36 +02:00
parent dd225d37fe
commit 2905d7ac0f
7 changed files with 68 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/USTV/usrCntlUSTV.vb
View File

@@ -305,14 +305,14 @@ Public Class usrCntlUSTV
init() init()
cboJahr.Items.Clear() cboJahr.Items.Clear()
cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For i = 0 To 10 For i = 0 To Now().Year - 2005
cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i)) cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i))
Next Next
cboJahr.changeItem(Now.Year - 1) cboJahr.changeItem(Now.Year - 1)
cboJahrBis.Items.Clear() cboJahrBis.Items.Clear()
cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
For i = 0 To 10 For i = 0 To Now().Year - 2005
cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i)) cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i))
Next Next
cboJahrBis.changeItem(Now.Year) cboJahrBis.changeItem(Now.Year)

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

@@ -50,80 +50,44 @@ Public Class frmBonitätsverlauf
Dim sqlIndex As String = "" Dim sqlIndex As String = ""
If KD_ERW.kde_CreditSaveId.ToLower.Contains("at") Then If KD_ERW.kde_CreditSaveId.ToLower.Contains("at") Then
sqlIndex = ",ba_CreditSaveBonitaetsScore" sqlIndex = "ba_CreditSaveBonitaetsScore"
Else Else
sqlIndex = ",ba_CreditSaveBonitaetsIndex" sqlIndex = "ba_CreditSaveBonitaetsIndex"
End If 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
sqlstr &= " SELECT
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 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
FROM tblBonitaetsauskunft FROM (
where ba_KundenNr= " & KdSearchBox1.KdNr_value & " SELECT
e.companyId,
UNION ALL e.portfolioId,
e.eventDate,
e.sachbearbeiter,
SELECT CASE WHEN e.localEventCode = 'CR' OR e.globalEventCode = 'CR' THEN e.newValueCR ELSE 0 END AS crValue,
cast(e.eventDate as Date), CASE WHEN e.localEventCode = 'CL' OR e.globalEventCode = 'CL' THEN e.newValueCL ELSE 0 END AS clValue,
MAX(e.crValue) AS TotalCR, 'creditsafe API' AS Source
NULL, FROM [VERAG].[dbo].[tblCreditsafeEvents] e
NULL, INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b
NULL, ON e.bonId = b.ba_id
MAX(e.clValue) AS TotalCL, WHERE b.ba_KundenNr = " & KdSearchBox1.KdNr_value & "
MAX(sachbearbeiter), AND b.ba_Pruefungstool = 'creditsafe API'
NULL, AND (e.localEventCode IN ('CL','CR') OR e.globalEventCode IN ('CL','CR'))
NULL, ) e
NULL, GROUP BY e.companyId, e.portfolioId, CAST(e.eventDate AS DATE), Source
NULL, ) AS Temp
Source, ORDER BY Temp.ba_Datum DESC;"
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 End If
.SET_SQL(sqlstr, "FMZOLL") .SET_SQL(sqlstr, "FMZOLL")
.LOAD() .LOAD()

64
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2850,40 +2850,44 @@ Public Class usrCntlKundenuebersicht
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)) company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
cs.AddCompanyToPortfolio(company) If Not KUNDE_ERW.kde_CSPortfolioAdded Then
Dim AddCompValue As String = cs.AddCompanyToPortfolio(company)
If AddCompValue = "Conflict" Or AddCompValue = "OK" Or AddCompValue Is Nothing Then SQL.doSQL("Update tblKundenErweitert set kde_CSPortfolioAdded = 1 where kde_CreditSaveId = '" & KUNDE_ERW.kde_CreditSaveId & "'", "FMZOLL")
End If
If lastChecked = Today Then If lastChecked = Today Then
Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today) Dim bonaus = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(kdNr, Today)
If bonaus IsNot Nothing Then If bonaus IsNot Nothing Then
If bonaus.ba_Pruefungstool = "creditsafe API" AndAlso bonaus.ba_datenarchivId > -1 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!") MsgBox("Heute wurde bereits eine erfolgreiche Abfrage durchgeführt" & vbNewLine & "Vorgang wird abgebrochen!")
Cursor = Cursors.Default Cursor = Cursors.Default
btnCreditsafe.Enabled = True btnCreditsafe.Enabled = True
Exit Sub Exit Sub
End If
End If End If
End If End If
End If
If cs.checkDateOfLastRequest(company) < lastChecked 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) 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 a = vbYes Then
setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
End If
Else
setCreditsafereportEntry(cs, company)
End If End If
Else Else
setCreditsafereportEntry(cs, company) setCreditsafereportEntry(cs, company)
End If
Else
setCreditsafereportEntry(cs, company)
End If End If
@@ -3370,28 +3374,6 @@ Public Class usrCntlKundenuebersicht
If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden
End If End If
If checklastDate Then
'Update KUNDEN
'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
' KDERW.kde_CreditSaveBonitaetsklasse = cBonitaetsauskunft.ba_CreditSaveRisikoklasse
' KDERW.kde_BonitaetsStufe = cBonitaetsauskunft.ba_Risikostufe
' KDERW.SAVE()
' updateDatenarchivId()
'End If
End If
dgv.DataSource = dt dgv.DataSource = dt
If dgv IsNot Nothing Then If dgv IsNot Nothing Then

2
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -1572,7 +1572,7 @@ Public Class cAvisoDAL
id = (Convert.ToInt32(cmd.ExecuteScalar())) id = (Convert.ToInt32(cmd.ExecuteScalar()))
' MsgBox(id) ' MsgBox(id)
Else Else
cmd.ExecuteNonQuery() If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then cmd.ExecuteNonQuery()
End If End If
Catch ex As SqlException Catch ex As SqlException

5
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -99,6 +99,10 @@ Public Class cKundenErweitert
Property kde_BezFIBU As Object = Nothing Property kde_BezFIBU As Object = Nothing
Property kde_Kopfsammelrechnung As Boolean = False Property kde_Kopfsammelrechnung As Boolean = False
Property kde_CSPortfolioAdded As Boolean = False
@@ -200,6 +204,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Erstattungsart", kde_Erstattungsart)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Erstattungsart", kde_Erstattungsart))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSPortfolioAdded", kde_CSPortfolioAdded))
Return list Return list
End Function End Function

8
VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
View File

@@ -511,7 +511,7 @@ Public Class cCreditSafeAPI
cEvent.eventDate = R("eventDate") cEvent.eventDate = R("eventDate")
cEvent.createdDate = R("createdDate") cEvent.createdDate = R("createdDate")
cEvent.importDate = Now() cEvent.importDate = Now()
cEvent.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME cEvent.Sachbearbeiter = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME Is Nothing, "AUTO", VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
cEvent.oldValue = R("oldValue") cEvent.oldValue = R("oldValue")
cEvent.newValue = R("newValue") cEvent.newValue = R("newValue")
@@ -568,6 +568,7 @@ Public Class cCreditSafeAPI
cEvent.bonId = company.csBonID cEvent.bonId = company.csBonID
End If End If
cEvent.kundenNr = company.kdNr
cEvent.SAVE() cEvent.SAVE()
j = j + 1 j = j + 1
@@ -604,7 +605,7 @@ Public Class cCreditSafeAPI
End If End If
End If End If
@@ -1065,7 +1066,7 @@ Public Class cCreditSafeAPI
Property newValueCR As Object = Nothing Property newValueCR As Object = Nothing
Property oldValueCL As Object = Nothing Property oldValueCL As Object = Nothing
Property newValueCL As Object = Nothing Property newValueCL As Object = Nothing
Property kundenNr As Integer
Public hasEntry = False Public hasEntry = False
@@ -1093,6 +1094,7 @@ Public Class cCreditSafeAPI
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCR", newValueCR)) 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("oldValueCL", oldValueCL))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCL", newValueCL)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCL", newValueCL))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kundenNr", kundenNr))
Return list Return list

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -1488,7 +1488,7 @@ Public Class cSyska_Interface
For Each r_OP In dt_OP.Rows For Each r_OP In dt_OP.Rows
Try Try
If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten]", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten] AND Firma_ID = '" & Firma_ID & "'", "FMZOLL") 'Wenn ein Kunde geändert wird, wird die höchste ID ermittelt --> höchste ID des OPS der FIRMA!!!!
Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten() Dim OP As New VERAG_PROG_ALLGEMEIN.cOffene_Posten()