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

32
app/DD-Record-Organizer/ClassDOC_SEARCH.vb
View File

@@ -31,7 +31,7 @@ Public Class ClassDOC_SEARCH
OPTION4 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION4_CTRL")
OPTION5 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION5_CTRL")
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> DT_RESULTLIST_SEL_VALUES.Rows.Count: " & DT_RESULTLIST_SEL_VALUES.Rows.Count, False)
LOGGER.Debug("DT_RESULTLIST_SEL_VALUES.Rows.Count: " & DT_RESULTLIST_SEL_VALUES.Rows.Count, False)
If DT_RESULTLIST_SEL_VALUES.Rows.Count = 0 Then
VALUE_CONF1 = 0
VALUE_CONF2 = 0
@@ -209,7 +209,7 @@ Public Class ClassDOC_SEARCH
"WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {2} AND TRIGHTS.dwUserOrGroupID = {3}" & vbNewLine &
"AND T.DocID IN ({6})", USER_LANGUAGE, ENTITY_ID, USER_GUID, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft)
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
LOGGER.Debug("SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
If BG = True And CURRENT_SEARCH_TYPE = "ENTITY" Then
If Not IsNothing(CURRENT_DT_DOC_ENTITY_SEARCH) Then
Return CURRENT_DT_DOC_ENTITY_SEARCH
@@ -230,7 +230,7 @@ Public Class ClassDOC_SEARCH
Return DTFILE_RESULT_ASYNC 'ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message)
Return Nothing
End Try
End Function
@@ -253,7 +253,7 @@ Public Class ClassDOC_SEARCH
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG)
CURRENT_DOC_RESULTS = DT_FILE_RESULT
If IsNothing(DT_FILE_RESULT) Then
ClassLogger.Add(">> ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
LOGGER.Warn("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
Return Nothing
End If
sw.Done()
@@ -333,13 +333,13 @@ Public Class ClassDOC_SEARCH
oDTGrid.Columns.Add(oColumn)
ColCount += 1
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)
LOGGER.Warn(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)
End Try
Next
_step = "7.1"
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Construct Datatable: " & ex.Message)
LOGGER.Warn("Unexpected Error in Construct Datatable: " & ex.Message)
MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
sw.Done()
@@ -411,9 +411,9 @@ Public Class ClassDOC_SEARCH
Try
rowvalue = FILE_ROW.Item(Colname)
_step = "9.1 rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]"
If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]", False)
LOGGER.Debug("rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]", False)
Catch ex As Exception
If CURRENT_SEARCH_TYPE = "RECORD" Then ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
If CURRENT_SEARCH_TYPE = "RECORD" Then LOGGER.Warn("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then
rowvalue = ""
Else
@@ -426,7 +426,7 @@ Public Class ClassDOC_SEARCH
End If
End Try
_step = "9.2 now: NewRow.Item(i) = rowvalue.ToString..."
If LogErrorsOnly = False Then ClassLogger.Add("9.2 now: NewRow.Item(i) = rowvalue.ToString...", False)
LOGGER.Debug("9.2 now: NewRow.Item(i) = rowvalue.ToString...", False)
Try
Catch ex As Exception
@@ -435,21 +435,21 @@ Public Class ClassDOC_SEARCH
Try
'If oDTGrid.Columns(i).DataType.ToString = "System.DateTime" And rowvalue = String.Empty Then
' If LogErrorsOnly = False Then ClassLogger.Add("rowvalue Is empty and Column is Datetime...", False)
' LOGGER.Debug("rowvalue Is empty and Column is Datetime...", False)
'Else
oNewRow.Item(i) = rowvalue.ToString
'End If
Catch ex As Exception
ClassLogger.Add("Error in advising value to rowitem (oNewRow.Item(i) = rowvalue.ToString): " + ex.Message, False)
ClassLogger.Add("Type of column: " + oDTGrid.Columns(i).DataType.ToString(), False)
LOGGER.Warn("Error in advising value to rowitem (oNewRow.Item(i) = rowvalue.ToString): " + ex.Message, False)
LOGGER.Warn("Type of column: " + oDTGrid.Columns(i).DataType.ToString(), False)
End Try
i += 1
Next
oDTGrid.Rows.Add(oNewRow)
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
' Logger.Warn("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
' End Try
Next
_step = "10"
@@ -459,7 +459,7 @@ Public Class ClassDOC_SEARCH
sw.Done()
Catch ex As Exception
MsgBox("Unexpected Error in Get_DOC_RESULTTABLE (Step " & _step & "): " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Get_DOC_RESULTTABLE (Step " & _step & "): " & ex.Message)
LOGGER.Warn("Unexpected Error in Get_DOC_RESULTTABLE (Step " & _step & "): " & ex.Message)
Return Nothing
End Try
End Function
@@ -496,7 +496,7 @@ Public Class ClassDOC_SEARCH
MsgBox("No Record selected - Please select one!", MsgBoxStyle.Exclamation)
Return False
End If
If LogErrorsOnly = False Then ClassLogger.Add("#### SETTING RIGHTS FOR FILE ######", False)
LOGGER.Debug("#### SETTING RIGHTS FOR FILE ######", False)
If ClassWDRights.Init = True Then
If ClassWDRights.Doc_Renew_Rights(RESULT_DOCID, RESULT_DOC_PATH, True) Then
If ClassWDRights.MSG_RESULT <> "" Then
@@ -573,7 +573,7 @@ Public Class ClassDOC_SEARCH
End Select
Catch ex As Exception
clsLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message, True)
clsLogger.Add("Unexpected Error in Get_File_Rights: " & ex.Message)
Return Nothing
End Try
End Function