Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
@@ -29,8 +29,8 @@ Public Class cFirmen
|
||||
Property Firma_Webadresse As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_LandKz As Object = Nothing ' NVARCHAR (40) NULL,
|
||||
Property Firma_Steuernummer As Object = Nothing
|
||||
|
||||
Property Firmengruppe As Object = Nothing
|
||||
Property Firma_PLZ As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New SQL
|
||||
@@ -46,7 +46,6 @@ Public Class cFirmen
|
||||
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Bez", Firma_Bez))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_BackColor", Firma_BackColor))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Logo", Firma_Logo))
|
||||
@@ -74,6 +73,7 @@ Public Class cFirmen
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_LandKz", Firma_LandKz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firmengruppe", Firmengruppe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Steuernummer", Firma_Steuernummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_PLZ", Firma_PLZ))
|
||||
|
||||
|
||||
Return list
|
||||
|
||||
@@ -2283,7 +2283,7 @@ Public Class DATENVERVER_OPTIONS
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function addAttachementToPDF(File As String, attPath As String) As String
|
||||
Public Shared Function addAttachementToPDF(File As String, attPath As String, Optional renameFile As String = "") As String
|
||||
Try
|
||||
|
||||
Dim pdf As New Spire.Pdf.PdfDocument()
|
||||
@@ -2295,6 +2295,8 @@ Public Class DATENVERVER_OPTIONS
|
||||
|
||||
Dim attachment As PdfAttachment = New PdfAttachment(attPath)
|
||||
|
||||
If renameFile <> "" Then attachment.FileName = renameFile
|
||||
|
||||
docPdf.Attachments.Add(attachment)
|
||||
docPdf.SaveToFile(File)
|
||||
End If
|
||||
|
||||
@@ -219,6 +219,7 @@ Public Class cCreditSafeAPI
|
||||
|
||||
|
||||
If acceptContentType.Contains("application/pdf") Then
|
||||
'If acceptContentType.Contains("application/json+pdf") Or acceptContentType.Contains("application/json") Then
|
||||
|
||||
responseJson = rest.FullRequestNoBodyBd(method, url, pdfData)
|
||||
If (rest.LastMethodSuccess <> True) Then
|
||||
@@ -419,14 +420,20 @@ Public Class cCreditSafeAPI
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, Optional checklastChecked As Boolean = False) As String
|
||||
Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, Optional checklastChecked As Boolean = False, Optional updateKunden As Boolean = False, Optional showError As Boolean = False) As String
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
|
||||
|
||||
'rest.AddQueryParam("from", Today().AddDays(-1))
|
||||
|
||||
Dim failureDesc As String
|
||||
Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & company.lastChecked, "")
|
||||
Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & company.lastChecked.ToString("yyyy-MM-ddTHH:mm:ss"), "")
|
||||
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc)
|
||||
|
||||
If failureDesc <> "" Then
|
||||
If showError Then MsgBox(failureDesc)
|
||||
Return "Error"
|
||||
End If
|
||||
|
||||
Dim json As New Chilkat.JsonObject
|
||||
Dim success As Boolean = json.Load(jsonRespString)
|
||||
@@ -462,122 +469,125 @@ Public Class cCreditSafeAPI
|
||||
|
||||
Dim numCompanies As Integer = companieData.Size
|
||||
|
||||
Dim CL As Double = -1
|
||||
Dim CR As Integer = -1
|
||||
Dim CL_Date As Date = company.lastChecked
|
||||
Dim CR_Date As Date = company.lastChecked
|
||||
Dim defaultCL As Double = -10000000
|
||||
Dim defaultCR As Integer = -10000000
|
||||
|
||||
For i = 0 To 1
|
||||
Dim CL As Double = defaultCL
|
||||
Dim CR As Integer = defaultCR
|
||||
Dim CL_Datum As Date = company.lastChecked
|
||||
Dim CR_Datum As Date = company.lastChecked
|
||||
|
||||
' For i = 0 To 1
|
||||
|
||||
|
||||
Dim j As Integer = 0
|
||||
While j < numCompanies
|
||||
Dim j As Integer = 0
|
||||
While j < numCompanies
|
||||
|
||||
Dim compObj As Chilkat.JsonObject = companieData.ObjectAt(j)
|
||||
Dim compObj As Chilkat.JsonObject = companieData.ObjectAt(j)
|
||||
|
||||
Dim index = companieData.FindString("eventId", False)
|
||||
Dim index = companieData.FindString("eventId", False)
|
||||
|
||||
Dim dateTime As New Chilkat.CkDateTime
|
||||
Dim dt As New Chilkat.DtObj
|
||||
Dim getAsLocal As Boolean = False
|
||||
Dim dateTime As New Chilkat.CkDateTime
|
||||
Dim dt As New Chilkat.DtObj
|
||||
Dim getAsLocal As Boolean = False
|
||||
|
||||
success = compObj.DateOf("eventDate", dateTime)
|
||||
success = compObj.DateOf("createdDate", dateTime)
|
||||
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
|
||||
success = compObj.DateOf("eventDate", dateTime)
|
||||
success = compObj.DateOf("createdDate", dateTime)
|
||||
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
|
||||
|
||||
|
||||
Dim R As DataRow = dtEvents.NewRow
|
||||
R("eventId") = compObj.StringOf("eventId")
|
||||
R("companyId") = compObj.StringOf("companyId")
|
||||
R("portfolioId") = compObj.StringOf("portfolioId")
|
||||
R("ruleName") = compObj.StringOf("ruleName")
|
||||
R("localEventCode") = compObj.StringOf("localEventCode")
|
||||
R("globalEventCode") = compObj.StringOf("globalEventCode")
|
||||
R("oldValue") = compObj.StringOf("oldValue")
|
||||
R("newValue") = compObj.StringOf("newValue")
|
||||
R("eventDate") = dateTime.GetAsTimestamp(getAsLocal)
|
||||
R("createdDate") = dateTime.GetAsTimestamp(getAsLocal)
|
||||
Dim R As DataRow = dtEvents.NewRow
|
||||
R("eventId") = compObj.StringOf("eventId")
|
||||
R("companyId") = compObj.StringOf("companyId")
|
||||
R("portfolioId") = compObj.StringOf("portfolioId")
|
||||
R("ruleName") = compObj.StringOf("ruleName")
|
||||
R("localEventCode") = compObj.StringOf("localEventCode")
|
||||
R("globalEventCode") = compObj.StringOf("globalEventCode")
|
||||
R("oldValue") = compObj.StringOf("oldValue")
|
||||
R("newValue") = compObj.StringOf("newValue")
|
||||
R("eventDate") = dateTime.GetAsTimestamp(getAsLocal)
|
||||
R("createdDate") = dateTime.GetAsTimestamp(getAsLocal)
|
||||
|
||||
dtEvents.Rows.Add(R)
|
||||
dtEvents.Rows.Add(R)
|
||||
|
||||
Dim cEvent As New cCreditsafeEvent(CLng(R("eventId")))
|
||||
Dim cEvent As New cCreditsafeEvent(CLng(R("eventId")))
|
||||
|
||||
cEvent.eventId = R("eventId")
|
||||
cEvent.companyId = R("companyId")
|
||||
cEvent.portfolioId = R("portfolioId")
|
||||
cEvent.ruleName = R("ruleName")
|
||||
cEvent.localEventCode = R("localEventCode").trim()
|
||||
cEvent.globalEventCode = R("globalEventCode").trim()
|
||||
cEvent.eventDate = R("eventDate")
|
||||
cEvent.createdDate = R("createdDate")
|
||||
cEvent.importDate = Now()
|
||||
cEvent.Sachbearbeiter = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME Is Nothing, "AUTO", VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
cEvent.oldValue = R("oldValue")
|
||||
cEvent.newValue = R("newValue")
|
||||
cEvent.eventId = R("eventId")
|
||||
cEvent.companyId = R("companyId")
|
||||
cEvent.portfolioId = R("portfolioId")
|
||||
cEvent.ruleName = R("ruleName")
|
||||
cEvent.localEventCode = R("localEventCode").trim()
|
||||
cEvent.globalEventCode = R("globalEventCode").trim()
|
||||
cEvent.eventDate = R("eventDate")
|
||||
cEvent.createdDate = R("createdDate")
|
||||
cEvent.importDate = Now()
|
||||
cEvent.Sachbearbeiter = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME Is Nothing, "AUTO", VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
|
||||
cEvent.oldValue = R("oldValue")
|
||||
cEvent.newValue = R("newValue")
|
||||
|
||||
|
||||
'OLD-VALUES
|
||||
If cEvent.oldValue IsNot Nothing AndAlso IsNumeric(cEvent.oldValue) AndAlso Not cEvent.oldValue.ToString.Contains("€") Then
|
||||
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
|
||||
cEvent.oldValueCL = cEvent.oldValue
|
||||
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
|
||||
cEvent.oldValueCR = cEvent.oldValue
|
||||
End If
|
||||
|
||||
Else
|
||||
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
|
||||
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
|
||||
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
|
||||
cEvent.oldValueCL = cEvent.oldValue
|
||||
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
|
||||
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
|
||||
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
|
||||
cEvent.oldValueCR = cEvent.oldValue
|
||||
End If
|
||||
|
||||
'OLD-VALUES
|
||||
If cEvent.oldValue IsNot Nothing AndAlso IsNumeric(cEvent.oldValue) AndAlso Not cEvent.oldValue.ToString.Contains("€") Then
|
||||
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
|
||||
cEvent.oldValueCL = cEvent.oldValue
|
||||
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
|
||||
cEvent.oldValueCR = cEvent.oldValue
|
||||
cEvent.oldValueCRIndex = calculatedBonIndexFromBonScore(cEvent.oldValue, cEvent.oldRiskClass)
|
||||
End If
|
||||
|
||||
|
||||
'NEW-VALUES
|
||||
If cEvent.newValue IsNot Nothing AndAlso IsNumeric(cEvent.newValue) AndAlso Not cEvent.newValue.ToString.Contains("€") Then
|
||||
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
|
||||
cEvent.newValueCL = cEvent.newValue
|
||||
setCL_CR_Entry(CDate(cEvent.eventDate), "CL", cEvent.newValueCL, CL, CR, CL_Date, CR_Date)
|
||||
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
|
||||
cEvent.newValueCR = cEvent.newValue
|
||||
setCL_CR_Entry(CDate(cEvent.eventDate), "CR", cEvent.newValueCR, CL, CR, CL_Date, CR_Date)
|
||||
End If
|
||||
Else
|
||||
|
||||
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
|
||||
cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
|
||||
cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
|
||||
cEvent.newValueCL = cEvent.newValue
|
||||
setCL_CR_Entry(CDate(cEvent.eventDate), "CL", cEvent.newValueCL, CL, CR, CL_Date, CR_Date)
|
||||
|
||||
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
|
||||
cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
|
||||
cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
|
||||
cEvent.newValueCR = cEvent.newValue
|
||||
setCL_CR_Entry(CDate(cEvent.eventDate), "CR", cEvent.newValueCR, CL, CR, CL_Date, CR_Date)
|
||||
End If
|
||||
|
||||
Else
|
||||
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
|
||||
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
|
||||
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
|
||||
cEvent.oldValueCL = cEvent.oldValue
|
||||
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
|
||||
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
|
||||
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
|
||||
cEvent.oldValueCR = cEvent.oldValue
|
||||
cEvent.oldValueCRIndex = calculatedBonIndexFromBonScore(cEvent.oldValue, cEvent.oldRiskClass)
|
||||
End If
|
||||
|
||||
If cEvent.bonId Is Nothing AndAlso company.csBonID > 0 Then
|
||||
cEvent.bonId = company.csBonID
|
||||
End If
|
||||
|
||||
|
||||
'NEW-VALUES
|
||||
If cEvent.newValue IsNot Nothing AndAlso IsNumeric(cEvent.newValue) AndAlso Not cEvent.newValue.ToString.Contains("€") Then
|
||||
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
|
||||
cEvent.newValueCL = cEvent.newValue
|
||||
setCL_CR_Entry(CDate(cEvent.eventDate), "CL", cEvent.newValueCL, CL, CR, CL_Datum, CR_Datum)
|
||||
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
|
||||
cEvent.newValueCR = cEvent.newValue
|
||||
cEvent.newValueCRIndex = calculatedBonIndexFromBonScore(cEvent.newValue, cEvent.newRiskClass)
|
||||
setCL_CR_Entry(CDate(cEvent.eventDate), "CR", cEvent.newValueCR, CL, CR, CL_Datum, CR_Datum)
|
||||
End If
|
||||
Else
|
||||
|
||||
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
|
||||
cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
|
||||
cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
|
||||
cEvent.newValueCL = cEvent.newValue
|
||||
setCL_CR_Entry(CDate(cEvent.eventDate), "CL", cEvent.newValueCL, CL, CR, CL_Datum, CR_Datum)
|
||||
|
||||
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
|
||||
cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
|
||||
cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
|
||||
cEvent.newValueCR = cEvent.newValue
|
||||
cEvent.newValueCRIndex = calculatedBonIndexFromBonScore(cEvent.newValue, cEvent.newRiskClass)
|
||||
setCL_CR_Entry(CDate(cEvent.eventDate), "CR", cEvent.newValueCR, CL, CR, CL_Datum, CR_Datum)
|
||||
End If
|
||||
|
||||
cEvent.kundenNr = company.kdNr
|
||||
cEvent.SAVE()
|
||||
|
||||
j = j + 1
|
||||
End While
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If cEvent.bonId Is Nothing AndAlso company.csBonID > 0 Then
|
||||
cEvent.bonId = company.csBonID
|
||||
End If
|
||||
|
||||
cEvent.kundenNr = company.kdNr
|
||||
cEvent.SAVE()
|
||||
|
||||
j = j + 1
|
||||
End While
|
||||
'Next
|
||||
|
||||
|
||||
If dtEvents.Rows.Count > 1 Then
|
||||
@@ -586,41 +596,64 @@ Public Class cCreditSafeAPI
|
||||
'viewEvents = New DataView(dtEvents, "localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR')", "", DataViewRowState.CurrentRows)
|
||||
End If
|
||||
|
||||
If company.kdNr > 0 Then
|
||||
If company.kdNr > 0 AndAlso updateKunden AndAlso (CR <> -1000000 Or CL <> -1000000) Then
|
||||
Dim KUNDE As New cKunde(company.kdNr)
|
||||
|
||||
If KUNDE.Bonitätsdatum <= CL_Date Or KUNDE.Bonitätsdatum <= CR_Date Then
|
||||
If KUNDE.Bonitätsdatum <= CL_Datum Or KUNDE.Bonitätsdatum <= CR_Datum Then
|
||||
|
||||
If KUNDE.Bonität <> CR Then
|
||||
KUNDE.Bonität = CR
|
||||
KUNDE.Bonitätsdatum = CDate(CR_Date)
|
||||
Dim Index As Double = -1
|
||||
Dim ADR As New cAdressen(KUNDE.KundenNr)
|
||||
Dim riskClass As String = ""
|
||||
Dim riskClassChanged As Boolean = False
|
||||
Dim KUNDE_ERW As New cKundenErweitert(KUNDE.KundenNr)
|
||||
|
||||
If Not (ADR.LandKz = "AT" Or ADR.LandKz = "A") Then 'bei nicht österr. den Index nehmen, sonst den Score
|
||||
Index = IIf(CR = defaultCL, -1, calculatedBonIndexFromBonScore(CR, riskClass))
|
||||
Else
|
||||
If CR <> defaultCL Then calculatedBonIndexFromBonScore(CR, riskClass)
|
||||
End If
|
||||
|
||||
If KUNDE.Höchstkredit <> CL Then
|
||||
If Index <> -1 Then
|
||||
If KUNDE_ERW.kde_CreditSaveBonitaetsIndex <> Index Then
|
||||
KUNDE_ERW.kde_CreditSaveBonitaetsIndex = Index
|
||||
KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
|
||||
KUNDE.Bonitätsdatum = Today()
|
||||
End If
|
||||
Else
|
||||
If KUNDE_ERW.kde_CreditSaveBonitaetsScore <> CR AndAlso CR <> defaultCR Then
|
||||
KUNDE_ERW.kde_CreditSaveBonitaetsScore = CR
|
||||
KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
|
||||
KUNDE.Bonitätsdatum = Today()
|
||||
End If
|
||||
End If
|
||||
|
||||
If KUNDE.Höchstkredit <> CL AndAlso CL <> defaultCL Then
|
||||
KUNDE.Höchstkredit = CL
|
||||
KUNDE.Bonitätsdatum = CDate(CL_Date)
|
||||
If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then
|
||||
KUNDE.Bonitätsdatum = Today()
|
||||
End If
|
||||
End If
|
||||
|
||||
KUNDE.SAVE()
|
||||
|
||||
KUNDE_ERW.SAVE()
|
||||
End If
|
||||
|
||||
End If
|
||||
KUNDE.SAVE()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Return "Anzahl gefundener Datensätze: " & numCompanies
|
||||
|
||||
End Function
|
||||
|
||||
Private Shared Sub setCL_CR_Entry(cs_date As Date, type As String, value As Object, CL As Double, CR As Integer, CL_Date As Date, CR_Date As Date)
|
||||
Private Shared Sub setCL_CR_Entry(ByVal cs_date As Date, ByVal type As String, ByRef value As Object, ByRef CL As Double, ByRef CR As Integer, ByRef CL_Datum As Date, ByRef CR_Datum As Date)
|
||||
|
||||
Select Case type
|
||||
|
||||
Case "CR"
|
||||
Dim saveCR As Boolean = False
|
||||
If CR_Date <= cs_date Then
|
||||
cs_date = CR_Date
|
||||
If CR_Datum <= cs_date Then
|
||||
CR_Datum = cs_date
|
||||
saveCR = True
|
||||
End If
|
||||
|
||||
@@ -628,8 +661,8 @@ Public Class cCreditSafeAPI
|
||||
|
||||
Case "CL"
|
||||
Dim saveCL As Boolean = False
|
||||
If CL_Date <= cs_date Then
|
||||
cs_date = CL_Date
|
||||
If CL_Datum <= cs_date Then
|
||||
CL_Datum = cs_date
|
||||
saveCL = True
|
||||
End If
|
||||
|
||||
@@ -975,6 +1008,126 @@ Public Class cCreditSafeAPI
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function calculatedBonIndexFromBonScore(score As Object, ByRef riskClass As String) As Double
|
||||
|
||||
If score Is Nothing OrElse Not IsNumeric(score) Then Return -1
|
||||
|
||||
Select Case score
|
||||
Case 91 To 100
|
||||
riskClass = "A"
|
||||
Case 81 To 90
|
||||
riskClass = "A"
|
||||
Case 71 To 80
|
||||
riskClass = "B"
|
||||
Case 61 To 70
|
||||
riskClass = "B"
|
||||
Case 51 To 60
|
||||
riskClass = "C"
|
||||
Case 35 To 50
|
||||
riskClass = "C"
|
||||
Case 25 To 34
|
||||
riskClass = "D"
|
||||
Case 15 To 24
|
||||
riskClass = "D"
|
||||
Case 1 To 14
|
||||
riskClass = "D"
|
||||
Case Else
|
||||
riskClass = "E"
|
||||
End Select
|
||||
|
||||
|
||||
Select Case score
|
||||
Case 0
|
||||
Return 6
|
||||
Case 1 To 10
|
||||
Return 5
|
||||
Case 11 To 12
|
||||
Return 4.9
|
||||
Case 13 To 14
|
||||
Return 4.8
|
||||
Case 15 To 16
|
||||
Return 4.7
|
||||
Case 17 To 18
|
||||
Return 4.6
|
||||
Case 19 To 20
|
||||
Return 4.5
|
||||
Case 21 To 22
|
||||
Return 4.4
|
||||
Case 23 To 25
|
||||
Return 4.3
|
||||
Case 26 To 28
|
||||
Return 4.2
|
||||
Case 29 To 31
|
||||
Return 4.1
|
||||
Case 32 To 34
|
||||
Return 4
|
||||
Case 35 To 38
|
||||
Return 3.9
|
||||
Case 39 To 41
|
||||
Return 3.8
|
||||
Case 42 To 44
|
||||
Return 3.7
|
||||
Case 45 To 47
|
||||
Return 3.6
|
||||
Case 48 To 50
|
||||
Return 3.5
|
||||
Case 51 To 52
|
||||
Return 3.4
|
||||
Case 53 To 54
|
||||
Return 3.3
|
||||
Case 55 To 56
|
||||
Return 3.2
|
||||
Case 57 To 58
|
||||
Return 3.1
|
||||
Case 59 To 60
|
||||
Return 3
|
||||
Case 61 To 62
|
||||
Return 2.9
|
||||
Case 63 To 64
|
||||
Return 2.8
|
||||
Case 65 To 66
|
||||
Return 2.7
|
||||
Case 67 To 68
|
||||
Return 2.6
|
||||
Case 69 To 70
|
||||
Return 2.5
|
||||
Case 71 To 72
|
||||
Return 2.4
|
||||
Case 73 To 74
|
||||
Return 2.3
|
||||
Case 75 To 76
|
||||
Return 2.2
|
||||
Case 77 To 78
|
||||
Return 2.1
|
||||
Case 79 To 80
|
||||
Return 2
|
||||
Case 81 To 82
|
||||
Return 1.9
|
||||
Case 83 To 84
|
||||
Return 1.8
|
||||
Case 85 To 86
|
||||
Return 1.7
|
||||
Case 87 To 88
|
||||
Return 1.6
|
||||
Case 89 To 90
|
||||
Return 1.5
|
||||
Case 91 To 92
|
||||
Return 1.4
|
||||
Case 93 To 94
|
||||
Return 1.3
|
||||
Case 95 To 96
|
||||
Return 1.2
|
||||
Case 97 To 98
|
||||
Return 1.1
|
||||
Case 99 To 100
|
||||
Return 1
|
||||
Case Else
|
||||
Return 6
|
||||
End Select
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class CreditSafeUser
|
||||
Public Property username As String
|
||||
@@ -1067,6 +1220,10 @@ Public Class cCreditSafeAPI
|
||||
Property oldValueCL As Object = Nothing
|
||||
Property newValueCL As Object = Nothing
|
||||
Property kundenNr As Integer
|
||||
Property newValueCRIndex As Object = Nothing
|
||||
Property oldValueCRIndex As Object = Nothing
|
||||
Property oldRiskClass As String
|
||||
Property newRiskClass As String
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
@@ -1095,6 +1252,10 @@ Public Class cCreditSafeAPI
|
||||
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("kundenNr", kundenNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCRIndex", newValueCRIndex))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCRIndex", oldValueCRIndex))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldRiskClass", oldRiskClass))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newRiskClass", newRiskClass))
|
||||
|
||||
|
||||
Return list
|
||||
|
||||
@@ -1488,7 +1488,7 @@ Public Class cSyska_Interface
|
||||
For Each r_OP In dt_OP.Rows
|
||||
|
||||
Try
|
||||
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!!!!
|
||||
If KdNr > 1 Then OP_ID_CNT = SQL.getValueTxtBySql("SELECT isnull(MAX(OP_ID),0)+1 FROM [Offene Posten] WHERE 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()
|
||||
|
||||
|
||||
@@ -386,14 +386,12 @@
|
||||
<Compile Include="AuditFlow\Classes\cAuditFlow.vb" />
|
||||
<Compile Include="AuditFlow\Classes\cAuditFlow_Pruefobjekte.vb" />
|
||||
<Compile Include="AuditFlow\Classes\cAuditFlow_Pruefungen.vb" />
|
||||
<Compile Include="Classes\cUI_Performance.vb" />
|
||||
<Compile Include="frmDatumsabfrage.Designer.vb">
|
||||
<DependentUpon>frmDatumsabfrage.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmDatumsabfrage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Schnittstellen\ATEZ\GREENPULSE\cATEZ_Greenpulse_KafkaDecs.vb" />
|
||||
<Compile Include="Schnittstellen\ATEZ\RELAYHUB\cRelayHub.vb" />
|
||||
<Compile Include="Schnittstellen\ATEZ\RELAYHUB\cRelayHubToken.vb" />
|
||||
<Compile Include="Schnittstellen\BZST\cBZST_UID_XML.vb" />
|
||||
@@ -1426,9 +1424,6 @@
|
||||
<None Include="Resources\people.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<PackageReference Include="Confluent.Kafka">
|
||||
<Version>2.11.1</Version>
|
||||
</PackageReference>
|
||||
<PackageReference Include="esendex-dotnet-sdk">
|
||||
<Version>3.8.0</Version>
|
||||
</PackageReference>
|
||||
@@ -1450,6 +1445,9 @@
|
||||
<PackageReference Include="SSH.NET">
|
||||
<Version>2024.0.0</Version>
|
||||
</PackageReference>
|
||||
<PackageReference Include="System.Management">
|
||||
<Version>9.0.8</Version>
|
||||
</PackageReference>
|
||||
<PackageReference Include="xmlrpcnet">
|
||||
<Version>3.0.0.266</Version>
|
||||
</PackageReference>
|
||||
@@ -1599,7 +1597,6 @@
|
||||
<ItemGroup>
|
||||
<Content Include="My Project\licensePDFPro.elic.xml" />
|
||||
<Content Include="My Project\licensePDFViewer.elic.xml" />
|
||||
<None Include="Resources\abgeklaertAktiv.jpg" />
|
||||
<None Include="Resources\save.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
|
||||
Reference in New Issue
Block a user