From 3ecdb6a9e580c62af5519534bc21326d63d3ca3c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 23 Sep 2025 16:32:16 +0200 Subject: [PATCH] StartOptions --- initATLASAufschubkonten/frmStartOptions.vb | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index ef69338..9655b16 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -6431,7 +6431,15 @@ weiter: 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) Next End If @@ -6464,6 +6472,8 @@ weiter: Dim resp = cs.AddCompaniesCSVToPortfolio(Path, sync) 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 End If End If