telotec routine param

UID/usrctlProcedures.vb

@@ -3921,25 +3921,7 @@ Public Class usrctlProcedures
     End Sub
 
     Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
-        Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI
-        Dim Company = "ATILLA"
-
-        For ii As Integer = 0 To 50
-            Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company)
-            Threading.Thread.Sleep(1000) '
-        Next
-
-        Company = "IMEX"
-        For ii As Integer = 0 To 50
-            Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company)
-            Threading.Thread.Sleep(1000) '
-        Next
-
-        Company = "DURMAZ"
-        For ii As Integer = 0 To 50
-            Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company)
-            Threading.Thread.Sleep(1000) '
-        Next
+        cTelotecAPI.GET_ALL_TELO_Messages()
 
         'Company = "VERAG" = ATILLA
         'For ii As Integer = 0 To 50
@@ -3972,7 +3954,7 @@ Public Class usrctlProcedures
                 messages = TELO.ParseTAMessagesFromFile(selectedPath)
 
 
-                MsgBox(messages.Count)
+                MsgBox("Anzahl: " & messages.Count)
 
                 For Each mmm In messages
                     MsgBox(mmm.lrn)