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

6
UID/usrCntlAPI.vb
View File

@@ -39,6 +39,7 @@ Public Class usrCntlAPI
'cboType.fillWithSQL("SELECT distinct(api_Type) FROM [tblAPI] ", False, "ADMIN", True)
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", "FTP"))
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", "MAIL"))
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", "REST"))
cboAPIArt.Items.Clear()
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -46,8 +47,11 @@ Public Class usrCntlAPI
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_BELEGMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_EZA", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_EZA))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_NCTS", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_NCTS))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MSE", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MULTISERVICE", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_MSE))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MDM SAMMELRECHNUNG", VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CREDITSAFE", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_IN_CS))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SAMMELRECHNUNG", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_SAMMELRECHNUNG))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EINZELRECHNUNG", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_EINZELRECHNUNG))
cboAPIArt.changeItem("")

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