ENS HMRC

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