From 85c6a43c7eeeaf06ab82686ed3e3c125ca4a799d Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Wed, 4 Jun 2025 10:57:14 +0200
Subject: [PATCH] TC

---
 .../Schnittstellen/TELOTEC/cTelotecAPI.vb          | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb
index 93aa0f02..73a5145e 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb
@@ -19,11 +19,11 @@ Public Class cTelotecAPI
 
 
     Sub Main()
-        Console.WriteLine("ACCS Customs API Demo")
-        Dim taRequest As StoreTADeclarationsRequest = CreateSampleTARequest()
-        PostStoreTADeclarations(taRequest)
-        Dim messages As List(Of TAMessage) = GetTAMessages()
-        Console.WriteLine("Nachrichten: " & messages.Count)
+        'Console.WriteLine("ACCS Customs API Demo")
+        'Dim taRequest As StoreTADeclarationsRequest = CreateSampleTARequest()
+        'PostStoreTADeclarations(taRequest)
+        'Dim messages As List(Of TAMessage) = GetTAMessages()
+        'Console.WriteLine("Nachrichten: " & messages.Count)
 
 
 
@@ -140,11 +140,11 @@ Public Class cTelotecAPI
         Console.WriteLine("✅ StoreEXDeclarations Antwort: " & resp.BodyStr)
     End Sub
 
-    Function GetTAMessages() As List(Of TAMessage)
+    Function GetTAMessages(Company) As List(Of TAMessage)
         Dim messages As New List(Of TAMessage)()
 
         Dim http As New Http()
-        http.SetRequestHeader("X-API-KEY", getAPIKEY("ATILLA"))
+        http.SetRequestHeader("X-API-KEY", getAPIKEY(Company))
         '      http.SetRequestHeader("X-API-KEY", http.AuthToken = getAPIKEY("ATILLA"))
         http.Accept = "application/json"