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

22
app/DD-Record-Organizer/frmMass_Change.vb
View File

@@ -42,7 +42,7 @@ Public Class frmMass_Change
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Cursor = Cursors.WaitCursor
ClassLogger.Add(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text), False)
LOGGER.Info(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
ClassHelper.InsertEssential_Log(USER_GUID, "User-ID", String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
Me.Cursor = Cursors.WaitCursor
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID)
@@ -116,17 +116,17 @@ Public Class frmMass_Change
SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, USER_USERNAME, ex_GUID)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
_Error = True
ClassLogger.Add(">> Error in updating the value for Record: " & Record, False)
LOGGER.Warn("Error in updating the value for Record: " & Record)
Else
Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
End If
Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", _CONTROLID, CInt(Record), val, USER_USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
_Error = True
ClassLogger.Add(">> Error in inserting the value for Record: " & Record, False)
Else
LOGGER.Warn("Error in inserting the value for Record: " & Record)
Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
End If
End If
@@ -135,13 +135,13 @@ Public Class frmMass_Change
i += 1
Next
SUCCESSFULL = True
ClassLogger.Add(String.Format("### MassChange finished successfully! ###"), False)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Getting record to be changed:" & ex.Message)
_Error = True
LOGGER.Info(String.Format("### MassChange finished successfully! ###"))
Catch ex As Exception
LOGGER.Warn("Unexpected Error in Getting record to be changed:" & ex.Message)
_Error = True
End Try
Else
ClassLogger.Add("No defined Control found!")
LOGGER.Warn("No defined Control found!")
_Error = True
End If
@@ -162,7 +162,7 @@ Public Class frmMass_Change
msg = "All changes were executed!"
End If
If _Error = True Then
ClassLogger.Add(String.Format("### MassChange finished - WITH errors!! ###"))
LOGGER.Warn(String.Format("### MassChange finished - WITH errors!! ###"))
If USER_LANGUAGE <> "de-DE" Then
msg = msg & vbNewLine & "But errors occured while updating values! Check the log"
Else