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

MS V2.7 .Net Logger etc

Browse Source
This commit is contained in:
SchreiberM
2021-06-15 16:28:55 +02:00
parent e2619eb3ad
commit e796ae91cb
109 changed files with 295499 additions and 8793 deletions
Download Patch File Download Diff File Expand all files Collapse all files

196
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -297,7 +297,7 @@ Public Class frmConstructor_Main
'End Try
' Hintergrund Bild initialisieren
BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein)
BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein) '
' Bestimme Dinge ausblenden wenn kein admin
@@ -353,7 +353,7 @@ Public Class frmConstructor_Main
End If
End If
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPMO_ENTITY_RIGHT_CONTROLS where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID), False)
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID), False)
Load_Adding_users()
Load_Configurable_Nodes()
@@ -362,7 +362,7 @@ Public Class frmConstructor_Main
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 2")
End Try
Try
SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
SQL = String.Format("select T.* from VWPMO_STRUCTURE_NODES T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
If DT.Rows.Count > 1 Then
TreeView_perControl = True
@@ -397,7 +397,7 @@ Public Class frmConstructor_Main
DT_TREEVIEW_NODES_FIRST = ClassHelper.FILTER_DATATABLE(DT, "EXPAND_NODE = 1", "")
SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
SQL = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
Try
@@ -477,7 +477,6 @@ Public Class frmConstructor_Main
FORM_LOADED = True
sw.Done()
If LogErrorsOnly = False Then ClassLogger.Add("", False)
Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 4")
End Try
@@ -574,9 +573,11 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
If My.Settings.SaveDocGridlayout Then
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
End If
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
@@ -587,12 +588,15 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
If My.Settings.SaveDocGridlayout Then
Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
End If
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
@@ -949,7 +953,7 @@ Public Class frmConstructor_Main
' End If
' End If
' Catch ex As Exception
' ClassLogger.Add("Error In Search_RowHandle: " & ex.Message, False)
' LOGGER.Warn("Error In Search_RowHandle: " & ex.Message)
' End Try
'End Function
Public Function Get_Grid_Column_Count() As Integer
@@ -1051,7 +1055,7 @@ Public Class frmConstructor_Main
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 And _refresh = False And ERROR_WHILE_SAVING = False Then
Exit Sub
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & RECID.ToString & " - " & Now, False)
LOGGER.Debug("RowHandler: RID: " & RECID.ToString & " - " & Now)
'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
If GRID_TYPE = GridType.Grid Then
If IsTopFirstRow Then
@@ -1266,7 +1270,7 @@ Public Class frmConstructor_Main
Next
sw.Done()
Catch ex As Exception
ClassLogger.Add("Error in SearchNodeForRecord: " & ex.Message, True)
LOGGER.Warn("Error in SearchNodeForRecord: " & ex.Message)
End Try
End Sub
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
@@ -1576,7 +1580,7 @@ Public Class frmConstructor_Main
If SelectedNode IsNot Nothing Then
Dim _TagENT_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
If (_TagENT_ID <> 0 And _TagENT_ID <> ENTITY_ID) Or _TagENT_ID <> CURRENT_ENTITY_ID Then
ClassLogger.Add("Entity-Data needs to be reloaded...", False)
LOGGER.Info("Entity-Data needs to be reloaded...")
ENTITY_ID = _TagENT_ID
CURRENT_ENTITY_ID = ENTITY_ID
@@ -1672,7 +1676,7 @@ Public Class frmConstructor_Main
Try
PWplainText = wrapper.DecryptData(_row.Item("AD_USER_PW").ToString())
Catch ex As Exception
ClassLogger.Add("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted", False)
LOGGER.Warn("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted")
PWplainText = ""
End Try
FAU_AD_USER_PW = PWplainText
@@ -2223,12 +2227,12 @@ Public Class frmConstructor_Main
RECORD_ID = SELECTED_RECORD_ID
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
CONTROL_HANDLING()
Dim sql = String.Format("select TRL.DOC_ID, TDRL.FULL_FILENAME FROM TBPMO_DOC_RECORD_LINK TRL, TBPMO_DOCRESULT_LIST TDRL WHERE TRL.DOC_ID = TDRL.DocID AND TRL.RECORD_ID = {0}", RECORD_ID)
Dim sql = String.Format("select TRL.DOC_ID, TDRL.FULL_FILENAME FROM TBPMO_DOC_RECORD_LINK TRL INNER JOIN TBPMO_DOCRESULT_LIST TDRL ON TRL.DOC_ID = TDRL.DocID WHERE TRL.RECORD_ID = {0}", RECORD_ID)
Dim DT_DOC_RESULT As DataTable = DD_LIB_Standards.clsDatabase.Return_Datatable(sql, False)
If IsNothing(DT_DOC_RESULT) Then
ClassLogger.Add(">> DT_DOC_RESULT is nothing!", True)
LOGGER.Warn("DT_DOC_RESULT is nothing!")
End If
If ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "DELETE_RECORD - UserDecidedYes") = True Then
RECORD_CHANGED = False
@@ -2454,7 +2458,7 @@ Public Class frmConstructor_Main
Sub Load_Entity_Data_CONTROLS_RECORDS()
Try
If LogErrorsOnly = False Then ClassLogger.Add("START Load_Entity_Data", False)
LOGGER.Debug("START Load_Entity_Data")
Dim sw As New SW("Load_Entity_Data")
PARENT_SKIPPED = False
' Me.Cursor = Cursors.WaitCursor
@@ -2521,21 +2525,21 @@ Public Class frmConstructor_Main
Try
ADD_RECORDS_CONSTR = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("ADD_RECORDS")
Catch ex As Exception
ClassLogger.Add(ex.Message, True)
LOGGER.Warn(ex.Message)
ADD_RECORDS_CONSTR = True
End Try
If ADD_RECORDS_CONSTR = False Then
ClassLogger.Add("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID, False)
LOGGER.Warn("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID)
End If
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE")
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "")
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = ENTITY_ID).Single()
@@ -2551,7 +2555,7 @@ Public Class frmConstructor_Main
CURRENT_ENTITY_REDUNDANT_ID = 0
End If
'sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & ENTITY_ID, "")
expression = String.Format("")
sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(sql, True)
@@ -2617,7 +2621,7 @@ Public Class frmConstructor_Main
PARENT_RECORDID = 0
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 1 selected in TreeView", False)
LOGGER.Debug("Level 1 selected in TreeView")
'tslblEntity2.Visible = False
@@ -2636,7 +2640,7 @@ Public Class frmConstructor_Main
Case 2
EBENE2_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE2_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 2 selected in TreeView", False)
LOGGER.Debug("Level 2 selected in TreeView")
EBENE3_ENTITY = ""
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then
@@ -2670,7 +2674,7 @@ Public Class frmConstructor_Main
Case 3
EBENE3_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 3 selected in TreeView", False)
LOGGER.Debug("Level 3 selected in TreeView")
Dim result4 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
@@ -2691,7 +2695,7 @@ Public Class frmConstructor_Main
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Catch ex As Exception
ClassLogger.Add("Error in Replacing patterns in entity_sql: " & ex.Message)
LOGGER.Warn("Error in Replacing patterns in entity_sql: " & ex.Message)
End Try
Else
@@ -2809,7 +2813,7 @@ Public Class frmConstructor_Main
primaryKey(0) = CURRENT_DT_ENTITY_RECORDS.Columns("Record-ID")
CURRENT_DT_ENTITY_RECORDS.PrimaryKey = primaryKey
Catch ex As Exception
ClassLogger.Add("Could not set the primary Key(Record-ID): " & ex.Message, True)
LOGGER.Warn("Could not set the primary Key(Record-ID): " & ex.Message)
End Try
@@ -3195,7 +3199,7 @@ Public Class frmConstructor_Main
If IsNothing(PARENT_RECORD1) Then
Dim New_Record = ClassRecordCommands.GetLastRecord
If Not IsNothing(New_Record) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
LOGGER.Debug("Parent-Record Ebene 1 wird neu angelegt...")
'Die neue Record-ID setzen
ClassRecordCommands.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
Return New_Record
@@ -3213,7 +3217,7 @@ Public Class frmConstructor_Main
If IsNothing(PARENT_RECORD2) Then
Dim New_Record = ClassRecordCommands.GetLastRecord
If Not IsNothing(New_Record) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
LOGGER.Debug("Parent-Record Ebene 1 wird neu angelegt...")
'Die neue Record-ID setzen
ClassRecordCommands.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
Return New_Record
@@ -3255,7 +3259,7 @@ Public Class frmConstructor_Main
' grvwGrid.GridControl.RepositoryItems.Add(chkRep)
' grvwGrid.Columns("files?").ColumnEdit = chkRep
'Catch ex As Exception
' ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
' LOGGER.Warn("Attention: Column files? not existing in GridView?")
'End Try
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
End If
@@ -3368,7 +3372,7 @@ Public Class frmConstructor_Main
Where form.Item("GUID") = ENTITY_ID).Single()
Update_Status_Label(False, "")
If LogErrorsOnly = False Then ClassLogger.Add(" >> GRID_RECORD ID: " & Rec_ID.ToString, False)
LOGGER.Debug("GRID_RECORD ID: " & Rec_ID.ToString)
'Me.pnlDetails.Visible = True
If FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet####
Dim linkedRecord
@@ -3583,7 +3587,7 @@ Public Class frmConstructor_Main
Return Grid_RecordID
Else
'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
'ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
'LOGGER.Info("Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
Return Nothing
End If
Else
@@ -3761,7 +3765,7 @@ Public Class frmConstructor_Main
End If
End If
Else
ClassLogger.Add(">> No files 2 delete - after deleting record!", False)
LOGGER.Info("No files 2 delete - after deleting record!")
End If
Cursor = Cursors.Default
Catch ex As Exception
@@ -3918,7 +3922,7 @@ Public Class frmConstructor_Main
End If
If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then
ClassLogger.Add($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!", False)
LOGGER.Info($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!")
End If
ClassWindreamDocGrid.FillColumns(
@@ -4225,7 +4229,7 @@ Public Class frmConstructor_Main
Return PARENT_RECORDID
Case Else
MsgBox("Undefined pattern '" & content & "' in windream-Search Config. Please inform Your system-administrator.", MsgBoxStyle.Exclamation)
ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True)
LOGGER.Warn("Undefined Search-pattern in windream-search config: " & content)
End Select
End Function
'Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked
@@ -4280,8 +4284,8 @@ Public Class frmConstructor_Main
End If
Catch ex As Exception
ClassLogger.Add(" ### Error in CloseDocView")
ClassLogger.Add("### " & ex.Message & " ###")
LOGGER.Warn(" ### Error in CloseDocView")
LOGGER.Warn("### " & ex.Message & " ###")
End Try
End Sub
@@ -4336,7 +4340,7 @@ Public Class frmConstructor_Main
End If
End Sub
Private Sub ButtonResetView_Click(sender As Object, e As EventArgs) Handles ButtonResetView.Click
Reset_View_layout
Reset_View_layout()
End Sub
Sub Reset_View_layout()
Try
@@ -4545,22 +4549,22 @@ Public Class frmConstructor_Main
RUN_WDSEARCH_GRID()
TimerClearResultfiles.Start()
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
LOGGER.Debug("No new files were added or windream tab is not focused!")
End If
Me.Cursor = Cursors.Default
Else
'If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
' ClassLogger.Add(">> RIGHT_RECORD_AND_FILE_READ_ONLY is set! No DragDrop allowed", False)
' LOGGER.Warn("RIGHT_RECORD_AND_FILE_READ_ONLY is set! No DragDrop allowed")
'End If
If RIGHT_READ_ONLY_DOC = True Then
ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
LOGGER.Warn("RIGHT_WD_FORBIDDEN is set! No DragDrop allowed")
Else
ClassLogger.Add(">> No DragDrop allowed - ELSE", False)
LOGGER.Warn("No DragDrop allowed - ELSE")
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Drag_Drop: " & ex.Message)
LOGGER.Warn("Unexpected Error in Drag_Drop: " & ex.Message)
MsgBox("Unexpected Error in DragDrop - Please check the log for further information!", MsgBoxStyle.Exclamation)
Finally
@@ -4584,7 +4588,7 @@ Public Class frmConstructor_Main
If Not IsNothing(Str) Then
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
If DropType.ToString.Contains("SCAN") = False Then
ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
LOGGER.Info("Check_Dropped_Files:" & Str.ToString)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
If CURRENT_WORKFILE.ToString.Contains("@") Then
MsgBox("File contains invalid operator @!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
@@ -4950,8 +4954,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Load_Level1()
End If
sw.Done()
If LogErrorsOnly = False Then ClassLogger.Add("", False)
FORM_SHOWN = True
End Sub
Sub Jump_Record()
@@ -5210,9 +5212,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim ColorRow As Color
Try
ColorRow = Color.FromName(rowCellValue)
If LogErrorsOnly = False Then ClassLogger.Add(">> RowBackColor '" & rowCellValue & "' will be used for record: " & Get_Focused_Row_Cell_Value("Record-ID"), False)
LOGGER.Debug("RowBackColor '" & rowCellValue & "' will be used for record: " & Get_Focused_Row_Cell_Value("Record-ID"))
Catch ex As Exception
ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
LOGGER.Info("RowBackColor '" & rowCellValue & "'could not be converted from name!")
Exit Sub
End Try
'Dim c As Color = DirectCast(rowCellValue, Color)
@@ -5220,7 +5222,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
e.HighPriority = True
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in RowStyle: " & ex.Message)
End Try
End If
End If
@@ -5240,7 +5242,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in grvwGrid_MouseDown: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in grvwGrid_MouseDown: " & ex.Message)
End Try
End Sub
@@ -5785,7 +5787,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try
RENAME_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message, False)
LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
RENAME_DOC_PATH = Nothing
End Try
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
@@ -5845,7 +5847,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Checking Value In Work: " & ex.Message)
End Try
Try
@@ -5874,8 +5876,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
If rowcolorname <> "" Then
Exit For
End If
Exit For
End If
Next
If rowcolorname <> "" Then
ColorRow = Color.FromName(rowcolorname)
@@ -5892,7 +5894,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle-Color Dropdown: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
End Try
End If
@@ -5948,7 +5950,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">> FileRight is R but User is Admin!! - Check the configuration!", False)
LOGGER.Warn("FileRight is R but User is Admin!! - Check the configuration!")
End If
ROW_READ_ONLY = True
@@ -5960,7 +5962,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">> FileRight is '' but User is Admin!! - Check the configuration!", False)
LOGGER.Warn("FileRight is '' but User is Admin!! - Check the configuration!")
End If
ROW_READ_ONLY = True
End Select
@@ -5973,7 +5975,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">> RIGHT_READ_ONLY_DOC = True but User is Admin!! - Check the configuration!", False)
LOGGER.Warn("RIGHT_READ_ONLY_DOC = True but User is Admin!! - Check the configuration!")
End If
End If
End If
@@ -5998,6 +6000,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Sub File_in_Work()
IW_USER = ""
IW_COMMENT = ""
docCM_InWork.Enabled = True
Try
Dim expression As String
@@ -6005,13 +6009,22 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
Try
IW_USER = foundRowsLevel0(0)("IN_WORK_USER")
IW_COMMENT = foundRowsLevel0(0)("IN_WORK_COMMENT")
Dim oSQL = "Select IN_WORK,IN_WORK_USER,IN_WORK_COMMENT FROM TBPMO_DOCRESULT_LIST where DocID = " + ClassWindreamDocGrid.SELECTED_DOC_ID
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
IW_USER = CBool(oDT.Rows(0).Item("IN_WORK_USER"))
IW_COMMENT = CBool(oDT.Rows(0).Item("IN_WORK_COMMENT"))
End If
End If
Catch ex As Exception
IW_USER = ""
IW_COMMENT = ""
End Try
Dim displ As String
If CBool(ClassWindreamDocGrid.SELECTED_INWORK) = True Then
If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Then
@@ -6033,7 +6046,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
docCM_InWork.Text = displ
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in File-Work Info: " & ex.Message)
docCM_InWork.Enabled = False
End Try
End Sub
@@ -6275,7 +6288,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
MsgBox(msg, MsgBoxStyle.Information)
Continue For
End If
ClassLogger.Add(String.Format("Relinking entity of record '{0}' to entity '{1}'?", _RECORD, ENTITY_STRING.ToString), False)
LOGGER.Info(String.Format("Relinking entity of record '{0}' to entity '{1}'?", _RECORD, ENTITY_STRING.ToString))
Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
If ClassDatabase.Execute_non_Query(upd) = True Then
@@ -6671,7 +6684,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If RECORD_CREATE = True Then
Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
If recordId = 0 Then
ClassLogger.Add("Error in ADD_NODE: Could not create Record", True)
LOGGER.Warn("Error in ADD_NODE: Could not create Record", True)
ClassHelper.MSGBOX_Handler("ERROR", "Error in ADD_NODE", "Could not create Record")
Exit Sub
Else
@@ -6772,7 +6785,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">> OpenFile.FileRight is R but User is Admin!! - Check the configuration!", False)
LOGGER.Warn("OpenFile.FileRight is R but User is Admin!! - Check the configuration!")
End If
allow_Open = True
Case "RW"
@@ -6903,7 +6916,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">>cmsRFB_O.FileRight is R but User is Admin!! - Check the configuration!", False)
LOGGER.Warn(">>cmsRFB_O.FileRight is R but User is Admin!! - Check the configuration!")
End If
Case Else
ContextMenu_Write()
@@ -7157,7 +7170,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
'' For Each oProcess As Process In Process.GetProcesses()
'' If oProcess.Id = oDatarow.Item("PROCESS_ID") Then
'' 'process found so it's running so return true
'' If LogErrorsOnly = False Then ClassLogger.Add($"Process {oProcess.ProcessName} still running - {oProcess.Id.ToString}", False)
'' LOGGER.Debug($"Process {oProcess.ProcessName} still running - {oProcess.Id.ToString}")
'' exists = True
'' End If
'' Next
@@ -7180,28 +7193,28 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
' Dim oFileExists = ClassDatabase.Execute_Scalar(oSql, False)
' If oFileExists = 0 Then
' CURRENT_OFFICE_FILE_CHANGED = True
' ClassLogger.Add($"The docId [{oDocID}] of handled file {oDocPath} changed during editing mode!", False)
' LOGGER.Info($"The docId [{oDocID}] of handled file {oDocPath} changed during editing mode!")
' oSql = $"SELECT MAX(dwDocID) FROM windream60.dbo.BaseAttributes WHERE dwVersionID = {oVersionID}"
' Dim oNEW_DOC As DataTable = ClassDatabase.Return_Datatable(oSql, False)
' If oNEW_DOC.Rows.Count = 1 And Not IsDBNull(oNEW_DOC.Rows(0).Item(0)) Then
' Dim oNEWDocID = oNEW_DOC.Rows(0).Item(0)
' ClassLogger.Add($"New DocID is: {oNEWDocID}!!", False)
' LOGGER.Info($"New DocID is: {oNEWDocID}!!")
' oSql = $"EXEC PRPMO_DOC_CHANGE_DOCID {oDocID},{oNEWDocID},'{USER_USERNAME}'"
' If LogErrorsOnly = False Then ClassLogger.Add(oSql, False)
' If ClassDatabase.Execute_non_Query(oSql, False) = False Then
' ClassLogger.Add($"Could not relink the DocID!!", False)
' LOGGER.Debug(oSql)
' If ClassDatabase.Execute_non_Query(oSql) = False Then
' LOGGER.Info($"Could not relink the DocID!!")
' Else
' oSql = $"UPDATE TBPMO_DOC_ID_CHANGED SET NEW_DOC_ID = {oNEWDocID}, CHANGED_WHEN = GETDATE() WHERE GUID = {oGUID}"
' ClassDatabase.Execute_non_Query(oSql, False)
' ClassDatabase.Execute_non_Query(oSql)
' End If
' Else
' ClassLogger.Add($"Could not get the new DOCID [{oSql}]!!", False)
' LOGGER.Info($"Could not get the new DOCID [{oSql}]!!")
' End If
' End If
' 'End If
'Next
Catch ex As Exception
ClassLogger.Add($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!", True)
LOGGER.Warn($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!")
End Try
End Sub
@@ -7365,11 +7378,32 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
frmRecord_Changes.ShowDialog()
End Sub
Private Sub OfficeVorlagentsmi_Click(sender As Object, e As EventArgs)
Private Sub ExportNachExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportNachExcelToolStripMenuItem.Click
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel File|*.xlsx"
saveFileDialog1.Title = "Export to Excel:"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Cursor = Cursors.WaitCursor
GridControlDocSearch.MainView.ExportToXlsx(saveFileDialog1.FileName)
Dim result As MsgBoxResult
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("File was created. Do You want to open excel?")
End If
result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(saveFileDialog1.FileName)
End If
End If
Cursor = Cursors.Default
End Sub
Private Sub BarEditItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarEditItem2.ItemClick
Private Sub EntitätsweiteSucheToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EntitätsweiteSucheToolStripMenuItem.Click
CURRENT_SEARCH_TYPE = "ENTITY"
RUN_ENTITY_DOC_SEARCH()
End Sub
End Class