EZA

UID/usrctlProcedures.vb

@@ -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")