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

2025-02-25 08:37:31 +01:00
parent 55030fc729 e175b4ac2d
commit 589d947d18
5 changed files with 534 additions and 299 deletions
--- a/UID/usrctlProcedures.Designer.vb
+++ b/UID/usrctlProcedures.Designer.vb
@@ -23,6 +23,19 @@ Partial Class usrctlProcedures
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.TextBox15 = New System.Windows.Forms.TextBox()
+        Me.Button37 = New System.Windows.Forms.Button()
+        Me.Button41 = New System.Windows.Forms.Button()
+        Me.Button42 = New System.Windows.Forms.Button()
+        Me.Button39 = New System.Windows.Forms.Button()
+        Me.Button40 = New System.Windows.Forms.Button()
+        Me.TextBox14 = New System.Windows.Forms.TextBox()
+        Me.Button38 = New System.Windows.Forms.Button()
+        Me.TextBox13 = New System.Windows.Forms.TextBox()
+        Me.Button36 = New System.Windows.Forms.Button()
+        Me.Button35 = New System.Windows.Forms.Button()
+        Me.Button34 = New System.Windows.Forms.Button()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.Button17 = New System.Windows.Forms.Button()
        Me.Button16 = New System.Windows.Forms.Button()
@@ -70,8 +83,6 @@ Partial Class usrctlProcedures
        Me.Label5 = New System.Windows.Forms.Label()
        Me.cbxTESTSYSTEMATLAS = New System.Windows.Forms.CheckBox()
        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
-        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.CheckBox2 = New System.Windows.Forms.CheckBox()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Button20 = New System.Windows.Forms.Button()
@@ -113,9 +124,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.Button34 = New System.Windows.Forms.Button()
-        Me.Button35 = New System.Windows.Forms.Button()
+        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.CheckBox6 = New System.Windows.Forms.CheckBox()
        Me.TabControl1.SuspendLayout()
+        Me.TabPage3.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
@@ -125,14 +138,142 @@ Partial Class usrctlProcedures
        '
        'TabControl1
        '
+        Me.TabControl1.Controls.Add(Me.TabPage3)
        Me.TabControl1.Controls.Add(Me.TabPage1)
        Me.TabControl1.Controls.Add(Me.TabPage2)
        Me.TabControl1.Location = New System.Drawing.Point(7, 407)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(609, 187)
+        Me.TabControl1.Size = New System.Drawing.Size(609, 314)
        Me.TabControl1.TabIndex = 2
-        Me.TabControl1.Visible = False
+        '
+        'TabPage3
+        '
+        Me.TabPage3.Controls.Add(Me.CheckBox6)
+        Me.TabPage3.Controls.Add(Me.TextBox15)
+        Me.TabPage3.Controls.Add(Me.Button37)
+        Me.TabPage3.Controls.Add(Me.Button41)
+        Me.TabPage3.Controls.Add(Me.Button42)
+        Me.TabPage3.Controls.Add(Me.Button39)
+        Me.TabPage3.Controls.Add(Me.Button40)
+        Me.TabPage3.Controls.Add(Me.TextBox14)
+        Me.TabPage3.Controls.Add(Me.Button38)
+        Me.TabPage3.Controls.Add(Me.TextBox13)
+        Me.TabPage3.Controls.Add(Me.Button36)
+        Me.TabPage3.Controls.Add(Me.Button35)
+        Me.TabPage3.Controls.Add(Me.Button34)
+        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage3.Name = "TabPage3"
+        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage3.Size = New System.Drawing.Size(601, 288)
+        Me.TabPage3.TabIndex = 2
+        Me.TabPage3.Text = "TabPage3"
+        Me.TabPage3.UseVisualStyleBackColor = True
+        '
+        'TextBox15
+        '
+        Me.TextBox15.Location = New System.Drawing.Point(185, 55)
+        Me.TextBox15.Name = "TextBox15"
+        Me.TextBox15.Size = New System.Drawing.Size(145, 20)
+        Me.TextBox15.TabIndex = 77
+        Me.TextBox15.Text = "MRN"
+        '
+        'Button37
+        '
+        Me.Button37.Location = New System.Drawing.Point(185, 6)
+        Me.Button37.Name = "Button37"
+        Me.Button37.Size = New System.Drawing.Size(145, 49)
+        Me.Button37.TabIndex = 76
+        Me.Button37.Text = "HMRC Amand ENS"
+        Me.Button37.UseVisualStyleBackColor = True
+        '
+        'Button41
+        '
+        Me.Button41.Location = New System.Drawing.Point(185, 90)
+        Me.Button41.Name = "Button41"
+        Me.Button41.Size = New System.Drawing.Size(93, 49)
+        Me.Button41.TabIndex = 74
+        Me.Button41.Text = "HMRC get Outcome"
+        Me.Button41.UseVisualStyleBackColor = True
+        '
+        'Button42
+        '
+        Me.Button42.Location = New System.Drawing.Point(278, 90)
+        Me.Button42.Name = "Button42"
+        Me.Button42.Size = New System.Drawing.Size(52, 49)
+        Me.Button42.TabIndex = 75
+        Me.Button42.Text = "Ackn"
+        Me.Button42.UseVisualStyleBackColor = True
+        '
+        'Button39
+        '
+        Me.Button39.Location = New System.Drawing.Point(185, 176)
+        Me.Button39.Name = "Button39"
+        Me.Button39.Size = New System.Drawing.Size(93, 49)
+        Me.Button39.TabIndex = 72
+        Me.Button39.Text = "HMRC get Notify"
+        Me.Button39.UseVisualStyleBackColor = True
+        '
+        'Button40
+        '
+        Me.Button40.Location = New System.Drawing.Point(278, 176)
+        Me.Button40.Name = "Button40"
+        Me.Button40.Size = New System.Drawing.Size(52, 49)
+        Me.Button40.TabIndex = 73
+        Me.Button40.Text = "Ackn"
+        Me.Button40.UseVisualStyleBackColor = True
+        '
+        'TextBox14
+        '
+        Me.TextBox14.Location = New System.Drawing.Point(185, 225)
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Size = New System.Drawing.Size(145, 20)
+        Me.TextBox14.TabIndex = 70
+        Me.TextBox14.Text = "notificationID"
+        '
+        'Button38
+        '
+        Me.Button38.Location = New System.Drawing.Point(18, 90)
+        Me.Button38.Name = "Button38"
+        Me.Button38.Size = New System.Drawing.Size(145, 49)
+        Me.Button38.TabIndex = 69
+        Me.Button38.Text = "HMRC ENS Outcome List"
+        Me.Button38.UseVisualStyleBackColor = True
+        '
+        'TextBox13
+        '
+        Me.TextBox13.Location = New System.Drawing.Point(185, 140)
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Size = New System.Drawing.Size(145, 20)
+        Me.TextBox13.TabIndex = 65
+        Me.TextBox13.Text = "correlationId"
+        '
+        'Button36
+        '
+        Me.Button36.Location = New System.Drawing.Point(18, 177)
+        Me.Button36.Name = "Button36"
+        Me.Button36.Size = New System.Drawing.Size(145, 49)
+        Me.Button36.TabIndex = 67
+        Me.Button36.Text = "HMRC Ens Notif List"
+        Me.Button36.UseVisualStyleBackColor = True
+        '
+        'Button35
+        '
+        Me.Button35.Location = New System.Drawing.Point(536, 177)
+        Me.Button35.Name = "Button35"
+        Me.Button35.Size = New System.Drawing.Size(62, 111)
+        Me.Button35.TabIndex = 66
+        Me.Button35.Text = "HMRC Hello World"
+        Me.Button35.UseVisualStyleBackColor = True
+        '
+        'Button34
+        '
+        Me.Button34.Location = New System.Drawing.Point(18, 6)
+        Me.Button34.Name = "Button34"
+        Me.Button34.Size = New System.Drawing.Size(145, 49)
+        Me.Button34.TabIndex = 65
+        Me.Button34.Text = "HMRC Neue ENS"
+        Me.Button34.UseVisualStyleBackColor = True
        '
        'TabPage1
        '
@@ -155,7 +296,7 @@ Partial Class usrctlProcedures
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(601, 161)
+        Me.TabPage1.Size = New System.Drawing.Size(601, 288)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Administrative Funktionen"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -392,7 +533,7 @@ Partial Class usrctlProcedures
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(601, 161)
+        Me.TabPage2.Size = New System.Drawing.Size(601, 288)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "TEST"
        Me.TabPage2.UseVisualStyleBackColor = True
@@ -581,16 +722,6 @@ Partial Class usrctlProcedures
        Me.CheckBox1.Text = "TESTSYSTEM"
        Me.CheckBox1.UseVisualStyleBackColor = True
        '
-        'DataGridViewTextBoxColumn1
-        '
-        Me.DataGridViewTextBoxColumn1.HeaderText = "dat"
-        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
-        '
-        'DataGridViewTextBoxColumn2
-        '
-        Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
-        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
-        '
        'CheckBox2
        '
        Me.CheckBox2.AutoSize = True
@@ -965,30 +1096,30 @@ Partial Class usrctlProcedures
        Me.Button33.Text = "DAKOSY CSV Importieren"
        Me.Button33.UseVisualStyleBackColor = True
        '
-        'Button34
+        'DataGridViewTextBoxColumn1
        '
-        Me.Button34.Location = New System.Drawing.Point(694, 3)
-        Me.Button34.Name = "Button34"
-        Me.Button34.Size = New System.Drawing.Size(145, 49)
-        Me.Button34.TabIndex = 65
-        Me.Button34.Text = "HMRC"
-        Me.Button34.UseVisualStyleBackColor = True
+        Me.DataGridViewTextBoxColumn1.HeaderText = "dat"
+        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
-        'Button35
+        'DataGridViewTextBoxColumn2
        '
-        Me.Button35.Location = New System.Drawing.Point(550, 3)
-        Me.Button35.Name = "Button35"
-        Me.Button35.Size = New System.Drawing.Size(145, 49)
-        Me.Button35.TabIndex = 66
-        Me.Button35.Text = "HMRC"
-        Me.Button35.UseVisualStyleBackColor = True
+        Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
+        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
+        '
+        'CheckBox6
+        '
+        Me.CheckBox6.AutoSize = True
+        Me.CheckBox6.Location = New System.Drawing.Point(18, 55)
+        Me.CheckBox6.Name = "CheckBox6"
+        Me.CheckBox6.Size = New System.Drawing.Size(90, 17)
+        Me.CheckBox6.TabIndex = 65
+        Me.CheckBox6.Text = "ForceRefresh"
+        Me.CheckBox6.UseVisualStyleBackColor = True
        '
        'usrctlProcedures
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.Button35)
-        Me.Controls.Add(Me.Button34)
        Me.Controls.Add(Me.Button33)
        Me.Controls.Add(Me.lblStatus)
        Me.Controls.Add(Me.Button32)
@@ -1043,6 +1174,8 @@ Partial Class usrctlProcedures
        Me.Name = "usrctlProcedures"
        Me.Size = New System.Drawing.Size(931, 724)
        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage3.ResumeLayout(False)
+        Me.TabPage3.PerformLayout()
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage1.PerformLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1148,4 +1281,16 @@ Partial Class usrctlProcedures
    Friend WithEvents Button33 As Button
    Friend WithEvents Button34 As Button
    Friend WithEvents Button35 As Button
+    Friend WithEvents Button36 As Button
+    Friend WithEvents TabPage3 As TabPage
+    Friend WithEvents TextBox13 As TextBox
+    Friend WithEvents TextBox14 As TextBox
+    Friend WithEvents Button38 As Button
+    Friend WithEvents Button41 As Button
+    Friend WithEvents Button42 As Button
+    Friend WithEvents Button39 As Button
+    Friend WithEvents Button40 As Button
+    Friend WithEvents TextBox15 As TextBox
+    Friend WithEvents Button37 As Button
+    Friend WithEvents CheckBox6 As CheckBox
 End Class
--- a/UID/usrctlProcedures.vb
+++ b/UID/usrctlProcedures.vb
@@ -3698,7 +3698,7 @@ Public Class usrctlProcedures
    End Sub

    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
-        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.insertENS(Nothing, "")
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.insertENS(Nothing, "", CheckBox6.Checked)
    End Sub

    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
@@ -3707,7 +3707,55 @@ Public Class usrctlProcedures

    End Sub

-    Private Sub usrctlProcedures_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+
+    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
+        Dim NotificationsList = VERAG_PROG_ALLGEMEIN.cHMRC_ENS.getENSNotifications()
+
+        If NotificationsList IsNot Nothing Then
+            For Each n In NotificationsList
+
+            Next
+
+
+
+        End If
+    End Sub
+
+
+    Private Sub Button39_Click(sender As Object, e As EventArgs)
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.getENSNotifications()
+
+
+    End Sub
+
+    Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
+        Dim type As String = ""
+        Dim resp As Object = Nothing
+
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.retrieveENSOutcome(TextBox13.Text, type, resp)
+    End Sub
+
+    Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.acknowlageENSOutcome(TextBox13.Text)
+    End Sub
+
+    Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.getListOfENSOutcomes()
+    End Sub
+
+    Private Sub Button39_Click_1(sender As Object, e As EventArgs) Handles Button39.Click
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.readENSNotification(TextBox14.Text)
+
+    End Sub
+
+    Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.acknowlageENSNotification(TextBox14.Text)
+
+    End Sub
+
+    Private Sub Button37_Click_1(sender As Object, e As EventArgs) Handles Button37.Click
+        VERAG_PROG_ALLGEMEIN.cHMRC_ENS.amendENS(TextBox15.Text, Nothing)

    End Sub