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

RoutineManager

Browse Source
This commit is contained in:
d.breimaier
2024-10-22 13:06:00 +02:00
parent ad16598414
commit 41c9acb3cd
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -570,7 +570,7 @@ Public Class frmStartOptions
Case "MSE_NEWTRANSACTIONS_IMPORT" 'jeden Tag/1x pro Woche? Case "MSE_NEWTRANSACTIONS_IMPORT" 'jeden Tag/1x pro Woche?
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") 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 mse As New cMSEAPI("MSE")
Dim fehler As String = "" Dim fehler As String = ""
@@ -598,11 +598,11 @@ Public Class frmStartOptions
i = i + 1 i = i + 1
Next Next
End If End If
API.UPDTAE_OK() API.UPDTAE_OK(,, PARAM)
End If End If
Case "MSE_NEWSETTLEMENTS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen) 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 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim mse As New cMSEAPI("MSE") Dim mse As New cMSEAPI("MSE")
Dim fehler As String = "" Dim fehler As String = ""
@@ -622,12 +622,12 @@ Public Class frmStartOptions
Me.Visible = True Me.Visible = True
Exit Sub Exit Sub
End If End If
API.UPDTAE_OK() API.UPDTAE_OK(,, PARAM)
End If End If
Case "MSE_NEWCUSTOMERS_IMPORT" 'jeweils am 15/letzen Tag des Monats(allerdings vor den Rechnungen) 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 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim mse As New cMSEAPI("MSE") Dim mse As New cMSEAPI("MSE")
Dim fehler As String = "" Dim fehler As String = ""
@@ -645,11 +645,11 @@ Public Class frmStartOptions
API.UPDTAE_ERR(, fehler, "getCustomers") API.UPDTAE_ERR(, fehler, "getCustomers")
Exit Sub Exit Sub
End If End If
API.UPDTAE_OK() API.UPDTAE_OK(,, PARAM)
End If End If
Case "MSE_NEWINVOICES_IMPORT" 'jeweils am 15/letzen Tage des Monats 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 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim mse As New cMSEAPI("MSE") Dim mse As New cMSEAPI("MSE")
Dim fehler As String = "" Dim fehler As String = ""
@@ -695,7 +695,7 @@ Public Class frmStartOptions
Next Next
End If End If
API.UPDTAE_OK() API.UPDTAE_OK(,, PARAM)
End If End If