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

MS Diverses Customizing

Browse Source
This commit is contained in:
Developer01
2024-07-31 11:10:21 +02:00
parent 2039b614c1
commit c15a0ee5a0
36 changed files with 1140 additions and 1612 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organizer/Classes/ClassFileResult.vb
View File

@@ -1,5 +1,7 @@
Public Class ClassFileResult
Public Shared Property DocID As Integer
Public Shared Property OldDisplayName As String
Public Shared Property DocumentPath As String
Public Shared InWork As Boolean = False
Public Shared Function Set_InWork(state As Integer, comment As String)
Try
@@ -27,7 +29,7 @@
Public Shared Function Set_Displayname(Displayname As String)
Try
Dim upd As String
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID)
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}',CHANGED_WHO = '{2}',Change_DateTime = GETDATE() WHERE DocID = {1}", Displayname, DocID, USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(upd)

7
app/DD-Record-Organizer/Classes/ClassHelper.vb
View File

@@ -266,13 +266,16 @@ Public Class ClassHelper
oMyProcess.StartInfo.RedirectStandardOutput = False
oMyProcess.Start()
Dim ProcID = oMyProcess.GetCurrentProcess.Id
oMyProcess.WaitForExit()
oExtension = Path.GetExtension(BW_DocPath).ToLower
LOGGER.Debug($"Checking oExtension [{oExtension}]...")
If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
Dim odwVersionId = MYDB_ECM.GetScalarValue(oSql)
Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,DOC_PATH) VALUES ({USER_GUID},'{ProcID.ToString}',{odwVersionId},{BW_DocID},'{BW_DocPath}')"
MYDB_ECM.ExecuteNonQuery(oInsert)
If Not IsNothing(odwVersionId) Then
Dim oInsert = $"INSERT INTO TBPMO_DOC_ID_CHANGED (USER_ID,PROCESS_ID,VERSION_ID,OLD_DOC_ID,DOC_PATH) VALUES ({USER_GUID},'{ProcID.ToString}',{odwVersionId},{BW_DocID},'{BW_DocPath}')"
MYDB_ECM.ExecuteNonQuery(oInsert)
End If
End If
'oMyProcess.WaitForExit()

14
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@@ -11,9 +11,10 @@ Public Class ClassInit
Public Sub InitLoggerANDConfig()
Try
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath
LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, oLocalUserAppDataPath & "\Log", Nothing,
My.Application.Info.CompanyName,
"OrgFlow")
My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger()
LOGGER.Info("OrgFlow started")
@@ -195,7 +196,14 @@ Public Class ClassInit
If oRow.Item("TITLE") = "ADDI_DOC_SEARCH_RECORD" Then
SQL_DOC_RESULT_RECORD = oRow.Item("SQL_COMMAND")
LOGGER.Debug("SQL_DOC_RESULT_RECORD = " + SQL_DOC_RESULT_RECORD)
ElseIf oRow.Item("TITLE") = "OF_GLOBAL_SEARCH" Then
SQL_GLOBAL_SEARCH = oRow.Item("SQL_COMMAND")
ElseIf oRow.Item("TITLE") = "OF_NODE_SEARCH" Then
SQL_OF_NODE_SEARCH = oRow.Item("SQL_COMMAND")
End If
Next
Try
oSql = "SELECT * FROM TBDD_CATALOG"
@@ -288,11 +296,13 @@ Public Class ClassInit
WM_USER_PW = PWplainText
USER_GUID = USER_DT.Rows(0).Item("USER_ID")
LOGGER.Debug($"USER_GUID: {USER_GUID}")
Try
USERID_FK_INT_ECM = USER_DT.Rows(0).Item("USERID_FK_INT_ECM")
Catch ex As Exception
USERID_FK_INT_ECM = 0
End Try
LOGGER.Debug($"USERID_FK_INT_ECM: {USERID_FK_INT_ECM}")
USER_IS_ADMIN = USER_DT.Rows(0).Item("IS_ADMIN")
USER_LANGUAGE = USER_DT.Rows(0).Item("USER_LANGUAGE")
clsCURRENT.USER_LANGUAGE = USER_LANGUAGE

2
app/DD-Record-Organizer/Classes/ClassJumpRecord.vb
View File

@@ -59,7 +59,7 @@ Public Class ClassJumpRecord
JUMP_STATE = STATE_ID
JUMP_RECORD_ID = recordId
'OpenFormConstructor(constructorId, recordId)
OpenRecordView(recordId)
OpenRecordView()
Catch ex As Exception
MsgBox("Error in JumpToRecord:" & vbNewLine & ex.Message)
Exit Sub

22
app/DD-Record-Organizer/Classes/ClassRightManagement.vb
View File

@@ -11,9 +11,10 @@
RIGHT_VIEW_DOC = True
RIGHT_DELETE_DOC = False
RIGHT_READ_ONLY_DOC = False
' Wenn Rechte pro Record defineirt wurden!!!
' Wenn Rechte pro Record definiert wurden!!!
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Or SQL_DOC_READ_ONLY <> "" Then
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Then
LOGGER.Debug("ClassRightManagement...SQL_RECORD_AND_FILE_READ_ONLY EXISTING.")
RIGHT_RECORD_AND_FILE_READ_ONLY = ClassHelper.Check_Record_Read_only(RECORD_ID, ENTITY_ID)
If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
RIGHT_EDIT_R = False
@@ -22,6 +23,7 @@
End If
End If
If SQL_DOC_READ_ONLY <> "" Then
LOGGER.Debug("ClassRightManagement...SQL_DOC_READ_ONLY EXISTING.")
RIGHT_READ_ONLY_DOC = ClassHelper.Check_File_Read_only(RECORD_ID, ENTITY_ID)
If RIGHT_READ_ONLY_DOC = True Then
RIGHT_ADD_DOC = False
@@ -42,6 +44,7 @@
'Definition der Rechte erfolgt über UserGroupstable......wenn gefüllt
If DT_RIGHTS_GROUP.Rows.Count > 0 And DT_RIGHTS_USER.Rows.Count = 0 Then
LOGGER.Debug("ClassRightManagement...DEFINTION FOR DT_RIGHTS_GROUP!")
For Each row As DataRow In DT_RIGHTS_GROUP.Rows
RIGHT_EDIT_R = CBool(DT_RIGHTS_GROUP.Rows(0).Item(0))
RIGHT_ADD_R = CBool(DT_RIGHTS_GROUP.Rows(0).Item(1))
@@ -58,6 +61,7 @@
Else
'Definition der Rechte erfolgt über UserRighttable
If DT_RIGHTS_USER.Rows.Count = 1 Then
LOGGER.Debug("ClassRightManagement...DEFINTION FOR DT_RIGHTS_USER!")
RIGHT_EDIT_R = CBool(DT_RIGHTS_USER.Rows(0).Item("EDIT_REC"))
RIGHT_ADD_R = CBool(DT_RIGHTS_USER.Rows(0).Item("ADD_REC"))
RIGHT_DELETE_R = CBool(DT_RIGHTS_USER.Rows(0).Item("DELETE_REC"))
@@ -66,17 +70,19 @@
RIGHT_VIEW_DOC = CBool(DT_RIGHTS_USER.Rows(0).Item("FILES_VISIBLE"))
RIGHT_DELETE_DOC = CBool(DT_RIGHTS_USER.Rows(0).Item("DELETE_DOC"))
RIGHT_READ_ONLY_DOC = CBool(DT_RIGHTS_USER.Rows(0).Item("READ_ONLY_DOC"))
Else
LOGGER.Info("ClassRightManagement...NO DEFINTION FOR GROUP- OR USER-RIGHT!")
End If
End If
End If
LOGGER.Debug("RIGHT_EDIT_R: " & RIGHT_EDIT_R.ToString)
LOGGER.Debug("RIGHT_ADD_R: " & RIGHT_ADD_R.ToString)
LOGGER.Debug("RIGHT_DELETE_R: " & RIGHT_DELETE_R.ToString)
LOGGER.Debug("RIGHT_ADD_DOC: " & RIGHT_ADD_DOC.ToString)
LOGGER.Debug("RIGHT_VIEW_DOC: " & RIGHT_VIEW_DOC.ToString)
LOGGER.Debug("RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString)
LOGGER.Debug("RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_EDIT_R: " & RIGHT_EDIT_R.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_ADD_R: " & RIGHT_ADD_R.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_DELETE_R: " & RIGHT_DELETE_R.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_ADD_DOC: " & RIGHT_ADD_DOC.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_VIEW_DOC: " & RIGHT_VIEW_DOC.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString)
LOGGER.Debug("ClassRightManagement-RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString)
sw.Done()
Catch ex As Exception