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

Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

Browse Source
This commit is contained in:
d.breimaier
2025-06-04 14:39:59 +02:00
parent c1dbe5d3fe 43bc9196e4
commit 451219aa03
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"