From 16d3ac2391206dfc04901b3ec7a86b2325a71868 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 17 Jun 2026 17:02:07 +0200 Subject: [PATCH] =?UTF-8?q?divl.=20=C3=84nderungne?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- VERAGAddIn/rbnMailItem.vb | 16 +++------------- VERAGAddIn/rbnVERAG.vb | 2 +- 2 files changed, 4 insertions(+), 14 deletions(-) diff --git a/VERAGAddIn/rbnMailItem.vb b/VERAGAddIn/rbnMailItem.vb index dc9d18e..da036f3 100644 --- a/VERAGAddIn/rbnMailItem.vb +++ b/VERAGAddIn/rbnMailItem.vb @@ -1,11 +1,6 @@ Option Explicit On - - -Imports System.Drawing -Imports System.Windows.Forms Imports Microsoft.Office.Interop Imports Microsoft.Office.Tools.Ribbon -Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class rbnMailItem Dim LOGIN_OK As Boolean = False @@ -18,16 +13,11 @@ Public Class rbnMailItem VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = True - If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then - Group1.Label = "VERAG - UNLEASHED" - btnAVISOUnleashed.Visible = True - Else - Group1.Label = "VERAG" - btnAVISOUnleashed.Visible = False + Group1.Label = "VERAG" + btnAVISOUnleashed.Visible = False - End If + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True LOGIN_OK = AVISO_Mail_Functions.initFirmaUser() currentexplorer = ThisAddIn.SharedExplorer diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb index 000e1d6..e729b61 100644 --- a/VERAGAddIn/rbnVERAG.vb +++ b/VERAGAddIn/rbnVERAG.vb @@ -51,7 +51,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 VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = True If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then