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

Creditsafe, Import-Zollanm, offeneAntr, Fremdrechnunge, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-10-06 15:03:24 +02:00
parent 7ea2686718
commit 06f87d0c87
8 changed files with 71 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -160,9 +160,13 @@ Public Class cCreditSafeAPI
rest.PartSelector = "1"
rest.AddHeader("Content-Disposition", "form-data; name=""importcsv""; filename=""importcsv.csv""")
rest.AddHeader("Content-Type", "text/csv")
rest.SetMultipartBodyString("d.breimaier@verag.ag")
rest.SetMultipartBodyStream(fileStream)
rest.PartSelector = "2"
rest.AddHeader("Content-Disposition", "form-data; name=""email""")
rest.SetMultipartBodyString("d.breimaier@verag.ag;as@verag.ag;Viktoria.Leirich@imex-group.at")
rest.PartSelector = "0"
Dim strResponseBody As String = rest.FullRequestMultipart(method, url.Replace(API_STRING, ""))
@@ -1676,7 +1680,8 @@ Public Class cCreditSafeAPI
Dim textVermerk As String = ""
Select Case typ
Case "B-INDEX", "B-SCORE", "KREDITLIMIT" : textVermerk &= "ACHTUNG, Veränderung des " & typ & " von " & oldValue.ToString & " auf " & newValue.ToString & " ( um " & changedInProzent.ToString("F2") & "% ) " & Risk
Case "B-INDEX", "B-SCORE" : textVermerk &= "ACHTUNG, Veränderung des " & typ & " von " & oldValue.ToString & " auf " & newValue.ToString & " ( um " & changedInProzent.ToString("F2") & "% ) " & Risk
Case "KREDITLIMIT" : textVermerk &= "ACHTUNG, Veränderung des " & typ & " auf " & newValue.ToString & " ( um " & changedInProzent.ToString("F2") & "% ) "
Case "BANKRUPT_REGISTERED" : textVermerk &= " KUNDE WURDE LAUT CREDITSAFE " & IIf(company IsNot Nothing, " AM " & company.BANKRUPT_REGISTERED_DATE.ToShortDateString, "") & " FÜR INSOLVENT ERKLÄRT " & Risk
End Select