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

Admin

Browse Source
This commit is contained in:
d.breimaier
2025-10-08 17:29:47 +02:00
parent 9385262f85
commit d7573e58a5
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6,7 +6,6 @@ Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Threading
Imports System.Xml
Imports DocumentFormat.OpenXml.Drawing.Diagrams
Imports MDM_Worker
Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN
@@ -6726,7 +6725,7 @@ repeatRequest:
If Path <> "" Then
Dim resp = cs.AddCompaniesCSVToPortfolio(Path, sync)
If resp IsNot Nothing AndAlso resp.Contains("400") Then 'bei Fehler abbrechen!
If resp IsNot Nothing AndAlso (resp.Contains("400") Or resp.Contains("Unauthorized")) Then 'bei Fehler abbrechen!
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN, VERAG_PROG_ALLGEMEIN.cAPI_Type.REST, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_CS, "CREDITSAFE-PORTFOLIO UPLOAD", "CS")
API.UPDTAE_ERR("ERROR", resp, "AddCompaniesCSVToPortfolio")
Exit While