acrtive reports 18

VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb

@@ -140,6 +140,30 @@ Public Class cTelotecAPI
         Console.WriteLine("✅ StoreEXDeclarations Antwort: " & resp.BodyStr)
     End Sub
 
+    Shared Sub GET_ALL_TELO_Messages()
+
+        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
+    End Sub
+
+
     Function GetTAMessages(Company) As List(Of TAMessage)
         Dim messages As New List(Of TAMessage)()
 
@@ -175,6 +199,12 @@ Public Class cTelotecAPI
 
         Dim filePath As String = ""
         Dim jsonText As String = resp.BodyStr
+
+        If jsonText = "{""messageCount"":0,""messages"":[]}" Then
+            Console.WriteLine("⚠️ Keine Nachrichten gefunden.")
+            Return messages
+        End If
+
         SaveJsonResponseToFile(jsonText, TELOTEC_JSON, filePath)
         SaveJsonResponseTo_ATEZFTP(filePath)