From 41c9acb3cd9e184d047e5afc05293ecfb4c44097 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 22 Oct 2024 13:06:00 +0200 Subject: [PATCH] RoutineManager --- initATLASAufschubkonten/frmStartOptions.vb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 372de61..2b45087 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -570,7 +570,7 @@ Public Class frmStartOptions Case "MSE_NEWTRANSACTIONS_IMPORT" 'jeden Tag/1x pro Woche? 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") + 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 mse As New cMSEAPI("MSE") Dim fehler As String = "" @@ -598,11 +598,11 @@ Public Class frmStartOptions i = i + 1 Next End If - API.UPDTAE_OK() + API.UPDTAE_OK(,, PARAM) End If Case "MSE_NEWSETTLEMENTS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen) - 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") + 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") VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim mse As New cMSEAPI("MSE") Dim fehler As String = "" @@ -622,12 +622,12 @@ Public Class frmStartOptions Me.Visible = True Exit Sub End If - API.UPDTAE_OK() + API.UPDTAE_OK(,, PARAM) End If Case "MSE_NEWCUSTOMERS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen) - 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") + 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") VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim mse As New cMSEAPI("MSE") Dim fehler As String = "" @@ -645,11 +645,11 @@ Public Class frmStartOptions API.UPDTAE_ERR(, fehler, "getCustomers") Exit Sub End If - API.UPDTAE_OK() + API.UPDTAE_OK(,, PARAM) End If Case "MSE_NEWINVOICES_IMPORT" 'jeweils am 15/letzen Tage des Monats - 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") + 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") VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim mse As New cMSEAPI("MSE") Dim fehler As String = "" @@ -695,7 +695,7 @@ Public Class frmStartOptions Next End If - API.UPDTAE_OK() + API.UPDTAE_OK(,, PARAM) End If