From cb395acdec2fa6288005747539beeb6efee17757 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Tue, 24 Oct 2023 16:18:04 +0200
Subject: [PATCH] currentVersionNr bei Info wird angegeben.

---
 VERAGAddIn/VERAGAddIn.vbproj | 2 +-
 VERAGAddIn/rbnVERAG.vb       | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj
index 2f0a9e8..f2046e0 100644
--- a/VERAGAddIn/VERAGAddIn.vbproj
+++ b/VERAGAddIn/VERAGAddIn.vbproj
@@ -36,7 +36,7 @@
     <PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
     <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
     <TargetCulture>de</TargetCulture>
-    <ApplicationVersion>1.0.1.107</ApplicationVersion>
+    <ApplicationVersion>1.0.1.108</ApplicationVersion>
     <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
     <UpdateInterval>0</UpdateInterval>
diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb
index 31e3081..2399fb3 100644
--- a/VERAGAddIn/rbnVERAG.vb
+++ b/VERAGAddIn/rbnVERAG.vb
@@ -19,6 +19,7 @@ Imports System.Net.Http
 Imports System.Diagnostics
 Imports VERAG_PROG_ALLGEMEIN.Kleinma.Controls
 Imports System.Data.Odbc
+Imports System.Reflection
 
 Public Class VERAGRibbon
     Dim LOGIN_OK = False
@@ -57,7 +58,7 @@ Public Class VERAGRibbon
 
     Private Sub Button4_Click(sender As Object, e As RibbonControlEventArgs) Handles Button4.Click
         Try
-            MsgBox(System.Security.Principal.WindowsIdentity.GetCurrent().Name)
+            MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString)
         Catch ex As Exception
         End Try
     End Sub