edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

proc

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-07-19 23:32:31 +02:00
parent 252a74a93a
commit c3ac192533
2 changed files with 50 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
UID/usrctlProcedures.Designer.vb generated
View File

@@ -179,6 +179,8 @@ Partial Class usrctlProcedures
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button55 = New System.Windows.Forms.Button() Me.Button55 = New System.Windows.Forms.Button()
Me.Button56 = 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.tbTRStat.SuspendLayout()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
@@ -1698,10 +1700,30 @@ Partial Class usrctlProcedures
Me.Button56.Text = "KARACA" Me.Button56.Text = "KARACA"
Me.Button56.UseVisualStyleBackColor = True 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 'usrctlProcedures
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 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.Button56)
Me.Controls.Add(Me.Button55) Me.Controls.Add(Me.Button55)
Me.Controls.Add(Me.Button99) Me.Controls.Add(Me.Button99)
@@ -1941,4 +1963,6 @@ Partial Class usrctlProcedures
Friend WithEvents cbxCD_Overwrite As CheckBox Friend WithEvents cbxCD_Overwrite As CheckBox
Friend WithEvents Button55 As Button Friend WithEvents Button55 As Button
Friend WithEvents Button56 As Button Friend WithEvents Button56 As Button
Friend WithEvents Button57 As Button
Friend WithEvents Button58 As Button
End Class End Class

26
UID/usrctlProcedures.vb
View File

@@ -4972,6 +4972,32 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
End Sub 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) '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") ' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
' Dim fi As New FileInfo(d) ' Dim fi As New FileInfo(d)