edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TC

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-04 10:57:14 +02:00
parent 0b19e15b5e
commit 85c6a43c7e
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
VERAG_PROG_ALLGEMEIN/Schnittstellen/TELOTEC/cTelotecAPI.vb
View File

@@ -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"