addin breakfix

VERAGAddIn/rbnVERAG.vb

@@ -4,25 +4,11 @@ Imports VERAG_PROG_ALLGEMEIN
 Imports Microsoft.Office.Tools.Ribbon
 Imports System.Windows.Forms
 Imports Microsoft.Office.Interop
-Imports VERAGAddIn.ThisAddIn
 Imports System.Runtime.InteropServices
 Imports System.Text.RegularExpressions
-Imports System.IO
-Imports SDL
 Imports System.Net
-Imports System.Security.Policy
-Imports System.Diagnostics.Eventing.Reader
-Imports System.Runtime.InteropServices.ComTypes
-Imports System.Drawing
-Imports System.Threading.Tasks
-Imports System.Net.Http
-Imports System.Diagnostics
-Imports VERAG_PROG_ALLGEMEIN.Kleinma.Controls
-Imports System.Data.Odbc
 Imports System.Reflection
-Imports System.Diagnostics.Eventing
-Imports System.Net.WebRequestMethods
-Imports System.Xml
+
 
 Public Class VERAGRibbon
     Dim LOGIN_OK = False
@@ -47,7 +33,7 @@ Public Class VERAGRibbon
     Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
 
         cAllgemein.TESTSYSTEM = False
-        cAllgemein.TESTSYSTEM = True
+        'cAllgemein.TESTSYSTEM = True
         LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
 
     End Sub
@@ -61,7 +47,9 @@ Public Class VERAGRibbon
 
     Private Sub Button4_Click(sender As Object, e As RibbonControlEventArgs) Handles Button4.Click
         Try
-            MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString)
+            'MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString)
+
+            MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString & vbNewLine & "System: " & IIf(cAllgemein.TESTSYSTEM, "TEST", "PRODUKTIV"))
         Catch ex As Exception
         End Try
     End Sub