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() Sub Main()
Console.WriteLine("ACCS Customs API Demo") 'Console.WriteLine("ACCS Customs API Demo")
Dim taRequest As StoreTADeclarationsRequest = CreateSampleTARequest() 'Dim taRequest As StoreTADeclarationsRequest = CreateSampleTARequest()
PostStoreTADeclarations(taRequest) 'PostStoreTADeclarations(taRequest)
Dim messages As List(Of TAMessage) = GetTAMessages() 'Dim messages As List(Of TAMessage) = GetTAMessages()
Console.WriteLine("Nachrichten: " & messages.Count) 'Console.WriteLine("Nachrichten: " & messages.Count)
@@ -140,11 +140,11 @@ Public Class cTelotecAPI
Console.WriteLine("✅ StoreEXDeclarations Antwort: " & resp.BodyStr) Console.WriteLine("✅ StoreEXDeclarations Antwort: " & resp.BodyStr)
End Sub End Sub
Function GetTAMessages() As List(Of TAMessage) Function GetTAMessages(Company) As List(Of TAMessage)
Dim messages As New List(Of TAMessage)() Dim messages As New List(Of TAMessage)()
Dim http As New Http() 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.SetRequestHeader("X-API-KEY", http.AuthToken = getAPIKEY("ATILLA"))
http.Accept = "application/json" http.Accept = "application/json"