offeneAntr, MDM-Datenverarb.

This commit is contained in:
2025-05-02 14:57:20 +02:00
parent f173406a46
commit e26276884f

View File

@@ -637,7 +637,7 @@ Public Class frmStartOptions
closeMe() closeMe()
'------------------------------ '------------------------------
Case "MSE_NEWTRANSACTIONS_IMPORT" 'jeden Tag/1x pro Woche? Case "MSE_NEWTRANSACTIONS_IMPORT" 'jeweils am 15/letzen Tag des Monats vor allen anderen MSE-Aufrufen!
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
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_MSE, "MSE - Multiservice", "MSE") 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_MSE, "MSE - Multiservice", "MSE")
@@ -654,6 +654,7 @@ Public Class frmStartOptions
Dim totalPages = 0 Dim totalPages = 0
Dim batchrequestNr = 0 Dim batchrequestNr = 0
'getNewestTransactions - Only returns the first page of transactions, subsequent pages are to be requested via /transactions with batch_seq_nr and page_nr.
fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0, True) fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0, True)
If fehler <> "" Then If fehler <> "" Then
API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestTransactions") API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestTransactions")
@@ -672,7 +673,7 @@ Public Class frmStartOptions
i = i + 1 i = i + 1
Next Next
End If End If
API.UPDTAE_OK(,, PARAM) API.UPDTAE_OK(,, PARAM & " Batch-Nr: " & batchrequestNr & "-" & totalPages)
closeMe() closeMe()
End If End If