Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN

2025-04-24 17:07:56 +02:00
parent f24df16840 37fc5ad3ad
commit 690b97ab54
10 changed files with 483 additions and 92 deletions
--- a/UID/usrctlProcedures.Designer.vb
+++ b/UID/usrctlProcedures.Designer.vb
@@ -24,6 +24,9 @@ Partial Class usrctlProcedures
    Private Sub InitializeComponent()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.txtHMRCApplName = New System.Windows.Forms.TextBox()
+        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()
@@ -75,6 +78,12 @@ Partial Class usrctlProcedures
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.tbxLog = New System.Windows.Forms.TextBox()
+        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.Button46 = New System.Windows.Forms.Button()
+        Me.tctModalTEstLRN = New System.Windows.Forms.TextBox()
+        Me.Button45 = New System.Windows.Forms.Button()
+        Me.TabPage5 = New System.Windows.Forms.TabPage()
+        Me.Button47 = New System.Windows.Forms.Button()
        Me.Button18 = New System.Windows.Forms.Button()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.lblAnzahl = New System.Windows.Forms.Label()
@@ -125,9 +134,10 @@ 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.Button48 = New System.Windows.Forms.Button()
        Me.TabControl1.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.TabPage1.SuspendLayout()
@@ -135,6 +145,8 @@ Partial Class usrctlProcedures
        Me.GroupBox1.SuspendLayout()
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage2.SuspendLayout()
+        Me.TabPage4.SuspendLayout()
+        Me.TabPage5.SuspendLayout()
        Me.SuspendLayout()
        '
        'TabControl1
@@ -142,6 +154,8 @@ Partial Class usrctlProcedures
        Me.TabControl1.Controls.Add(Me.TabPage3)
        Me.TabControl1.Controls.Add(Me.TabPage1)
        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Controls.Add(Me.TabPage4)
+        Me.TabControl1.Controls.Add(Me.TabPage5)
        Me.TabControl1.Location = New System.Drawing.Point(7, 407)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
@@ -150,6 +164,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 +188,31 @@ Partial Class usrctlProcedures
        Me.TabPage3.Text = "TabPage3"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
+        '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):"
+        '
+        'txtHMRCApplName
+        '
+        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
+        '
+        '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
@@ -647,6 +689,66 @@ Partial Class usrctlProcedures
        Me.tbxLog.Size = New System.Drawing.Size(380, 380)
        Me.tbxLog.TabIndex = 4
        '
+        'TabPage4
+        '
+        Me.TabPage4.Controls.Add(Me.Button46)
+        Me.TabPage4.Controls.Add(Me.tctModalTEstLRN)
+        Me.TabPage4.Controls.Add(Me.Button45)
+        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage4.Name = "TabPage4"
+        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage4.Size = New System.Drawing.Size(601, 288)
+        Me.TabPage4.TabIndex = 3
+        Me.TabPage4.Text = "MODAL"
+        Me.TabPage4.UseVisualStyleBackColor = True
+        '
+        'Button46
+        '
+        Me.Button46.Location = New System.Drawing.Point(221, 42)
+        Me.Button46.Name = "Button46"
+        Me.Button46.Size = New System.Drawing.Size(145, 49)
+        Me.Button46.TabIndex = 67
+        Me.Button46.Text = "NCTS TEST Senden"
+        Me.Button46.UseVisualStyleBackColor = True
+        '
+        'tctModalTEstLRN
+        '
+        Me.tctModalTEstLRN.Location = New System.Drawing.Point(24, 16)
+        Me.tctModalTEstLRN.Name = "tctModalTEstLRN"
+        Me.tctModalTEstLRN.Size = New System.Drawing.Size(145, 20)
+        Me.tctModalTEstLRN.TabIndex = 66
+        Me.tctModalTEstLRN.Text = "LRN"
+        '
+        'Button45
+        '
+        Me.Button45.Location = New System.Drawing.Point(24, 42)
+        Me.Button45.Name = "Button45"
+        Me.Button45.Size = New System.Drawing.Size(145, 49)
+        Me.Button45.TabIndex = 16
+        Me.Button45.Text = "IMPORT TEST Senden"
+        Me.Button45.UseVisualStyleBackColor = True
+        '
+        'TabPage5
+        '
+        Me.TabPage5.Controls.Add(Me.Button48)
+        Me.TabPage5.Controls.Add(Me.Button47)
+        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage5.Name = "TabPage5"
+        Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage5.Size = New System.Drawing.Size(601, 288)
+        Me.TabPage5.TabIndex = 4
+        Me.TabPage5.Text = "Teleotec"
+        Me.TabPage5.UseVisualStyleBackColor = True
+        '
+        'Button47
+        '
+        Me.Button47.Location = New System.Drawing.Point(20, 24)
+        Me.Button47.Name = "Button47"
+        Me.Button47.Size = New System.Drawing.Size(145, 49)
+        Me.Button47.TabIndex = 62
+        Me.Button47.Text = "getTAD"
+        Me.Button47.UseVisualStyleBackColor = True
+        '
        'Button18
        '
        Me.Button18.Location = New System.Drawing.Point(59, 183)
@@ -1107,6 +1209,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 +1228,14 @@ Partial Class usrctlProcedures
        Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'Button43
+        'Button48
        '
-        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.Button48.Location = New System.Drawing.Point(209, 24)
+        Me.Button48.Name = "Button48"
+        Me.Button48.Size = New System.Drawing.Size(145, 49)
+        Me.Button48.TabIndex = 63
+        Me.Button48.Text = "getTAD File"
+        Me.Button48.UseVisualStyleBackColor = True
        '
        'usrctlProcedures
        '
@@ -1195,6 +1306,9 @@ Partial Class usrctlProcedures
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage2.PerformLayout()
+        Me.TabPage4.ResumeLayout(False)
+        Me.TabPage4.PerformLayout()
+        Me.TabPage5.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -1305,4 +1419,14 @@ 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
+    Friend WithEvents TabPage4 As TabPage
+    Friend WithEvents tctModalTEstLRN As TextBox
+    Friend WithEvents Button45 As Button
+    Friend WithEvents Button46 As Button
+    Friend WithEvents TabPage5 As TabPage
+    Friend WithEvents Button47 As Button
+    Friend WithEvents Button48 As Button
 End Class
--- a/UID/usrctlProcedures.vb
+++ b/UID/usrctlProcedures.vb
@@ -18,6 +18,8 @@ Imports System.Data.OleDb
 Imports Chilkat
 Imports TELOTEC_Worker
 Imports GrapeCity
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cTelotecAPI
 'Imports Microsoft.Office.Interop

 Public Class usrctlProcedures
@@ -3898,6 +3900,73 @@ 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 Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click
+        VERAG_PROG_ALLGEMEIN.cModalTransIMPORT.CreateAndSendMinimalImportDeclaration(tctModalTEstLRN.Text)
+    End Sub
+
+    Private Sub Button46_Click(sender As Object, e As EventArgs) Handles Button46.Click
+        VERAG_PROG_ALLGEMEIN.cModalTransNCTS.TestNCTSSend()
+
+    End Sub
+
+    Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
+        Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI
+
+        Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages()
+
+
+        MsgBox(messages.Count)
+
+        For Each mmm In messages
+            MsgBox(mmm.lrn)
+            MsgBox(mmm.declarationContent.anmeldedatum)
+        Next
+    End Sub
+
+    Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click
+        Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI
+
+        Dim messages As New List(Of TAMessage)()
+
+        Using ofd As New OpenFileDialog()
+            ofd.Title = "Wähle eine JSON-Datei mit TA-Nachrichten"
+            ofd.InitialDirectory = "\\datenarchiv\Datenarchiv\TELOTEC\ECHTSYSTEM\Nachrichtendaten_Ablage_JSON\"
+            ofd.Filter = "JSON-Dateien (*.json)|*.json|Alle Dateien (*.*)|*.*"
+
+            If ofd.ShowDialog() = DialogResult.OK Then
+                Dim selectedPath As String = ofd.FileName
+                messages = TELO.ParseTAMessagesFromFile(selectedPath)
+
+
+                MsgBox(messages.Count)
+
+                For Each mmm In messages
+                    MsgBox(mmm.lrn)
+                    Dim TELO_ANM = TELOTEC_Worker.cTelotec_Anmeldung.ConvertTAMessageToTelotec(mmm)
+                    If TELO_ANM.SAVE() Then
+                        MsgBox("SUSSSSS")
+                    End If
+
+                Next
+
+            Else
+                Console.WriteLine("🔕 Keine Datei ausgewählt.")
+            End If
+        End Using
+
+
+    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")