From e26276884fa53c9436831229fb8cbde31aad1704 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 2 May 2025 14:57:20 +0200 Subject: [PATCH] offeneAntr, MDM-Datenverarb. --- initATLASAufschubkonten/frmStartOptions.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 69fc7b1..650b974 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -637,7 +637,7 @@ Public Class frmStartOptions 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 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 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) If fehler <> "" Then API.UPDTAE_ERR("Batch-Nr: " & batchrequestNr & "-" & totalPages, fehler, "getNewestTransactions") @@ -672,7 +673,7 @@ Public Class frmStartOptions i = i + 1 Next End If - API.UPDTAE_OK(,, PARAM) + API.UPDTAE_OK(,, PARAM & " Batch-Nr: " & batchrequestNr & "-" & totalPages) closeMe() End If