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

div. Änderungen

Browse Source
This commit is contained in:
d.breimaier
2026-04-21 13:21:15 +02:00
parent b846a8e00c
commit f1bd09bdb7
3 changed files with 21 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -1192,8 +1192,17 @@ Anzeige:
Else
TextHTMLtable &= "<td><b> - </b></td>"
End If
TextHTMLtable &= "<td><b>" & GSPOS.gsp_EH_Anzahl & "</b></td>"
If gs_row IsNot Nothing AndAlso Not IsDBNull(gs_row("gs_gewicht")) AndAlso gs_row("gs_gewicht") <> "" Then
If GSPOS.gsp_EH_Anzahl IsNot Nothing AndAlso IsNumeric(GSPOS.gsp_EH_Anzahl) Then
TextHTMLtable &= "<td><b>" & GSPOS.gsp_EH_Anzahl & "</b></td>"
Else
TextHTMLtable &= "<td><b> - </b></td>"
End If
If gs_row IsNot Nothing AndAlso Not IsDBNull(gs_row("gs_gewicht")) Then
TextHTMLtable &= "<td><b>" & gs_row("gs_gewicht").ToString & "</b></td>"
Else
TextHTMLtable &= "<td><b> - </b></td>"

13
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -917,9 +917,6 @@ Public Class frmStartOptions
Dim sendMail As Boolean = True
importCreditsafeEvents(CDate(Today().AddDays(-1)).ToShortDateString, checkDate, upateKunden, setzeInfoImKunden, sendMail, False)
closeMe()
Case "CREDITSAFE_UPLOADS"
@@ -6815,7 +6812,6 @@ weiter:
'1. Use Portfolio-Specific Events for Targeted Monitoring: Start with the portfolio-specific endpoint to focus on changes relevant to a particular portfolio.
'2. Leverage Global Events for a Broader View: Use the all-events endpoint to gain a comprehensive overview of all notifications across your portfolios.
'3. Drill Down to Company-Level Events WHEN NEEDED: For detailed insights into a specific company, use the company-specific endpoint.
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -6870,7 +6866,7 @@ weiter:
If Not companyDetailEventsRequest Then
Dim API_Start_Daily = 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, "DAiLY-CREDITSAFE-EVENTS-IMPORT", "CS")
Dim API_Start_Daily = 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, "DAILY-CREDITSAFE-EVENTS-IMPORT", "CS")
Dim dtMonitoredRequest As New DataTable
@@ -7002,8 +6998,9 @@ repeatRequest:
End If
If APIText.Contains("Invalid token") Then
If Not cs.authenticate() = 200 Then
API.UPDTAE_ERR("ERROR", APIText, "importCreditsafeEvents")
Dim ERR = Not cs.authenticate()
If ERR <> "200" Then
API.UPDTAE_ERR("ERROR", APIText & vbNewLine & "ERR-Code: " & ERR, "importCreditsafeEvents")
Exit For
Else
Thread.Sleep(4000)
@@ -7017,7 +7014,7 @@ repeatRequest:
End If
Thread.Sleep(1000)
Thread.Sleep(500) 'von 1000 auf 500 reduziert!
Next
If dtCreditsafe.Rows.Count = (counter - dt_fehlendeCreditsafeIDS.Rows.Count) Then