edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

divl. Änderungne

Browse Source
This commit is contained in:
d.breimaier
2026-06-17 17:02:07 +02:00
parent 2075e5e5f7
commit 16d3ac2391
2 changed files with 4 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
VERAGAddIn/rbnMailItem.vb
View File

@@ -1,11 +1,6 @@
Option Explicit On Option Explicit On
Imports System.Drawing
Imports System.Windows.Forms
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports Microsoft.Office.Tools.Ribbon Imports Microsoft.Office.Tools.Ribbon
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class rbnMailItem Public Class rbnMailItem
Dim LOGIN_OK As Boolean = False Dim LOGIN_OK As Boolean = False
@@ -18,16 +13,11 @@ Public Class rbnMailItem
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = True 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" Group1.Label = "VERAG"
btnAVISOUnleashed.Visible = False btnAVISOUnleashed.Visible = False
End If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
LOGIN_OK = AVISO_Mail_Functions.initFirmaUser() LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
currentexplorer = ThisAddIn.SharedExplorer currentexplorer = ThisAddIn.SharedExplorer

2
VERAGAddIn/rbnVERAG.vb
View File

@@ -51,7 +51,7 @@ Public Class VERAGRibbon
Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load 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 VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then