AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Administration ProfileGrid, Config Charts, LU Grid Add MEthod disappeared

Browse Source
This commit is contained in:
SchreiberM
2020-05-20 13:51:18 +02:00
parent f3bc104b37
commit 9eb6b594ba
35 changed files with 4763 additions and 1464 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -13,6 +13,7 @@ Imports System.Threading
Imports System.ComponentModel
Imports System.IO
Imports System.Drawing.Imaging
Imports Microsoft.Office.Interop
Public Class frmMain
Private UserLoggedin As Integer = 0
@@ -139,9 +140,16 @@ Public Class frmMain
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
If USER_USERNAME.ToLower = "schreiberm" Then
bbtnitmGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
bbtnitmGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
Else
RibbonPageGroup3.Visible = False
bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
bbtnitmGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
If MONITORING_ACTIVE = False Then
@@ -186,6 +194,11 @@ Public Class frmMain
Catch ex As Exception
LOGGER.Warn($"Could not load Charts: {ex.Message}")
End Try
If MONITORING_ACTIVE = False Then
bbtniMonitor.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Else
bbtniMonitor.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If
Check_Timer_Notification()
formShown = True
Restore_Form_Position()
@@ -1825,7 +1838,6 @@ Public Class frmMain
If Not Application.OpenForms().OfType(Of frmMonitor).Any Then
frmMonitor.Show()
End If
End Sub
Private Sub bbiProfilverwaltung_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiProfilverwaltung.ItemClick
@@ -1973,4 +1985,24 @@ Public Class frmMain
End If
End Sub
Private Sub BarButtonItem2_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitmGhostMode.ItemClick
frmGhostMode.ShowDialog()
End Sub
Private Sub DateiAlsLinkVersendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiAlsLinkVersendenToolStripMenuItem.Click
Dim oReceipiant = ""
Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
Dim oFilePath = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
Dim oLink = "<HTML><body><p><a href=" + "file:///" + oFilePath + ">Link zur Datei</a></p></body></HTML>"
Dim oLink2 = "<a href=" + "file:///" + oFilePath + ">Link zur Datei</a>"
If Not IsNothing(oFilePath) Then
Process.Start($"mailto:{oReceipiant}?subject=Link aus Process Manager&body={oLink}")
End If
End Sub
End Class