AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS11.01(2)

Browse Source
This commit is contained in:
SchreiberM
2017-01-12 11:47:43 +01:00
parent 03ae19ae3e
commit 2af5a0bc0d
18 changed files with 59308 additions and 1606 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
app/DD-Record-Organiser/ClassHelper.vb
View File

@@ -249,11 +249,44 @@ Public Class ClassHelper
msg &= vbNewLine & vbNewLine & info2
End If
If type = "ERROR" Then
MessageBox.Show(Caption, msg, MessageBoxButtons.OK, MessageBoxIcon.Error)
MessageBox.Show(msg, Caption, MessageBoxButtons.OK, MessageBoxIcon.Error)
ClassLogger.Add(msg, True)
ElseIf type = "INFO" Then
MessageBox.Show(Caption, msg, MessageBoxButtons.OK, MessageBoxIcon.Information)
MessageBox.Show(msg, Caption, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Public Shared Function Check_Record_Read_only(RECORD_ID As Integer, ENTITY_ID As Integer)
Dim sql = ""
Try
sql = SQL_RECORD_READ_ONLY
sql = sql.Replace("@RECORDID", RECORD_ID)
sql = sql.Replace("@RECORD_ID", RECORD_ID)
sql = sql.Replace("@USER_ID", USER_GUID)
sql = sql.Replace("@USER_GUID", USER_GUID)
sql = sql.Replace("@ENTITY_ID", ENTITY_ID)
sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@USER_NAME", USER_USERNAME)
If LogErrorsOnly = False Then ClassLogger.Add(" >> RIGHT_ONLY_READ_RECORD SQL: (When true then disable) '" & sql & "'", False)
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
Catch ex As Exception
ClassLogger.Add(">> SQL_RIGHT_READ_AND_VIEW_ONLY: " & sql)
Return False
End Try
End Function
Public Shared Function Check_File_Read_only(RECORD_ID As Integer, ENTITY_ID As Integer)
Dim sql = ""
Try
sql = SQL_DOC_READ_ONLY
sql = sql.Replace("@RECORDID", RECORD_ID)
sql = sql.Replace("@RECORD_ID", RECORD_ID)
sql = sql.Replace("@USER_ID", USER_GUID)
sql = sql.Replace("@USER_GUID", USER_GUID)
sql = sql.Replace("@ENTITY_ID", ENTITY_ID)
sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@USER_NAME", USER_USERNAME)
Catch ex As Exception
ClassLogger.Add(">> RIGHT_WINDREAM_FORBIDDEN: " & sql)
Return False
End Try
End Function
End Class