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

StartOptions

Browse Source
This commit is contained in:
d.breimaier
2025-09-23 16:32:16 +02:00
parent 767d6be341
commit 3ecdb6a9e5
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6431,7 +6431,15 @@ weiter:
End If End If
cs.getCompanyEvents(company, dt, checkDate, upateKunden, False,, setzeKundenbesonderheiten, Mailinfolast2Years) Dim APIText As String = cs.getCompanyEvents(company, dt, checkDate, upateKunden, False,, setzeKundenbesonderheiten, Mailinfolast2Years)
If APIText.Contains("Error") Or APIText.Contains("Verbindungsfehler") Then
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-EVENTS", "CS")
API.UPDTAE_ERR("ERROR", APIText, "importCreditsafeEvents")
Exit For
End If
Thread.Sleep(1000) Thread.Sleep(1000)
Next Next
End If End If
@@ -6464,6 +6472,8 @@ weiter:
Dim resp = cs.AddCompaniesCSVToPortfolio(Path, sync) 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") 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 Exit While
End If End If
End If End If