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()
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"