HMRC

VERAG_PROG_ALLGEMEIN/Classes/cHMRCToken.vb

@@ -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

VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cModalENS.vb

@@ -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

VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cOregonNCTSDeclarations.vb

@@ -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 = ""

VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb

@@ -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

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -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" />