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

EZA

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-22 14:37:30 +02:00
parent 107d324054
commit 4240426b19
10 changed files with 316 additions and 325 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
UID/usrctlProcedures.Designer.vb generated
View File

@@ -24,6 +24,7 @@ Partial Class usrctlProcedures
Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Button44 = New System.Windows.Forms.Button()
Me.CheckBox6 = New System.Windows.Forms.CheckBox()
Me.TextBox15 = New System.Windows.Forms.TextBox()
Me.Button37 = New System.Windows.Forms.Button()
@@ -125,9 +126,11 @@ Partial Class usrctlProcedures
Me.Button32 = New System.Windows.Forms.Button()
Me.lblStatus = New System.Windows.Forms.Label()
Me.Button33 = New System.Windows.Forms.Button()
Me.Button43 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Button43 = New System.Windows.Forms.Button()
Me.txtHMRCApplName = New System.Windows.Forms.TextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.TabControl1.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -150,6 +153,9 @@ Partial Class usrctlProcedures
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.Label16)
Me.TabPage3.Controls.Add(Me.txtHMRCApplName)
Me.TabPage3.Controls.Add(Me.Button44)
Me.TabPage3.Controls.Add(Me.CheckBox6)
Me.TabPage3.Controls.Add(Me.TextBox15)
Me.TabPage3.Controls.Add(Me.Button37)
@@ -171,6 +177,15 @@ Partial Class usrctlProcedures
Me.TabPage3.Text = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True
'
'Button44
'
Me.Button44.Location = New System.Drawing.Point(437, 9)
Me.Button44.Name = "Button44"
Me.Button44.Size = New System.Drawing.Size(159, 49)
Me.Button44.TabIndex = 78
Me.Button44.Text = "HMRC TOKEN"
Me.Button44.UseVisualStyleBackColor = True
'
'CheckBox6
'
Me.CheckBox6.AutoSize = True
@@ -1107,6 +1122,15 @@ Partial Class usrctlProcedures
Me.Button33.Text = "DAKOSY CSV Importieren"
Me.Button33.UseVisualStyleBackColor = True
'
'Button43
'
Me.Button43.Location = New System.Drawing.Point(694, 29)
Me.Button43.Name = "Button43"
Me.Button43.Size = New System.Drawing.Size(145, 49)
Me.Button43.TabIndex = 65
Me.Button43.Text = "TELOTEC NCTS"
Me.Button43.UseVisualStyleBackColor = True
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "dat"
@@ -1117,14 +1141,21 @@ Partial Class usrctlProcedures
Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'Button43
'txtHMRCApplName
'
Me.Button43.Location = New System.Drawing.Point(694, 29)
Me.Button43.Name = "Button43"
Me.Button43.Size = New System.Drawing.Size(145, 49)
Me.Button43.TabIndex = 65
Me.Button43.Text = "TELOTEC NCTS"
Me.Button43.UseVisualStyleBackColor = True
Me.txtHMRCApplName.Location = New System.Drawing.Point(437, 71)
Me.txtHMRCApplName.Name = "txtHMRCApplName"
Me.txtHMRCApplName.Size = New System.Drawing.Size(159, 20)
Me.txtHMRCApplName.TabIndex = 79
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(434, 58)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(169, 13)
Me.Label16.TabIndex = 80
Me.Label16.Text = "fremde HMRC Application (Name):"
'
'usrctlProcedures
'
@@ -1305,4 +1336,7 @@ Partial Class usrctlProcedures
Friend WithEvents Button37 As Button
Friend WithEvents CheckBox6 As CheckBox
Friend WithEvents Button43 As Button
Friend WithEvents Button44 As Button
Friend WithEvents Label16 As Label
Friend WithEvents txtHMRCApplName As TextBox
End Class

6
UID/usrctlProcedures.resx
View File

@@ -123,4 +123,10 @@
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

11
UID/usrctlProcedures.vb
View File

@@ -18,6 +18,7 @@ Imports System.Data.OleDb
Imports Chilkat
Imports TELOTEC_Worker
Imports GrapeCity
Imports VERAG_PROG_ALLGEMEIN
'Imports Microsoft.Office.Interop
Public Class usrctlProcedures
@@ -3891,6 +3892,16 @@ Public Class usrctlProcedures
End Try
End Sub
Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click
Dim TOKENNAME = InputBox("Bitte Token-Bezeichnung angeben:")
If TOKENNAME <> "" Then
Dim TOKEN = cHMRC.getTOKEN("ENS", True, TOKENNAME, txtHMRCApplName.Text)
MsgBox("REFRESH_TOKEN: " & TOKEN.token_REFRESH_TOKEN & vbNewLine & "BEARER_TOKEN: " & TOKEN.token_BEARER_TOKEN)
End If
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")