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

30
app/DD-Record-Organizer/ClassFileResult.vb
View File

@@ -20,7 +20,7 @@
Return False
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Set_InWork: " & ex.Message)
LOGGER.Warn("Unexpected Error in Set_InWork: " & ex.Message)
Return False
End Try
End Function
@@ -37,7 +37,7 @@
Return False
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Set_Displayname: " & ex.Message)
LOGGER.Warn("Unexpected Error in Set_Displayname: " & ex.Message)
Return False
End Try
End Function
@@ -45,11 +45,11 @@
Try
Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ACTIVE = 1 AND ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_ENTITY_ID, CURRENT_DOKARTID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> GET_DATATABLE_INDICES_PMO: " & sql, False)
LOGGER.Debug("GET_DATATABLE_INDICES_PMO: " & sql, False)
CURRENT_TBPMO_INDEX_MAN = DT
Return True
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GET_DATATABLE_INDICES_PMO: " & ex.Message)
LOGGER.Warn("Unexpected Error in GET_DATATABLE_INDICES_PMO: " & ex.Message)
Return False
End Try
End Function
@@ -68,7 +68,7 @@
End If
Return True
Catch ex As Exception
ClassLogger.Add("Unexpected Error in SET_DOCID_INDICES: " & ex.Message)
LOGGER.Warn("Unexpected Error in SET_DOCID_INDICES: " & ex.Message)
Return False
End Try
End Function
@@ -77,7 +77,7 @@
Dim delete As String = String.Format("DELETE FROM TBPMO_DOC_INDICES WHERE DocID = {0}", DocID)
Return ClassDatabase.Execute_non_Query(delete)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Update_Doc_Indices: " & ex.Message)
LOGGER.Warn("Unexpected Error in Update_Doc_Indices: " & ex.Message)
Return False
End Try
End Function
@@ -94,7 +94,7 @@
Return False
End If
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in Delete_ResultFile: ({0},{1},{2})", RESULT_DOC_ID, RECORD_ID, DELETE_FILE) & ex.Message)
LOGGER.Warn(String.Format("Unexpected Error in Delete_ResultFile: ({0},{1},{2})", RESULT_DOC_ID, RECORD_ID, DELETE_FILE) & ex.Message)
MsgBox("Unexpected Error in Delete ResultFile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -102,7 +102,7 @@
Public Shared Function CheckWrite_IndexeMan(grbxControls As GroupBox)
'#### Zuerst manuelle Werte indexieren ####
Try
If LogErrorsOnly = False Then ClassLogger.Add(" >>In CheckWrite_IndexeMan", False)
LOGGER.Debug(" >>In CheckWrite_IndexeMan", False)
Dim result As Boolean = False
For Each ctrl As Control In grbxControls.Controls
' ' MsgBox(ctrl.Name)
@@ -125,7 +125,7 @@
End If
Else
'If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then
' ClassLogger.Add(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden", False)
' Logger.Warn(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden", False)
' MsgBox("Der eingegebene Wert wurde nicht in der Datenbank gefunden!", MsgBoxStyle.Exclamation, "Fehlerhafte Indexierung:")
' box.Focus()
' Return False
@@ -145,10 +145,10 @@
For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
If row.Item("GUID") = btn.Tag Then
If Not IsDBNull(row.Item("MAN_VALUE")) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> we got a value for folder...", False)
LOGGER.Debug("we got a value for folder...", False)
result = True
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> value for folder is missing...", False)
LOGGER.Debug("value for folder is missing...", False)
MsgBox("Please choose a folder!", MsgBoxStyle.Exclamation, "Missing input:")
Return False
End If
@@ -157,7 +157,7 @@
Next
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> value for folder is OPTIONAL...", False)
LOGGER.Debug("value for folder is OPTIONAL...", False)
SET_CURRENT_TBPMO_INDEX_MAN_VALUE(btn.Tag, "")
result = True
End If
@@ -198,7 +198,7 @@
result = True
End If
If ctrl.Name.StartsWith("lbl") = False And result = False Then
ClassLogger.Add("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer", True)
LOGGER.Warn("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer", True)
Return False
End If
Next
@@ -207,7 +207,7 @@
Return True
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Unexpected error in CheckWrite_IndexeMan:")
Return False
End Try
@@ -222,7 +222,7 @@
End If
Next
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler in SET_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unvorhergesehener Fehler in SET_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
Return Nothing
End Try
End Function