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

Creditsafe, Datenserver, Bonit., Kundenuebersicht, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-04 17:03:36 +02:00
parent 410e292b44
commit 9769c6fac1
6 changed files with 42 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb
View File

@@ -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

4
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -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

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

@@ -420,7 +420,7 @@ Public Class cCreditSafeAPI
End Function
Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, Optional checklastChecked As Boolean = False, Optional updateKunden 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()
@@ -431,7 +431,7 @@ Public Class cCreditSafeAPI
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc)
If failureDesc <> "" Then
MsgBox(failureDesc)
If showError Then MsgBox(failureDesc)
Return "Error"
End If
@@ -617,20 +617,20 @@ Public Class cCreditSafeAPI
If KUNDE_ERW.kde_CreditSaveBonitaetsIndex <> Index Then
KUNDE_ERW.kde_CreditSaveBonitaetsIndex = Index
KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
KUNDE.Bonitätsdatum = CDate(CR_Datum)
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 = CDate(CR_Datum)
KUNDE.Bonitätsdatum = Today()
End If
End If
If KUNDE.Höchstkredit <> CL AndAlso CL <> defaultCL Then
KUNDE.Höchstkredit = CL
If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then
KUNDE.Bonitätsdatum = CDate(CL_Datum)
KUNDE.Bonitätsdatum = Today()
End If
End If