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?
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