687 lines
29 KiB
VB.net
687 lines
29 KiB
VB.net
Imports System
|
||
Imports System.Collections.Generic
|
||
Imports Chilkat
|
||
Imports System.Web.Script.Serialization
|
||
Imports System.IO
|
||
Imports System.Text
|
||
Public Class cTelotecAPI
|
||
|
||
|
||
'SPI SWAGGER::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||
'https://accscustomsapi.teloweb.at/accscustomsapi120/swagger/index.html
|
||
|
||
|
||
Public API_KEY = "YlcbZryXuKPSzQTzkGIJK9UdScGuSnhBBji94Z7A8UMoWPR0qDvVOvmlWNuUCMrQ" 'VERAG
|
||
Public BASE_URL = "https://accscustomsapi.teloweb.at/accscustomsapi120"
|
||
Dim TELOTEC_JSON As String = "\\datenarchiv\Datenarchiv\TELOTEC\ECHTSYSTEM\Nachrichtendaten_Ablage_JSON" ' <-- Deinen Pfad hier setzen
|
||
Dim TELOTEC_ATTACHMENT_PATH As String = "\\datenarchiv\Datenarchiv\TELOTEC\ECHTSYSTEM\Nachrichtendaten_Ablage_PDF" '
|
||
|
||
|
||
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)
|
||
|
||
|
||
|
||
End Sub
|
||
|
||
Function getAPIKEY(Firma) As String
|
||
Select Case Firma
|
||
Case "DURMAZ" : Return "Kh8FqcBXx26fK65f4KQMQ3ExW2QbkPEPZpT9ZWS3spn6YjpZERd3SmZAY7Vda2SG" ' Durmaz
|
||
Case "IMEX" : Return "A8V4zAhNHygwApz3b9UPR2dzzdHvsBTGkV4zm8KKewCh7VYbXeKkXmeRBJaFKGcc" 'IMEX
|
||
Case Else : Return "YlcbZryXuKPSzQTzkGIJK9UdScGuSnhBBji94Z7A8UMoWPR0qDvVOvmlWNuUCMrQ" 'VERAG / ATILLA
|
||
End Select
|
||
End Function
|
||
|
||
|
||
Function CreateSampleTARequest() As StoreTADeclarationsRequest
|
||
Dim decl As New TADeclaration() With {
|
||
.mandant_ID = "DemoMandant",
|
||
.interfaceReferenceId = "REF123",
|
||
.ifcCustomerId = "CUST001",
|
||
.anmeldedatum = DateTime.Now,
|
||
.lrn = "LRN001",
|
||
.totNet = 1000D,
|
||
.totNetSplit_IND = True,
|
||
.frankatur = "FOB",
|
||
.flugInfo = "LH123",
|
||
.fillPackList_IND = True,
|
||
.memo = "Test",
|
||
.erstellDatum = DateTime.Now,
|
||
.erstellPersonalID = "USER001",
|
||
.declarationType = "T1",
|
||
.additionalDeclarationType = "A",
|
||
.presentationOfTheGoodsDateAndTime = DateTime.Now.AddHours(1),
|
||
.security = 0,
|
||
.specificCircumstanceIndicator = "S1",
|
||
.containerIndicator = False,
|
||
.grossMass = 1500D,
|
||
.inlandModeOfTransport = 1,
|
||
.modeOfTransportAtTheBorder = 4,
|
||
.referenceNumberUCR = "UCR001",
|
||
.methodOfPayment = "CASH",
|
||
.customsOfficeOfDeparture = "AT000001",
|
||
.customsOfficeOfPresentation = "AT000002",
|
||
.customsOfficeOfDestinationDeclared = "DE000003"
|
||
}
|
||
|
||
Return New StoreTADeclarationsRequest With {
|
||
.allowExistingReferenceId = False,
|
||
.enableGrouping = False,
|
||
.declarations = New List(Of TADeclaration) From {decl}
|
||
}
|
||
End Function
|
||
|
||
Sub PostStoreTADeclarations(request As StoreTADeclarationsRequest)
|
||
Dim http As New Http()
|
||
http.SetRequestHeader("X-API-KEY", API_KEY)
|
||
http.Accept = "application/json"
|
||
|
||
Dim jsonObj As New JsonObject()
|
||
jsonObj.UpdateBool("allowExistingReferenceId", request.allowExistingReferenceId)
|
||
jsonObj.UpdateBool("enableGrouping", request.enableGrouping)
|
||
|
||
Dim declArray As JsonArray = jsonObj.AppendArray("declarations")
|
||
|
||
For Each decl In request.declarations
|
||
Dim serializer As New JavaScriptSerializer()
|
||
Dim jsonString As String = serializer.Serialize(decl)
|
||
|
||
Dim declJson As New JsonObject()
|
||
declJson.Load(jsonString)
|
||
declArray.AddObjectAt(-1)
|
||
declArray.ObjectAt(declArray.Size - 1).Load(declJson.Emit())
|
||
Next
|
||
|
||
Dim url As String = "https://accscustomsapi.teloweb.at/accscustomsapi120/api/Interface/StoreTADeclarations"
|
||
Dim resp As HttpResponse = http.PostJson3(url, "application/json", jsonObj)
|
||
|
||
If http.LastMethodSuccess = False Then
|
||
Console.WriteLine("❌ Fehler beim Senden: " & http.LastErrorText)
|
||
Exit Sub
|
||
End If
|
||
|
||
Console.WriteLine("✅ StoreTADeclarations Antwort: " & resp.BodyStr)
|
||
End Sub
|
||
|
||
Sub PostStoreEXDeclarations(request As StoreTADeclarationsRequest)
|
||
Dim http As New Http()
|
||
http.SetRequestHeader("X-API-KEY", API_KEY)
|
||
http.Accept = "application/json"
|
||
|
||
Dim jsonObj As New JsonObject()
|
||
jsonObj.UpdateBool("allowExistingReferenceId", request.allowExistingReferenceId)
|
||
jsonObj.UpdateBool("enableGrouping", request.enableGrouping)
|
||
|
||
Dim declArray As JsonArray = jsonObj.AppendArray("declarations")
|
||
|
||
For Each decl In request.declarations
|
||
Dim serializer As New JavaScriptSerializer()
|
||
Dim jsonString As String = serializer.Serialize(decl)
|
||
|
||
Dim declJson As New JsonObject()
|
||
declJson.Load(jsonString)
|
||
declArray.AddObjectAt(-1)
|
||
declArray.ObjectAt(declArray.Size - 1).Load(declJson.Emit())
|
||
Next
|
||
|
||
Dim url As String = "https://accscustomsapi.teloweb.at/accscustomsapi120/api/Interface/StoreEXDeclarations"
|
||
Dim resp As HttpResponse = http.PostJson3(url, "application/json", jsonObj)
|
||
|
||
If http.LastMethodSuccess = False Then
|
||
Console.WriteLine("❌ Fehler beim Senden: " & http.LastErrorText)
|
||
Exit Sub
|
||
End If
|
||
|
||
Console.WriteLine("✅ StoreEXDeclarations Antwort: " & resp.BodyStr)
|
||
End Sub
|
||
|
||
Function GetTAMessages() 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", http.AuthToken = getAPIKEY("ATILLA"))
|
||
http.Accept = "application/json"
|
||
|
||
Dim url As String = BASE_URL & "/api/Interface/GetTAMessages"
|
||
Dim resp As HttpResponse = http.QuickGetObj(url)
|
||
|
||
If http.LastMethodSuccess = False Then
|
||
Console.WriteLine("❌ HTTP-Anfrage fehlgeschlagen:")
|
||
Console.WriteLine(http.LastErrorText)
|
||
Return messages
|
||
End If
|
||
|
||
Console.WriteLine("📡 HTTP-Statuscode: " & resp.StatusCode)
|
||
'If resp.StatusCode <> 200 Then
|
||
' Console.WriteLine("❌ Fehler: Erwartet wurde Statuscode 200, erhalten: " & resp.StatusCode)
|
||
' Console.WriteLine("Antworttext:")
|
||
' Console.WriteLine(resp.BodyStr)
|
||
' Return messages
|
||
'End If
|
||
|
||
|
||
|
||
If resp.StatusCode <> 200 Then
|
||
Console.WriteLine("❌ Fehler: HTTP-Statuscode " & resp.StatusCode)
|
||
Console.WriteLine(resp.BodyStr)
|
||
Return New List(Of TAMessage)()
|
||
End If
|
||
|
||
Dim jsonText As String = resp.BodyStr
|
||
SaveJsonResponseToFile(jsonText, TELOTEC_JSON)
|
||
|
||
' Übergabe an Parserfunktion
|
||
Return ParseTAMessagesJson(jsonText)
|
||
|
||
|
||
|
||
End Function
|
||
|
||
|
||
Public Function ParseTAMessagesFromFile(filePath As String) As List(Of TAMessage)
|
||
Dim messages As New List(Of TAMessage)()
|
||
|
||
If Not File.Exists(filePath) Then
|
||
Console.WriteLine("❌ Datei nicht gefunden: " & filePath)
|
||
Return messages
|
||
End If
|
||
|
||
Try
|
||
Dim jsonText As String = File.ReadAllText(filePath, Encoding.UTF8)
|
||
Return ParseTAMessagesJson(jsonText)
|
||
Catch ex As Exception
|
||
Console.WriteLine("❌ Fehler beim Lesen/Verarbeiten der Datei: " & ex.Message)
|
||
End Try
|
||
|
||
Return messages
|
||
End Function
|
||
|
||
|
||
Public Function ParseTAMessagesJson(jsonText As String) As List(Of TAMessage)
|
||
Dim messages As New List(Of TAMessage)()
|
||
|
||
Dim json As New Chilkat.JsonObject()
|
||
If Not json.Load(jsonText) Then
|
||
Console.WriteLine("❌ Fehler beim Parsen des JSON.")
|
||
Return messages
|
||
End If
|
||
|
||
Dim msgArray As Chilkat.JsonArray = json.ArrayOf("messages")
|
||
If msgArray Is Nothing Then Return messages
|
||
|
||
For i As Integer = 0 To msgArray.Size - 1
|
||
Dim jmsg As Chilkat.JsonObject = msgArray.ObjectAt(i)
|
||
Dim msg As New TAMessage()
|
||
msg.mrn = jmsg.StringOf("mrn")
|
||
msg.lrn = jmsg.StringOf("lrn")
|
||
msg.externalReference = jmsg.StringOf("externalReference")
|
||
msg.msgType = jmsg.StringOf("msgType")
|
||
|
||
|
||
' 💾 Attachment speichern
|
||
|
||
Dim attachmentB64 As String = jmsg.StringOf("attachment")
|
||
If Not String.IsNullOrWhiteSpace(attachmentB64) AndAlso attachmentB64.ToString <> "null" Then
|
||
SaveAttachmentBase64(attachmentB64, TELOTEC_ATTACHMENT_PATH, msg.lrn)
|
||
End If
|
||
|
||
|
||
Dim contentObj As Chilkat.JsonObject = jmsg.ObjectOf("declarationContent")
|
||
If Not contentObj Is Nothing Then
|
||
Dim decl As New TADeclaration()
|
||
|
||
decl.mandant_ID = contentObj.StringOf("mandant_ID")
|
||
decl.interfaceReferenceId = contentObj.StringOf("interfaceReferenceId")
|
||
decl.ifcCustomerId = contentObj.StringOf("ifcCustomerId")
|
||
decl.dec2_ID = SafeParseInt(contentObj.StringOf("dec2_ID"))
|
||
decl.anmeldedatum = SafeParseDate(contentObj.StringOf("anmeldedatum"))
|
||
decl.lrn = contentObj.StringOf("lrn")
|
||
decl.mrn = contentObj.StringOf("mrn")
|
||
decl.totNet = SafeParseDecimal(contentObj.StringOf("totNet"))
|
||
decl.totNetSplit_IND = contentObj.BoolOf("totNetSplit_IND")
|
||
decl.frankatur = contentObj.StringOf("frankatur")
|
||
decl.flugInfo = contentObj.StringOf("flugInfo")
|
||
decl.fillPackList_IND = contentObj.BoolOf("fillPackList_IND")
|
||
decl.memo = contentObj.StringOf("memo")
|
||
decl.erstellDatum = SafeParseDate(contentObj.StringOf("erstellDatum"))
|
||
decl.erstellPersonalID = contentObj.StringOf("erstellPersonalID")
|
||
decl.declarationType = contentObj.StringOf("declarationType")
|
||
decl.additionalDeclarationType = contentObj.StringOf("additionalDeclarationType")
|
||
decl.tirCarnetNumber = contentObj.StringOf("tirCarnetNumber")
|
||
decl.presentationOfTheGoodsDateAndTime = SafeParseDate(contentObj.StringOf("presentationOfTheGoodsDateAndTime"))
|
||
decl.security = SafeParseInt(contentObj.StringOf("security"))
|
||
decl.reducedDatasetIndicator = contentObj.BoolOf("reducedDatasetIndicator")
|
||
decl.specificCircumstanceIndicator = contentObj.StringOf("specificCircumstanceIndicator")
|
||
decl.communicationLanguageAtDeparture = contentObj.StringOf("communicationLanguageAtDeparture")
|
||
decl.bindingItinerary = contentObj.BoolOf("bindingItinerary")
|
||
decl.limitDate = SafeParseDate(contentObj.StringOf("limitDate"))
|
||
decl.declarationAcceptanceDate = SafeParseDate(contentObj.StringOf("declarationAcceptanceDate"))
|
||
decl.releaseDate = SafeParseDate(contentObj.StringOf("releaseDate"))
|
||
decl.writeOffDate = SafeParseDate(contentObj.StringOf("writeOffDate"))
|
||
decl.countryOfDispatch = contentObj.StringOf("countryOfDispatch")
|
||
decl.countryOfDestination = contentObj.StringOf("countryOfDestination")
|
||
decl.containerIndicator = contentObj.BoolOf("containerIndicator")
|
||
decl.inlandModeOfTransport = SafeParseInt(contentObj.StringOf("inlandModeOfTransport"))
|
||
decl.modeOfTransportAtTheBorder = SafeParseInt(contentObj.StringOf("modeOfTransportAtTheBorder"))
|
||
decl.grossMass = SafeParseDecimal(contentObj.StringOf("grossMass"))
|
||
decl.methodOfPayment = contentObj.StringOf("methodOfPayment")
|
||
decl.referenceNumberUCR = contentObj.StringOf("referenceNumberUCR")
|
||
decl.locationOfGoods_CustomsOffice = contentObj.StringOf("locationOfGoods_CustomsOffice")
|
||
decl.locationOfGoods_PlaceOfGoods = contentObj.StringOf("locationOfGoods_PlaceOfGoods")
|
||
decl.placeOfLoading_UNLocode = contentObj.StringOf("placeOfLoading_UNLocode")
|
||
decl.placeOfLoading_Country = contentObj.StringOf("placeOfLoading_Country")
|
||
decl.placeOfLoading_Location = contentObj.StringOf("placeOfLoading_Location")
|
||
decl.placeOfUnloading_UNLocode = contentObj.StringOf("placeOfUnloading_UNLocode")
|
||
decl.placeOfUnloading_Country = contentObj.StringOf("placeOfUnloading_Country")
|
||
decl.placeOfUnloading_Location = contentObj.StringOf("placeOfUnloading_Location")
|
||
decl.customsOfficeOfDeparture = contentObj.StringOf("customsOfficeOfDeparture")
|
||
decl.customsOfficeOfDestinationDeclared = contentObj.StringOf("customsOfficeOfDestinationDeclared")
|
||
decl.customsOfficeOfPresentation = contentObj.StringOf("customsOfficeOfPresentation")
|
||
decl.controlResult_Date = SafeParseDate(contentObj.StringOf("controlResult_Date"))
|
||
decl.controlResult_ControlledBy = contentObj.StringOf("controlResult_ControlledBy")
|
||
decl.controlResult_Text = contentObj.StringOf("controlResult_Text")
|
||
decl.controlResult_Code = contentObj.StringOf("controlResult_Code")
|
||
decl.groupId = contentObj.StringOf("groupId")
|
||
decl.template_ID = SafeParseInt(contentObj.StringOf("template_ID"))
|
||
|
||
' Parsen von komplexen Objekten
|
||
Dim arr1 = contentObj.ArrayOf("activeBorderTransportMeans")
|
||
If arr1 IsNot Nothing Then decl.activeBorderTransportMeans = ParseActiveBorderTransportMeans(arr1)
|
||
|
||
Dim c = contentObj.ObjectOf("carrier")
|
||
If c IsNot Nothing Then decl.carrier = ParseCarrier(c)
|
||
|
||
Dim arr2 = contentObj.ArrayOf("guarantee")
|
||
If arr2 IsNot Nothing Then decl.guarantee = ParseGuarantee(arr2)
|
||
|
||
msg.declarationContent = decl
|
||
|
||
|
||
|
||
'PARSE TO cTELANMEUNG
|
||
|
||
|
||
'-------------------------------
|
||
Else
|
||
Console.WriteLine("⚠️ Keine declarationContent für Nachricht: " & msg.lrn)
|
||
End If
|
||
|
||
messages.Add(msg)
|
||
Next
|
||
|
||
Return messages
|
||
End Function
|
||
|
||
Public Sub SaveAttachmentBase64(base64String As String, ByVal TELOTEC_ATTACHMENT_PATH As String, filePrefix As String)
|
||
Try
|
||
If String.IsNullOrWhiteSpace(base64String) Then Exit Sub
|
||
|
||
Dim yearDir As String = Path.Combine(TELOTEC_ATTACHMENT_PATH, Date.Now.Year.ToString())
|
||
Dim dayDir As String = Path.Combine(yearDir, Date.Now.ToString("yyyy-MM-dd"))
|
||
Directory.CreateDirectory(dayDir)
|
||
|
||
' ❗️Unerlaubte Zeichen im Dateinamen ersetzen
|
||
Dim invalidChars() As Char = Path.GetInvalidFileNameChars()
|
||
For Each ch In invalidChars
|
||
filePrefix = filePrefix.Replace(ch, "_"c)
|
||
Next
|
||
|
||
Dim fileName As String = filePrefix & "_" & Date.Now.ToString("HHmmss") & ".pdf"
|
||
Dim filePath As String = Path.Combine(dayDir, fileName)
|
||
|
||
Dim fileBytes() As Byte = Convert.FromBase64String(base64String)
|
||
File.WriteAllBytes(filePath, fileBytes)
|
||
|
||
Console.WriteLine("📄 PDF gespeichert unter: " & filePath)
|
||
Catch ex As Exception
|
||
Console.WriteLine("❌ Fehler beim Speichern des Attachments: " & ex.Message)
|
||
End Try
|
||
End Sub
|
||
|
||
Public Sub SaveJsonResponseToFile(jsonText As String, ByVal TELOTEC_JSON As String)
|
||
Try
|
||
Dim yearDir As String = Path.Combine(TELOTEC_JSON, Date.Now.Year.ToString())
|
||
Dim dayDir As String = Path.Combine(yearDir, Date.Now.ToString("dd.MM.yyyy"))
|
||
|
||
Directory.CreateDirectory(dayDir)
|
||
|
||
Dim fileName As String = "GetTAMessages_" & Date.Now.ToString("HHmmss") & ".json"
|
||
Dim filePath As String = Path.Combine(dayDir, fileName)
|
||
|
||
File.WriteAllText(filePath, jsonText, Encoding.UTF8)
|
||
Console.WriteLine("📁 JSON gespeichert unter: " & filePath)
|
||
Catch ex As Exception
|
||
Console.WriteLine("❌ Fehler beim Speichern des JSON: " & ex.Message)
|
||
End Try
|
||
End Sub
|
||
|
||
Function SafeParseDate(value As String) As Date?
|
||
If String.IsNullOrWhiteSpace(value) OrElse value = "null" Then
|
||
Return Nothing
|
||
End If
|
||
Return Date.Parse(value)
|
||
End Function
|
||
|
||
Function SafeParseDecimal(value As String) As Decimal
|
||
Dim result As Decimal
|
||
If Decimal.TryParse(value, result) Then
|
||
Return result
|
||
Else
|
||
Return 0D
|
||
End If
|
||
End Function
|
||
|
||
Function SafeParseInt(value As String) As Integer
|
||
Dim result As Integer
|
||
If Integer.TryParse(value, result) Then
|
||
Return result
|
||
Else
|
||
Return 0
|
||
End If
|
||
End Function
|
||
|
||
|
||
' Parser für Liste: activeBorderTransportMeans
|
||
Function ParseActiveBorderTransportMeans(arr As JsonArray) As List(Of BorderTransportMeans)
|
||
Dim result As New List(Of BorderTransportMeans)()
|
||
For i As Integer = 0 To arr.Size - 1
|
||
Dim item As JsonObject = arr.ObjectAt(i)
|
||
Dim obj As New BorderTransportMeans()
|
||
obj.sequenceNumber = item.IntOf("sequenceNumber")
|
||
obj.customsOfficeAtBorderReferenceNumber = item.StringOf("customsOfficeAtBorderReferenceNumber")
|
||
obj.typeOfIdentification = item.IntOf("typeOfIdentification")
|
||
obj.identificationNumber = item.StringOf("identificationNumber")
|
||
obj.nationality = item.StringOf("nationality")
|
||
obj.conveyanceReferenceNumber = item.StringOf("conveyanceReferenceNumber")
|
||
result.Add(obj)
|
||
Next
|
||
Return result
|
||
End Function
|
||
|
||
' Parser für carrier (PartyWithContact)
|
||
Function ParseCarrier(obj As JsonObject) As PartyWithContact
|
||
If obj Is Nothing Then Return Nothing
|
||
Dim party As New PartyWithContact()
|
||
party.identificationNumber = obj.StringOf("identificationNumber")
|
||
party.contactPersonName = obj.StringOf("contactPersonName")
|
||
party.phoneNumber = obj.StringOf("phoneNumber")
|
||
party.eMailAddress = obj.StringOf("eMailAddress")
|
||
party.customerAddressReference = obj.StringOf("customerAddressReference")
|
||
party.adressID = obj.IntOf("adressID")
|
||
Return party
|
||
End Function
|
||
|
||
' Parser für guarantee
|
||
Function ParseGuarantee(arr As JsonArray) As List(Of Guarantee)
|
||
Dim list As New List(Of Guarantee)()
|
||
For i As Integer = 0 To arr.Size - 1
|
||
Dim obj As JsonObject = arr.ObjectAt(i)
|
||
Dim g As New Guarantee()
|
||
g.sequenceNumber = obj.IntOf("sequenceNumber")
|
||
g.guaranteeType = obj.StringOf("guaranteeType")
|
||
g.otherGuaranteeReference = obj.StringOf("otherGuaranteeReference")
|
||
|
||
Dim gRefArray As JsonArray = obj.ArrayOf("guaranteeReference")
|
||
If Not gRefArray Is Nothing Then
|
||
g.guaranteeReference = New List(Of GuaranteeReference)()
|
||
For j As Integer = 0 To gRefArray.Size - 1
|
||
Dim grefObj As JsonObject = gRefArray.ObjectAt(j)
|
||
Dim gr As New GuaranteeReference()
|
||
gr.sequenceNumber = grefObj.IntOf("sequenceNumber")
|
||
gr.grn = grefObj.StringOf("grn")
|
||
gr.accessCode = grefObj.StringOf("accessCode")
|
||
gr.amountToBeCovered = grefObj.StringOf("amountToBeCovered")
|
||
gr.currency = grefObj.StringOf("currency")
|
||
g.guaranteeReference.Add(gr)
|
||
Next
|
||
End If
|
||
|
||
list.Add(g)
|
||
Next
|
||
Return list
|
||
End Function
|
||
|
||
|
||
|
||
Public Class StoreTADeclarationsRequest
|
||
Public Property allowExistingReferenceId As Boolean
|
||
Public Property enableGrouping As Boolean
|
||
Public Property declarations As List(Of TADeclaration)
|
||
End Class
|
||
|
||
|
||
Public Class TADeclaration
|
||
Public Property mandant_ID As String
|
||
Public Property interfaceReferenceId As String
|
||
Public Property ifcCustomerId As String
|
||
Public Property dec2_ID As Integer
|
||
Public Property anmeldedatum As Object
|
||
Public Property lrn As String
|
||
Public Property mrn As String
|
||
Public Property totNet As Decimal
|
||
Public Property totNetSplit_IND As Boolean
|
||
Public Property frankatur As String
|
||
Public Property flugInfo As String
|
||
Public Property fillPackList_IND As Boolean
|
||
Public Property memo As String
|
||
Public Property erstellDatum As Object
|
||
Public Property erstellPersonalID As String
|
||
Public Property declarationType As String
|
||
Public Property additionalDeclarationType As String
|
||
Public Property tirCarnetNumber As String
|
||
Public Property presentationOfTheGoodsDateAndTime As Object
|
||
Public Property security As Integer
|
||
Public Property reducedDatasetIndicator As Boolean
|
||
Public Property specificCircumstanceIndicator As String
|
||
Public Property communicationLanguageAtDeparture As String
|
||
Public Property bindingItinerary As Boolean
|
||
Public Property limitDate As Object
|
||
Public Property declarationAcceptanceDate As Object
|
||
Public Property releaseDate As Object
|
||
Public Property writeOffDate As Object
|
||
Public Property countryOfDispatch As String
|
||
Public Property countryOfDestination As String
|
||
Public Property containerIndicator As Boolean
|
||
Public Property inlandModeOfTransport As Integer
|
||
Public Property modeOfTransportAtTheBorder As Integer
|
||
Public Property grossMass As Decimal
|
||
Public Property methodOfPayment As String
|
||
Public Property referenceNumberUCR As String
|
||
Public Property locationOfGoods_CustomsOffice As String
|
||
Public Property locationOfGoods_PlaceOfGoods As String
|
||
Public Property placeOfLoading_UNLocode As String
|
||
Public Property placeOfLoading_Country As String
|
||
Public Property placeOfLoading_Location As String
|
||
Public Property placeOfUnloading_UNLocode As String
|
||
Public Property placeOfUnloading_Country As String
|
||
Public Property placeOfUnloading_Location As String
|
||
Public Property customsOfficeOfDeparture As String
|
||
Public Property customsOfficeOfDestinationDeclared As String
|
||
Public Property customsOfficeOfPresentation As String
|
||
Public Property controlResult_Date As Object
|
||
Public Property controlResult_ControlledBy As String
|
||
Public Property controlResult_Text As String
|
||
Public Property controlResult_Code As String
|
||
Public Property groupId As String
|
||
Public Property template_ID As Integer
|
||
|
||
' Nested/Complex Properties
|
||
Public Property activeBorderTransportMeans As List(Of BorderTransportMeans)
|
||
Public Property additionalInformation As List(Of AdditionalInformation)
|
||
Public Property additionalReference As List(Of AdditionalReference)
|
||
Public Property additionalSupplyChainActor As List(Of SupplyChainActor)
|
||
Public Property authorisation As List(Of Authorisation)
|
||
Public Property carrier As PartyWithContact
|
||
Public Property consignee As PartyWithAddress
|
||
Public Property consignor As PartyWithContact
|
||
Public Property countryOfRoutingOfConsignment As List(Of RoutingCountry)
|
||
Public Property customsOfficeOfExitForTransitDeclared As List(Of SimpleReference)
|
||
Public Property customsOfficeOfTransitDeclared As List(Of TransitOffice)
|
||
Public Property departureTransportMeans As List(Of DepartureTransportMeans)
|
||
Public Property guarantee As List(Of Guarantee)
|
||
Public Property guarantor As PartyWithAddress
|
||
Public Property holderOfTheTransitProcedure As PartyWithContact
|
||
Public Property houseConsignment As List(Of HouseConsignment)
|
||
Public Property previousDocument As List(Of PreviousDocument)
|
||
Public Property representative As PartyWithContact
|
||
Public Property supportingDocument As List(Of SupportingDocument)
|
||
Public Property transportDocument As List(Of TransportDocument)
|
||
Public Property transportEquipment As List(Of TransportEquipment)
|
||
End Class
|
||
|
||
Public Class BorderTransportMeans
|
||
Public Property sequenceNumber As Integer
|
||
Public Property customsOfficeAtBorderReferenceNumber As String
|
||
Public Property typeOfIdentification As Integer
|
||
Public Property identificationNumber As String
|
||
Public Property nationality As String
|
||
Public Property conveyanceReferenceNumber As String
|
||
End Class
|
||
|
||
Public Class AdditionalInformation
|
||
Public Property sequenceNumber As Integer
|
||
Public Property code As String
|
||
Public Property text As String
|
||
End Class
|
||
|
||
Public Class AdditionalReference
|
||
Public Property sequenceNumber As Integer
|
||
Public Property type As String
|
||
Public Property referenceNumber As String
|
||
End Class
|
||
|
||
Public Class SupplyChainActor
|
||
Public Property sequenceNumber As Integer
|
||
Public Property role As String
|
||
Public Property identificationNumber As String
|
||
Public Property customerAddressReference As String
|
||
Public Property adressID As Integer
|
||
End Class
|
||
|
||
Public Class Authorisation
|
||
Public Property sequenceNumber As Integer
|
||
Public Property type As String
|
||
Public Property referenceNumber As String
|
||
End Class
|
||
|
||
Public Class PartyWithContact
|
||
Public Property identificationNumber As String
|
||
Public Property contactPersonName As String
|
||
Public Property phoneNumber As String
|
||
Public Property eMailAddress As String
|
||
Public Property customerAddressReference As String
|
||
Public Property adressID As Integer
|
||
End Class
|
||
|
||
Public Class PartyWithAddress
|
||
Public Property identificationNumber As String
|
||
Public Property consigneeName As String
|
||
Public Property streetAndNumber As String
|
||
Public Property postcode As String
|
||
Public Property city As String
|
||
Public Property country As String
|
||
Public Property customerAddressReference As String
|
||
Public Property adressID As Integer
|
||
End Class
|
||
|
||
Public Class RoutingCountry
|
||
Public Property sequenceNumber As Integer
|
||
Public Property country As String
|
||
End Class
|
||
|
||
Public Class SimpleReference
|
||
Public Property sequenceNumber As Integer
|
||
Public Property referenceNumber As String
|
||
End Class
|
||
|
||
Public Class TransitOffice
|
||
Public Property sequenceNumber As Integer
|
||
Public Property referenceNumber As String
|
||
Public Property arrivalDateAndTimeEstimated As Object
|
||
End Class
|
||
|
||
Public Class DepartureTransportMeans
|
||
Public Property sequenceNumber As Integer
|
||
Public Property typeOfIdentification As Integer
|
||
Public Property identificationNumber As String
|
||
Public Property nationality As String
|
||
End Class
|
||
|
||
Public Class Guarantee
|
||
Public Property sequenceNumber As Integer
|
||
Public Property guaranteeType As String
|
||
Public Property otherGuaranteeReference As String
|
||
Public Property guaranteeReference As List(Of GuaranteeReference)
|
||
End Class
|
||
|
||
Public Class GuaranteeReference
|
||
Public Property sequenceNumber As Integer
|
||
Public Property grn As String
|
||
Public Property accessCode As String
|
||
Public Property amountToBeCovered As Decimal
|
||
Public Property currency As String
|
||
End Class
|
||
|
||
Public Class HouseConsignment
|
||
' This would also need to include full nested structure like consignor, consignee, etc.
|
||
End Class
|
||
|
||
Public Class PreviousDocument
|
||
Public Property sequenceNumber As Integer
|
||
Public Property type As String
|
||
Public Property referenceNumber As String
|
||
Public Property complementOfInformation As String
|
||
End Class
|
||
|
||
Public Class SupportingDocument
|
||
Public Property sequenceNumber As Integer
|
||
Public Property type As String
|
||
Public Property referenceNumber As String
|
||
Public Property documentLineItemNumber As Integer
|
||
Public Property complementOfInformation As String
|
||
End Class
|
||
|
||
Public Class TransportDocument
|
||
Public Property sequenceNumber As Integer
|
||
Public Property type As String
|
||
Public Property referenceNumber As String
|
||
End Class
|
||
|
||
Public Class TransportEquipment
|
||
Public Property sequenceNumber As Integer
|
||
Public Property containerIdentificationNumber As String
|
||
Public Property numberOfSeals As Integer
|
||
Public Property goodsReference As List(Of GoodsReference)
|
||
Public Property seal As List(Of Seal)
|
||
End Class
|
||
|
||
Public Class GoodsReference
|
||
Public Property sequenceNumber As Integer
|
||
Public Property declarationGoodsItemNumber As Integer
|
||
End Class
|
||
|
||
Public Class Seal
|
||
Public Property sequenceNumber As Integer
|
||
Public Property identifier As String
|
||
End Class
|
||
|
||
Public Class TAMessage
|
||
Public Property mrn As String
|
||
Public Property lrn As String
|
||
Public Property externalReference As String
|
||
Public Property msgType As String
|
||
Public Property declarationContent As TADeclaration
|
||
End Class
|
||
|
||
|
||
|
||
|
||
End Class
|
||
|
||
|