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

MS Logging bei Isadmin

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-06-11 13:55:36 +02:00
parent 307d6ecabf
commit b181265d03
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache
View File

Binary file not shown.

4
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -175,12 +175,14 @@ Public Class ClassInit
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_USER-Group....", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_USER-Group....", False)
USER_IN_MODULE = True USER_IN_MODULE = True
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_USER-Group...." & sel, False)
sel = String.Format("select T.* from TBDD_USER_MODULES T WHERE T.USER_ID = {0} AND T.MODULE_ID = 3", CURRENT_USER_ID) sel = String.Format("select T.* from TBDD_USER_MODULES T WHERE T.USER_ID = {0} AND T.MODULE_ID = 3", CURRENT_USER_ID)
DT = ClassDatabase.Return_Datatable(sel) DT = ClassDatabase.Return_Datatable(sel)
If Not IsNothing(DT) Then If Not IsNothing(DT) Then
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Singe User-relation defined for user....", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Singe User-relation defined for user....", False)
USER_IN_MODULE = True USER_IN_MODULE = True
USER_IS_ADMIN = DT.Rows(0).Item("IS_ADMIN")
End If End If
End If End If
End If End If
@ -193,6 +195,8 @@ Public Class ClassInit
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_ADMINS-Group....", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> User is in PM_ADMINS-Group....", False)
USER_IS_ADMIN = True USER_IS_ADMIN = True
USER_IN_MODULE = True USER_IN_MODULE = True
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> User is NOT in PM_ADMINS-Group...." & sel, False)
End If End If
End If End If

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.4.0")> <Assembly: AssemblyVersion("1.9.4.1")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>