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

16
app/DD-Record-Organizer/ModuleHelperMethods.vb
View File

@@ -154,7 +154,7 @@ Module ModuleHelperMethods
If ID > 0 Then
Return ID
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> es konnte keine ID für name geholt werden: " & SQL, False)
LOGGER.Debug("es konnte keine ID für name geholt werden: " & SQL, False)
Return -1
End If
Catch ex As Exception
@@ -302,7 +302,7 @@ Module ModuleHelperMethods
frm.MdiParent = MAIN_FORM
frm.Show()
Catch ex As Exception
ClassLogger.Add("Error in OpenFormConstructor: " & ex.Message)
LOGGER.Warn("Error in OpenFormConstructor: " & ex.Message)
MsgBox("Error in OpenFormConstructor: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -465,7 +465,7 @@ Module ModuleHelperMethods
Dim EntitySQL As String
If GRID_TYPE = frmConstructor_Main.GridType.Grid Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
LOGGER.Debug("GridType = Grid", False)
EntitySQL = "SELECT T.* FROM " & ViewName & " T"
If IS_GEOData = True Then
@@ -486,7 +486,7 @@ Module ModuleHelperMethods
End If
' GridControlMain.MainView = grvwGrid
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Quick-View is configured", False)
LOGGER.Debug("Quick-View is configured", False)
End If
End If
@@ -509,13 +509,13 @@ Module ModuleHelperMethods
CURRENT_ENTITYSQL_WHERE = ""
End If
Catch ex As Exception
ClassLogger.Add("Error in Get Entity SQL for User: " & vbNewLine & ex.Message, True)
LOGGER.Warn("Error in Get Entity SQL for User: " & vbNewLine & ex.Message)
MsgBox("Error in Get Entity SQL for User: " & vbNewLine & ex.Message)
End Try
Return EntitySQL
Catch ex As Exception
ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True)
LOGGER.Warn("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
Return Nothing
End Try
@@ -532,7 +532,7 @@ Module ModuleHelperMethods
End Sub
Public Function Done() As Long
If LogErrorsOnly = True Then Return 0
If DEBUG = True Then Return 0
stopwatch.Stop()
Dim ts As TimeSpan = stopwatch.Elapsed
@@ -547,7 +547,7 @@ Module ModuleHelperMethods
If timespan_ <> "00:00.00" Then
Dim message = String.Format("{0} || {1}", timespan_, label)
Console.WriteLine(message)
If LogErrorsOnly = False Then ClassLogger.Add(message, False)
LOGGER.Debug(message, False)
End If
Return stopwatch.ElapsedMilliseconds
End Function