telotec routine param

initATLASAufschubkonten/frmStartOptions.vb

@@ -231,6 +231,11 @@ Public Class frmStartOptions
                 f.Show()
                 AddHandler f.FormClosed, AddressOf closeMe
 
+            Case "TELOTEC_API"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                doTelotecAPIMulit_ALL()
+                closeMe()
+
             Case "DY_CODELISTEN" ' TEST & PROD
                 Dim f As New frmInfo(PARAM)
                 f.Show()
@@ -5963,14 +5968,20 @@ weiter:
 
         Select Case cboTCAPI_Firma.Text
             Case "ALLE"
-                doTelotecAPIMulit("ATILLA")
-                doTelotecAPIMulit("IMEX")
-                doTelotecAPIMulit("DURMAZ")
+                doTelotecAPIMulit_ALL()
+
+                'cTelotecAPI.GET_ALL_TELO_Messages() -> ohne Konvertierung zu cTelotec_Anmeldung, nur abholen
+
             Case Else
                 doTelotecAPIMulit(cboTCAPI_Firma.Text)
         End Select
 
 
+    End Sub
+    Sub doTelotecAPIMulit_ALL()
+        doTelotecAPIMulit("ATILLA")
+        doTelotecAPIMulit("IMEX")
+        doTelotecAPIMulit("DURMAZ")
     End Sub
     Sub doTelotecAPIMulit(Firma)
         Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI