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

Addin

Browse Source
This commit is contained in:
d.breimaier
2024-02-07 16:00:08 +01:00
parent cd9810d36b
commit eb291ea140
2 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -33,11 +33,11 @@
<TargetFrameworkProfile />
<IsWebBootstrapper>True</IsWebBootstrapper>
<BootstrapperEnabled>true</BootstrapperEnabled>
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin_Test\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin_Test/</InstallUrl>
<TargetCulture>de</TargetCulture>
<ApplicationVersion>1.0.1.114</ApplicationVersion>
<AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
<ApplicationVersion>1.0.1.115</ApplicationVersion>
<AutoIncrementApplicationRevision>false</AutoIncrementApplicationRevision>
<UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>0</UpdateInterval>
<UpdateIntervalUnits>days</UpdateIntervalUnits>
@@ -261,6 +261,7 @@
<EmbeddedResource Include="rbnVERAG.resx">
<DependentUpon>rbnVERAG.vb</DependentUpon>
</EmbeddedResource>
<None Include="AL20231110.pfx" />
<None Include="app.config" />
<None Include="Ich habe keine Ahnung, was ich hier mache.pfx" />
<None Include="PrivateCodeSignaturDaniel2024.pfx" />
@@ -364,7 +365,7 @@
<VSToolsPath Condition="'$(VSToolsPath)' == ''">$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)</VSToolsPath>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
<OptionExplicit>Off</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>

2
VERAGAddIn/rbnVERAG.vb
View File

@@ -47,8 +47,6 @@ 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 & vbNewLine & "System: " & IIf(cAllgemein.TESTSYSTEM, "TEST", "PRODUKTIV"))
Catch ex As Exception
End Try