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

18
app/DD-Record-Organizer/ClassControlCommands.vb
View File

@@ -106,7 +106,7 @@
SQL = $"INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES ({CURRENT_ENTITY_ID}, {CONTROL_TYPE_ID}, '', '{NAME}', '{NAME}', {PARENT_CONTROL_ID}, '')"
'If LogErrorsOnly = False Then ClassLogger.Add(SQL, True)
'LOGGER.Debug(SQL)
If ClassDatabase.Execute_non_Query(SQL) = True Then
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
Dim GUID = ClassDatabase.Execute_Scalar(SQL)
@@ -117,7 +117,7 @@
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InsertControl: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in InsertControl: " & ex.Message)
MsgBox("Unexpected Error in InsertControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -168,7 +168,7 @@
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InsertControlScreen: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in InsertControlScreen: " & ex.Message)
MsgBox("Unexpected Error in InsertControlScreen (Adding ViewProperties:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -193,7 +193,7 @@
Throw New Exception()
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in UpdateControlPosition: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in UpdateControlPosition: " & ex.Message)
MsgBox("Unexpected Error in UpdateControlPosition:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -371,7 +371,7 @@
Throw New Exception()
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in UpdateControl: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in UpdateControl: " & ex.Message)
MsgBox("Unexpected Error in UpdateControl:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -519,7 +519,7 @@
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in UpdateControlScreen: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in UpdateControlScreen: " & ex.Message)
MsgBox("Unexpected Error in UpdateControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -534,7 +534,7 @@
Return False
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Delete Control: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in Delete Control: " & ex.Message)
MsgBox("Unexpected Error in Delete Control:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -554,7 +554,7 @@
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in DeleteControlScreen: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in DeleteControlScreen: " & ex.Message)
MsgBox("Unexpected Error in DeleteControlScreen:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -570,7 +570,7 @@
Throw New Exception()
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in DeleteControlValues: " & ex.Message, True)
LOGGER.Warn("Unexpected Error in DeleteControlValues: " & ex.Message)
MsgBox("Unexpected Error in DeleteControlValues:" + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return False
End Try