proc

UID/usrctlProcedures.Designer.vb

@@ -179,6 +179,8 @@ Partial Class usrctlProcedures
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.Button55 = New System.Windows.Forms.Button()
         Me.Button56 = New System.Windows.Forms.Button()
+        Me.Button57 = New System.Windows.Forms.Button()
+        Me.Button58 = New System.Windows.Forms.Button()
         Me.tbTRStat.SuspendLayout()
         Me.TabPage3.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -1698,10 +1700,30 @@ Partial Class usrctlProcedures
         Me.Button56.Text = "KARACA"
         Me.Button56.UseVisualStyleBackColor = True
         '
+        'Button57
+        '
+        Me.Button57.Location = New System.Drawing.Point(414, 79)
+        Me.Button57.Name = "Button57"
+        Me.Button57.Size = New System.Drawing.Size(77, 49)
+        Me.Button57.TabIndex = 69
+        Me.Button57.Text = "Kontaktdaten"
+        Me.Button57.UseVisualStyleBackColor = True
+        '
+        'Button58
+        '
+        Me.Button58.Location = New System.Drawing.Point(497, 81)
+        Me.Button58.Name = "Button58"
+        Me.Button58.Size = New System.Drawing.Size(77, 49)
+        Me.Button58.TabIndex = 70
+        Me.Button58.Text = "Allg"
+        Me.Button58.UseVisualStyleBackColor = True
+        '
         'usrctlProcedures
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.Button58)
+        Me.Controls.Add(Me.Button57)
         Me.Controls.Add(Me.Button56)
         Me.Controls.Add(Me.Button55)
         Me.Controls.Add(Me.Button99)
@@ -1941,4 +1963,6 @@ Partial Class usrctlProcedures
     Friend WithEvents cbxCD_Overwrite As CheckBox
     Friend WithEvents Button55 As Button
     Friend WithEvents Button56 As Button
+    Friend WithEvents Button57 As Button
+    Friend WithEvents Button58 As Button
 End Class

UID/usrctlProcedures.vb

@@ -4972,6 +4972,32 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
 
     End Sub
 
+    Private Sub Button57_Click(sender As Object, e As EventArgs) Handles Button57.Click
+        Try
+
+            Dim adr = InputBox("Bitte geben Sie die Firma ein:", "Eingabe", "")
+
+            Dim OA = cOpenAI.askAI_HERBERT_Kontakdaten_WebResearch(adr)
+            MsgBox(OA)
+
+        Catch ex As Exception
+            MsgBox(ex.Message & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+    Private Sub Button58_Click(sender As Object, e As EventArgs) Handles Button58.Click
+        Try
+
+            Dim ask = InputBox("Bitte gib deine Frage ein:", "Eingabe", "")
+
+            Dim OA = cOpenAI.askAI_HERBERT_Allg(ask)
+            MsgBox(OA)
+
+        Catch ex As Exception
+            MsgBox(ex.Message & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
     'Private Sub Button26_Click(sender As Object, e As EventArgs)
     '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
     '        Dim fi As New FileInfo(d)