Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
158
VERAG_PROG_ALLGEMEIN/Classes/cHMRCToken.vb
Normal file
158
VERAG_PROG_ALLGEMEIN/Classes/cHMRCToken.vb
Normal file
@@ -0,0 +1,158 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cHMRCToken
|
||||
Property token_id As Integer
|
||||
Property token_BEARER_TOKEN As String = ""
|
||||
Property token_datetime As Date = Now
|
||||
Property token_Firma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Property token_Application As String = ""
|
||||
Property token_refresh_datetime As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New(token_id)
|
||||
Me.token_id = token_id
|
||||
LOAD()
|
||||
End Sub
|
||||
Sub New(token_Firma, token_Application)
|
||||
Me.token_Firma = token_Firma
|
||||
Me.token_Application = token_Application
|
||||
LOAD_ByFirmaAppl()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_id", token_id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_BEARER_TOKEN", token_BEARER_TOKEN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_datetime", token_datetime))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_Firma", token_Firma))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_Application", token_Application))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_refresh_datetime", token_refresh_datetime))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblHMRCToken WHERE token_id=@token_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then
|
||||
hasEntry = True
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblHMRCToken WHERE token_id=@token_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@token_id", token_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_ByFirmaAppl()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblHMRCToken WHERE token_Firma=@token_Firma and token_Application=@token_Application ", conn)
|
||||
cmd.Parameters.AddWithValue("@token_Firma", token_Firma)
|
||||
cmd.Parameters.AddWithValue("@token_Application", token_Application)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblHMRCToken] SET " & str & " WHERE token_id=@token_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblHMRCToken (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
468
VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cModalENS.vb
Normal file
468
VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cModalENS.vb
Normal file
@@ -0,0 +1,468 @@
|
||||
|
||||
Imports System
|
||||
Imports Newtonsoft.Json
|
||||
Imports Newtonsoft.Json.Converters
|
||||
Imports System.Runtime.CompilerServices
|
||||
|
||||
Namespace cModalENS
|
||||
|
||||
''' <summary>
|
||||
''' CreateEnsDeclaration
|
||||
''' </summary>
|
||||
Partial Public Class ApidogModel
|
||||
<JsonProperty("manifesto")>
|
||||
Public Property Manifesto As Manifesto
|
||||
End Class
|
||||
|
||||
Partial Public Class Manifesto
|
||||
<JsonProperty("ncts_json_data")>
|
||||
Public Property NctsJsonData As NctsJsonData
|
||||
End Class
|
||||
|
||||
Partial Public Class NctsJsonData
|
||||
''' <summary>
|
||||
''' Code of the arrival customs
|
||||
''' </summary>
|
||||
<JsonProperty("arrival_custom_code")>
|
||||
Public Property ArrivalCustomCode As String
|
||||
|
||||
''' <summary>
|
||||
''' Carrier Address
|
||||
''' </summary>
|
||||
<JsonProperty("carrier_address")>
|
||||
Public Property CarrierAddress As String
|
||||
|
||||
''' <summary>
|
||||
''' Carrier City
|
||||
''' </summary>
|
||||
<JsonProperty("carrier_city")>
|
||||
Public Property CarrierCity As String
|
||||
|
||||
''' <summary>
|
||||
''' Carrier Country Code
|
||||
''' </summary>
|
||||
<JsonProperty("carrier_country_id")>
|
||||
Public Property CarrierCountryId As String
|
||||
|
||||
''' <summary>
|
||||
''' Carrier Name
|
||||
''' </summary>
|
||||
<JsonProperty("carrier_name")>
|
||||
Public Property CarrierName As String
|
||||
|
||||
''' <summary>
|
||||
''' Carrier Postcode
|
||||
''' </summary>
|
||||
<JsonProperty("carrier_postcode")>
|
||||
Public Property CarrierPostcode As String
|
||||
|
||||
''' <summary>
|
||||
''' Carrier Tax No
|
||||
''' </summary>
|
||||
<JsonProperty("carrier_taxno")>
|
||||
Public Property CarrierTaxno As String
|
||||
|
||||
''' <summary>
|
||||
''' Container (if cargo is containerized)
|
||||
''' </summary>
|
||||
<JsonProperty("container", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property Container As String
|
||||
|
||||
''' <summary>
|
||||
''' Code of the departure customs
|
||||
''' </summary>
|
||||
<JsonProperty("departure_custom_code")>
|
||||
Public Property DepartureCustomCode As String
|
||||
|
||||
''' <summary>
|
||||
''' Destination Country Code
|
||||
''' </summary>
|
||||
<JsonProperty("destination_country_id")>
|
||||
Public Property DestinationCountryId As String
|
||||
|
||||
''' <summary>
|
||||
''' Dispatch Country Code
|
||||
''' </summary>
|
||||
<JsonProperty("dispatch_country_id")>
|
||||
Public Property DispatchCountryId As String
|
||||
|
||||
''' <summary>
|
||||
''' Type of the declaration. Should be "ENS".
|
||||
''' </summary>
|
||||
<JsonProperty("doc_type")>
|
||||
Public Property DocType As DocType
|
||||
|
||||
''' <summary>
|
||||
''' Voyage NO
|
||||
''' </summary>
|
||||
<JsonProperty("ens_voyage_no", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property EnsVoyageNo As String
|
||||
|
||||
<JsonProperty("goods_attributes")>
|
||||
Public Property GoodsAttributes As GoodsAttribute()
|
||||
|
||||
''' <summary>
|
||||
''' Departure Place
|
||||
''' </summary>
|
||||
<JsonProperty("load_place")>
|
||||
Public Property LoadPlace As String
|
||||
|
||||
''' <summary>
|
||||
''' RORO Operator
|
||||
''' </summary>
|
||||
<JsonProperty("roro_operator_code", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property RoroOperatorCode As String
|
||||
|
||||
''' <summary>
|
||||
''' Seal NO
|
||||
''' </summary>
|
||||
<JsonProperty("seal_info", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property SealInfo As String
|
||||
|
||||
''' <summary>
|
||||
''' Trailer Code/Plate
|
||||
''' </summary>
|
||||
<JsonProperty("trailer_code", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property TrailerCode As String
|
||||
|
||||
''' <summary>
|
||||
''' Trailer Country Code
|
||||
''' </summary>
|
||||
<JsonProperty("trailer_coun", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property TrailerCoun As String
|
||||
|
||||
''' <summary>
|
||||
''' Transit Method
|
||||
''' </summary>
|
||||
<JsonProperty("trans_method")>
|
||||
Public Property TransMethod As TransMethod
|
||||
|
||||
''' <summary>
|
||||
''' Transit Countries (write it for every transit country)
|
||||
''' </summary>
|
||||
<JsonProperty("transit_countries_attributes", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property TransitCountriesAttributes As TransitCountriesAttribute()
|
||||
|
||||
''' <summary>
|
||||
''' Destination Place
|
||||
''' </summary>
|
||||
<JsonProperty("unload_place")>
|
||||
Public Property UnloadPlace As String
|
||||
|
||||
''' <summary>
|
||||
''' Vehicle Code/Plate
|
||||
''' </summary>
|
||||
<JsonProperty("vehicle_code")>
|
||||
Public Property VehicleCode As String
|
||||
|
||||
''' <summary>
|
||||
''' Vehicle Country Code
|
||||
''' </summary>
|
||||
<JsonProperty("vehicle_coun")>
|
||||
Public Property VehicleCoun As String
|
||||
End Class
|
||||
|
||||
Partial Public Class GoodsAttribute
|
||||
''' <summary>
|
||||
''' Gross weight of goods
|
||||
''' </summary>
|
||||
<JsonProperty("brut_wg", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property BrutWg As Double?
|
||||
|
||||
''' <summary>
|
||||
''' Goods description
|
||||
''' </summary>
|
||||
<JsonProperty("commodity")>
|
||||
Public Property Commodity As String
|
||||
|
||||
''' <summary>
|
||||
''' Consignee's address
|
||||
''' </summary>
|
||||
<JsonProperty("consignee_address")>
|
||||
Public Property ConsigneeAddress As String
|
||||
|
||||
''' <summary>
|
||||
''' Consignee's city
|
||||
''' </summary>
|
||||
<JsonProperty("consignee_city")>
|
||||
Public Property ConsigneeCity As String
|
||||
|
||||
''' <summary>
|
||||
''' Consignee's country code
|
||||
''' </summary>
|
||||
<JsonProperty("consignee_country_id")>
|
||||
Public Property ConsigneeCountryId As String
|
||||
|
||||
''' <summary>
|
||||
''' Consignee's name
|
||||
''' </summary>
|
||||
<JsonProperty("consignee_name")>
|
||||
Public Property ConsigneeName As String
|
||||
|
||||
''' <summary>
|
||||
''' Consignee's postcode
|
||||
''' </summary>
|
||||
<JsonProperty("consignee_postcode")>
|
||||
Public Property ConsigneePostcode As String
|
||||
|
||||
''' <summary>
|
||||
''' Consignee's tax number
|
||||
''' </summary>
|
||||
<JsonProperty("consignee_taxno")>
|
||||
Public Property ConsigneeTaxno As String
|
||||
|
||||
''' <summary>
|
||||
''' Container number
|
||||
''' </summary>
|
||||
<JsonProperty("container_no", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property ContainerNo As String
|
||||
|
||||
''' <summary>
|
||||
''' HS code for the goods
|
||||
''' </summary>
|
||||
<JsonProperty("gtip_code")>
|
||||
Public Property GtipCode As String
|
||||
|
||||
''' <summary>
|
||||
''' Invoice amount
|
||||
''' </summary>
|
||||
<JsonProperty("invoice_amount")>
|
||||
Public Property InvoiceAmount As Double
|
||||
|
||||
''' <summary>
|
||||
''' Net weight of goods
|
||||
''' </summary>
|
||||
<JsonProperty("net_wg", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property NetWg As Double?
|
||||
|
||||
''' <summary>
|
||||
''' Packaging details
|
||||
''' </summary>
|
||||
<JsonProperty("packs_attributes", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property PacksAttributes As PacksAttribute()
|
||||
|
||||
''' <summary>
|
||||
''' Related documents
|
||||
''' </summary>
|
||||
<JsonProperty("produced_documents_attributes", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property ProducedDocumentsAttributes As ProducedDocumentsAttribute()
|
||||
|
||||
''' <summary>
|
||||
''' Sender's address
|
||||
''' </summary>
|
||||
<JsonProperty("sender_address")>
|
||||
Public Property SenderAddress As String
|
||||
|
||||
''' <summary>
|
||||
''' Sender's city
|
||||
''' </summary>
|
||||
<JsonProperty("sender_city")>
|
||||
Public Property SenderCity As String
|
||||
|
||||
''' <summary>
|
||||
''' Sender's country code
|
||||
''' </summary>
|
||||
<JsonProperty("sender_country_id")>
|
||||
Public Property SenderCountryId As String
|
||||
|
||||
''' <summary>
|
||||
''' Sender's name
|
||||
''' </summary>
|
||||
<JsonProperty("sender_name")>
|
||||
Public Property SenderName As String
|
||||
|
||||
''' <summary>
|
||||
''' Sender's postcode
|
||||
''' </summary>
|
||||
<JsonProperty("sender_postcode")>
|
||||
Public Property SenderPostcode As String
|
||||
|
||||
''' <summary>
|
||||
''' Sender's tax number
|
||||
''' </summary>
|
||||
<JsonProperty("sender_taxno")>
|
||||
Public Property SenderTaxno As String
|
||||
End Class
|
||||
|
||||
Partial Public Class PacksAttribute
|
||||
''' <summary>
|
||||
''' Packaging notes
|
||||
''' </summary>
|
||||
<JsonProperty("notes", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property Notes As String
|
||||
|
||||
''' <summary>
|
||||
''' Number of packages
|
||||
''' </summary>
|
||||
<JsonProperty("pack_count")>
|
||||
Public Property PackCount As Double
|
||||
|
||||
''' <summary>
|
||||
''' Pack Code
|
||||
''' </summary>
|
||||
<JsonProperty("pack_type")>
|
||||
Public Property PackType As String
|
||||
End Class
|
||||
|
||||
Partial Public Class ProducedDocumentsAttribute
|
||||
''' <summary>
|
||||
''' Document code
|
||||
''' </summary>
|
||||
<JsonProperty("code")>
|
||||
Public Property Code As String
|
||||
|
||||
''' <summary>
|
||||
''' Line NO
|
||||
''' </summary>
|
||||
<JsonProperty("quantity", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property Quantity As Double?
|
||||
|
||||
''' <summary>
|
||||
''' Additonal Information
|
||||
''' </summary>
|
||||
<JsonProperty("reason", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property Reason As String
|
||||
|
||||
''' <summary>
|
||||
''' Document reference
|
||||
''' </summary>
|
||||
<JsonProperty("reference", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property Reference As String
|
||||
|
||||
''' <summary>
|
||||
''' Document Type
|
||||
''' </summary>
|
||||
<JsonProperty("scope", NullValueHandling:=NullValueHandling.Ignore)>
|
||||
Public Property Scope As String
|
||||
End Class
|
||||
|
||||
Partial Public Class TransitCountriesAttribute
|
||||
''' <summary>
|
||||
''' Country Code
|
||||
''' </summary>
|
||||
<JsonProperty("country_id")>
|
||||
Public Property CountryId As String
|
||||
End Class
|
||||
|
||||
''' <summary>
|
||||
''' Type of the declaration. Should be "ENS".
|
||||
''' </summary>
|
||||
Public Enum DocType
|
||||
Ens
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' Transit Method
|
||||
''' </summary>
|
||||
Public Enum TransMethod
|
||||
Air
|
||||
Rail
|
||||
Road
|
||||
RoroAccompanied
|
||||
RoroUnaccompanied
|
||||
End Enum
|
||||
|
||||
Partial Public Class ApidogModel
|
||||
Public Shared Function FromJson(json As String) As ApidogModel
|
||||
Return JsonConvert.DeserializeObject(Of ApidogModel)(json, Settings)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Module Serialize
|
||||
<Extension()>
|
||||
Public Function ToJson(Meself As ApidogModel) As String
|
||||
Return JsonConvert.SerializeObject(Meself, Settings)
|
||||
End Function
|
||||
End Module
|
||||
|
||||
Friend Module Converter
|
||||
Public ReadOnly Settings As JsonSerializerSettings = New JsonSerializerSettings With {
|
||||
.MetadataPropertyHandling = MetadataPropertyHandling.Ignore,
|
||||
.DateParseHandling = DateParseHandling.None
|
||||
}
|
||||
End Module
|
||||
|
||||
Friend Class DocTypeConverter
|
||||
Inherits JsonConverter
|
||||
Public Overrides Function CanConvert(t As Type) As Boolean
|
||||
Return t Is GetType(DocType) OrElse t Is GetType(DocType?)
|
||||
End Function
|
||||
|
||||
Public Overrides Function ReadJson(reader As JsonReader, t As Type, existingValue As Object, serializer As JsonSerializer) As Object
|
||||
If reader.TokenType = JsonToken.Null Then Return Nothing
|
||||
Dim value = serializer.Deserialize(Of String)(reader)
|
||||
If value Is "ENS" Then
|
||||
Return DocType.Ens
|
||||
End If
|
||||
Throw New Exception("Cannot unmarshal type DocType")
|
||||
End Function
|
||||
|
||||
Public Overrides Sub WriteJson(writer As JsonWriter, untypedValue As Object, serializer As JsonSerializer)
|
||||
If untypedValue Is Nothing Then
|
||||
serializer.Serialize(writer, Nothing)
|
||||
Return
|
||||
End If
|
||||
Dim value = CType(untypedValue, DocType)
|
||||
If value = DocType.Ens Then
|
||||
serializer.Serialize(writer, "ENS")
|
||||
Return
|
||||
End If
|
||||
Throw New Exception("Cannot marshal type DocType")
|
||||
End Sub
|
||||
|
||||
Public Shared ReadOnly Singleton As DocTypeConverter = New DocTypeConverter()
|
||||
End Class
|
||||
|
||||
Friend Class TransMethodConverter
|
||||
Inherits JsonConverter
|
||||
Public Overrides Function CanConvert(t As Type) As Boolean
|
||||
Return t Is GetType(TransMethod) OrElse t Is GetType(TransMethod?)
|
||||
End Function
|
||||
|
||||
Public Overrides Function ReadJson(reader As JsonReader, t As Type, existingValue As Object, serializer As JsonSerializer) As Object
|
||||
If reader.TokenType = JsonToken.Null Then Return Nothing
|
||||
Dim value = serializer.Deserialize(Of String)(reader)
|
||||
Select Case value
|
||||
Case "air"
|
||||
Return TransMethod.Air
|
||||
Case "rail"
|
||||
Return TransMethod.Rail
|
||||
Case "road"
|
||||
Return TransMethod.Road
|
||||
Case "roro_accompanied"
|
||||
Return TransMethod.RoroAccompanied
|
||||
Case "roro_unaccompanied"
|
||||
Return TransMethod.RoroUnaccompanied
|
||||
End Select
|
||||
Throw New Exception("Cannot unmarshal type TransMethod")
|
||||
End Function
|
||||
|
||||
Public Overrides Sub WriteJson(writer As JsonWriter, untypedValue As Object, serializer As JsonSerializer)
|
||||
If untypedValue Is Nothing Then
|
||||
serializer.Serialize(writer, Nothing)
|
||||
Return
|
||||
End If
|
||||
Dim value = CType(untypedValue, TransMethod)
|
||||
Select Case value
|
||||
Case TransMethod.Air
|
||||
serializer.Serialize(writer, "air")
|
||||
Return
|
||||
Case TransMethod.Rail
|
||||
serializer.Serialize(writer, "rail")
|
||||
Return
|
||||
Case TransMethod.Road
|
||||
serializer.Serialize(writer, "road")
|
||||
Return
|
||||
Case TransMethod.RoroAccompanied
|
||||
serializer.Serialize(writer, "roro_accompanied")
|
||||
Return
|
||||
Case TransMethod.RoroUnaccompanied
|
||||
serializer.Serialize(writer, "roro_unaccompanied")
|
||||
Return
|
||||
End Select
|
||||
Throw New Exception("Cannot marshal type TransMethod")
|
||||
End Sub
|
||||
|
||||
Public Shared ReadOnly Singleton As TransMethodConverter = New TransMethodConverter()
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -1521,6 +1521,9 @@ End Class
|
||||
|
||||
Public Class cModalAPI
|
||||
|
||||
' Dim ENS As New cModalENS.NctsJsonData
|
||||
|
||||
|
||||
'DEV
|
||||
Shared API_STRING As String = "https://modaltrans.com"
|
||||
Shared token As String = ""
|
||||
|
||||
@@ -22,6 +22,45 @@ Public Class cOpenAI
|
||||
' Console.ReadKey()
|
||||
End Sub
|
||||
|
||||
Shared Function askAI_TruckPlate(text) As String
|
||||
'Dim frage As String = "Wie viele Tage braucht ein Versandschein von Istanbul nach München? Gib nur die Zahl zurück."
|
||||
|
||||
'ASKAI_TruckPlate
|
||||
|
||||
Dim Prompt = "Extrahiere das oder die LKW-Kennzeichen aus folgendem Text. Es handelt sich vorwiegend um Kennzeichen aus der Türkei, Osteuropa und dem Balkan. Die Kennzeichen sind entweder zusammengeschrieben oder enthalten Leerzeichen.
|
||||
Regeln:
|
||||
Falls kein Kennzeichen im Text vorhanden ist, gib eine leere Zeichenkette zurück.
|
||||
Falls genau ein Kennzeichen erkannt wird, gib es ohne Leerzeichen zurück.
|
||||
Falls genau zwei Kennzeichen erkannt werden, gib sie ohne Leerzeichen durch einen / getrennt zurück.
|
||||
Falls mehr als zwei Kennzeichen erkannt werden, gib eine leere Zeichenkette zurück.
|
||||
|
||||
Beispiel:
|
||||
Text: 'Der LKW mit dem Kennzeichen BG 1234 AB wurde kontrolliert, ebenso TR AB123CD'
|
||||
Erwartete Ausgabe 'BG1234AB/TRAB123CD'
|
||||
|
||||
Text: 'Keine Kennzeichen gefunden'
|
||||
Erwartete Ausgabe ''
|
||||
|
||||
Text: 'Die Fahrzeuge RO 123 ABC, TR 45ABC67, PL 123456, UA AB 1234'
|
||||
Erwartete Ausgabe ''
|
||||
|
||||
Text: 'Fahrzeug mit Kennzeichen SRB AB123 und eines mit MD 45 ABC'
|
||||
Erwartete Ausgabe 'SRBAB123/MD45ABC'
|
||||
|
||||
Hier ist der zu analysierende Text '{TEXT}'
|
||||
|
||||
gib nur das extrahierte Kennzeichen bzw. die leere Zeichenkette zurück, ohne weitere Kommentare oder Erklärungen."
|
||||
Console.WriteLine("Go..")
|
||||
Console.WriteLine(Prompt.Replace("{TEXT}", text))
|
||||
|
||||
' API-Aufruf und Ausgabe der Antwort
|
||||
Return AskOpenAI(Prompt.Replace("{TEXT}", text).Replace("""", "\""").Replace(vbCrLf, " ").Replace(vbLf, " ").Replace(vbCr, " "))
|
||||
|
||||
'Console.WriteLine("Antwort von OpenAI: " & antwort)
|
||||
|
||||
' Console.WriteLine("Drücke eine beliebige Taste zum Beenden...")
|
||||
' Console.ReadKey()
|
||||
End Function
|
||||
|
||||
|
||||
' Funktion zur Kommunikation mit OpenAI API (synchrones Verhalten)
|
||||
@@ -56,12 +95,15 @@ Public Class cOpenAI
|
||||
|
||||
Return answer ' Antwort zurückgeben
|
||||
Else
|
||||
Console.WriteLine($"Fehler: {response.StatusCode} - {response.Content.ReadAsStringAsync().Result}")
|
||||
|
||||
' Fehlerausgabe bei API-Problemen
|
||||
Return $"Fehler: {response.StatusCode} - {response.Content.ReadAsStringAsync().Result}"
|
||||
End If
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
' Allgemeine Fehlerbehandlung
|
||||
Console.WriteLine($"Fehler: {ex.Message}")
|
||||
Return $"Fehler: {ex.Message}"
|
||||
End Try
|
||||
End Function
|
||||
|
||||
@@ -362,6 +362,7 @@
|
||||
<Compile Include="Classes\cGrenzstelle.vb" />
|
||||
<Compile Include="Classes\cGVMS.vb" />
|
||||
<Compile Include="Classes\cHandlingssaetzeIntern.vb" />
|
||||
<Compile Include="Classes\cHMRCToken.vb" />
|
||||
<Compile Include="Classes\cKundenAufschubkonten.vb" />
|
||||
<Compile Include="Classes\cKundenBesonderheiten.vb" />
|
||||
<Compile Include="Classes\cKundenDatenblatt.vb" />
|
||||
|
||||
Reference in New Issue
Block a user