diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb
index 145e792b..e5610191 100644
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb
@@ -91,17 +91,17 @@ Public Class usrCntlATLAS_EXGestellung
'MRN Prüfung:
For Each l In rtbMRN.Lines
If l.Trim <> "" Then
- If l.Length >= 18 And dblcheck.Contains(l) Then
+ If l.Trim.Length >= 18 And dblcheck.Contains(l.Trim) Then
MsgBox("Doppelte MRN !: " & l)
Me.Cursor = Cursors.Default
Exit Sub
End If
- If Not IsValidMRN(l) Then
+ If Not IsValidMRN(l.Trim) Then
MsgBox("Ungültige MRN (Format): " & l)
Me.Cursor = Cursors.Default
Exit Sub
End If
- dblcheck &= l
+ dblcheck &= l.Trim
End If
Next
@@ -111,7 +111,7 @@ Public Class usrCntlATLAS_EXGestellung
For Each l In rtbMRN.Lines
If l.Trim <> "" Then
- If Not sendEXP_MRN(l, sbAbgangZollstelle._value, cnt, exg_list) Then
+ If Not sendEXP_MRN(l.Trim, sbAbgangZollstelle._value, cnt, exg_list) Then
MsgBox("Sendefehler bei " & l)
err = True
End If
diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
index e11661a6..f48d72e6 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb
@@ -74,10 +74,10 @@ Partial Class usrCntlKundenuebersicht
Me.Label13 = New System.Windows.Forms.Label()
Me.grpAbfertigung = New System.Windows.Forms.GroupBox()
Me.Panel9 = New System.Windows.Forms.Panel()
+ Me.txtVerzolltBei = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.txtVerzolltBeiExport = New System.Windows.Forms.TextBox()
- Me.txtVerzolltBei = New System.Windows.Forms.TextBox()
Me.rtbInfo = New System.Windows.Forms.RichTextBox()
Me.txtNeutralisierung = New System.Windows.Forms.TextBox()
Me.lblNeutralisierung = New System.Windows.Forms.Label()
@@ -86,6 +86,7 @@ Partial Class usrCntlKundenuebersicht
Me.txtVorauskasse = New System.Windows.Forms.TextBox()
Me.lblAviso = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
+ Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
Me.Label45 = New System.Windows.Forms.Label()
Me.pnlVERAGSnspr = New System.Windows.Forms.Panel()
@@ -157,6 +158,7 @@ Partial Class usrCntlKundenuebersicht
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.tbKontaktSpez = New System.Windows.Forms.TabPage()
+ Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
Me.Label38 = New System.Windows.Forms.Label()
Me.txtDebitorennr = New System.Windows.Forms.TextBox()
Me.lblFwlFiskal = New System.Windows.Forms.LinkLabel()
@@ -167,7 +169,6 @@ Partial Class usrCntlKundenuebersicht
Me.lblStrasse = New System.Windows.Forms.TextBox()
Me.lblFirmenname2 = New System.Windows.Forms.TextBox()
Me.lblTESTSystem = New System.Windows.Forms.Label()
- Me.lblAdressZusatz = New System.Windows.Forms.TextBox()
Me.grpSonstiges = New System.Windows.Forms.GroupBox()
Me.Button14 = New System.Windows.Forms.Button()
Me.Button13 = New System.Windows.Forms.Button()
@@ -204,6 +205,7 @@ Partial Class usrCntlKundenuebersicht
Me.Button8 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.tbAvisoMail = New System.Windows.Forms.TabPage()
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.tbKdSpez = New System.Windows.Forms.TabPage()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label43 = New System.Windows.Forms.Label()
@@ -260,9 +262,6 @@ Partial Class usrCntlKundenuebersicht
Me.btnOP = New System.Windows.Forms.Button()
Me.ContextMenuStrip5 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
- Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
- Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
- Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
Me.cntxtAddVM.SuspendLayout()
Me.tbWeitereKundenDetails.SuspendLayout()
Me.tbOfferten.SuspendLayout()
@@ -899,6 +898,19 @@ Partial Class usrCntlKundenuebersicht
Me.Panel9.Size = New System.Drawing.Size(356, 24)
Me.Panel9.TabIndex = 46
'
+ 'txtVerzolltBei
+ '
+ Me.txtVerzolltBei.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None
+ Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black
+ Me.txtVerzolltBei.Location = New System.Drawing.Point(62, 4)
+ Me.txtVerzolltBei.Name = "txtVerzolltBei"
+ Me.txtVerzolltBei.ReadOnly = True
+ Me.txtVerzolltBei.Size = New System.Drawing.Size(155, 13)
+ Me.txtVerzolltBei.TabIndex = 16
+ Me.txtVerzolltBei.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+ '
'Label3
'
Me.Label3.AutoSize = True
@@ -930,19 +942,6 @@ Partial Class usrCntlKundenuebersicht
Me.txtVerzolltBeiExport.TabIndex = 44
Me.txtVerzolltBeiExport.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
- 'txtVerzolltBei
- '
- Me.txtVerzolltBei.BackColor = System.Drawing.Color.WhiteSmoke
- Me.txtVerzolltBei.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.txtVerzolltBei.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.txtVerzolltBei.ForeColor = System.Drawing.Color.Black
- Me.txtVerzolltBei.Location = New System.Drawing.Point(62, 4)
- Me.txtVerzolltBei.Name = "txtVerzolltBei"
- Me.txtVerzolltBei.ReadOnly = True
- Me.txtVerzolltBei.Size = New System.Drawing.Size(155, 13)
- Me.txtVerzolltBei.TabIndex = 16
- Me.txtVerzolltBei.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
- '
'rtbInfo
'
Me.rtbInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1037,6 +1036,17 @@ Partial Class usrCntlKundenuebersicht
Me.Label2.Text = "Aviso:"
Me.Label2.Visible = False
'
+ 'UsrCntlKundenBesonderheiten1
+ '
+ Me.UsrCntlKundenBesonderheiten1.AutoScroll = True
+ Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
+ Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+ Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32)
+ Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
+ Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
+ Me.UsrCntlKundenBesonderheiten1.TabIndex = 6
+ Me.UsrCntlKundenBesonderheiten1.Visible = False
+ '
'lblAbfertigungsverbot
'
Me.lblAbfertigungsverbot.BackColor = System.Drawing.Color.Red
@@ -1970,7 +1980,6 @@ Partial Class usrCntlKundenuebersicht
Me.grpAdresse.Controls.Add(Me.lblStrasse)
Me.grpAdresse.Controls.Add(Me.lblFirmenname2)
Me.grpAdresse.Controls.Add(Me.lblTESTSystem)
- Me.grpAdresse.Controls.Add(Me.lblAdressZusatz)
Me.grpAdresse.Location = New System.Drawing.Point(3, 17)
Me.grpAdresse.Name = "grpAdresse"
Me.grpAdresse.Size = New System.Drawing.Size(499, 348)
@@ -2187,6 +2196,14 @@ Partial Class usrCntlKundenuebersicht
Me.tbKontaktSpez.Text = "Spezifisch"
Me.tbKontaktSpez.UseVisualStyleBackColor = True
'
+ 'ucKundenKontakte
+ '
+ Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
+ Me.ucKundenKontakte.Name = "ucKundenKontakte"
+ Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158)
+ Me.ucKundenKontakte.TabIndex = 0
+ '
'Label38
'
Me.Label38.AutoSize = True
@@ -2273,10 +2290,11 @@ Partial Class usrCntlKundenuebersicht
Me.lblStrasse.BackColor = System.Drawing.Color.White
Me.lblStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblStrasse.Location = New System.Drawing.Point(6, 91)
+ Me.lblStrasse.Location = New System.Drawing.Point(6, 70)
+ Me.lblStrasse.Multiline = True
Me.lblStrasse.Name = "lblStrasse"
Me.lblStrasse.ReadOnly = True
- Me.lblStrasse.Size = New System.Drawing.Size(491, 19)
+ Me.lblStrasse.Size = New System.Drawing.Size(491, 43)
Me.lblStrasse.TabIndex = 5
Me.lblStrasse.Text = "Strasse"
'
@@ -2303,18 +2321,6 @@ Partial Class usrCntlKundenuebersicht
Me.lblTESTSystem.TabIndex = 4
Me.lblTESTSystem.Text = "! TESTSYSTEM !"
'
- 'lblAdressZusatz
- '
- Me.lblAdressZusatz.BackColor = System.Drawing.Color.White
- Me.lblAdressZusatz.BorderStyle = System.Windows.Forms.BorderStyle.None
- Me.lblAdressZusatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- Me.lblAdressZusatz.Location = New System.Drawing.Point(6, 62)
- Me.lblAdressZusatz.Name = "lblAdressZusatz"
- Me.lblAdressZusatz.ReadOnly = True
- Me.lblAdressZusatz.Size = New System.Drawing.Size(353, 19)
- Me.lblAdressZusatz.TabIndex = 11
- Me.lblAdressZusatz.Text = "Zusatz"
- '
'grpSonstiges
'
Me.grpSonstiges.BackColor = System.Drawing.Color.White
@@ -2837,6 +2843,16 @@ Partial Class usrCntlKundenuebersicht
Me.tbAvisoMail.Text = "Aviso E-Mails"
Me.tbAvisoMail.UseVisualStyleBackColor = True
'
+ 'UsrCntlKundenAvisoMailBenachrichtigung1
+ '
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3)
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
+ Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
+ '
'tbKdSpez
'
Me.tbKdSpez.Controls.Add(Me.Label14)
@@ -3408,35 +3424,6 @@ Partial Class usrCntlKundenuebersicht
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(150, 30)
Me.ToolStripMenuItem12.Text = "Schnelldruck"
'
- 'UsrCntlKundenBesonderheiten1
- '
- Me.UsrCntlKundenBesonderheiten1.AutoScroll = True
- Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
- Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(7, 32)
- Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
- Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
- Me.UsrCntlKundenBesonderheiten1.TabIndex = 6
- Me.UsrCntlKundenBesonderheiten1.Visible = False
- '
- 'ucKundenKontakte
- '
- Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
- Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
- Me.ucKundenKontakte.Name = "ucKundenKontakte"
- Me.ucKundenKontakte.Size = New System.Drawing.Size(473, 158)
- Me.ucKundenKontakte.TabIndex = 0
- '
- 'UsrCntlKundenAvisoMailBenachrichtigung1
- '
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.Dock = System.Windows.Forms.DockStyle.Fill
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(3, 3)
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(473, 158)
- Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 0
- '
'usrCntlKundenuebersicht
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3741,7 +3728,6 @@ Partial Class usrCntlKundenuebersicht
Friend WithEvents btnCreditsafe As Button
Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents SessionService1 As VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService
- Friend WithEvents lblAdressZusatz As TextBox
Friend WithEvents picVertrag As PictureBox
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents txtOVK As VERAG_PROG_ALLGEMEIN.MyTextBox
diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb
index f041abfa..4f2c10b0 100644
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -408,9 +408,15 @@ Public Class usrCntlKundenuebersicht
lblFirmenname1.Text = checkNullStr(ADRESSE.Name_1)
lblFirmenname2.Text = checkNullStr(ADRESSE.Name_2)
- lblAdressZusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
+ Dim zusatz As String = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
+ Dim strasse As String = checkNullStr(ADRESSE.Straße)
- lblStrasse.Text = checkNullStr(ADRESSE.Straße)
+ lblStrasse.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz) & checkNullStr(ADRESSE.Straße)
+ If zusatz <> "" Then
+ lblStrasse.Text = zusatz & vbCrLf & strasse
+ Else
+ lblStrasse.Text = vbCrLf & strasse
+ End If
lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb
index d27e17b3..fad251be 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb
@@ -49,14 +49,14 @@ Public Class cATEZ_ncts_api
If Not checkDY_NCTS(NCTS_TMP.Mrn) Then
- Dim NCTS_FREMD = VERAG_PROG_ALLGEMEIN.cNCTS_FREMD.LOADByMRN(NCTS_TMP.Mrn, True)
- If NCTS_FREMD Is Nothing Then NCTS_FREMD = New cNCTS_FREMD
- NCTS_FREMD.ncts_Partnersystem = "ATEZ"
- NCTS_FREMD.ncts_MRN = NCTS_TMP.Mrn
+ If checkDY_NCTSStatus60(NCTS_TMP.Mrn) And OverrideNCTSFin = False Then
- If NCTS_FREMD.ncts_Status = 60 And OverrideNCTSFin = False Then
'Wenn NCTS beretis Erledigt und kein Flag fürs überschreiben, mach nix....
Else
+ Dim NCTS_FREMD = VERAG_PROG_ALLGEMEIN.cNCTS_FREMD.LOADByMRN(NCTS_TMP.Mrn, True)
+ If NCTS_FREMD Is Nothing Then NCTS_FREMD = New cNCTS_FREMD
+ NCTS_FREMD.ncts_Partnersystem = "ATEZ"
+ NCTS_FREMD.ncts_MRN = NCTS_TMP.Mrn
NCTS_FREMD.ncts_Eroeffnung = NCTS_TMP.MrnDate
@@ -162,6 +162,9 @@ Public Class cATEZ_ncts_api
Public Shared Function checkDY_NCTS(MRN As String) As Boolean
Return ((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("COUNT(*)", "[tblDakosy_NCTSOut004]", "ncts_MRN='" & MRN & "'", "FMZOLL", 0)) > 0
End Function
+ Public Shared Function checkDY_NCTSStatus60(MRN As String) As Boolean
+ Return ((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("COUNT(*)", "[tblDakosy_NCTSOut004]", "ncts_MRN='" & MRN & "' AND ncts_Status=60 ", "FMZOLL", 0)) > 0
+ End Function
Public Shared Function checkDY_TC(MRN As String) As Boolean
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb
new file mode 100644
index 00000000..1037ab91
--- /dev/null
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/OPEN_AI/cOpenAI.vb
@@ -0,0 +1,70 @@
+Imports System.Net.Http
+Imports System.Text
+Imports System.Threading.Tasks
+Imports Newtonsoft.Json.Linq
+
+Public Class cOpenAI
+
+ Shared apiKey As String = "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"
+ Shared apiUrl As String = "https://api.openai.com/v1/chat/completions"
+
+ Shared Sub doFirstAI()
+ 'Dim frage As String = "Wie viele Tage braucht ein Versandschein von Istanbul nach München? Gib nur die Zahl zurück."
+ Dim frage As String = "Schreibe ein HAIKO über AI."
+
+
+ ' API-Aufruf und Ausgabe der Antwort
+ Dim antwort As String = AskOpenAI(frage)
+
+ Console.WriteLine("Antwort von OpenAI: " & antwort)
+
+ ' Console.WriteLine("Drücke eine beliebige Taste zum Beenden...")
+ ' Console.ReadKey()
+ End Sub
+
+
+
+ ' Funktion zur Kommunikation mit OpenAI API (synchrones Verhalten)
+ Shared Function AskOpenAI(question As String) As String
+
+ Try
+ Using client As New HttpClient()
+ client.DefaultRequestHeaders.Add("Authorization", $"Bearer {apiKey}")
+
+ ' JSON-Body für die API-Anfrage mit GPT-4o
+ Dim requestBody As String = "
+ {
+ ""model"": ""gpt-4o-mini"",
+ ""messages"": [
+ {""role"": ""user"", ""content"": """ & question & """}
+ ],
+ ""max_tokens"": 10,
+ ""temperature"": 0
+ }"
+
+ Dim content As New StringContent(requestBody, Encoding.UTF8, "application/json")
+
+ ' POST-Anfrage senden und Antwort synchron verarbeiten
+ Dim response As HttpResponseMessage = client.PostAsync(apiUrl, content).Result
+
+ If response.IsSuccessStatusCode Then
+ Dim responseBody As String = response.Content.ReadAsStringAsync().Result
+
+ ' JSON-Antwort parsen, um die OpenAI-Antwort zu extrahieren
+ Dim jsonResponse As JObject = JObject.Parse(responseBody)
+ Dim answer As String = jsonResponse("choices")(0)("message")("content").ToString().Trim()
+
+ Return answer ' Antwort zurückgeben
+ Else
+ ' Fehlerausgabe bei API-Problemen
+ Return $"Fehler: {response.StatusCode} - {response.Content.ReadAsStringAsync().Result}"
+ End If
+ End Using
+ Catch ex As Exception
+ ' Allgemeine Fehlerbehandlung
+ Return $"Fehler: {ex.Message}"
+ End Try
+ End Function
+
+
+End Class
\ No newline at end of file
diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
index 0f633211..1020f880 100644
--- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
@@ -641,6 +641,7 @@
+