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)

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

@@ -50,38 +50,23 @@ 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 (
sqlstr &= " 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
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 FROM tblBonitaetsauskunft
where ba_KundenNr= " & KdSearchBox1.KdNr_value & " WHERE ba_KundenNr = " & KdSearchBox1.KdNr_value & "
UNION ALL UNION ALL
SELECT SELECT
cast(e.eventDate as Date), 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
MAX(e.crValue) AS TotalCR, FROM (
NULL, SELECT
NULL,
NULL,
MAX(e.clValue) AS TotalCL,
MAX(sachbearbeiter),
NULL,
NULL,
NULL,
NULL,
Source,
NULL,
NULL,
NULL
FROM (SELECT
e.companyId, e.companyId,
e.portfolioId, e.portfolioId,
e.eventDate, e.eventDate,
@@ -94,36 +79,15 @@ FROM (SELECT
ON e.bonId = b.ba_id ON e.bonId = b.ba_id
WHERE b.ba_KundenNr = " & KdSearchBox1.KdNr_value & " WHERE b.ba_KundenNr = " & KdSearchBox1.KdNr_value & "
AND b.ba_Pruefungstool = 'creditsafe API' AND b.ba_Pruefungstool = 'creditsafe API'
AND (e.localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR')) AND (e.localEventCode IN ('CL','CR') OR e.globalEventCode IN ('CL','CR'))
) e ) e
GROUP BY e.companyId, e.portfolioId, cast(e.eventDate as Date), Source GROUP BY e.companyId, e.portfolioId, CAST(e.eventDate AS DATE), Source
order by ba_Datum desc" ) AS Temp
ORDER BY Temp.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()

28
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2850,7 +2850,11 @@ 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)
@@ -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

6
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
@@ -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()