diff --git a/app/DD-Record-Organizer/App.config b/app/DD-Record-Organizer/App.config
index 1a0df20..380e722 100644
--- a/app/DD-Record-Organizer/App.config
+++ b/app/DD-Record-Organizer/App.config
@@ -9,12 +9,10 @@
-
+
-
+
@@ -25,19 +23,19 @@
*.*
-
+
-
+
-
+
-
+
-
+
True
@@ -52,17 +50,20 @@
False
-
+
332
-
+
Dokument-ID
+
+ False
+
diff --git a/app/DD-Record-Organizer/ClassBackgroundHelper.vb b/app/DD-Record-Organizer/ClassBackgroundHelper.vb
index c757acc..7212f6e 100644
--- a/app/DD-Record-Organizer/ClassBackgroundHelper.vb
+++ b/app/DD-Record-Organizer/ClassBackgroundHelper.vb
@@ -79,7 +79,7 @@ Public Class ClassBackgroundHelper
End Using
_grid.GridControl.BackgroundImage = _processedImage
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in GenerateBackgroundImage: " & ex.Message)
+ LOGGER.Warn("Unexpected Error in GenerateBackgroundImage: " & ex.Message)
End Try
End Sub
@@ -125,7 +125,7 @@ Public Class ClassBackgroundHelper
End Select
Return location
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in CalculateImageLocation: " & ex.Message)
+ LOGGER.Warn("Unexpected Error in CalculateImageLocation: " & ex.Message)
Return Nothing
End Try
diff --git a/app/DD-Record-Organizer/ClassConstructors.vb b/app/DD-Record-Organizer/ClassConstructors.vb
index b8a3b8b..7b81c51 100644
--- a/app/DD-Record-Organizer/ClassConstructors.vb
+++ b/app/DD-Record-Organizer/ClassConstructors.vb
@@ -59,7 +59,7 @@
Next
Return False
Catch ex As Exception
- ClassLogger.Add("Error in Check_TreeViewLoaded: " & ex.Message, True)
+ LOGGER.Warn("Error in Check_TreeViewLoaded: " & ex.Message)
Return False
End Try
End Function
diff --git a/app/DD-Record-Organizer/ClassControlBuilder.vb b/app/DD-Record-Organizer/ClassControlBuilder.vb
index 4a125d3..aea9b79 100644
--- a/app/DD-Record-Organizer/ClassControlBuilder.vb
+++ b/app/DD-Record-Organizer/ClassControlBuilder.vb
@@ -256,7 +256,7 @@ Public Class ClassControlBuilder
Dim combo As CustomComboBox = sender
combo.BackColor = Color.LemonChiffon
Catch ex As Exception
- ClassLogger.Add("Unexpected error in OnComboBoxFocus: " & ex.Message, True)
+ LOGGER.Warn("Unexpected error in OnComboBoxFocus: " & ex.Message)
End Try
End Sub
@@ -265,7 +265,7 @@ Public Class ClassControlBuilder
Dim combo As CustomComboBox = sender
combo.BackColor = Color.White
Catch ex As Exception
- ClassLogger.Add("Unexpected error in OnComboBoxLostFocus: " & ex.Message, True)
+ LOGGER.Warn("Unexpected error in OnComboBoxLostFocus: " & ex.Message)
End Try
End Sub
@@ -282,16 +282,16 @@ Public Class ClassControlBuilder
End If
For Each row As DataRow In TableResult.Rows
Dim sqlcommand As String = row.Item("SQL_COMMAND_2")
- Dim msg = String.Format(" >> Working on enabling control {0} - SQL: {1}", CONTROL_ID.ToString, sqlcommand)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ Dim msg = String.Format("Working on enabling control {0} - SQL: {1}", CONTROL_ID.ToString, sqlcommand)
+ LOGGER.Debug(msg, False)
If IsNothing(sqlcommand) Then
Continue For
End If
' Versuchen, die RecordId zu ersetzen, falls eine existiert
sqlcommand = sqlcommand.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
- msg = String.Format(" >> sqlcommand-replaced1: {0}", sqlcommand)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("sqlcommand-replaced1: {0}", sqlcommand)
+ LOGGER.Debug(msg, False)
' ControlId Platzhalter suchen und ersetzen
Dim regex As New System.Text.RegularExpressions.Regex("(@(\d+)@)")
Dim match As System.Text.RegularExpressions.Match = regex.Match(sqlcommand)
@@ -306,7 +306,7 @@ Public Class ClassControlBuilder
End Function).SingleOrDefault()
' Wir ersetzen den platzhalter im sql command mit dem übergebenen wert
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId), False)
+ LOGGER.Debug("" & String.Format("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId), False)
' Jetzt wird das SQL Command ausgeführt, es MUSS einen Boolschen Wert zurückgeben, True, False, 0, 1
Dim dt_result As DataTable = Nothing
@@ -318,20 +318,20 @@ Public Class ClassControlBuilder
Try
enabled = CBool(dt_result.Rows(0).Item(0))
Catch ex As Exception
- msg = String.Format(">> Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, sqlcommand, dependingControlId)
- ClassLogger.Add(msg)
+ msg = String.Format("Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, sqlcommand, dependingControlId)
+ LOGGER.Warn(msg)
End Try
If enabled = False Then
- msg = String.Format(" >> Control {0} will be disabled." & vbNewLine, dependingControlId.ToString)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("Control {0} will be disabled." & vbNewLine, dependingControlId.ToString)
+ LOGGER.Debug(msg, False)
Else
- msg = String.Format(" >> Control {0} will be enabled." & vbNewLine, dependingControlId.ToString)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("Control {0} will be enabled." & vbNewLine, dependingControlId.ToString)
+ LOGGER.Debug(msg, False)
End If
dependingControl.Enabled = enabled
Else
- ClassLogger.Add(" >> Attention: RowCount for enabling control (" & dependingControlId.ToString & ") was '" & dt_result.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'", False)
+ LOGGER.Warn("Attention: RowCount for enabling control (" & dependingControlId.ToString & ") was '" & dt_result.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'", False)
End If
End If
@@ -381,7 +381,7 @@ Public Class ClassControlBuilder
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" >> DependingControls - For Each row As DataRow In TableResult.Rows", False, False)
+ LOGGER.Debug("DependingControls - For Each row As DataRow In TableResult.Rows", False, False)
For Each row As DataRow In TableResult.Rows
Dim sqlcommand As String = row.Item("SQL_COMMAND_1")
@@ -402,15 +402,15 @@ Public Class ClassControlBuilder
If Not IsNothing(ctrlvalID) Then
If ClassControlCommandsUI.UpdateControlValue(CONTROL_ID, CURRENT_RECORD_ID, value.ToString, CURRENT_ENTITY_ID) = False Then
- ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.UpdateControlValue (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
+ LOGGER.Warn(String.Format("ClassControlCommandsUI.UpdateControlValue (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
Else
ControlsChanged.Remove(CONTROL_ID)
End If
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" >> ctrlvalID is Nothing - Attention.....", False, False)
+ LOGGER.Debug("ctrlvalID is Nothing - Attention.....", False, False)
If CURRENT_RECORD_ID <> 0 Then
If ClassControlCommandsUI.CreateControlProcedure(CONTROL_ID, CURRENT_RECORD_ID, value, CURRENT_ENTITY_ID) = 0 Then
- ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.CreateControlProcedure (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
+ LOGGER.Warn(String.Format("ClassControlCommandsUI.CreateControlProcedure (1) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value), False)
Else
ControlsChanged.Remove(CONTROL_ID)
End If
@@ -421,7 +421,7 @@ Public Class ClassControlBuilder
' DependingControlId bezeichnet das Control, das die Abhängigkeit enthält
Dim dependingControlId As Integer = row.Item("GUID")
If dependingControlId > 0 Then
- If LogErrorsOnly = False Then ClassLogger.Add(">> dependingControlId: " + dependingControlId.ToString, False, False)
+ LOGGER.Debug("dependingControlId: " + dependingControlId.ToString, False, False)
End If
Dim panel As Panel = Me.MasterPanel
'Dim panel As Panel = DirectCast(control.Parent, Panel)
@@ -430,12 +430,12 @@ Public Class ClassControlBuilder
Return DirectCast(c.Tag, ClassControlMetadata).Id = dependingControlId
End Function).SingleOrDefault()
If IsNothing(dependingControl) Then
- ClassLogger.Add(">> dependingControl is Nothing - Attention.....", True)
+ LOGGER.Warn("dependingControl is Nothing - Attention.....")
Continue For
End If
sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False)
+ LOGGER.Debug("" & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False)
Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand, True)
Dim type = dependingControl.GetType().Name
@@ -450,7 +450,7 @@ Public Class ClassControlBuilder
dateValue = CStr(CDate(val)) 'Format(val, "dd-MM-yyyy"))
Catch ex As Exception
If val <> "" Then
- ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
+ LOGGER.Warn("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
End If
Continue For
End Try
@@ -463,35 +463,35 @@ Public Class ClassControlBuilder
'Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", dateValue, USER_USERNAME, id)
If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, dateValue, CURRENT_ENTITY_ID) = True Then
ControlsChanged.Remove(dependingControlId)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd)
+ LOGGER.Debug("Value was not nothing - Updated the ControlValue'", False) '" & upd)
Else
- ClassLogger.Add(" >> Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
+ LOGGER.Warn("Check Update depending control (DateEdit) value as it was nothing and Update was not successful - Update-Command '", False) ' & upd & "'")
End If
Else
If ClassControlCommandsUI.CreateControlProcedure(dependingControlId, CURRENT_RECORD_ID, dateValue, CURRENT_ENTITY_ID) = 1 Then
ControlsChanged.Remove(dependingControlId)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (DateEdit)!", False)
+ LOGGER.Debug("Value was nothing - Inserted the ControlValue (DateEdit)!", False)
Else
- ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.InsertControlValue (DateEdit) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, dateValue), False)
+ LOGGER.Warn(String.Format("ClassControlCommandsUI.InsertControlValue (DateEdit) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, dateValue), False)
End If
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message)
End Try
Else
- ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
+ LOGGER.Warn("Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
End If
Case "CustomComboBox"
ControlLoader.Combobox.SetDataSource(DirectCast(dependingControl, CustomComboBox), dt)
Case "CheckedListBoxControl"
- If LogErrorsOnly = False Then ClassLogger.Add(" >> DependingControls - CheckedListBoxControl", False, False)
+ LOGGER.Debug("DependingControls - CheckedListBoxControl", False, False)
Dim checkedlistbox = DirectCast(dependingControl, DevExpress.XtraEditors.CheckedListBoxControl)
If IsNothing(checkedlistbox) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> checkedlistbox is Nothing - Attention.....", False, False)
+ LOGGER.Debug("checkedlistbox is Nothing - Attention.....", False, False)
End If
ControlLoader.CheckedListBox.SetDataSource(checkedlistbox, dt)
@@ -511,7 +511,7 @@ Public Class ClassControlBuilder
Try
ControlLoader.Label.LoadValue(DirectCast(dependingControl, Label), 9999, 9999, dt.Rows(0).Item(0).ToString, True)
Catch ex As Exception
- ClassLogger.Add("Unexpectet Error in OnComboBoxValueChanged - Label: " & ex.Message, True)
+ LOGGER.Warn("Unexpectet Error in OnComboBoxValueChanged - Label: " & ex.Message)
End Try
End If
Case "TextBox"
@@ -524,33 +524,33 @@ Public Class ClassControlBuilder
If Not IsNothing(id) Then
If ClassControlCommandsUI.UpdateControlValue(dependingControlId, CURRENT_RECORD_ID, value1, CURRENT_ENTITY_ID) = True Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue'", False) '" & upd)
+ LOGGER.Debug("Value was not nothing - Updated the ControlValue'", False) '" & upd)
ControlsChanged.Remove(dependingControlId)
Else
- ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.UpdateControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
+ LOGGER.Warn(String.Format("ClassControlCommandsUI.UpdateControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
End If
'Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", value1, USER_USERNAME, id)
'If ClassDatabase.Execute_non_Query(upd) = True Then
- ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd)
+ ' LOGGER.Debug("Value was not nothing - Updated the ControlValue '" & upd)
'Else
- ' ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
+ ' Logger.Warn("Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'")
'End If
Else
If ClassControlCommandsUI.CreateControlProcedure(dependingControlId, CURRENT_RECORD_ID, value1, CURRENT_ENTITY_ID) = 1 Then
ControlsChanged.Remove(dependingControlId)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue (TextBox)!", False)
+ LOGGER.Debug("Value was nothing - Inserted the ControlValue (TextBox)!", False)
Else
- ClassLogger.Add(String.Format(" >> ClassControlCommandsUI.InsertControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
+ LOGGER.Warn(String.Format("ClassControlCommandsUI.InsertControlValue (TextBox) was not successfull - ControlID: {0},RecordID: {1},value: {2}'", CONTROL_ID, CURRENT_RECORD_ID, value1), False)
End If
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message)
End Try
Else
- ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
+ LOGGER.Warn("Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
End If
Case "GridControl"
Dim gridControl = DirectCast(dependingControl, DevExpress.XtraGrid.GridControl)
@@ -920,7 +920,7 @@ Public Class ClassControlBuilder
ControlLoader.DataGridViewCheckable.LoadValue(gridView.GridControl, values)
IsCancelCheck = False
Catch ex As Exception
- ClassLogger.Add("Error in OnFilterChanged: " & ex.Message)
+ LOGGER.Warn("Error in OnFilterChanged: " & ex.Message)
End Try
End If
End Sub
@@ -1956,7 +1956,7 @@ Public Class ClassControlBuilder
'End If
Catch ex As Exception
- ClassLogger.Add("Unexpected error in AutoCompleteComboKEyUp: " & ex.Message, True)
+ LOGGER.Warn("Unexpected error in AutoCompleteComboKEyUp: " & ex.Message)
End Try
@@ -2544,7 +2544,7 @@ Public Class ClassControlBuilder
For Each Col As DataColumn In DT_ListBox.Columns
colstring = colstring & ";" & Col.ColumnName
Next
- ClassLogger.Add("Error in Binding CheckedListBox: " & ex.Message & " - Columns: " & colstring)
+ LOGGER.Warn("Error in Binding CheckedListBox: " & ex.Message & " - Columns: " & colstring)
control.DisplayMember = DT_ListBox.Columns(0).ColumnName
End Try
End If
@@ -2574,7 +2574,7 @@ Public Class ClassControlBuilder
Me.AddToPanel(control)
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in AddCheckedListBox: " & ex.Message)
+ LOGGER.Warn("Unexpected Error in AddCheckedListBox: " & ex.Message)
MsgBox("Error in AddCheckedListBox: " + vbNewLine + ex.Message)
End Try
End Sub
diff --git a/app/DD-Record-Organizer/ClassControlCommands.vb b/app/DD-Record-Organizer/ClassControlCommands.vb
index 159a0ea..44db51c 100644
--- a/app/DD-Record-Organizer/ClassControlCommands.vb
+++ b/app/DD-Record-Organizer/ClassControlCommands.vb
@@ -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
diff --git a/app/DD-Record-Organizer/ClassControlCommandsUI.vb b/app/DD-Record-Organizer/ClassControlCommandsUI.vb
index d876f1a..a66b738 100644
--- a/app/DD-Record-Organizer/ClassControlCommandsUI.vb
+++ b/app/DD-Record-Organizer/ClassControlCommandsUI.vb
@@ -346,7 +346,7 @@ Public Class ClassControlCommandsUI
Function SaveRecord(RecordID As Integer, FormID As Integer, Optional foreignRecordID As Integer = 0) As String
Try
Dim ADDED_WHO As String = USER_USERNAME
- If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RecordID, False)
+ LOGGER.Debug("(SaveRecord) Update RecordID: " & RecordID, False)
If UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls) = True Then
Return "Datensatz aktualisiert - " & Now
Else
@@ -513,7 +513,7 @@ Public Class ClassControlCommandsUI
Console.WriteLine("Updating Control " + ctrl.Name)
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_RecordID(ctrl.Name, RecordID)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> CONTROL_ID: " & CONTROL_ID, False)
+ LOGGER.Debug("CONTROL_ID: " & CONTROL_ID, False)
Dim CONTROL_VALUE As String = GetControlValue(ctrl)
Dim controltype = ctrl.GetType.ToString
If TypeOf ctrl Is PictureBox Then
@@ -554,7 +554,7 @@ Public Class ClassControlCommandsUI
'If CONTROL_ID = 995 Or CONTROL_ID = 996 Or CONTROL_ID = 997 Or CONTROL_ID = 810 Then
' Console.WriteLine("sdasd")
'End If
- If LogErrorsOnly = False Then ClassLogger.Add(" >> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
+ LOGGER.Debug("InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False)
If Not IsNothing(CONTROL_VALUE) Then
If TypeOf ctrl Is CustomComboBox And CONTROL_VALUE = "" Then
'Exit Sub - Zuviel des guten
@@ -657,14 +657,14 @@ Public Class ClassControlCommandsUI
Dim type = ctrl.GetType().Name
Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> GetControlValue CONTROL_ID: " & CONTROL_ID, False)
+ LOGGER.Debug("GetControlValue CONTROL_ID: " & CONTROL_ID, False)
Dim CONTROL_VALUE As String = Nothing
- If LogErrorsOnly = False Then ClassLogger.Add(" >> type = " & type.ToString, False)
+ LOGGER.Debug("type = " & type.ToString, False)
Select Case type
Case "TextBox"
Return DirectCast(ctrl, TextBox).Text
Case "CustomComboBox"
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Return Value: " & DirectCast(ctrl, CustomComboBox).Text, False)
+ LOGGER.Debug("Return Value: " & DirectCast(ctrl, CustomComboBox).Text, False)
Return DirectCast(ctrl, CustomComboBox).Text
Case "CheckBox"
Return DirectCast(ctrl, CheckBox).Checked.ToString()
@@ -721,7 +721,7 @@ Public Class ClassControlCommandsUI
If ClassDatabase.Execute_Scalar(SQL, True) = 1 Then
SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0))
If ClassDatabase.Execute_non_Query(SQL) = True Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
+ LOGGER.Debug("TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False)
End If
End If
End If
@@ -749,14 +749,14 @@ Public Class ClassControlCommandsUI
MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation)
Else
If ClassRecordCommands.ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
+ LOGGER.Debug("Checked ListBox record '" & rid.ToString & "' was linked successfully.", False)
End If
End If
End If
End If
Catch ex As Exception
- ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True)
+ LOGGER.Warn("Error in CheckedListBoxGetControlValue: " & ex.Message)
End Try
Next
@@ -881,7 +881,7 @@ Public Class ClassControlCommandsUI
Return Value
Catch ex As Exception
MsgBox("Unexpected Error in Check_and_Format_Value: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add("Unexpected Error in Check_and_Format_Value: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in Check_and_Format_Value: " & ex.Message)
Return Nothing
End Try
End Function
@@ -915,7 +915,7 @@ Public Class ClassControlCommandsUI
Catch ex As Exception
Dim name = clsDatabase.Execute_Scalar("SELECT NAME FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateControlProcedure für Control: " & name)
- ClassLogger.Add("Error in CreateControlProcedure: " & ex.Message, True)
+ LOGGER.Warn("Error in CreateControlProcedure: " & ex.Message, True)
Return 0
End Try
End Function
@@ -940,7 +940,7 @@ Public Class ClassControlCommandsUI
End If
Catch ex As Exception
MsgBox("Unexpected Error in inserting Control-Value: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add("Unexpected Error in inserting Control-Value: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in inserting Control-Value: " & ex.Message)
Return False
End Try
End Function
@@ -954,7 +954,7 @@ Public Class ClassControlCommandsUI
Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}', CHANGE_STEP = {2} WHERE CONTROL_ID = {3} AND RECORD_ID = {4}",
converted_value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID)
If ControlID = 279 Or ControlID = 745 Then
- ClassLogger.Add(upd, False, False)
+ LOGGER.Warn(upd)
End If
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If ClassDatabase.Execute_non_Query(upd) = True Then
@@ -966,7 +966,7 @@ Public Class ClassControlCommandsUI
Return ClassDatabase.Execute_non_Query(upd)
End If
Catch ex As Exception
- ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True)
+ LOGGER.Warn("Unerwarteter Fehler in UpdateControlValue: " & ex.Message)
Return False
End Try
End Function
diff --git a/app/DD-Record-Organizer/ClassControlLoader.vb b/app/DD-Record-Organizer/ClassControlLoader.vb
index 22f364d..605334b 100644
--- a/app/DD-Record-Organizer/ClassControlLoader.vb
+++ b/app/DD-Record-Organizer/ClassControlLoader.vb
@@ -39,7 +39,7 @@
Return AutoValue
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in LoadAutoValue: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in LoadAutoValue: " & ex.Message)
Return Nothing
End Try
@@ -264,8 +264,8 @@
End If
Catch ex As Exception
MsgBox("Unexpected Error in LoadValueMain:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add("Unexpected Error in LoadValueMain: " & ex.Message, True)
- ClassLogger.Add(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
+ LOGGER.Warn("Unexpected Error in LoadValueMain: " & ex.Message)
+ LOGGER.Warn(String.Format("ControlID: {0}" & vbNewLine & "recordid: {1}" & vbNewLine & "parentRecordId: {2}" & vbNewLine & "value: {3}" & vbNewLine & "entity_ID: {4}" & vbNewLine & "VARIABLE_VALUE: {5}", ControlId, recordId, parentRecordId, value, entity_ID, VARIABLE_VALUE), False)
End Try
End Sub
@@ -281,7 +281,7 @@
control.Checked = result
Catch ex As Exception
MsgBox("Unexpected Error in LoadValue1:" & vbNewLine & ex.Message)
- ClassLogger.Add("Unexpected Error in LoadValue1: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in LoadValue1: " & ex.Message)
End Try
End Sub
@@ -297,7 +297,7 @@
control.Checked = result
Catch ex As Exception
MsgBox("Unexpected Error in LoadValue2:" & vbNewLine & ex.Message)
- ClassLogger.Add("Unexpected Error in LoadValue2: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in LoadValue2: " & ex.Message)
End Try
End Sub
@@ -368,7 +368,7 @@
Catch ex As Exception
MsgBox("Unexpected Error in LoadValue3:" & vbNewLine & ex.Message)
- ClassLogger.Add("Unexpected Error in LoadValue3: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in LoadValue3: " & ex.Message)
End Try
End Sub
diff --git a/app/DD-Record-Organizer/ClassControlValues.vb b/app/DD-Record-Organizer/ClassControlValues.vb
index ea0e53c..844adfb 100644
--- a/app/DD-Record-Organizer/ClassControlValues.vb
+++ b/app/DD-Record-Organizer/ClassControlValues.vb
@@ -162,7 +162,7 @@ Public Class ClassControlValues
sw.Done()
If controls.Count = 0 Then
- ClassLogger.Add("the control-Collection in LoadControlValuesNeu is empty!", True)
+ LOGGER.Warn("the control-Collection in LoadControlValuesNeu is empty!")
If (Not isGroupbox) Then
ENTITY_RELOAD_AFT_CONTROL_LOAD = True
End If
@@ -205,7 +205,7 @@ Public Class ClassControlValues
sw.Done()
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in LoadControlValuesNeu: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in LoadControlValuesNeu: " & ex.Message)
MsgBox("Error in LoadControlValuesNeu:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -223,7 +223,7 @@ Public Class ClassControlValues
Return RESULT
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in GetControlValuesREC_CONTROL: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in GetControlValuesREC_CONTROL: " & ex.Message)
MsgBox("Error in GetControlValuesREC_CONTROL:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -276,8 +276,8 @@ Public Class ClassControlValues
ControlLoader.Checkbox.LoadValue(checkbox, value)
Case GetType(RadioButton)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Sub LoadControlValueNeu - GetType(RadioButton) ", False)
- Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
+ LOGGER.Debug("Sub LoadControlValueNeu - GetType(RadioButton) ", False)
+ Dim radiobutton As RadioButton = DirectCast(control, RadioButton)
ControlLoader.RadioButton.LoadValue(radiobutton, value)
Case GetType(DevExpress.XtraEditors.DateEdit)
@@ -305,12 +305,12 @@ Public Class ClassControlValues
ControlLoader.DataGridViewCheckable.LoadValue(gridcontrol, values)
Case Else
If GetType(Control).ToString() <> "System.Windows.Forms.Control" Then
- ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
- End If
+ LOGGER.Warn("Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
+ End If
End Select
'Catch ex As Exception
- ' ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True)
+ ' Logger.Warn("Unexpected Error in LoadControlValue: " & ex.Message)
' MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message)
'End Try
@@ -322,7 +322,7 @@ Public Class ClassControlValues
If controls.Count = 0 Then
'MsgBox("LoadControlValuesList: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation)
- ClassLogger.Add("LoadControlValuesList: Control.ControlCollection is unexpected empty!")
+ LOGGER.Warn("LoadControlValuesList: Control.ControlCollection is unexpected empty!")
Exit Sub
End If
@@ -380,7 +380,7 @@ Public Class ClassControlValues
sw.Done()
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in LoadControlValuesList: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in LoadControlValuesList: " & ex.Message)
MsgBox("Unexpected Error in LoadControlValuesList:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -391,7 +391,7 @@ Public Class ClassControlValues
Try
If controls.Count = 0 Then
'MsgBox("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation)
- ClassLogger.Add("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!")
+ LOGGER.Warn("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!")
Exit Sub
End If
@@ -428,7 +428,7 @@ Public Class ClassControlValues
End If
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in Getting Parent-Record cause PRecord was 0: " & ex.Message)
+ LOGGER.Warn("Unexpected Error in Getting Parent-Record cause PRecord was 0: " & ex.Message)
End Try
End If
@@ -459,7 +459,7 @@ Public Class ClassControlValues
Next
sw.Done()
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message)
MsgBox("Unexpected Error in LoadControlValuesListWithPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -474,7 +474,7 @@ Public Class ClassControlValues
Try
If controls.Count = 0 Then
'MsgBox("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation)
- ClassLogger.Add("Enable_Depending_Controls: Control.ControlCollection is unexpected empty!")
+ LOGGER.Warn("Enable_Depending_Controls: Control.ControlCollection is unexpected empty!")
Exit Sub
End If
' Alle Controls finden, die Abhängigkeiten haben
@@ -490,12 +490,12 @@ Public Class ClassControlValues
' Durchlaufe alle Controls, die eine Abhängigheit haben
For Each row As DataRow In dt.Rows
- Dim msg = String.Format(" >> Working on Depending Control-ID: {0}", row.Item("GUID").ToString)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ Dim msg = String.Format("Working on Depending Control-ID: {0}", row.Item("GUID").ToString)
+ LOGGER.Debug(msg, False)
Dim DependingControlId As Integer = row.Item("GUID")
Dim DependingControlSQL As String = row.Item("SQL_COMMAND_2")
- msg = String.Format(" >> SQL: {0}", DependingControlSQL)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("SQL: {0}", DependingControlSQL)
+ LOGGER.Debug(msg, False)
Dim DependingControl As Control = controls.OfType(Of Control)().Where(Function(c As Control)
Return DirectCast(c.Tag, ClassControlMetadata).Id = DependingControlId
End Function).SingleOrDefault()
@@ -525,31 +525,31 @@ Public Class ClassControlValues
' Jetzt lesen wir den Wert aus, der im SQL Command ersetzt werden soll
Select Case otherControlType
Case "CheckBox"
- msg = String.Format(" >> CheckBox-CtrlID: {0}", otherControlId)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("CheckBox-CtrlID: {0}", otherControlId)
+ LOGGER.Debug(msg, False)
value = DirectCast(otherControl, CheckBox).Checked
Case "TextBox"
- msg = String.Format(" >> TextBox-CtrlID: {0}", otherControlId)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("TextBox-CtrlID: {0}", otherControlId)
+ LOGGER.Debug(msg, False)
value = DirectCast(otherControl, TextBox).Text
Case "CustomComboBox"
- msg = String.Format(" >> CustomComboBox-CtrlID: {0}", otherControlId)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("CustomComboBox-CtrlID: {0}", otherControlId)
+ LOGGER.Debug(msg, False)
value = DirectCast(otherControl, CustomComboBox).Text
Case "DateEdit"
- msg = String.Format(" >> DateEdit-CtrlID: {0}", otherControlId)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("DateEdit-CtrlID: {0}", otherControlId)
+ LOGGER.Debug(msg, False)
value = DirectCast(otherControl, DevExpress.XtraEditors.DateEdit).EditValue
End Select
' Jetzt ersetzen wir den Platzhalter im SQL Command
DependingControlSQL = regex.Replace(DependingControlSQL, value)
- msg = String.Format(" >> DependingControlSQL: {0}", DependingControlSQL)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("DependingControlSQL: {0}", DependingControlSQL)
+ LOGGER.Debug(msg, False)
Dim enableDT As DataTable = ClassDatabase.Return_Datatable(DependingControlSQL)
If IsNothing(enableDT) Then
- msg = String.Format(">> enableDT is nothing!! CHECK SQL {0}." & vbNewLine, DependingControlSQL)
- ClassLogger.Add(msg)
+ msg = String.Format("enableDT is nothing!! CHECK SQL {0}." & vbNewLine, DependingControlSQL)
+ LOGGER.Warn(msg)
Continue For
End If
If enableDT.Rows.Count = 1 Then
@@ -557,28 +557,28 @@ Public Class ClassControlValues
Try
enabled = CBool(enableDT.Rows(0).Item(0))
Catch ex As Exception
- msg = String.Format(">> Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, DependingControlSQL, enableDT.Rows(0).Item(0).ToString)
- ClassLogger.Add(msg)
+ msg = String.Format("Could not convert value of tablecontent to boolean!! SQL {0} # tablecontent: {1}" & vbNewLine, DependingControlSQL, enableDT.Rows(0).Item(0).ToString)
+ LOGGER.Warn(msg)
End Try
DependingControl.Enabled = enabled
If enabled = False Then
- msg = String.Format(" >> Control {0} will be disabled." & vbNewLine, DependingControlId.ToString)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("Control {0} will be disabled." & vbNewLine, DependingControlId.ToString)
+ LOGGER.Debug(msg, False)
Else
- msg = String.Format(" >> Control {0} will be enabled." & vbNewLine, DependingControlId.ToString)
- If LogErrorsOnly = False Then ClassLogger.Add(msg, False)
+ msg = String.Format("Control {0} will be enabled." & vbNewLine, DependingControlId.ToString)
+ LOGGER.Debug(msg, False)
End If
Else
- ClassLogger.Add(" >> Attention in Enable_Depending_Controls: RowCount for enabling control was '" & enableDT.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'")
+ LOGGER.Warn("Attention in Enable_Depending_Controls: RowCount for enabling control was '" & enableDT.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & DependingControlSQL & "'")
End If
End If
Next
sw.done
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in Enable_Depending_Controls: " & ex.Message, True)
MsgBox("Unexpected Error in Enable_Depending_Controls:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -591,7 +591,7 @@ Public Class ClassControlValues
sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId)
Return sqlCommand
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in ReplaceSqlCommandPlaceholders: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in ReplaceSqlCommandPlaceholders: " & ex.Message)
MsgBox("Unexpected Error in ReplaceSqlCommandPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return sqlCommand
End Try
@@ -728,7 +728,7 @@ Public Class ClassControlValues
Dim control As Control = controls.Find(controlName, False)(0)
LoadDefaultValue(controlId, RecordID, Control, parentRecordID, EntityID, defaultValue)
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in getting default value for control '" & controlName & " - " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in getting default value for control '" & controlName & " - " & ex.Message, True)
End Try
Next
@@ -884,7 +884,7 @@ Public Class ClassControlValues
CURRENT_LAST_SQL = sql
Return ClassDatabase.Execute_Scalar(sql)
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in GetControlValueForControlID: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in GetControlValueForControlID: " & ex.Message)
MsgBox("Error in GetControlValueForControlID:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
diff --git a/app/DD-Record-Organizer/ClassControls_Manual.vb b/app/DD-Record-Organizer/ClassControls_Manual.vb
index 85504be..bb35317 100644
--- a/app/DD-Record-Organizer/ClassControls_Manual.vb
+++ b/app/DD-Record-Organizer/ClassControls_Manual.vb
@@ -21,7 +21,7 @@
End If
Return chk
Catch ex As Exception
- ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)
+ LOGGER.Warn("Unhandled Exception in AddCheckBox: " & ex.Message)
Return Nothing
End Try
diff --git a/app/DD-Record-Organizer/ClassCustomComboBox.vb b/app/DD-Record-Organizer/ClassCustomComboBox.vb
index 6fec926..db6f291 100644
--- a/app/DD-Record-Organizer/ClassCustomComboBox.vb
+++ b/app/DD-Record-Organizer/ClassCustomComboBox.vb
@@ -39,7 +39,7 @@
label = rowView.Item(1)
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected error in OnDrawItem (datatable): " & ex.Message, True)
+ LOGGER.Warn("Unexpected error in OnDrawItem (datatable): " & ex.Message)
End Try
End If
diff --git a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
index 5e37285..8682673 100644
--- a/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
+++ b/app/DD-Record-Organizer/ClassDOC_SEARCH.vb
@@ -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
diff --git a/app/DD-Record-Organizer/ClassDatabase.vb b/app/DD-Record-Organizer/ClassDatabase.vb
index a6cc5be..d68b6cf 100644
--- a/app/DD-Record-Organizer/ClassDatabase.vb
+++ b/app/DD-Record-Organizer/ClassDatabase.vb
@@ -14,7 +14,7 @@ Public Class ClassDatabase
SQLconnect.Close()
Return True
Catch ex As Exception
- ClassLogger.Add("Error in DatabaseInit: " & ex.Message, True)
+ LOGGER.Warn("Error in DatabaseInit: " & ex.Message)
Return False
End Try
End Function
@@ -52,15 +52,15 @@ Public Class ClassDatabase
Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD"))
connectionString = conn.ConnectionString
Case Else
- ClassLogger.Add(" - ConnectionType nicht integriert", False)
+ LOGGER.Warn("ConnectionType nicht integriert")
MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
End Select
Else
- ClassLogger.Add(" No entry for Connection-ID: " & id.ToString, True)
+ LOGGER.Warn(" No entry for Connection-ID: " & id.ToString)
End If
Catch ex As Exception
- ClassLogger.Add(" - Error in bei GetConnectionString - Fehler: " & vbNewLine & ex.Message)
+ LOGGER.Warn(" - Error in bei GetConnectionString - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
End Try
Return connectionString
@@ -84,7 +84,7 @@ Public Class ClassDatabase
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
- SQLcommand.CommandTimeout = 180
+ SQLcommand.CommandTimeout = 360
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
@@ -96,9 +96,9 @@ Public Class ClassDatabase
Return dt
Catch ex As Exception
MsgBox("Error in Return_Datatable: " & ex.Message & vbNewLine & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
- ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", ex.Message & " - SQL: " & Select_anweisung)
- ClassLogger.Add("Error in Return_Datatable: " & ex.Message, True)
- ClassLogger.Add(">> SQL: " & Select_anweisung, False)
+ ' ClassHelper.InsertEssential_Log(CURRENT_RECORD_ID, "RECORD-ID", ex.Message & " - SQL: " & Select_anweisung)
+ LOGGER.Warn("Error in Return_Datatable: " & ex.Message)
+ LOGGER.Warn("SQL: " & Select_anweisung)
If (ex.Message.Contains("Ungültiger Objektname") Or ex.Message.Contains("Invalid Object Name")) And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MsgBox("A database-object could not be found but synchronization of Proxyserver might be in action! So please try again in a few seconds/minutes!", MsgBoxStyle.Exclamation)
End If
@@ -136,7 +136,7 @@ Public Class ClassDatabase
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql)
+ LOGGER.Warn("Unexpected Error in MSSQL_ReturnDTWithConnection: " & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql)
MsgBox("Unexpected Error in MSSQL_ReturnDTWithConnection:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & sql, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -164,8 +164,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Error in Return_Datatable_CS: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & Select_anweisung, False)
+ LOGGER.Warn("Error in Return_Datatable_CS: " & ex.Message)
+ LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
@@ -199,8 +199,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Return_Datatable_Connection - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Error in Return_Datatable_Connection: " & ex.Message)
- ClassLogger.Add("#SQL: " & Select_anweisung)
+ LOGGER.Warn("Error in Return_Datatable_Connection: " & ex.Message)
+ LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
@@ -231,8 +231,8 @@ Public Class ClassDatabase
'If Userinput = True Then
' MsgBox("Error in Execute_non_Query: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
'End If
- ClassLogger.Add("Error in Execute_non_Query: " & ex.Message)
- ClassLogger.Add("SQL: " & ExecuteCMD)
+ LOGGER.Warn("Error in Execute_non_Query: " & ex.Message)
+ LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
@@ -266,8 +266,8 @@ Public Class ClassDatabase
End If
Catch ex As Exception
- ClassLogger.Add("Error in Execute_non_Query_withConn: " & ex.Message, True)
- ClassLogger.Add("SQL: " & ExecuteCMD, False)
+ LOGGER.Warn("Error in Execute_non_Query_withConn: " & ex.Message)
+ LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
End Function
@@ -294,8 +294,8 @@ Public Class ClassDatabase
Catch ex As Exception
- ClassLogger.Add("Error in Execute_non_Query_withConnString: " & ex.Message, True)
- ClassLogger.Add("SQL: " & ExecuteCMD, False)
+ LOGGER.Warn("Error in Execute_non_Query_withConnString: " & ex.Message)
+ LOGGER.Warn("SQL: " & ExecuteCMD)
Return False
End Try
End Function
@@ -318,8 +318,8 @@ Public Class ClassDatabase
If Userinput = True Then
MsgBox("Error in Execute_non_Query_Async: " & ex.Message & vbNewLine & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Error in Execute_non_Query_Async: " & ex.Message, True)
- ClassLogger.Add("SQL: " & ExecuteCMD, False)
+ LOGGER.Warn("Error in Execute_non_Query_Async: " & ex.Message)
+ LOGGER.Warn("SQL: " & ExecuteCMD)
Finally
SQLcommand.Dispose()
SQLconnect.Close()
@@ -330,7 +330,7 @@ Public Class ClassDatabase
Dim command As SqlClient.SqlCommand = CType(result.AsyncState, SqlClient.SqlCommand)
Dim res = command.EndExecuteNonQuery(result)
- ClassLogger.Add(String.Format("Finished executing Async database operation: {0}", command.CommandText), False)
+ LOGGER.Warn(String.Format("Finished executing Async database operation: {0}", command.CommandText))
End Sub
Public Shared Function Execute_Scalar(cmdscalar As String, Optional USE_PROXY As Boolean = False)
@@ -364,8 +364,8 @@ Public Class ClassDatabase
'If Userinput = True Then
' MsgBox("Error in Execute_Scalar: " & ex.Message & vbNewLine & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
'End If
- ClassLogger.Add("Error in Execute_Scalar: " & ex.Message, True)
- ClassLogger.Add("SQL: " & cmdscalar, False)
+ LOGGER.Warn("Error in Execute_Scalar: " & ex.Message)
+ LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -390,13 +390,13 @@ Public Class ClassDatabase
Return result
Else
MsgBox("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar, MsgBoxStyle.Exclamation)
- ClassLogger.Add("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar)
+ LOGGER.Warn("No Connection for ID: " & connectionId & " - ExecuteScalar: " & cmdscalar)
Return Nothing
End If
Catch ex As Exception
- ClassLogger.Add("Error in Execute_ScalarWithConnection: " & ex.Message, True)
- ClassLogger.Add("SQL: " & cmdscalar, False)
+ LOGGER.Warn("Error in Execute_ScalarWithConnection: " & ex.Message)
+ LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -417,8 +417,8 @@ Public Class ClassDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
- ClassLogger.Add("Error in Execute_ScalarWithConnectionString: " & ex.Message, True)
- ClassLogger.Add("SQL: " & cmdscalar, False)
+ LOGGER.Warn("Error in Execute_ScalarWithConnectionString: " & ex.Message)
+ LOGGER.Warn("SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -438,8 +438,8 @@ Public Class ClassDatabase
SQLconnect.Close()
Return result
Catch ex As Exception
- ClassLogger.Add("Error in OracleExecute_Scalar: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & cmdscalar, False)
+ LOGGER.Warn("Error in OracleExecute_Scalar: " & ex.Message)
+ LOGGER.Warn("#SQL: " & cmdscalar)
Return Nothing
End Try
End Function
@@ -460,8 +460,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Error in OracleExecute_non_Query: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & ExecuteCMD, False)
+ LOGGER.Warn("Error in OracleExecute_non_Query: " & ex.Message)
+ LOGGER.Warn("#SQL: " & ExecuteCMD)
Return False
End Try
@@ -485,8 +485,8 @@ Public Class ClassDatabase
If userInput = True Then
MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
- ClassLogger.Add("Error in Oracle_Return_Datatable: " & ex.Message, True)
- ClassLogger.Add("#SQL: " & Select_anweisung, False)
+ LOGGER.Warn("Error in Oracle_Return_Datatable: " & ex.Message)
+ LOGGER.Warn("#SQL: " & Select_anweisung)
Return Nothing
End Try
End Function
diff --git a/app/DD-Record-Organizer/ClassDragDrop.vb b/app/DD-Record-Organizer/ClassDragDrop.vb
index 6796c82..330bb40 100644
--- a/app/DD-Record-Organizer/ClassDragDrop.vb
+++ b/app/DD-Record-Organizer/ClassDragDrop.vb
@@ -5,7 +5,7 @@ Public Class ClassDragDrop
Public Shared files_dropped As String()
Public Shared Function Drop_File(e As DragEventArgs)
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> In Drop_File....", False)
+ LOGGER.Debug("In Drop_File....")
files_dropped = Nothing
Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & USER_USERNAME & "')"
@@ -13,14 +13,14 @@ Public Class ClassDragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Simple File Drop", False)
+ LOGGER.Debug("Simple File Drop")
Dim MyFiles() As String
Dim i As Integer
' Assign the files to an array.
MyFiles = e.Data.GetData(DataFormats.FileDrop)
' Loop through the array and add the files to the list.
For i = 0 To MyFiles.Length - 1
- ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False)
+ LOGGER.Info("Simple FileDrop - File: " & MyFiles(i))
ReDim Preserve files_dropped(i)
files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i)
' ListBox1.Items.Add(MyFiles(i))
@@ -60,7 +60,7 @@ Public Class ClassDragDrop
'// get the actual raw file into memory
Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email
If msInput Is Nothing = False Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Drag of Outlook Attachment", False)
+ LOGGER.Debug("Drag of Outlook Attachment")
'// allocate enough bytes to hold the raw date
Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte
'// set starting position at first byte and read in the raw data
@@ -79,17 +79,17 @@ Public Class ClassDragDrop
If (finTemp.Exists = True) Then
ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTACHMENT@" & strOutFile
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop an Attachment - File: " & strOutFile, False)
+ LOGGER.Debug("Drop an Attachment - File: " & strOutFile)
Return True
Else
- ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
+ LOGGER.Warn("Attachment File from Outlook could not be created")
End If
Else
- ClassLogger.Add(">> No simple drag and drop.", True, False)
+ LOGGER.Warn("No simple drag and drop.", True)
For Each fmt As String In e.Data.GetFormats()
' Output format name and type
- ClassLogger.Add(">> e.Data is: " & fmt + " (" +
- e.Data.GetData(fmt).ToString() + ")", True, False)
+ LOGGER.Warn("e.Data is: " & fmt + " (" +
+ e.Data.GetData(fmt).ToString() + ")", True)
Next
End If
@@ -102,7 +102,7 @@ Public Class ClassDragDrop
MsgBox("Unexpected error in Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For")
Return False
End Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop of msg", False)
+ LOGGER.Debug("Drop of msg")
'supports a drop of a Outlook message
Dim myobj As Object
For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count
@@ -123,7 +123,7 @@ Public Class ClassDragDrop
strFile = strFile.Replace("!", "")
strFile = strFile.Replace("%", "")
strFile = strFile.Replace("$", "")
- ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
+ LOGGER.Info("Drop of msg - File:" & strFile)
Try
myobj.SaveAs(strFile)
Catch ex As Exception
@@ -156,22 +156,22 @@ Public Class ClassDragDrop
My.Settings.WD_INDEXDOKART_SAVE = ""
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
- If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... SimpleFileDrop", False)
+ LOGGER.Debug("DragEnter ... SimpleFileDrop")
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... SimpleFileDrop")
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
e.Effect = DragDropEffects.Copy
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... Attachment from Outlook")
- If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Attachment from Outlook", False)
+ LOGGER.Debug("DragEnter ... Attachment from Outlook")
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
'handle a message dragged from Outlook
e.Effect = DragDropEffects.Copy
'frmForm_Constructor_Main_2.tslblStatusMain_show(True, "DragEnter ... OutlookMessage")
- If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... OutlookMessage", False)
+ LOGGER.Debug("DragEnter ... OutlookMessage")
Else
'otherwise, do not handle
e.Effect = DragDropEffects.Copy
'frmForm_Constructor.tslblStatusMain_show(True, "DragEnter ... Other FileFormat")
- If LogErrorsOnly = True Then ClassLogger.Add("DragEnter ... Other FileFormat", False)
+ LOGGER.Debug("DragEnter ... Other FileFormat")
End If
Catch ex As Exception
diff --git a/app/DD-Record-Organizer/ClassEmail.vb b/app/DD-Record-Organizer/ClassEmail.vb
index 1b16228..12648a7 100644
--- a/app/DD-Record-Organizer/ClassEmail.vb
+++ b/app/DD-Record-Organizer/ClassEmail.vb
@@ -63,17 +63,11 @@ Public Class ClassEmail
"
>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
My.Computer.Clock.LocalTime.ToLongTimeString & "")
' create and add the attachment(s) */
- Dim logfile = ClassLogger.logDateiname
- If logfile Is Nothing Then
- MsgBox("Logging was not initiated", MsgBoxStyle.Exclamation)
- Return False
- End If
- If logfile.Contains("\\") Then
- logfile = logfile.Replace("\\", "\")
- End If
- If IO.File.Exists(logfile) Then
- Dim Attachment As Attachment = New Attachment(logfile)
+
+
+ If IO.File.Exists(LOGCONFIG.LogFile) Then
+ Dim Attachment As Attachment = New Attachment(LOGCONFIG.LogFile)
message.Attachments.Add(Attachment)
End If
@@ -93,7 +87,7 @@ Public Class ClassEmail
'*Send the message */
emailClient.Send(message)
- 'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
+ 'Logger.Warn("Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
Next
Return True
Catch ex As Exception
diff --git a/app/DD-Record-Organizer/ClassFileResult.vb b/app/DD-Record-Organizer/ClassFileResult.vb
index 9e623b3..99a80ed 100644
--- a/app/DD-Record-Organizer/ClassFileResult.vb
+++ b/app/DD-Record-Organizer/ClassFileResult.vb
@@ -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
diff --git a/app/DD-Record-Organizer/ClassFolderWatcher.vb b/app/DD-Record-Organizer/ClassFolderWatcher.vb
index cadbc96..ba97c86 100644
--- a/app/DD-Record-Organizer/ClassFolderWatcher.vb
+++ b/app/DD-Record-Organizer/ClassFolderWatcher.vb
@@ -15,7 +15,7 @@ Public Class ClassFolderWatcher
FWSCAN_started = False
'FolderWatch neu instanzieren
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
+ LOGGER.Warn("FolderWatchScan neu instanziert")
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -36,7 +36,7 @@ Public Class ClassFolderWatcher
End If
If FolderWatcher_SCAN Is Nothing Then
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+ LOGGER.Info("FolderWatch Scan Gestartet")
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -48,7 +48,7 @@ Public Class ClassFolderWatcher
' Dim watcher As New FileSystemWatcher()
' watcher.Path = CURRENT_FOLDERWATCH
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
- ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
+ LOGGER.Info("FolderWatch Scan Gestartet")
FolderWatcher_SCAN.IncludeSubdirectories = CURRENT_SCAN_FOLDERWATCH_SD
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
@@ -59,7 +59,7 @@ Public Class ClassFolderWatcher
'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False
FWSCAN_started = False
- ClassLogger.Add(" >> FolderWatch Scan gestoppt", False)
+ LOGGER.Info("FolderWatch Scan gestoppt")
SaveMySettingsValue("FWSCAN_started", "False", "ConfigMain")
Return 0
End If
@@ -85,7 +85,7 @@ Public Class ClassFolderWatcher
handleType = "SCAN"
End If
'Die Datei übergeben
- If LogErrorsOnly = False Then ClassLogger.Add(" >> OnCreated-File:" & e.FullPath, False)
+ LOGGER.Debug("OnCreated-File:" & e.FullPath)
If FileExistsinDropTable(CURRENT_FILENAME) = False Then
Insert_USER_File(e.FullPath, handleType)
Else
diff --git a/app/DD-Record-Organizer/ClassGridFormatter.vb b/app/DD-Record-Organizer/ClassGridFormatter.vb
index 6f24b78..a1a9949 100644
--- a/app/DD-Record-Organizer/ClassGridFormatter.vb
+++ b/app/DD-Record-Organizer/ClassGridFormatter.vb
@@ -83,7 +83,7 @@ Public Class ClassGridFormatter
clonedDT.Load(DT.CreateDataReader)
Return clonedDT
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in FormatDatatable: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in FormatDatatable: " & ex.Message)
Return DT
End Try
End Function
@@ -153,7 +153,7 @@ Public Class ClassGridFormatter
Dim list As New List(Of String)
' Alle Currency Felder für aktuelle Ansicht heraussuchen
Dim sql As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 2 AND FORMAT_TYPE = 'Currency' AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
- Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 2 AND FORMAT_TYPE = 'Currency' AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") 'ClassDatabase.Return_Datatable(sql, True)
+ Dim dt As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 2 AND FORMAT_TYPE = 'Currency' AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "")
For Each row As DataRow In dt.Rows
list.Add(row.Item("COL_NAME"))
@@ -161,7 +161,7 @@ Public Class ClassGridFormatter
Return list
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in GetCurrencyColumns: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in GetCurrencyColumns: " & ex.Message)
Return Nothing
End Try
End Function
@@ -171,7 +171,7 @@ Public Class ClassGridFormatter
Dim listcheck As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
' Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
- Dim dtcheck As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") ' ClassDatabase.Return_Datatable(sqlcheck, True)
+ Dim dtcheck As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID in (10,11) AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "")
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtcheck.Rows.Count > 0 Then
For Each row As DataRow In dtcheck.Rows
@@ -181,7 +181,7 @@ Public Class ClassGridFormatter
listcheck.Add("files?")
Return listcheck
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in GetCheckboxColumns: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in GetCheckboxColumns: " & ex.Message)
Return Nothing
End Try
End Function
@@ -190,7 +190,7 @@ Public Class ClassGridFormatter
Dim listdate As New List(Of String)
' Alle Checkboxen für aktuelle Ansicht heraussuchen
' Dim sqlcheck As String = "SELECT COL_NAME FROM TBPMO_CONTROL WHERE CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId
- Dim dtdate As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "") 'ClassDatabase.Return_Datatable(sqlcheck, True)
+ Dim dtdate As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_CONTROL, "CONTROL_TYPE_ID = 4 AND SHOW_COLUMN = 1 AND FORM_ID = " & Me.EntityId, "")
'Liste von allen Spaltentiteln mit Checkbox erstellen
If dtdate.Rows.Count > 0 Then
@@ -200,7 +200,7 @@ Public Class ClassGridFormatter
End If
Return listdate
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in GetCheckboxColumns: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in GetCheckboxColumns: " & ex.Message)
Return Nothing
End Try
End Function
@@ -248,7 +248,7 @@ End Class
' tbltemp.Load(Primary_DT.CreateDataReader)
' Return tbltemp
' Catch ex As Exception
-' ClassLogger.Add(">> Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message, False)
+' Logger.Warn("Attention: Format_GridColumns - Could not load converted datatable: " & ex.Message)
' 'Tabelle wird ohne Datekonvertierung geladen
' Dim DTEntity As DataTable = ClassDatabase.Return_Datatable(_ENTITYSQL, "Load_Entity_Data_Only")
' Dim primaryKey(1) As DataColumn
@@ -258,7 +258,7 @@ End Class
' End Try
' Catch ex As Exception
' MsgBox("Unexpected Error in Format_GridColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-' ClassLogger.Add("Error in Format_GridColumns: " & ex.Message, True)
+' Logger.Warn("Error in Format_GridColumns: " & ex.Message)
' Return Nothing
' End Try
diff --git a/app/DD-Record-Organizer/ClassHelper.vb b/app/DD-Record-Organizer/ClassHelper.vb
index a0a7123..8230b94 100644
--- a/app/DD-Record-Organizer/ClassHelper.vb
+++ b/app/DD-Record-Organizer/ClassHelper.vb
@@ -18,7 +18,7 @@ Public Class ClassHelper
ochanged = True
End If
End If
- If LogErrorsOnly = False And ochanged = True Then ClassLogger.Add(" >> WMpath is: " & WMpath, False)
+ LOGGER.Debug("WMpath is: " & WMpath)
Return WMpath
Catch ex As Exception
Return WMpath
@@ -53,7 +53,7 @@ Public Class ClassHelper
Dim result = dt.ToString(format, CultureInfo.InvariantCulture)
Return result
Catch ex As Exception
- ClassLogger.Add("Unexpected Error while converting value '" & input & "' to date....." & ex.Message, False)
+ LOGGER.Warn("Unexpected Error while converting value '" & input & "' to date....." & ex.Message)
Return input
End Try
@@ -79,7 +79,7 @@ Public Class ClassHelper
Dim result = dt.ToString("yyyy-MM-dd", Nothing)
Return result
Catch ex As Exception
- ClassLogger.Add("Unexpected Error while converting value '" & input & "' to date(Convert_to_Database_Date)....." & ex.Message, False)
+ LOGGER.Warn("Unexpected Error while converting value '" & input & "' to date(Convert_to_Database_Date)....." & ex.Message)
Return input
End Try
@@ -110,7 +110,7 @@ Public Class ClassHelper
Try
FileOpen(fs, filename, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
Catch ex As Exception
- ClassLogger.Add("File " & filename & " inuse or not able to open - message: " & ex.Message, True)
+ LOGGER.Warn("File " & filename & " inuse or not able to open - message: " & ex.Message)
inuse = True
Finally
FileClose(fs)
@@ -141,17 +141,11 @@ Public Class ClassHelper
End If
Return _NewFileString & extension
Catch ex As Exception
- ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message)
+ LOGGER.Warn(" - Error in versioning file - error: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
Return ""
End Try
End Function
- ''
- ''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen
- '''
- ''' Dateiname ohne Pfadangabe
- ''' Ersatzzeichen für alle unzulässigen Zeichen
- ''' im Dateinamen
Public Shared Function CleanFilename(ByVal sFilename As String,
Optional ByVal REPLACEChar As String = "") As String
@@ -187,11 +181,11 @@ Public Class ClassHelper
Else
MSGBOX_Handler("ERROR", "", "Sorry, but the docpath for doc-id: " & DocID & " is nothing!")
Return False
- If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
+ LOGGER.Debug("RESULT_DOC_PATH IS NOTHING")
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_open:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
- ClassLogger.Add("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
+ LOGGER.Warn("Error in File_open: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID)
Return False
End Try
End Function
@@ -201,11 +195,11 @@ Public Class ClassHelper
Dim _path = Path.GetDirectoryName(RESULT_DOC_PATH)
FOLDER_OPEN(_path, DocID)
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" >> RESULT_DOC_PATH IS NOTHING")
+ LOGGER.Debug("RESULT_DOC_PATH IS NOTHING")
End If
Catch ex As Exception
MsgBox("Unexpected Error in Open_Folder:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
- ClassLogger.Add("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
+ LOGGER.Warn("Error in Open_Folder: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID)
End Try
End Sub
Public Shared Sub OPEN_DOCVIEW(Doc_Path As String, DocID As Integer)
@@ -220,7 +214,7 @@ Public Class ClassHelper
CURRENT_DOCVIEW = DocView
Catch ex As Exception
MsgBox("Unexpected Error in DocView Open:" & vbNewLine & ex.Message & vbNewLine & Doc_Path & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
- ClassLogger.Add("Error in DocView Open: " & ex.Message & vbNewLine & " - Path: " & Doc_Path & " - DocID: " & DocID, True)
+ LOGGER.Warn("Error in DocView Open: " & ex.Message & vbNewLine & " - Path: " & Doc_Path & " - DocID: " & DocID)
File_SYSOPEN(Doc_Path, DocID)
End Try
End Sub
@@ -238,7 +232,7 @@ Public Class ClassHelper
End If
Catch ex As Exception
MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
- ClassLogger.Add("Error in File_SYSOPEN: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID, True)
+ LOGGER.Warn("Error in File_SYSOPEN: " & ex.Message & vbNewLine & " - Path: " & RESULT_DOC_PATH & " - DocID: " & DocID)
End Try
End Sub
@@ -256,7 +250,7 @@ Public Class ClassHelper
oMyProcess.Start()
Dim ProcID = oMyProcess.GetCurrentProcess.Id
oExtension = Path.GetExtension(BW_DocPath).ToLower
- If LogErrorsOnly = False Then ClassLogger.Add($"Checking oExtension [{oExtension}]...", False)
+ LOGGER.Debug($"Checking oExtension [{oExtension}]...")
If FILE_FORMATS_CHANGE_DURING_EDIT.Contains(oExtension) Then
oSql = $"SELECT dwVersionID FROM VWPMO_DOC_SEARCH WHERE DocID = {BW_DocID}"
Dim odwVersionId = clsDatabase.Execute_Scalar(oSql, False)
@@ -267,23 +261,23 @@ Public Class ClassHelper
'oMyProcess.WaitForExit()
Catch ex As Exception
- ClassLogger.Add("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, True)
+ LOGGER.Warn("Error in Process1.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
Exit Sub
End Try
Catch ex As Exception
- ClassLogger.Add("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, True)
+ LOGGER.Warn("Error in Process.Start(): " & ex.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
Try
Process.Start(BW_DocPath)
Catch ex1 As Exception
- ClassLogger.Add("Error in Process.Start(1): " & ex1.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID, True)
+ LOGGER.Warn("Error in Process.Start(1): " & ex1.Message & vbNewLine & " - Path: " & BW_DocPath & " - DocID: " & BW_DocID)
End Try
End Try
End Sub
Private Shared Sub FOLDER_OPEN(PATH As Object, DocID As String)
Try
If PATH <> Nothing Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> in FOLDER_OPEN(" & PATH & ")", False)
+ LOGGER.Debug("in FOLDER_OPEN(" & PATH & ")")
If System.IO.Directory.Exists(PATH) = True Then
Process.Start(PATH)
Else
@@ -292,7 +286,7 @@ Public Class ClassHelper
End If
Catch ex As Exception
MsgBox("Unexpected Error in FOLDER_OPEN:" & vbNewLine & ex.Message & vbNewLine & PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
- ClassLogger.Add("Error in FOLDER_OPEN: " & ex.Message & vbNewLine & " - Path: " & PATH & " - DocID: " & DocID, True)
+ LOGGER.Warn("Error in FOLDER_OPEN: " & ex.Message & vbNewLine & " - Path: " & PATH & " - DocID: " & DocID)
End Try
End Sub
@@ -307,7 +301,7 @@ Public Class ClassHelper
Dim result = clsDatabase.Execute_non_Query(insert, False)
Return result
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True, False)
+ LOGGER.Warn("Unexpected Error in InsertEssential_Log: " & ex.Message)
Return False
End Try
End Function
@@ -324,10 +318,10 @@ Public Class ClassHelper
Else
ClassProxy.PRPROXY_RECORD_DEL(SELECTED_RECORD_ID, CURRENT_ENTITY_ID)
End If
-
+ LOGGER.Info($"Deleted Record [{SELECTED_RECORD_ID}] Result was [{result}]: ")
Return result
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in DeleteRecord: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in DeleteRecord: " & ex.Message)
Return False
End Try
End Function
@@ -338,7 +332,7 @@ Public Class ClassHelper
End If
If type = "ERROR" Then
MessageBox.Show(msg, Caption, MessageBoxButtons.OK, MessageBoxIcon.Error)
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
ElseIf type = "INFO" Then
MessageBox.Show(msg, Caption, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
@@ -354,10 +348,10 @@ Public Class ClassHelper
sql = sql.Replace("@ENTITY_ID", ENTITY_ID)
sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@USER_NAME", USER_USERNAME)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> RIGHT_ONLY_READ_RECORD_DOC SQL: (When true then disable) '" & sql & "'", False)
+ LOGGER.Debug("RIGHT_ONLY_READ_RECORD_DOC SQL: (When true then disable) '" & sql & "'")
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
Catch ex As Exception
- ClassLogger.Add(">> SQL_RIGHT_READ_AND_VIEW_ONLY: " & sql)
+ LOGGER.Warn("SQL_RIGHT_READ_AND_VIEW_ONLY: " & sql)
Return False
End Try
End Function
@@ -373,10 +367,10 @@ Public Class ClassHelper
sql = sql.Replace("@ENTITY_ID", ENTITY_ID)
sql = sql.Replace("@USERNAME", USER_USERNAME)
sql = sql.Replace("@USER_NAME", USER_USERNAME)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> RIGHT_ONLY_READ_COC SQL: (When true then disable) '" & sql & "'", False)
+ LOGGER.Debug("RIGHT_ONLY_READ_COC SQL: (When true then disable) '" & sql & "'")
Return CBool(ClassDatabase.Execute_Scalar(sql, True))
Catch ex As Exception
- ClassLogger.Add(">> RIGHT_WINDREAM_FORBIDDEN: " & sql)
+ LOGGER.Warn("RIGHT_WINDREAM_FORBIDDEN: " & sql)
Return False
End Try
End Function
@@ -405,7 +399,7 @@ Public Class ClassHelper
result = wrapper.DecryptData(ciphertext)
Return result
Catch ex As Exception
- ClassLogger.Add("The ciphertext for Method'" & MethodName & "' could not be decrypted", False)
+ LOGGER.Warn("The ciphertext for Method'" & MethodName & "' could not be decrypted")
Return ""
End Try
End Function
@@ -419,7 +413,7 @@ Public Class ClassHelper
'Dim filteredData = BaseDatatable.Select(expression).CopyToDataTable()
Return filteredData
Catch ex As Exception
- ClassLogger.Add("unexpected error in FILTER_DATATABLE: " & ex.Message)
+ LOGGER.Warn("unexpected error in FILTER_DATATABLE: " & ex.Message)
Return Nothing
End Try
diff --git a/app/DD-Record-Organizer/ClassImport_Windream.vb b/app/DD-Record-Organizer/ClassImport_Windream.vb
index a88d7ff..0fd5887 100644
--- a/app/DD-Record-Organizer/ClassImport_Windream.vb
+++ b/app/DD-Record-Organizer/ClassImport_Windream.vb
@@ -42,7 +42,7 @@ Public Class ClassImport_Windream
idxvalue = idxvalue.ToString.Replace("@Dokart", Dokart)
End Select
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False)
+ LOGGER.Debug("Indexvalue: " & idxvalue.ToString)
Count += 1
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then
@@ -62,7 +62,7 @@ Public Class ClassImport_Windream
' If dt.Rows.Count = 1 Then
' Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
' Dim idxvalue = CURRENT_ENTITY_ID
- ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False)
+ ' LOGGER.Debug("Entity-ID: " & idxvalue.ToString)
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
' If indexierung_erfolgreich = False Then
' err = True
@@ -71,7 +71,7 @@ Public Class ClassImport_Windream
' End If
' indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
' idxvalue = CURRENT_PARENT_ENTITY_ID
- ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
+ ' LOGGER.Debug("Parent-ID: " & idxvalue.ToString)
' indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
' If indexierung_erfolgreich = False Then
' err = True
@@ -135,7 +135,7 @@ Public Class ClassImport_Windream
oROOTWM_FOLDER = ""
End Try
If oROOTWM_FOLDER <> String.Empty Then
- If LogErrorsOnly = False Then ClassLogger.Add($">> oROOTWM_FOLDER '{oROOTWM_FOLDER}' will be used", False)
+ LOGGER.Debug($"oROOTWM_FOLDER '{oROOTWM_FOLDER}' will be used")
oWMTARGET_FOLDER = oROOTWM_FOLDER
End If
@@ -143,11 +143,11 @@ Public Class ClassImport_Windream
If Not IsDBNull(oDYNAMIC_FOLDER) Then
If oDYNAMIC_FOLDER <> String.Empty Then
If CREATE_FOLDER_INDEX(oDYNAMIC_FOLDER, DocTypeID) = True And CURRENT_VARIABLE_FOLDER <> "" Then
- If LogErrorsOnly = False Then
- ClassLogger.Add(" >> After CREATE_FOLDER_INDEX - oWMTARGET_FOLDER: " & oWMTARGET_FOLDER, False)
- ClassLogger.Add(" >> After CREATE_FOLDER_INDEX - CURRENT_VARIABLE_FOLDER: " & CURRENT_VARIABLE_FOLDER, False)
- End If
- If oWMTARGET_FOLDER <> CURRENT_VARIABLE_FOLDER Then
+
+ LOGGER.Debug("After CREATE_FOLDER_INDEX - oWMTARGET_FOLDER: " & oWMTARGET_FOLDER)
+ LOGGER.Debug("After CREATE_FOLDER_INDEX - CURRENT_VARIABLE_FOLDER: " & CURRENT_VARIABLE_FOLDER)
+
+ If oWMTARGET_FOLDER <> CURRENT_VARIABLE_FOLDER Then
oWMTARGET_FOLDER = oWMTARGET_FOLDER & "\" & CURRENT_VARIABLE_FOLDER.Replace(oWMTARGET_FOLDER, "")
Else
oWMTARGET_FOLDER = CURRENT_VARIABLE_FOLDER
@@ -161,10 +161,10 @@ Public Class ClassImport_Windream
End If
End If
End If
- If LogErrorsOnly = False Then
- ClassLogger.Add(" >> oWMTARGET_FOLDER: " & oWMTARGET_FOLDER, False)
- ClassLogger.Add(" >> CURRENT_SUBFOLDER: " & CURRENT_SUBFOLDER, False)
- End If
+
+ LOGGER.Debug("oWMTARGET_FOLDER: " & oWMTARGET_FOLDER)
+ LOGGER.Debug("CURRENT_SUBFOLDER: " & CURRENT_SUBFOLDER)
+
'Untsserordner ja oder nein
If CURRENT_CHECK_SUBFOLDER = True And CURRENT_SUBFOLDER <> "" Then
@@ -172,7 +172,7 @@ Public Class ClassImport_Windream
End If
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("\\", "\")
If oWMTARGET_FOLDER.Contains("/") Then
- ClassLogger.Add(String.Format(">> Targetpath contains /-sign. / will be replaced with _"))
+ LOGGER.Info(String.Format("Targetpath contains /-sign. / will be replaced with _"))
oWMTARGET_FOLDER = oWMTARGET_FOLDER.Replace("/", "_")
End If
@@ -180,7 +180,7 @@ Public Class ClassImport_Windream
Try
Select Case clsWD_GET.WD_PATH_EXISTS(oWMTARGET_FOLDER.Substring(2))
Case False
- ClassLogger.Add(String.Format(">> Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)), False)
+ LOGGER.Info(String.Format("Targetpath ({0}) is not existing or result of WD_PATH_EXISTS was false.", oWMTARGET_FOLDER.Substring(2)))
Dim split() As String = oWMTARGET_FOLDER.Split("\")
Dim Path_Combined As String = ""
For Each s As String In split
@@ -194,18 +194,18 @@ Public Class ClassImport_Windream
Select Case clsWD_GET.WD_PATH_EXISTS(temppath)
Case False
- If LogErrorsOnly = False Then
- ClassLogger.Add(" >> Trying to create folder-part: " & temppath, False)
- End If
+
+ LOGGER.Debug("Trying to create folder-part: " & temppath)
+
clsWindream.MY_WDSESSION.GetNewWMObjectFS(2, temppath, 0) 'WMEntityFolder,WMObjectEditModeNoEdit)
Case -10
- ClassLogger.Add(">> WD_PATH_EXISTS returned -10 for: " & temppath, False)
+ LOGGER.Warn("WD_PATH_EXISTS returned -10 for: " & temppath)
Return False
End Select
Catch ex As Exception
If Not ex.Message.Contains("Filename exists!") Then
- ClassLogger.Add(String.Format(">> Could not create folder-part: {0} - Complete path is: ({1})", temppath, oWMTARGET_FOLDER.Substring(2)))
- ClassLogger.Add(String.Format(">> ErrorMessage: {0}: ", ex.Message))
+ LOGGER.Warn(String.Format("Could not create folder-part: {0} - Complete path is: ({1})", temppath, oWMTARGET_FOLDER.Substring(2)))
+ LOGGER.Warn(String.Format("ErrorMessage: {0}: ", ex.Message))
Return False
End If
End Try
@@ -217,7 +217,7 @@ Public Class ClassImport_Windream
End Select
Catch ex As Exception
If Not ex.Message.Contains("Filename exists!") Then
- ClassLogger.Add(String.Format(">> Could not create folder ({0}): " & ex.Message, oWMTARGET_FOLDER.Substring(2)), False)
+ LOGGER.Warn(String.Format("Could not create folder ({0}): " & ex.Message, oWMTARGET_FOLDER.Substring(2)))
Return False
End If
End Try
@@ -227,15 +227,15 @@ Public Class ClassImport_Windream
'Namenkonvention laden
'Dim NameConv = ClassDatabase.Execute_Scalar("SELECT TOP 1 NAME_CONVENTION FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID, True)
If IsDBNull(oNAME_CONVENTION) Then
- ClassLogger.Add(">> Achtung: Namenskonvention is DBNull", False)
+ LOGGER.Warn("Achtung: Namenskonvention is DBNull")
oNAME_CONVENTION = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
ElseIf oNAME_CONVENTION = String.Empty Then
- ClassLogger.Add(">> Achtung: Namenskonvention is String empty", False)
+ LOGGER.Warn("Achtung: Namenskonvention is String empty")
oNAME_CONVENTION = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
End If
'schonmal den gesamten Pfad laden
Dim oNewWM_Filename As String = oWMTARGET_FOLDER & "\" & oNAME_CONVENTION
- If LogErrorsOnly = False Then ClassLogger.Add(" >> oNewWM_Filename: " & oNewWM_Filename, False)
+ LOGGER.Debug("oNewWM_Filename: " & oNewWM_Filename)
' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
@@ -245,7 +245,7 @@ Public Class ClassImport_Windream
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
- If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
+ LOGGER.Debug("element in RegeX: " & element.Value)
Select Case element.Value.Substring(2, 1).ToUpper
'Nur automatische Indizes auswerten
Case "A"
@@ -269,7 +269,7 @@ Public Class ClassImport_Windream
If IsNumeric(INDEX_ID) Then
Dim sql_AUTOindexresult = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID, True)
If IsNothing(sql_AUTOindexresult) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> unexpected: sql_AUTOindexresult is nothing!!", False)
+ LOGGER.Debug("unexpected: sql_AUTOindexresult is nothing!!")
value = ""
Else
If IsDBNull(sql_AUTOindexresult) Then
@@ -278,8 +278,8 @@ Public Class ClassImport_Windream
sql_AUTOindexresult = sql_AUTOindexresult.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
Dim AUTOindexresult = ClassDatabase.Execute_Scalar(sql_AUTOindexresult, True)
If IsNothing(AUTOindexresult) Then
- ClassLogger.Add(">> ATTENTION: unexpected: AUTOindexresult is nothing!!", False)
- ClassLogger.Add(">> " & sql_AUTOindexresult, False)
+ LOGGER.Warn("ATTENTION: unexpected: AUTOindexresult is nothing!!")
+ LOGGER.Warn("" & sql_AUTOindexresult)
value = ""
Else
If IsDBNull(AUTOindexresult) Then
@@ -292,16 +292,16 @@ Public Class ClassImport_Windream
End If
End If
Else
- ClassLogger.Add(">> INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & APattern, False)
+ LOGGER.Warn("INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & APattern)
value = ""
End If
Else
- ClassLogger.Add(">> split.Length <> 2 - APattern: " & APattern, False)
+ LOGGER.Warn("split.Length <> 2 - APattern: " & APattern)
value = ""
End If
ElseIf APattern.Contains("#") Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> element [" & APattern & "] filled with Record-Data...: ", False)
+ LOGGER.Debug("element [" & APattern & "] filled with Record-Data...: ")
Dim split() As String = APattern.Split("#")
If split.Length = 2 Then
Dim CONTROL_ID = split(1)
@@ -316,24 +316,24 @@ Public Class ClassImport_Windream
lblsql = lblsql.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY-ID", CURRENT_ENTITY_ID)
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> variable sql will be used for convention", False)
+ LOGGER.Debug("variable sql will be used for convention")
Dim result = ClassDatabase.Execute_ScalarWithConnection(DTtype.Rows(0).Item(2), lblsql)
If Not IsNothing(result) Then
value = result.ToString
Else
- ClassLogger.Add(">> variable sqlresult is nothing - " & lblsql, False)
+ LOGGER.Warn("variable sqlresult is nothing - " & lblsql)
value = ""
End If
Else
- ClassLogger.Add(">> NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
- ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
+ LOGGER.Warn("NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.")
+ LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
value = ""
End If
Else
If IsDBNull(CONTROLVALUE) Then
- ClassLogger.Add(">> NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
- ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
+ LOGGER.Warn("NameConvention should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.")
+ LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
value = ""
Else
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
@@ -378,7 +378,7 @@ Public Class ClassImport_Windream
If value <> String.Empty Then
oNewWM_Filename = oNewWM_Filename.Replace(element.Value, value)
_NewFileString = oNewWM_Filename
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Actual NEWFILESTRING: " & _NewFileString, False)
+ LOGGER.Debug("Actual NEWFILESTRING: " & _NewFileString)
' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
AnzahlIndexe += 1
' sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
@@ -444,7 +444,7 @@ Public Class ClassImport_Windream
msg = "In nameconvention an element was defined which could not be replaced." & vbNewLine & "elementname: " & element.Value.ToUpper
End If
- ClassLogger.Add(msg)
+ LOGGER.Warn(msg)
MsgBox(msg, MsgBoxStyle.Exclamation, "Error in Name Convention:")
End Select
Next
@@ -452,11 +452,11 @@ Public Class ClassImport_Windream
'ungültige Zeichen entfernen
oNewWM_Filename = ClassHelper.CleanFilename(oNewWM_Filename, "")
If oNewWM_Filename.Contains("/") Then
- ClassLogger.Add(String.Format(">> DATEINAME contains /-sign. / will be replaced with _"))
+ LOGGER.Info(String.Format("DATEINAME contains /-sign. / will be replaced with _"))
oNewWM_Filename = oNewWM_Filename.Replace("/", "_")
End If
Catch ex As Exception
- ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
+ LOGGER.Warn(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:")
err = True
End Try
@@ -477,7 +477,7 @@ Public Class ClassImport_Windream
End If
Catch ex As Exception
- ClassLogger.Add(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message)
+ LOGGER.Warn(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message)
MsgBox(" - Unexpected Error in FileName-Creating: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@@ -497,9 +497,9 @@ Public Class ClassImport_Windream
'####
' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False)
+ LOGGER.Debug("Elementname in FolderString: '" & element.ToString & "'")
Dim EL_SUBSTRING = element.Value.Substring(2, 1).ToUpper
- If LogErrorsOnly = False Then ClassLogger.Add(" >> EL_SUBSTRING is: '" & EL_SUBSTRING & "'", False)
+ LOGGER.Debug("EL_SUBSTRING is: '" & EL_SUBSTRING & "'")
Select Case EL_SUBSTRING
'Manueller Indexwert
Case "A"
@@ -511,11 +511,11 @@ Public Class ClassImport_Windream
Dim sql = "SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID
Dim sql_command = ClassDatabase.Execute_Scalar(sql)
If IsNothing(sql_command) Then
- ClassLogger.Add(" >> unexpected: SQL_RESULT is nothing!!", False)
- ClassLogger.Add(" >> " & sql, False)
+ LOGGER.Warn("unexpected: SQL_RESULT is nothing!!")
+ LOGGER.Warn("" & sql)
Else
If IsDBNull(sql_command) Then
- ClassLogger.Add(" >> unexpected: sql_command is DBNULL!!", False)
+ LOGGER.Warn("unexpected: sql_command is DBNULL!!")
Else
sql_command = sql_command.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
sql_command = sql_command.ToString.ToUpper.Replace("@RECORD_ID", CURRENT_RECORD_ID)
@@ -523,13 +523,13 @@ Public Class ClassImport_Windream
sql_command = sql_command.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
Dim AUTOindexresult = ClassDatabase.Execute_Scalar(sql_command, True)
If IsNothing(AUTOindexresult) Then
- ClassLogger.Add(">> unexpected: AUTOindexresult is nothing!!", False)
- ClassLogger.Add(">> " & sql_command, False)
+ LOGGER.Warn("unexpected: AUTOindexresult is nothing!!")
+ LOGGER.Warn("" & sql_command)
Else
If IsDBNull(AUTOindexresult) Then
- ClassLogger.Add(">> unexpected: AUTOindexresult is DBNULL - " & sql_command, False)
+ LOGGER.Warn("unexpected: AUTOindexresult is DBNULL - " & sql_command)
Else
- If LogErrorsOnly = False Then ClassLogger.Add(" >> AUTOindexresult is: '" & AUTOindexresult & "'", False)
+ LOGGER.Debug("AUTOindexresult is: '" & AUTOindexresult & "'")
FolderConvention = FolderConvention.Replace(element.ToString, AUTOindexresult)
End If
End If
@@ -537,32 +537,32 @@ Public Class ClassImport_Windream
End If
End If
Else
- ClassLogger.Add(">> INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & element.Value, False)
+ LOGGER.Warn("INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & element.Value)
End If
Else
- ClassLogger.Add(">> split.Length <> 2 - APattern: " & element.Value, False)
+ LOGGER.Warn("split.Length <> 2 - APattern: " & element.Value)
End If
Case "M"
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Working on manual value......'", False)
+ LOGGER.Debug("Working on manual value......'")
Dim split() As String = element.Value.Substring(3, element.Value.Length - 4).Split("#")
If split.Length = 2 Then
'Die GUID des AutoIndex auslesen
Dim INDEX_ID = split(1)
If IsNumeric(INDEX_ID) Then
If element.Value.ToUpper.Contains("FOLDERSELECT") Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> FOLDERSELECT......'", False)
+ LOGGER.Debug("FOLDERSELECT......'")
For Each row As DataRow In CURRENT_TBPMO_INDEX_MAN.Rows
If row.Item("GUID") = INDEX_ID Then
Dim manvalue = row.Item("MAN_VALUE")
If manvalue <> String.Empty Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> folder value is: '" & manvalue & "'", False)
+ LOGGER.Debug("folder value is: '" & manvalue & "'")
CURRENT_VARIABLE_FOLDER_OVERRIDE = True
CURRENT_VARIABLE_FOLDER = manvalue
Return True
Else
- ClassLogger.Add(">> Attention: manvalue (from Input indexing is empty!!", False)
+ LOGGER.Warn("Attention: manvalue (from Input indexing is empty!!")
End If
End If
Next
@@ -573,21 +573,21 @@ Public Class ClassImport_Windream
If row.Item("GUID") = INDEX_ID Then
Dim manvalue = row.Item("MAN_VALUE")
If manvalue <> String.Empty Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> manvalue is: '" & manvalue & "'", False)
+ LOGGER.Debug("manvalue is: '" & manvalue & "'")
FolderConvention = FolderConvention.Replace(element.ToString, manvalue)
FolderConvention = FolderConvention.Replace("\\", "")
Else
- ClassLogger.Add(">> Attention: manvalue (from Input indexing is empty!!", False)
+ LOGGER.Warn("Attention: manvalue (from Input indexing is empty!!")
End If
End If
Next
End If
Else
- ClassLogger.Add(">> INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & element.Value, False)
+ LOGGER.Warn("INDEX_ID is not numeric: " & INDEX_ID.ToString & "- APattern: " & element.Value)
End If
Else
- ClassLogger.Add(">> split.Length <> 2 - APattern: " & element.Value, False)
+ LOGGER.Warn("split.Length <> 2 - APattern: " & element.Value)
End If
@@ -596,7 +596,7 @@ Public Class ClassImport_Windream
Dim split() As String = elmt
If split.Length = 2 Then
Dim VARTYPE = split(0)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> VARTYPE is: '" & VARTYPE & "'", False)
+ LOGGER.Debug("VARTYPE is: '" & VARTYPE & "'")
Select Case VARTYPE
Case "ARDoctype"
FolderConvention = FolderConvention.Replace(element.ToString, CURRENT_DOKARTSTRING)
@@ -646,22 +646,22 @@ Public Class ClassImport_Windream
lblsql = lblsql.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY-ID", CURRENT_ENTITY_ID)
lblsql = lblsql.ToString.ToUpper.Replace("@ENTITY_ID", CURRENT_ENTITY_ID)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> variable sql will be used for convention", False)
+ LOGGER.Debug("variable sql will be used for convention")
Dim result = ClassDatabase.Execute_ScalarWithConnection(DTtype.Rows(0).Item(2), lblsql)
If Not IsNothing(result) Then
FolderConvention = FolderConvention.Replace(element.ToString, result.ToString)
Else
- ClassLogger.Add(">> variable sqlresult is nothing - " & lblsql, False)
+ LOGGER.Warn("variable sqlresult is nothing - " & lblsql)
End If
Else
- ClassLogger.Add(">> Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
- ClassLogger.Add(">> SQL-Command: " & checktype)
+ LOGGER.Warn("Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.")
+ LOGGER.Warn("SQL-Command: " & checktype)
End If
Else
If IsDBNull(CONTROLVALUE) Then
- ClassLogger.Add(">> Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
- ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
+ LOGGER.Warn("Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.")
+ LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
Else
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
Dim DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1, True)
@@ -697,17 +697,17 @@ Public Class ClassImport_Windream
Case Else
- ClassLogger.Add(" -Undefined pattern found in folderconvention" & vbNewLine & "Elementname: " & element.Value.ToUpper)
+ LOGGER.Warn(" -Undefined pattern found in folderconvention" & vbNewLine & "Elementname: " & element.Value.ToUpper)
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")
End Select
- If LogErrorsOnly = False Then ClassLogger.Add($" >> FolderConvention so far is: '{FolderConvention}'", False)
+ LOGGER.Debug($"FolderConvention so far is: '{FolderConvention}'")
Next
CURRENT_VARIABLE_FOLDER = FolderConvention
Return True
Catch ex As Exception
MsgBox("Unexpected Error in CreateFolderforIndex-Method:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add(" >> Fehler in CrFolderForIndex: " & ex.Message, True)
+ LOGGER.Warn("Fehler in CrFolderForIndex: " & ex.Message, True)
Return False
End Try
End Function
@@ -735,7 +735,7 @@ Public Class ClassImport_Windream
CURRENT_NEWFILENAME = _NewFileString & extension
Return True
Catch ex As Exception
- ClassLogger.Add(" - Error in versioning file - error: " & vbNewLine & ex.Message)
+ LOGGER.Warn(" - Error in versioning file - error: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in versioning file:")
Return False
End Try
diff --git a/app/DD-Record-Organizer/ClassInit.vb b/app/DD-Record-Organizer/ClassInit.vb
index 6c02981..42daf36 100644
--- a/app/DD-Record-Organizer/ClassInit.vb
+++ b/app/DD-Record-Organizer/ClassInit.vb
@@ -1,13 +1,36 @@
Imports System.ComponentModel
Imports System.IO
Imports DD_LIB_Standards
+Imports DigitalData.Modules.Logging
+
Public Class ClassInit
Public Sub New()
End Sub
Public Sub InitLogger()
- ClassLogger.Init("", USER_USERNAME)
- clsLogger.LOGFILE_PATH = ClassLogger.logDateiname
+ LOGCONFIG = New LogConfig(LogConfig.PathType.CustomPath,
+ Application.LocalUserAppDataPath & "\Log",
+ Nothing,
+ My.Application.Info.CompanyName,
+ My.Application.Info.ProductName)
+ LOGGER = LOGCONFIG.GetLogger("ADDI")
+
+ LOGGER.Info("## ADDI started - {0}", Now)
+ Try
+ Dim directory As New IO.DirectoryInfo(Application.LocalUserAppDataPath & "\Log")
+
+ For Each file As IO.FileInfo In directory.GetFiles
+ If (Now - file.CreationTime).Days > 29 Then
+ file.Delete()
+ Else
+ Exit For
+ End If
+
+
+ Next
+ Catch ex As Exception
+
+ End Try
End Sub
Public Shared Function InitDatabase()
@@ -124,7 +147,7 @@ Public Class ClassInit
CURRENT_TBPMO_FORM_VIEW = ClassDatabase.Return_Datatable(sql, True)
sql = String.Format("select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID")
CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql, True)
- clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
+ clsCURRENT.LOG_ERRORS_ONLY = DEBUG
sql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE")
Dim oDTFF_CHANGE As DataTable = ClassDatabase.Return_Datatable(sql, True)
@@ -145,7 +168,7 @@ Public Class ClassInit
"And T.ACTIVE = 1 And T1.USER_ID = {0}", USER_GUID)
CURRENT_TBPMO_CONN_SWITCH = ClassDatabase.Return_Datatable(sql)
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in Init_CONN_SWITCH: " & ex.Message)
+ LOGGER.Warn("Unexpected Error in Init_CONN_SWITCH: " & ex.Message)
End Try
End Sub
@@ -160,11 +183,11 @@ Public Class ClassInit
Dim sql = String.Format("SELECT T.*, T1.IS_ADMIN FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAME)
- ClassLogger.Add(">> Login at: " & Now.ToString, False)
- ClassLogger.Add(">> Username: " & USER_USERNAME, False)
+ LOGGER.Info("Login at: " & Now.ToString)
+ LOGGER.Info("Username: " & USER_USERNAME)
Dim USER_DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
If USER_DT.Rows.Count = 0 Then
- ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!", False)
+ LOGGER.Warn(" - User '" & USER_USERNAME & "' not listed in Useradminsitration!")
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
@@ -184,7 +207,7 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
If Right_RO = False Then
- ClassLogger.Add("User '" & USER_USERNAME & "' not authorized for using Record-Organizer!")
+ LOGGER.Warn("User '" & USER_USERNAME & "' not authorized for using Record-Organizer!")
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
@@ -249,18 +272,18 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
End If
Try
If clsWindream.Create_Session = False Then
- ClassLogger.Add("Could not create the login for windream - No session created!")
+ LOGGER.Warn("Could not create the login for windream - No session created!")
ClassHelper.MSGBOX_Handler("ERROR", "windream-login Error:", "Could not create the login/session!", "ADDI will start anyway but be aware that searching and importing won't be possible!")
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in clswindream.Init: " & ex.Message)
+ LOGGER.Warn("Unexpected Error in clswindream.Init: " & ex.Message)
MsgBox("Unexpected Error in Creating windream-Session: " & ex.Message & vbNewLine & "Please inform Your sysadmin!", MsgBoxStyle.Critical)
End Try
sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Record-Organizer') AND CLIENT_ID = {0}", CLIENT_SELECTED)
Dim anzahl = ClassDatabase.Execute_Scalar(sql, False)
USERS_LOGGED_IN = CInt(anzahl)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False)
+ LOGGER.Debug("User# logged in: " & anzahl.ToString)
'####
If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then
@@ -271,12 +294,12 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
"Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!")
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
- ClassLogger.Add(" >> The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False)
+ LOGGER.Warn("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ")
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
ClassDatabase.Execute_non_Query(sql)
- ClassLogger.Add(" - logged out the user", False)
+ LOGGER.Warn(" - logged out the user")
Return False
End If
Else
@@ -292,7 +315,7 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
End If
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
Return False
End Try
@@ -305,7 +328,7 @@ WHERE (LOWER(USERNAME) = LOWER('{0}')) AND T2.SHORT_NAME = 'ADDI'", USER_USERNAM
End If
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message)
+ LOGGER.Warn("Unexpected Error in InitUserLogin: " & ex.Message)
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
diff --git a/app/DD-Record-Organizer/ClassLayout.vb b/app/DD-Record-Organizer/ClassLayout.vb
index 3d2024f..7f4a8e2 100644
--- a/app/DD-Record-Organizer/ClassLayout.vb
+++ b/app/DD-Record-Organizer/ClassLayout.vb
@@ -41,9 +41,9 @@ Public Class ClassWindowLocation
If x = 5000 Then
Select Case Prefix
Case "frmTool_FormDesigner"
- ClassLogger.Add(">> frmTool_FormDesigner - Maximize Eigenschaft Form wird nicht gesetzt.", False)
+ LOGGER.Info("frmTool_FormDesigner - Maximize Eigenschaft Form wird nicht gesetzt.")
Case "frmTool_ControlProperties"
- ClassLogger.Add(">> frmTool_ControlProperties - Maximize Eigenschaft Form wird nicht gesetzt.", False)
+ LOGGER.Info("frmTool_ControlProperties - Maximize Eigenschaft Form wird nicht gesetzt.")
Case Else
form.WindowState = FormWindowState.Maximized
End Select
@@ -64,7 +64,7 @@ Public Class ClassWindowLocation
Next
Catch notFoundEx As System.IO.FileNotFoundException
- ClassLogger.Add("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID)
+ LOGGER.Warn("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID)
Catch ex As Exception
MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -103,7 +103,7 @@ Public Class ClassWindowLocation
layout.Save(settings)
Catch notFoundEx As System.IO.FileNotFoundException
- ClassLogger.Add("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID)
+ LOGGER.Warn("Window Position & Size added for Screen " & ScreenID & ", Form " & FormID)
Catch ex As Exception
MsgBox("Error while saving Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
diff --git a/app/DD-Record-Organizer/ClassLicence.vb b/app/DD-Record-Organizer/ClassLicence.vb
index 2ceb499..30ea7f9 100644
--- a/app/DD-Record-Organizer/ClassLicence.vb
+++ b/app/DD-Record-Organizer/ClassLicence.vb
@@ -7,7 +7,7 @@ Public Class ClassLicence
Try
Dim todayDate As Date = New Date(Now.Year, Now.Month, Now.Day)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> todayDate: " & todayDate.ToString, False)
+ LOGGER.Debug("todayDate: " & todayDate.ToString)
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
@@ -30,19 +30,19 @@ Public Class ClassLicence
Dim LICENSE_FILE_DATE As Date
Try
LICENSE_FILE_DATE = New Date(LicDATEsplit(0), LicDATEsplit(1), LicDATEsplit(2))
- If LogErrorsOnly = False Then ClassLogger.Add(" >> LICENSE_FILE_DATE: " & LICENSE_FILE_DATE.ToString, False)
+ LOGGER.Debug("LICENSE_FILE_DATE: " & LICENSE_FILE_DATE.ToString)
Try
Try
LICENSE_DATE = CDate(LICENSE_FILE_DATE)
Catch ex As Exception
- ClassLogger.Add(">> Could not read LICENSE_DATE2: " & ex.Message, False)
+ LOGGER.Warn("Could not read LICENSE_DATE2: " & ex.Message)
End Try
Catch ex As Exception
- ClassLogger.Add(">> Could not read LICENSE_DATE1: " & ex.Message, False)
+ LOGGER.Warn("Could not read LICENSE_DATE1: " & ex.Message)
End Try
Catch ex As Exception
- ClassLogger.Add(">> Could not read LICENSE_DATE3: " & ex.Message, False)
+ LOGGER.Warn("Could not read LICENSE_DATE3: " & ex.Message)
LICENSE_FILE_DATE = New Date(Now.Year, Now.Month, Now.Day)
End Try
@@ -59,7 +59,7 @@ Public Class ClassLicence
DT_LICENSE_ADDONS = ClassDatabase.Return_Datatable(sql)
For Each license_Row As DataRow In DT_LICENSE_ADDONS.Rows
Dim expired As Boolean = False
- If LogErrorsOnly = False Then ClassLogger.Add(" >> AddOnName: " & license_Row.Item("NAME"), False)
+ LOGGER.Debug("AddOnName: " & license_Row.Item("NAME"))
Dim result = ClassHelper.DecryptString(license_Row.Item("VALID_DATE"), license_Row.Item("NAME"))
If result <> "" Then
Dim datesplit() = result.ToString.Split("-")
@@ -94,7 +94,7 @@ Public Class ClassLicence
Try
LICENSE_DOSSIER_COUNT = split(2)
Catch ex As Exception
- ClassLogger.Add(">> Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message, False)
+ LOGGER.Warn("Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message)
LICENSE_DOSSIER_COUNT = 0
End Try
diff --git a/app/DD-Record-Organizer/ClassLogger.vb b/app/DD-Record-Organizer/ClassLogger.vb
deleted file mode 100644
index f035af3..0000000
--- a/app/DD-Record-Organizer/ClassLogger.vb
+++ /dev/null
@@ -1,200 +0,0 @@
-Imports System.IO
-Imports DD_LIB_Standards
-Public Class ClassLogger
- Public Shared DateiSpeicherort As String = Nothing
- Public Shared DateiPrefix As String = ""
- Public Shared Datei As IO.File = Nothing
- Public Shared logDateiname As String = ""
- Private Shared StreamWriter As IO.StreamWriter = Nothing
- Private Shared HasInformedAboutError As Boolean = False
- ' eine Art Konstruktor
- Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True)
- ' initialisiert den Speicherort
- ClassLogger.SetSpeicherort()
- 'wenn ein Prfix gesetzt wurde
- If Not prefix = "" Then
- 'initialisiert das Prefix
- ClassLogger.SetPrefix(prefix)
- End If
- Dim str As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
- Dim anz As Integer = 1
- Do While File.Exists(str)
- Dim info As New FileInfo(str)
- Dim length As Long = info.Length
- If length > 5000000 Then
- str = IO.Path.GetDirectoryName(str)
- str = str & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
- anz = anz + 1
- Else
- Exit Do
- End If
- Loop
- ClassLogger.logDateiname = str
- If Not appendFile Then
- ' der Versuch die Datei zu löschen
- My.Computer.FileSystem.WriteAllText(ClassLogger.logDateiname, String.Empty, False)
- End If
- ' testen ob sich die Datei öffnen und beschreiben lässt
- 'ClassNILogger.CheckIsLogWritable()
- End Sub
-
- ' legt den Speicherort fest
- Public Shared Sub SetSpeicherort()
- Dim f As New IO.DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data\RecordOrganizer\Log"))
- If IO.Directory.Exists(f.ToString) = False Then
- IO.Directory.CreateDirectory(f.ToString)
- End If
- ClassLogger.DateiSpeicherort = f.ToString
- End Sub
-
- ' legt das Prefix für den Dateinamen fest
- Public Shared Sub SetPrefix(ByVal prefix As String)
- ClassLogger.DateiPrefix = prefix
- End Sub
-
- Public Shared Sub Add(ByVal information As String, Optional ByVal ACHTUNG As Boolean = True, Optional ByVal Essential As Boolean = True)
- If ClassLogger.OpenFile Then
- Try
- If ACHTUNG Then
- ClassLogger.StreamWriter.WriteLine(String.Format("{0}: #ATTENTION# : {1}", Now.ToString, information))
- If clsDatabase.DB_DEFAULT_INITIALIZED = True And USER_GUID > 0 And Essential = True Then
- ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", information)
- Else
- ClassLogger.StreamWriter.WriteLine(String.Format("{0},{1},{2}", clsDatabase.DB_DEFAULT_INITIALIZED.ToString, USER_GUID.ToString, Essential.ToString))
- End If
- Else
- ClassLogger.StreamWriter.WriteLine(String.Format("{0}: {1}", Now.ToString, information))
- End If
- ClassLogger.CloseFile()
- Catch e As Exception
- ClassLogger.ShowErrorMessage()
- End Try
- Else
- ClassLogger.ShowErrorMessage()
- End If
- End Sub
- 'Public Shared Sub Add(ByVal ex As Exception)
- ' If ClassLogger.OpenFile Then
- ' Try
- ' ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")")
- ' ClassLogger.StreamWriter.WriteLine("##### Error: " & ex.Message & " Source [" & ex.Source & "]")
- ' ClassLogger.CloseFile()
- ' Catch e As Exception
- ' ClassLogger.ShowErrorMessage()
- ' End Try
- ' Else
- ' ClassLogger.ShowErrorMessage()
- ' End If
- 'End Sub
- ' öffnet eine Datei zum Schreiben
- Private Shared Function OpenFile()
- Try
- ' wenn ein Speicherort festgelegt wurde
- If Not ClassLogger.DateiSpeicherort = Nothing Then
- ' den Dateienamen definieren
- Dim dateiname As String = ClassLogger.logDateiname
- ' Datei anlegen wenn noch nicht vorhanden
- My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
- ' die Datei zum Schreiben öffnen
- ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
- End If
- ' wenn die Datei erfolgreich geöffnet wurde
- If ClassLogger.StreamWriter IsNot Nothing Then
- Return True
- Else
- Return False
- End If
- Catch ex As Exception
- Return False
- End Try
-
- End Function
-
- ' öffnet eine Datei zum Schreiben
- Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String)
-
- Try
-
- ' wenn ein Speicherort festgelegt wurde
- If Not DateiSpeicherort = Nothing And ClassLogger.CheckIsLogWritable() Then
-
- ' den Dateienamen definieren
- Dim dateiname As String = ClassLogger.logDateiname
- ' Datei anlegen wenn noch nicht vorhanden
- My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True)
-
- ' die Datei zum Schreiben öffnen
- ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8)
- End If
-
- ' wenn die Datei erfolgreich geöffnet wurde
- If ClassLogger.StreamWriter IsNot Nothing Then
- Return True
- Else
- Return False
- End If
-
- Catch ex As Exception
- Return False
- End Try
-
- End Function
-
-
- ' schliesst die geöffnete Datei
- Private Shared Sub CloseFile()
-
- ' wenn eine Datei geöffnet ist
- If ClassLogger.StreamWriter IsNot Nothing Then
- ' die Datei schliessen
- ClassLogger.StreamWriter.Close()
- ClassLogger.StreamWriter = Nothing
- End If
- End Sub
-
-
- Public Shared Function CheckIsLogWritable()
-
- If ClassLogger.OpenFile Then
- Try
- ClassLogger.CloseFile()
- Catch e As Exception
- ClassLogger.ShowErrorMessage()
- Return False
- End Try
- Else
- ClassLogger.ShowErrorMessage()
- Return False
- End If
-
- Return True
- End Function
-
-
- Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String)
-
- If ClassLogger.OpenFile(vDateiSpeicherort, vDateiPrefix) Then
- Try
- ClassLogger.CloseFile()
- Catch e As Exception
- ClassLogger.ShowErrorMessage()
- Return False
- End Try
- Else
- ClassLogger.ShowErrorMessage()
- Return False
- End If
-
- Return True
- End Function
-
-
- Private Shared Sub ShowErrorMessage()
- If Not ClassLogger.HasInformedAboutError Then
- MsgBox("Please make sure You can access the logpath and are able to write to the file. This may be due to security privileges or storage place in the drive." & _
- vbNewLine & vbNewLine & "A logfile won't be written from now on." & vbNewLine & vbNewLine & "You won't be informed about further logdetails from now on.", _
- MsgBoxStyle.Information, "Error opening Logfile")
- ClassLogger.HasInformedAboutError = True
- End If
- End Sub
-End Class
diff --git a/app/DD-Record-Organizer/ClassMoreMetadata.vb b/app/DD-Record-Organizer/ClassMoreMetadata.vb
index 1a45dad..7d2f18e 100644
--- a/app/DD-Record-Organizer/ClassMoreMetadata.vb
+++ b/app/DD-Record-Organizer/ClassMoreMetadata.vb
@@ -13,7 +13,7 @@
Return foundRowsLevel0(i)(COL_NAME)
Next
Catch ex As Exception
- ClassLogger.Add(" - Unvorhergesehener Fehler in Return_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
+ LOGGER.Warn(" - Unvorhergesehener Fehler in Return_CURRENT_TBPMO_INDEX_MAN_VALUE - Fehler: " & vbNewLine & ex.Message)
Return Nothing
End Try
End Function
diff --git a/app/DD-Record-Organizer/ClassNodeNavigation.vb b/app/DD-Record-Organizer/ClassNodeNavigation.vb
index 67b40df..d511feb 100644
--- a/app/DD-Record-Organizer/ClassNodeNavigation.vb
+++ b/app/DD-Record-Organizer/ClassNodeNavigation.vb
@@ -32,7 +32,7 @@ Public Class ClassNodeNavigation
End Using
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateNodeProcedure: ")
- ClassLogger.Add("Error in CreateNodeProcedure: " & ex.Message, True)
+ LOGGER.Warn("Error in CreateNodeProcedure: " & ex.Message)
Return 0
End Try
End Function
@@ -96,14 +96,14 @@ Public Class ClassNodeNavigation
Dim NODE_ID
Dim NODE_CONFIG_ID
Dim staticListItems = myTreeNode.Tag.Split("#")
- If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.myTreeNode.Tag [{myTreeNode.Tag.ToString}]", False)
+ LOGGER.Debug($"SUB CNCID.myTreeNode.Tag [{myTreeNode.Tag.ToString}]", False)
If staticListItems(0).Contains("NODE-TYPE") Or staticListItems(0).Contains("CONFIG_NODE") Then
' NODE_ID = staticListItems(0).ToString.Replace("NODE-TYPE-", "")
NODE_ID = Return_NODEID_forTag(myTreeNode.Tag)
NODE_CONFIG_ID = Return_NODE_CONFIG_ID_forTag(myTreeNode.Tag)
- If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
+ LOGGER.Debug($"SUB CNCID.Checking nodeconfig on NODE_ID [{NODE_ID.ToString}] and NODE_CONFIG_ID [{NODE_CONFIG_ID.ToString}]", False)
Else
- If LogErrorsOnly = False Then ClassLogger.Add($"Attention no NODE-TYPE in staticListItems(0) [{staticListItems(0).ToString}]", False)
+ LOGGER.Debug($"Attention no NODE-TYPE in staticListItems(0) [{staticListItems(0).ToString}]", False)
End If
If NODE_CONFIGURABLE_NODES_DT.Rows.Count > 0 And IsNumeric(NODE_ID) Then
'Prüfen ob es für dieses Level einen konfigurierbaren Knoten gibt
@@ -127,25 +127,25 @@ Public Class ClassNodeNavigation
If Not IsNothing(ID) Then
- If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
+ LOGGER.Debug($"SUB CNCID.We have a NODE_CONFIGURABLE_ID [{ID.ToString}]!!", False)
ClassNodeNavigation.NODE_CONFIGURABLE_ID = ID
CURRENT_NODE_CONFIGURABLE_ID = ID
Else
- If LogErrorsOnly = False Then ClassLogger.Add($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
- ' If LogErrorsOnly = False Then ClassLogger.Add("CURRENT_NODE_CONFIGURABLE_ID would be nothing...", False)
+ LOGGER.Debug($"SUB CNCID.NODE_CONFIGURABLE_ID is nothing!!", False)
+ ' LOGGER.Debug("CURRENT_NODE_CONFIGURABLE_ID would be nothing...", False)
CURRENT_NODE_CONFIGURABLE_ID = 0
End If
Else
If IsNumeric(NODE_ID) = False Then
- If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.NODE_ID is not numeric", False)
+ LOGGER.Debug("SUB CNCID.NODE_ID is not numeric", False)
Else
- If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
+ LOGGER.Debug("SUB CNCID.NO NODE_CONFIGURABLE_NODES_DT", False)
End If
CURRENT_NODE_CONFIGURABLE_ID = 0
End If
Catch ex As Exception
- If LogErrorsOnly = False Then ClassLogger.Add("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
+ LOGGER.Debug("SUB CNCID.CURRENT_NODE_CONFIGURABLE_ID would be nothing(1)...", False)
ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0
CURRENT_NODE_CONFIGURABLE_ID = 0
End Try
@@ -166,7 +166,7 @@ Public Class ClassNodeNavigation
End If
Return TagString
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in CreateNODE_TAG (NodeNavigation): " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in CreateNODE_TAG (NodeNavigation): " & ex.Message)
MsgBox("Error in CreateNODE_TAG (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
TagString = "ERROR NODETAG_CREATION"
Return TagString
@@ -220,7 +220,7 @@ Public Class ClassNodeNavigation
End If
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (CreateTreViewNodes): " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in Formatting NodeColor (CreateTreViewNodes): " & ex.Message)
End Try
@@ -232,7 +232,7 @@ Public Class ClassNodeNavigation
sw.Done()
Return mytrv
Catch ex As System.Exception
- ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodes (NodeNavigation-CreateTreViewNodes): " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in CreateTreeViewNodes (NodeNavigation-CreateTreViewNodes): " & ex.Message)
MsgBox("Error in CreateTreeViewNodes (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -290,7 +290,7 @@ Public Class ClassNodeNavigation
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in Formatting NodeColor (Subnodes): " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in Formatting NodeColor (Subnodes): " & ex.Message)
End Try
CheckSubNodes(DT_TREEVIEW_NODES, SUB_NODE_ROW(i)("GUID"), TREEVIEW_IMAGELIST, SUB_NODE, SUB_NODE_ROW(i)("EXPAND_NODE"))
'Add the node
@@ -317,7 +317,7 @@ Public Class ClassNodeNavigation
Next
Return Nothing
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in FindNode (NodeNavigation): " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in FindNode (NodeNavigation): " & ex.Message)
MsgBox("Error in FindNode (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -333,7 +333,7 @@ Public Class ClassNodeNavigation
Dim staticListItems = NodeString.Split("#")
Return staticListItems(1)
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in Return_ENTITY_FOR_TAG ('" & NodeString & "'): " & ex.Message)
Return 0
End Try
End If
@@ -356,7 +356,7 @@ Public Class ClassNodeNavigation
End If
Catch ex As Exception
sw.Done()
- ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message)
Return 0
End Try
Else
diff --git a/app/DD-Record-Organizer/ClassOfficeTemplate.vb b/app/DD-Record-Organizer/ClassOfficeTemplate.vb
index 7a4f90b..9daa8fe 100644
--- a/app/DD-Record-Organizer/ClassOfficeTemplate.vb
+++ b/app/DD-Record-Organizer/ClassOfficeTemplate.vb
@@ -41,7 +41,7 @@ Public Class ClassOfficeTemplate
' word.Visible = (True) 'Word sichtbar
For Each cc In doc.ContentControls
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False)
+ LOGGER.Debug("Office-Pattern: " & cc.Tag, False)
For Each patternrow As System.Data.DataRow In DT_PATTERNS.Rows
If patternrow.Item("NAME_PATTERN").ToString.ToUpper = cc.Tag.ToString.ToUpper Then
If Not IsDBNull(patternrow.Item("FIXED_VALUE")) Then
@@ -53,20 +53,20 @@ Public Class ClassOfficeTemplate
Dim Control_ID = fvalue '.Replace("@CONTROLID:", "")
Try
If CInt(Control_ID) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Get Value for Control-ID: " & Control_ID.ToString, False)
+ LOGGER.Debug("Get Value for Control-ID: " & Control_ID.ToString, False)
Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID)
If Not IsNothing(value_akt) Then
cc.Range.Text = value_akt.ToString
Else
- ClassLogger.Add("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!", True)
+ LOGGER.Warn("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!")
End If
End If
Catch ex As Exception
- ClassLogger.Add("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message, True)
+ LOGGER.Warn("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message)
End Try
'End If
'Else
- ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
+ ' LOGGER.Debug("Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
' cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString
'End If
End If
@@ -108,7 +108,7 @@ Public Class ClassOfficeTemplate
Return False
End If
Catch ex As Exception
- ClassLogger.Add("Error in Open_Word_Template: " & ex.Message, True)
+ LOGGER.Warn("Error in Open_Word_Template: " & ex.Message)
MsgBox("Unexpected Error in Open_Word_Template:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
diff --git a/app/DD-Record-Organizer/ClassPosGrid.vb b/app/DD-Record-Organizer/ClassPosGrid.vb
index ad92df1..aa0f062 100644
--- a/app/DD-Record-Organizer/ClassPosGrid.vb
+++ b/app/DD-Record-Organizer/ClassPosGrid.vb
@@ -33,7 +33,7 @@ Public Class ClassPosGrid
Try
DT = ClassDatabase.Return_Datatable(sqlCommand)
Catch ex As Exception
- ClassLogger.Add("Error in FormatComboColumn: " & ex.Message)
+ LOGGER.Warn("Error in FormatComboColumn: " & ex.Message)
Exit Sub
End Try
diff --git a/app/DD-Record-Organizer/ClassRecordCommands.vb b/app/DD-Record-Organizer/ClassRecordCommands.vb
index 0872f7b..4fdea61 100644
--- a/app/DD-Record-Organizer/ClassRecordCommands.vb
+++ b/app/DD-Record-Organizer/ClassRecordCommands.vb
@@ -31,7 +31,7 @@ Public Class ClassRecordCommands
End Using
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateRecordProcedure: ")
- ClassLogger.Add("Error in CreateRecordProcedure: " & ex.Message, True)
+ LOGGER.Warn("Error in CreateRecordProcedure: " & ex.Message)
ClassHelper.InsertEssential_Log(formId, "ENTITY-ID", "ENTITY-ID: " & formId & ": " & ex.Message)
Return 0
End Try
@@ -48,7 +48,7 @@ Public Class ClassRecordCommands
Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "")
Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & USER_USERNAME & "')"
- If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL: " & SQL, False)
+ LOGGER.Debug("ConnectRecord SQL: " & SQL, False)
Return ClassDatabase.Execute_non_Query(SQL)
End Function
Public Shared Function CHECK_RECORD_FINAL(RecordId As Integer, IsInsert As Boolean)
diff --git a/app/DD-Record-Organizer/ClassRightManagement.vb b/app/DD-Record-Organizer/ClassRightManagement.vb
index 6326365..94fc899 100644
--- a/app/DD-Record-Organizer/ClassRightManagement.vb
+++ b/app/DD-Record-Organizer/ClassRightManagement.vb
@@ -69,15 +69,15 @@
End If
End If
End If
- If LogErrorsOnly = False Then
- ClassLogger.Add(" >> RIGHT_EDIT_R: " & RIGHT_EDIT_R.ToString, False)
- ClassLogger.Add(" >> RIGHT_ADD_R: " & RIGHT_ADD_R.ToString, False)
- ClassLogger.Add(" >> RIGHT_DELETE_R: " & RIGHT_DELETE_R.ToString, False)
- ClassLogger.Add(" >> RIGHT_ADD_DOC: " & RIGHT_ADD_DOC.ToString, False)
- ClassLogger.Add(" >> RIGHT_VIEW_DOC: " & RIGHT_VIEW_DOC.ToString, False)
- ClassLogger.Add(" >> RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString, False)
- ClassLogger.Add(" >> RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString, False)
- End If
+
+ LOGGER.Debug("RIGHT_EDIT_R: " & RIGHT_EDIT_R.ToString)
+ LOGGER.Debug("RIGHT_ADD_R: " & RIGHT_ADD_R.ToString)
+ LOGGER.Debug("RIGHT_DELETE_R: " & RIGHT_DELETE_R.ToString)
+ LOGGER.Debug("RIGHT_ADD_DOC: " & RIGHT_ADD_DOC.ToString)
+ LOGGER.Debug("RIGHT_VIEW_DOC: " & RIGHT_VIEW_DOC.ToString)
+ LOGGER.Debug("RIGHT_DELETE_DOC: " & RIGHT_DELETE_DOC.ToString)
+ LOGGER.Debug("RIGHT_READ_ONLY_DOC: " & RIGHT_READ_ONLY_DOC.ToString)
+
sw.Done()
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Check_Set_Rights", ex.Message, ex.StackTrace)
diff --git a/app/DD-Record-Organizer/ClassSAP.vb b/app/DD-Record-Organizer/ClassSAP.vb
index 11621f7..8d2fe06 100644
--- a/app/DD-Record-Organizer/ClassSAP.vb
+++ b/app/DD-Record-Organizer/ClassSAP.vb
@@ -4,20 +4,20 @@ Public Class ClassSAP
Public Shared SAP_CONNECTION As New R3Connection()
Public Shared Function ConnectionInit(Host As String, SysNumber As String, Username As String, PW As String, Client As String, Lang As String)
Try
- If LogErrorsOnly = False Then ClassLogger.Add("", False)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connect started:", False)
+ LOGGER.Debug("", False)
+ LOGGER.Debug("SAP Connect started:", False)
SAPConnectionString = String.Format("USER={0} LANG={1} CLIENT={2} SYSNR={3} ASHOST={4} PASSWD={5}", Username, Lang, Client, SysNumber, Host, PW)
Dim con As New R3Connection()
ERPConnect.LIC.SetLic("W86DWC992C")
- If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connectionstring: " & SAPConnectionString, False)
+ LOGGER.Debug("SAP Connectionstring: " & SAPConnectionString, False)
con.Open(SAPConnectionString)
SAP_CONNECTION.Open(SAPConnectionString)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection created!", False)
- If LogErrorsOnly = False Then ClassLogger.Add("", False)
+ LOGGER.Debug("SAP-Connection created!", False)
+ LOGGER.Debug("", False)
Return True
Catch ex As Exception
MsgBox("Error in SAP ConnectionInit: " & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add("Error in SAP ConnectionInit: " & ex.Message, True)
+ LOGGER.Warn("Error in SAP ConnectionInit: " & ex.Message)
Return False
End Try
End Function
@@ -25,29 +25,29 @@ Public Class ClassSAP
Try
Dim RESULT_TABLE As DataTable = New DataTable
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from FuBa-Function", False)
+ LOGGER.Debug("Get data from FuBa-Function", False)
Dim func As RFCFunction
Try
func = SAP_CONNECTION.CreateFunction(FuBaName)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> func.Execute", False)
+ LOGGER.Debug("func.Execute", False)
func.Execute()
- If LogErrorsOnly = False Then ClassLogger.Add(" >> function was executed", False)
+ LOGGER.Debug("function was executed", False)
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in Create SAP Function: " & ex.Message, False)
+ LOGGER.Warn("Unexpected Error in Create SAP Function: " & ex.Message, False)
MsgBox("Error in Create SAP Function: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
Dim FUNCT_ROW_COUNT As Integer = 1
Dim RowMaskresult As String = ""
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Checking FunctionExecute", False)
+ LOGGER.Debug("Checking FunctionExecute", False)
'Den ersten Wert ausgeben lassen um die Spalten zu splitten
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
Try
If row.Item(1).ToString.Contains(SplitCharacter) Then
RowMaskresult = row.Item(1).ToString
- If LogErrorsOnly = False Then ClassLogger.Add(" >> RowMask result: " & RowMaskresult, False)
+ LOGGER.Debug("RowMask result: " & RowMaskresult, False)
FUNCT_ROW_COUNT = 2
End If
Catch ex As Exception
@@ -56,7 +56,7 @@ Public Class ClassSAP
If FUNCT_ROW_COUNT = 2 Then Exit For
Next
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
+ LOGGER.Warn("Unexpected Error in Checking FunctionExecute: " & ex.Message, False)
MsgBox("Error in Checking FunctionExecute: " & ex.Message, MsgBoxStyle.Critical)
SAP_CONNECTION.Close()
Return Nothing
@@ -65,18 +65,18 @@ Public Class ClassSAP
Dim ColCount As Integer
If SplitCharacter <> "" And RowMaskresult.Contains(SplitCharacter) Then
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Define Datatable with SplitCharacter method", False)
+ LOGGER.Debug("Define Datatable with SplitCharacter method", False)
Dim split() = RowMaskresult.Split(SplitCharacter)
If split.Length > 0 Then
ColCount = split.Length - 1
CURRENT_COL_COUNT = ColCount
- If LogErrorsOnly = False Then
- ClassLogger.Add(" >> ColCount: " & ColCount.ToString, False)
- ClassLogger.Add(" >> Split-Results: ", False)
+
+ LOGGER.Debug("ColCount: " & ColCount.ToString, False)
+ LOGGER.Debug("Split-Results: ", False)
For Each s As String In split
- ClassLogger.Add(" # " & s, False)
+ LOGGER.Debug(" # " & s, False)
Next
- End If
+
For x = 0 To ColCount
' Declare DataColumn and DataRow variables.
Dim column As DataColumn
@@ -86,14 +86,14 @@ Public Class ClassSAP
column.ColumnName = "Column " & x.ToString
RESULT_TABLE.Columns.Add(column)
Next
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Datatable Columns after Split created", False)
+ LOGGER.Debug("Datatable Columns after Split created", False)
' Create new DataRow objects and add to DataTable.
'Jetzt die Zeilen der Function durchlaufen
For Each row As RFCStructure In func.Tables("T_INDEX").Rows
Dim new_row As DataRow
If RowLimit <> 0 Then
If RowLimit = FUNCT_ROW_COUNT Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> RowCount limited to" & RowLimit.ToString & " rows. Exit SAP Function", False)
+ LOGGER.Debug("RowCount limited to" & RowLimit.ToString & " rows. Exit SAP Function", False)
Exit For
End If
End If
@@ -110,13 +110,13 @@ Public Class ClassSAP
RESULT_TABLE.Rows.Add(new_row)
End If
Next
- If LogErrorsOnly = False Then ClassLogger.Add(" >> RowCount FuBa: " & RESULT_TABLE.Rows.Count.ToString, False)
+ LOGGER.Debug("RowCount FuBa: " & RESULT_TABLE.Rows.Count.ToString, False)
Return RESULT_TABLE
Else
Return Nothing
End If
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
+ LOGGER.Warn("Unexpected Error in Create Datatable with split-method: " & ex.Message, False)
MsgBox("Unexpected Error in Create Datatable with split-method: " & ex.Message, MsgBoxStyle.Critical)
SAP_CONNECTION.Close()
Return Nothing
@@ -125,7 +125,7 @@ Public Class ClassSAP
Return Nothing
End If
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message, False)
+ LOGGER.Warn("Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message, False)
MsgBox("Unexpected Error in Function FuBa_ReturnDatatable Seperated: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
@@ -133,7 +133,7 @@ Public Class ClassSAP
Public Shared Function Return_Datatable_for_Table(tablename As String, where_clause As String, Optional RowLimit As Integer = 0)
Try
Dim RESULT_TABLE As DataTable = New DataTable
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Get data from SAP Table", False)
+ LOGGER.Debug("Get data from SAP Table", False)
Dim table As New ERPConnect.Utils.ReadTable(SAP_CONNECTION)
'Dim cWhereClause = "SAP_OBJECT EQ '' AND AR_DATE GE ''"
'Dim sSearchDate1 = "20160101"
@@ -146,21 +146,21 @@ Public Class ClassSAP
If RowLimit <> 0 Then
table.RowCount = RowLimit
End If
- If LogErrorsOnly = False Then ClassLogger.Add(" >>Table.Run executing.....", False)
+ LOGGER.Debug(" >>Table.Run executing.....", False)
table.Run()
- If LogErrorsOnly = False Then ClassLogger.Add(" >>Table.Run executed", False)
+ LOGGER.Debug(" >>Table.Run executed", False)
RESULT_TABLE = table.Result
SAP_CONNECTION.Close()
Return RESULT_TABLE
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in SAP Table Result: " & ex.Message, False)
+ LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message, False)
MsgBox("Unexpected Error in SAP Table Result: " & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Shared Function LINK_ARC_OBJECT(table As String, barcode As String, contrep As String, docid As String, ardate As String, doctype As String)
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> CREATE_ARC_OBJECT", False)
+ LOGGER.Debug("CREATE_ARC_OBJECT", False)
Dim sapfunc As RFCFunction = SAP_CONNECTION.CreateFunction("BAPI_BARCODE_SENDLIST")
'Create and fill the frist row
@@ -185,14 +185,14 @@ Public Class ClassSAP
End If
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in SAP Table Result: " & ex.Message, False)
+ LOGGER.Warn("Unexpected Error in SAP Table Result: " & ex.Message, False)
MsgBox("Unexpected Error in CREATE_ARC_OBJECT: " & ex.Message, MsgBoxStyle.Critical)
Return ex.Message
End Try
End Function
Public Shared Function INSERT_ARCHIVE_OBJECT(ARCHIV_ID As String, ARC_DOC_ID As String, AR_OBJECT As String, OBJECT_ID As String, SAP_OBJECT As String, DOC_TYPE As String, table As String)
Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> INSERT_ARCHIVE_OBJECT", False)
+ LOGGER.Debug("INSERT_ARCHIVE_OBJECT", False)
Dim sapfunc As RFCFunction = SAP_CONNECTION.CreateFunction("ARCHIV_CONNECTION_INSERT")
'Create and fill the frist row
@@ -222,7 +222,7 @@ Public Class ClassSAP
Return ""
Catch ex As Exception
- ClassLogger.Add(">> Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, False)
+ LOGGER.Warn("Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, False)
MsgBox("Unexpected Error in INSERT_ARCHIVE_OBJECT: " & ex.Message, MsgBoxStyle.Critical)
Return ex.Message
End Try
diff --git a/app/DD-Record-Organizer/ClassUpdate.vb b/app/DD-Record-Organizer/ClassUpdate.vb
index 70f897d..908939f 100644
--- a/app/DD-Record-Organizer/ClassUpdate.vb
+++ b/app/DD-Record-Organizer/ClassUpdate.vb
@@ -47,14 +47,14 @@ Public Class ClassUpdate
ALL_USERS = DT_UPDATE.Rows(0).Item("ALL_USERS")
sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} AND [INFO1] IS NOT NULL ORDER BY GUID", UPDATE_ID)
DT_UPDATE_ITEMS = clsDatabase.Return_Datatable(sql)
- ClassLogger.Add(String.Format("{0} items need to be updated!", DT_UPDATE_ITEMS.Rows.Count.ToString), False)
+ LOGGER.Info(String.Format("{0} items need to be updated!", DT_UPDATE_ITEMS.Rows.Count.ToString))
Else
- ClassLogger.Add(">> No Updates Configured!", False)
+ LOGGER.Info("No Updates Configured!")
End If
End If
Return True
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in ClassUpdate - Init: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in ClassUpdate - Init: " & ex.Message)
Return False
End Try
@@ -73,12 +73,12 @@ Public Class ClassUpdate
End If
Next
If RecExe_found = False Then
- ClassLogger.Add("Could not find the path for RecordOrganizer", True)
+ LOGGER.Warn("Could not find the path for RecordOrganizer")
Return False
End If
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in InitInstallPath: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in InitInstallPath: " & ex.Message)
Return False
End Try
End Function
@@ -101,7 +101,7 @@ Public Class ClassUpdate
End If
Next
Catch excpt As System.Exception
- ClassLogger.Add("Unexpected Error in DirSearch: " & excpt.Message, True)
+ LOGGER.Warn("Unexpected Error in DirSearch: " & excpt.Message)
MY_INSTALL_PATH = ""
End Try
End Sub
@@ -112,7 +112,7 @@ Public Class ClassUpdate
sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", USER_USERNAME)
Dim USER_DT As DataTable = clsDatabase.Return_Datatable(sql, True)
If USER_DT.Rows.Count = 0 Then
- ClassLogger.Add(" - User '" & USER_USERNAME & "' not listed in Useradministration!", False)
+ LOGGER.Warn(" - User '" & USER_USERNAME & "' not listed in Useradministration!")
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
@@ -139,7 +139,7 @@ Public Class ClassUpdate
Return True
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in InitUser_Update_Spec: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in InitUser_Update_Spec: " & ex.Message)
Return False
End Try
@@ -185,7 +185,7 @@ Public Class ClassUpdate
'If FORCE_UPDATE = False Then
' If VERSIONS_FOR_FORCE_UPDATE.Contains(VERSION_USER) Then
- ' ClassLogger.Add(String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER), False)
+ ' Logger.Warn(String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER), False)
' ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: ForceUpdate for User as Version '{0}' is used!", VERSION_USER))
' FORCE_UPDATE = True
' End If
@@ -195,7 +195,7 @@ Public Class ClassUpdate
' If ALL_USERS = False Then
' sql = String.Format("SELECT COUNT(GUID) FROM TBDD_VERSION_USER_UPDATE WHERE USER_ID = {0} AND UPDATE_ID = {1}", USER_GUID, UPDATE_ID)
' If clsDatabase.Execute_Scalar(sql) = 0 Then
- ' ClassLogger.Add(String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID), False)
+ ' Logger.Warn(String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID), False)
' ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID))
' Exit Sub
' End If
@@ -220,7 +220,7 @@ Public Class ClassUpdate
Dim error_while_copying = False
For Each Upd_item As DataRow In DT_UPDATE_ITEMS.Rows
- ClassLogger.Add(String.Format("...working on item {0}: ", Upd_item.Item("ITEM_INFO")), False)
+ LOGGER.Info(String.Format("...working on item {0}: ", Upd_item.Item("ITEM_INFO")))
If Upd_item.Item("ITEM_INFO") = "VERSION_CHECKER.exe" Then
KEEP_TEMPPATH = Upd_item.Item("BIT3")
@@ -249,8 +249,8 @@ Public Class ClassUpdate
End If
End If
targetfile = targetfile.ToString.Replace("//", "/")
- ClassLogger.Add(String.Format("...replacing targetfile '{0}': ", targetfile), False)
- Try
+ LOGGER.Info(String.Format("...replacing targetfile '{0}': ", targetfile))
+ Try
' Replace the file.
If File.Exists(targetfile) Then
If File_Rename(targetfile, BackUpOfFileToReplace) = True Then
@@ -258,7 +258,7 @@ Public Class ClassUpdate
If KEEP_TEMPPATH Then
If CopyFile(sourcefile, targetfile) = True Then
File_Delete(BackUpOfFileToReplace)
- ClassLogger.Add(String.Format("...targetfile '{0}' was copied! ", targetfile), False)
+ LOGGER.Warn(String.Format("...targetfile '{0}' was copied! ", targetfile), False)
Dim updinfo
If USER_INFO1 <> "" Then
updinfo = USER_INFO1 & ";" & Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
@@ -271,7 +271,7 @@ Public Class ClassUpdate
Else
If MoveFile(sourcefile, targetfile) = True Then
File_Delete(BackUpOfFileToReplace)
- ClassLogger.Add(String.Format("...targetfile '{0}' was replaced! ", targetfile), False)
+ LOGGER.Info(String.Format("...targetfile '{0}' was replaced! ", targetfile))
Dim updinfo
If USER_INFO1 <> "" Then
updinfo = USER_INFO1 & ";" & Upd_item.Item("INFO1") & "V" & Upd_item.Item("INFO2")
@@ -281,7 +281,7 @@ Public Class ClassUpdate
Dim _Sql = String.Format("Update TBDD_VERSION_USER_UPDATE_PATH SET INFO1 = '{2}' WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer", updinfo)
clsDatabase.Execute_non_Query(_Sql)
Else
- ClassLogger.Add(String.Format("MoveFile was not successfull! BackupFile will be activated!"))
+ LOGGER.Warn(String.Format("MoveFile was not successfull! BackupFile will be activated!"))
'Verschieben hat nicht geklappt also die Backupdatei wieder umbenennen!
File_Rename(BackUpOfFileToReplace, targetfile)
End If
@@ -296,15 +296,15 @@ Public Class ClassUpdate
Catch ex As Exception
- ClassLogger.Add(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
- error_while_replacing = True
+ LOGGER.Warn(String.Format("Error while copying file {0} to {1}: " & ex.Message, sourcefile, targetfile))
+ error_while_replacing = True
UPDATE_ERROR = True
End Try
Catch ex As Exception
- ClassLogger.Add(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
+ LOGGER.Warn(String.Format("Unexpected Error in Replace_Files: {0}", ex.Message))
UPDATE_ERROR = True
End Try
End If
@@ -318,20 +318,20 @@ Public Class ClassUpdate
'Delete the tempfolder and all data
System.IO.Directory.Delete(FOLDER_TEMP, True)
Else
- ClassLogger.Add(String.Format("TEMP FOLDER SHALL BE KEPT..."), False)
+ LOGGER.Info(String.Format("TEMP FOLDER SHALL BE KEPT..."), False)
End If
Catch ex As Exception
End Try
'Else
- ' ClassLogger.Add(String.Format("The temporaryFolder could not be created!"))
+ ' Logger.Warn(String.Format("The temporaryFolder could not be created!"))
'End If
Else
- ClassLogger.Add(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath))
+ LOGGER.Warn(String.Format("The Updatepath '{0}'is not accessible or does not exist", MyServer_UpdatePath))
End If
Else
- ClassLogger.Add(String.Format("NO ACTION: the Updatepath is empty"))
+ LOGGER.Warn(String.Format("NO ACTION: the Updatepath is empty"))
End If
End Sub
@@ -343,7 +343,7 @@ Public Class ClassUpdate
End If
FOLDER_TEMP = folder
Catch ex As Exception
- ClassLogger.Add(String.Format("Error while Creating tempfolder: " & ex.Message))
+ LOGGER.Warn(String.Format("Error while Creating tempfolder: " & ex.Message))
End Try
End Function
@@ -359,7 +359,7 @@ Public Class ClassUpdate
Rename(targetfile, Renamefilestring)
Return True
Catch ex As Exception
- ClassLogger.Add(String.Format("ClassUpdate - Unexpected Error in File_Rename: " & "OldPath '{0}'" & "NewPath '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
+ LOGGER.Warn(String.Format("ClassUpdate - Unexpected Error in File_Rename: " & "OldPath '{0}'" & "NewPath '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
UPDATE_ERROR = True
Return False
End Try
@@ -369,7 +369,7 @@ Public Class ClassUpdate
File.Delete(deletefile)
Return True
Catch ex As Exception
- ClassLogger.Add(String.Format("Unexpected Error in File_Delete: " & vbNewLine & "deletefile '{0}'" & vbNewLine & "ERROR: {2}", deletefile, ex.Message))
+ LOGGER.Warn(String.Format("Unexpected Error in File_Delete: " & vbNewLine & "deletefile '{0}'" & vbNewLine & "ERROR: {2}", deletefile, ex.Message))
UPDATE_ERROR = True
Return False
End Try
@@ -379,7 +379,7 @@ Public Class ClassUpdate
File.Move(sourcefile, targetfile)
Return True
Catch ex As Exception
- ClassLogger.Add(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
+ LOGGER.Warn(String.Format("Unexpected Error in MoveFile: sourcefile '{0}', targetfile '{1}' - ERROR: {2}", sourcefile, targetfile, ex.Message))
UPDATE_ERROR = True
Return False
End Try
@@ -389,7 +389,7 @@ Public Class ClassUpdate
File.Copy(sourcefile, destfile, True)
Return True
Catch ex As Exception
- ClassLogger.Add(String.Format("Unexpected Error in CopyFile: sourcefile '{0}', destfile '{1}' - ERROR: {2}", sourcefile, destfile, ex.Message))
+ LOGGER.Warn(String.Format("Unexpected Error in CopyFile: sourcefile '{0}', destfile '{1}' - ERROR: {2}", sourcefile, destfile, ex.Message))
UPDATE_ERROR = True
Return False
End Try
diff --git a/app/DD-Record-Organizer/ClassUser.vb b/app/DD-Record-Organizer/ClassUser.vb
index 0130deb..d5cc5c8 100644
--- a/app/DD-Record-Organizer/ClassUser.vb
+++ b/app/DD-Record-Organizer/ClassUser.vb
@@ -6,7 +6,7 @@
SQL = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_GUID} AND MODULE = 'Record-Organizer'"
ClassDatabase.Execute_non_Query(sql)
Catch ex As Exception
- ClassLogger.Add("Error while logging out user: " & ex.Message)
+ LOGGER.Warn("Error while logging out user: " & ex.Message)
End Try
End Sub
diff --git a/app/DD-Record-Organizer/ClassWDRights.vb b/app/DD-Record-Organizer/ClassWDRights.vb
index 49e4a08..6acdde8 100644
--- a/app/DD-Record-Organizer/ClassWDRights.vb
+++ b/app/DD-Record-Organizer/ClassWDRights.vb
@@ -37,13 +37,13 @@ Public Class ClassWDRights
Public Shared Function Init()
Try
MSG_RESULT = ""
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Init ClassWDRights started - " & Now & " ..."), False)
+ LOGGER.Debug(String.Format("Init ClassWDRights started - " & Now & " ..."))
Dim DT_KONFIG As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1")
AD_DOMAIN = DT_KONFIG.Rows(0).Item("AD_DOMAIN")
AD_USER = DT_KONFIG.Rows(0).Item("AD_USER")
WD_RIGHT_ADMIN = DT_KONFIG.Rows(0).Item("WD_RIGHT")
If clsDatabase.DB_PROXY_INITIALIZED = True And ClassProxy.MyLinkedServer <> String.Empty Then
- ClassLogger.Add("User configured a proxy: " & ClassProxy.MyLinkedServer, False)
+ LOGGER.Info("User configured a proxy: " & ClassProxy.MyLinkedServer)
AD_SERVER = ClassProxy.MyLinkedServer
Else
AD_SERVER = DT_KONFIG.Rows(0).Item("AD_SERVER")
@@ -55,25 +55,21 @@ Public Class ClassWDRights
Try
PWplainText = wrapper.DecryptData(DT_KONFIG.Rows(0).Item("AD_USER_PW"))
Catch ex As Exception
- ClassLogger.Add("The Userpassword could not be decrypted", False)
+ LOGGER.Warn("The Userpassword could not be decrypted")
PWplainText = ""
End Try
AD_USER_PW = PWplainText
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> ClassWDRights Init'ed - AD_DOMAIN: '{0}', AD_USER: '{1}', AD_SERVER: '{2}'", AD_DOMAIN, AD_USER, AD_SERVER), False)
+ LOGGER.Debug(String.Format("ClassWDRights Init'ed - AD_DOMAIN: '{0}', AD_USER: '{1}', AD_SERVER: '{2}'", AD_DOMAIN, AD_USER, AD_SERVER))
Return True
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in ClassRights Init: " & vbNewLine & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in ClassRights Init: " & vbNewLine & ex.Message)
Return False
End Try
End Function
- '''Renews all rights of the passed doc-file
- '''
- ''' Returns Boolean True when successfull
- '''
Public Shared Function Doc_Renew_Rights(doc_id As Integer, docpath As String, deleterights As Boolean) As Boolean
Try
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Working on rights for file: {0}", docpath), False)
+ LOGGER.Debug(String.Format("Working on rights for file: {0}", docpath))
Dim DT_USER_RIGHT As DataTable
Dim DT_GROUP_RIGHT As DataTable
Dim oSession
@@ -86,31 +82,31 @@ Public Class ClassWDRights
oSession = GetWMSessionAsUser(AD_DOMAIN, AD_SERVER, AD_USER, AD_USER_PW)
Catch ex As Exception
Dim msg = "Error in Doc_Renew_Rights-GetWMSessionAsUser : " & ex.Message
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End Try
If Not IsNothing(oSession) Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Session created.", False)
+ LOGGER.Debug("Session created.")
Dim sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'USER'", doc_id)
DT_USER_RIGHT = clsDatabase.Return_Datatable(sql)
sql = String.Format("SELECT * FROM [dbo].[FNPMO_GET_RIGHTS_FOR_DOC] ({0}) where USER_OR_GROUP = 'GROUP'", doc_id)
DT_GROUP_RIGHT = clsDatabase.Return_Datatable(sql)
If IsNothing(DT_USER_RIGHT) Then
Dim msg = "Error while receiving rights for DocID"
- clsLogger.Add(msg, True)
+ clsLogger.Add(msg)
Return False
Else
- If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Amount of Userrights: {0}", DT_USER_RIGHT.Rows.Count), False)
+ LOGGER.Debug(String.Format("Amount of Userrights: {0}", DT_USER_RIGHT.Rows.Count))
End If
- If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Amount of Grouprights: {0}", DT_GROUP_RIGHT.Rows.Count), False)
+ LOGGER.Debug(String.Format("Amount of Grouprights: {0}", DT_GROUP_RIGHT.Rows.Count))
Try
'Object definieren
oWMObject = oSession.GetWMObjectByPath(0, docpath.Substring(2))
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Object created.", False)
+ LOGGER.Debug("Object created.")
Catch ex As Exception
Dim msg = "Error GetWMObjectByPath: (FDSR) " & docpath.Substring(2) & vbNewLine & Err.Description
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End Try
Dim lret
@@ -119,31 +115,31 @@ Public Class ClassWDRights
lret = oWMObject.LockRights()
Catch ex As Exception
Dim msg = "Error while locking file" & ex.Message
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Object locked.", False)
+ LOGGER.Debug("Object locked.")
If CBool(lret) = False Then
Dim msg = "Error in setting lock .LockRights - Err.Number: " & Err.Number & vbCrLf & Err.Description
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End If
' Rechteträger-Liste holen
Dim AccessRights
AccessRights = oWMObject.GetWMObjectRelationByName(REL_Document_AccessRight)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> AccessRights created.", False)
+ LOGGER.Debug("AccessRights created.")
'Bei Fehler in Rechteauswertung
If Err.Number <> 0 Then
Dim msg = "Error in setting REL_Document_AccessRight - Err.Number: " & Err.Number & vbCrLf & Err.Description
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End If
'############################# Rechte löschen ################################################################################
'#############################################################################################################################
If deleterights = True Then
- If LogErrorsOnly = False Then ClassLogger.Add(" >> rights for document will now be deleted.", False)
+ LOGGER.Debug("rights for document will now be deleted.")
'Erst einmal alle anderen Rechte löschen
Dim i As Integer = 1
' und nun jeden Rechteträger verarbeiten
@@ -153,7 +149,7 @@ Public Class ClassWDRights
UserGroupRelation = aRightRelation.GetWMObjectRelationByName(REL_AccessRight_UserOrGroup)
If Err.Number <> 0 Then
Dim msg = "Error in setting REL_AccessRight_UserOrGroup - Err.Number: " & Err.Number & vbCrLf & Err.Description
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End If
@@ -166,10 +162,10 @@ Public Class ClassWDRights
Else
_msg = "Right for User: '" & UserOrGroup.aName & "'"""
End If
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> [{0}] will now be deleted.", _msg), False)
+ LOGGER.Debug(String.Format("[{0}] will now be deleted.", _msg))
If Err.Number <> 0 Then
Dim msg = "Error in setting UserGroupRelation - Err.Number: " & Err.Number & vbCrLf & Err.Description
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End If
@@ -179,14 +175,14 @@ Public Class ClassWDRights
AccessRights.Delete2(UserOrGroup, WMAccessRightAllRights)
Catch ex As Exception
Dim msg = "Error in AccessRights.Delete2 (Doc_RenewRights) Doc-ID: " & doc_id & " - UserGroup: " & UserOrGroup.aName & " - ErrorMsg: " & ex.Message
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Continue For
End Try
i += 1
_msg = _msg.Replace(" '", "")
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> {0} was deleted.", _msg), False)
+ LOGGER.Debug(String.Format("{0} was deleted.", _msg))
Next
- If LogErrorsOnly = False Then ClassLogger.Add(" >> All rights for doc were deleted....", False)
+ LOGGER.Debug("All rights for doc were deleted....")
End If
Err.Clear()
@@ -200,24 +196,24 @@ Public Class ClassWDRights
Try
StringUserRight = AD_DOMAIN & "\" & User_Row.Item("USR_NAME")
fileright = User_Row.Item("USR_RIGHT")
- If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Working on right for user-right: {0}-{1}", StringUserRight, fileright), False)
+ LOGGER.Debug(String.Format("Working on right for user-right: {0}-{1}", StringUserRight, fileright))
Try
' User holen
oUSer = oSession.GetWMObjectByName(WMEntityUser, StringUserRight)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> got oUSer...", False)
+ LOGGER.Debug("got oUSer...")
Catch ex As Exception
- Dim msg = String.Format(">> Could not create windream-Usersession for user '{0}' - check whether user is part of windream-group!", StringUserRight)
- ClassLogger.Add(msg, False)
+ Dim msg = String.Format("Could not create windream-Usersession for user '{0}' - check whether user is part of windream-group!", StringUserRight)
+ LOGGER.Warn(msg)
MSG_RESULT &= msg & vbNewLine
Continue For
End Try
If Not IsNothing(oUSer) Then
Try
AccessRights.Insert2(oUSer, fileright) 'WMAccessRightAllRights)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Right was set...", False)
+ LOGGER.Debug("Right was set...")
Catch ex As Exception
- Dim msg = String.Format(">> Could not set right for user {0} - AccessRights.Insert2: {1}", StringUserRight, ex.Message)
- ClassLogger.Add(msg, True)
+ Dim msg = String.Format("Could not set right for user {0} - AccessRights.Insert2: {1}", StringUserRight, ex.Message)
+ LOGGER.Warn(msg)
Continue For
End Try
End If
@@ -237,7 +233,7 @@ Public Class ClassWDRights
_right = "READ WRITE"
End Select
MSG_RESULT &= String.Format("Error while working on RightChange:" & vbNewLine & "Fileright: {0}" & vbNewLine & "User: {1} " & vbNewLine & "File: {2}", _right, StringUserRight, docpath) & vbNewLine
- ClassLogger.Add(ex.Message)
+ LOGGER.Warn(ex.Message)
End Try
Next
@@ -250,25 +246,25 @@ Public Class ClassWDRights
Try
StringGroupRight = AD_DOMAIN & "\" & Group_Row.Item("USR_NAME")
fileright = Group_Row.Item("USR_RIGHT")
- If LogErrorsOnly = False Then clsLogger.Add(String.Format(" >> Working on right for group-right: {0}-{1}", StringGroupRight, fileright), False)
+ LOGGER.Debug(String.Format("Working on right for group-right: {0}-{1}", StringGroupRight, fileright))
Try
' User holen
_oGroup = oSession.GetWMObjectByName(WMEntityGroups, StringGroupRight)
- If LogErrorsOnly = False Then clsLogger.Add(" >> got Group...", False)
+ LOGGER.Debug("got Group...")
Catch ex As Exception
- Dim msg = String.Format(">> Could not create windream-Usersession for group '{0}' - check whether group exists in windream!", StringGroupRight)
- clsLogger.Add(msg, False)
+ Dim msg = String.Format("Could not create windream-Usersession for group '{0}' - check whether group exists in windream!", StringGroupRight)
+ clsLogger.Add(msg)
MSG_RESULT &= msg & vbNewLine
Continue For
End Try
If Not IsNothing(_oGroup) Then
Try
AccessRights.Insert2(_oGroup, fileright) 'WMAccessRightAllRights)
- If LogErrorsOnly = False Then clsLogger.Add(" >> Right was set...", False)
+ LOGGER.Debug("Right was set...")
Catch ex As Exception
- Dim msg = String.Format(">> Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message)
- clsLogger.Add(msg, True)
+ Dim msg = String.Format("Could not set right for docID: {0} group {1} - AccessRights.Insert2: {2}", doc_id, StringGroupRight, ex.Message)
+ clsLogger.Add(msg)
Continue For
End Try
End If
@@ -295,13 +291,13 @@ Public Class ClassWDRights
Try
'Speichern nicht vergessen
oWMObject.Save()
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc was saved...", False)
+ LOGGER.Debug("Doc was saved...")
Catch ex As Exception
Dim msg = String.Format("Error at Object2Change.Save - DocID ({0}): {1}", doc_id, ex.Message)
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
If oWMObject.aLocked = True Then
oWMObject.unlock()
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc unlocked after error!", False)
+ LOGGER.Debug("Doc unlocked after error!")
End If
Return False
End Try
@@ -310,10 +306,10 @@ Public Class ClassWDRights
If oWMObject.aLocked = True Then
Try
oWMObject.unlock()
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc was unlocked...", False)
+ LOGGER.Debug("Doc was unlocked...")
Catch ex As Exception
Dim msg = "Fehler bei Unlock - Error: " & ex.Message
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End Try
End If
@@ -322,13 +318,13 @@ Public Class ClassWDRights
Return True
Else
Dim msg = "ERROR : no session could be created (3)!"
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return False
End If
Catch ex As Exception
- ClassLogger.Add(String.Format("Unexpected Error while Doc_Renew_Rightss DocID: {0}", doc_id), True)
+ LOGGER.Warn(String.Format("Unexpected Error while Doc_Renew_Rightss DocID: {0}", doc_id))
Dim msg = "ErrorMessage: " & vbNewLine & ex.Message
- ClassLogger.Add(msg, False)
+ LOGGER.Warn(msg)
Return False
End Try
End Function
@@ -346,7 +342,7 @@ Public Class ClassWDRights
aConnect.ModuleId = 9
If Err.Number <> 0 Then
Dim msg = "Error in CreateObject (aConnect) - Err.Number: " & Err.Number & vbNewLine & Err.Description
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
SessionAsUser = Nothing
Return SessionAsUser
@@ -355,7 +351,7 @@ Public Class ClassWDRights
aUserId = CreateObject("WMOTool.WMUserIdentity")
If Err.Number <> 0 Then
Dim msg = "Error in CreateObject('WMOTool.WMUserIdentity') - Err.Number: " & Err.Number & vbNewLine & Err.Description
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
SessionAsUser = Nothing
Return SessionAsUser
End If
@@ -370,7 +366,7 @@ Public Class ClassWDRights
If Err.Number <> 0 Then
Dim msg = "Error in Connect.Login(aUserId) - Err.Number: " & Err.Number & vbNewLine & Err.Description
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
SessionAsUser = Nothing
Return SessionAsUser
Else
@@ -383,7 +379,7 @@ Public Class ClassWDRights
Catch ex As Exception
Dim msg = "Unexpected Error in DDLibraries-GetWMSessionAsUser: " & ex.Message & vbNewLine & _
String.Format("Domain: {0}, ServerName: {1}, UserName: {2}, Password: {3},", Domain, ServerName, UserName, Password)
- ClassLogger.Add(msg, True)
+ LOGGER.Warn(msg)
Return Nothing
End Try
diff --git a/app/DD-Record-Organizer/ClassWindreamDocGrid.vb b/app/DD-Record-Organizer/ClassWindreamDocGrid.vb
index 75105e0..7b669af 100644
--- a/app/DD-Record-Organizer/ClassWindreamDocGrid.vb
+++ b/app/DD-Record-Organizer/ClassWindreamDocGrid.vb
@@ -41,7 +41,7 @@ Public Class ClassWindreamDocGrid
DT_RESULTFILES = table
Return True
Catch ex As Exception
- ClassLogger.Add("Unexpected Error in Initting TableResult Docs: " & ex.Message, True)
+ LOGGER.Warn("Unexpected Error in Initting TableResult Docs: " & ex.Message)
DT_RESULTFILES = Nothing
Return False
End Try
@@ -66,6 +66,23 @@ Public Class ClassWindreamDocGrid
newRow("DOC_ID") = 0
SELECTED_DOC_ID = 0
End Try
+
+ Try
+ newRow("INWORK") = False
+ SELECTED_INWORK = False
+ Dim oSQL = "Select IN_WORK,IN_WORK_USER FROM TBPMO_DOCRESULT_LIST where DocID = " + SELECTED_DOC_ID
+ Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL)
+ If Not IsNothing(oDT) Then
+ If oDT.Rows.Count = 1 Then
+ newRow("INWORK") = CBool(oDT.Rows(0).Item("IN_WORK"))
+ SELECTED_INWORK = CBool(oDT.Rows(0).Item("IN_WORK"))
+ End If
+ End If
+ Catch ex As Exception
+ newRow("INWORK") = False
+ SELECTED_INWORK = False
+ End Try
+
Try
SELECTED_DOC_RIGHT = gridView.GetRowCellValue(row, "ACCESS_RIGHT")
newRow("ACCESS_RIGHT") = gridView.GetRowCellValue(row, SELECTED_DOC_RIGHT)
@@ -83,13 +100,7 @@ Public Class ClassWindreamDocGrid
Catch ex As Exception
newRow("OBJECTTYPE") = ""
End Try
- Try
- newRow("INWORK") = gridView.GetRowCellValue(row, "in work?")
- SELECTED_INWORK = gridView.GetRowCellValue(row, "in work?")
- Catch ex As Exception
- newRow("INWORK") = False
- SELECTED_INWORK = False
- End Try
+
Try
Dim dpn = gridView.GetRowCellValue(row, "Displayname")
If IsDBNull(dpn) Or IsNothing(dpn) Then
@@ -134,13 +145,7 @@ Public Class ClassWindreamDocGrid
Catch ex As Exception
newRow("OBJECTTYPE") = ""
End Try
- Try
- newRow("INWORK") = gridView.GetFocusedRowCellValue(gridView.Columns("in work?"))
- SELECTED_INWORK = gridView.GetFocusedRowCellValue(gridView.Columns("in work?"))
- Catch ex As Exception
- newRow("INWORK") = False
- SELECTED_INWORK = False
- End Try
+
Try
Dim dpn = gridView.GetFocusedRowCellValue(gridView.Columns("Displayname"))
If IsDBNull(dpn) Or IsNothing(dpn) Then
@@ -229,7 +234,7 @@ Public Class ClassWindreamDocGrid
Try
value = ClassDatabase.Execute_Scalar(String.Format("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = {0} AND DocID = {1} AND RECORD_ID = {2}", configId, docId, RECORD_ID))
Catch ex As Exception
- ClassLogger.Add(String.Format(">> Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message, False)
+ LOGGER.Warn(String.Format("Attention: Could not get Value from TBPMO_DOC_VALUES for ConfigId[{0}], DocId[{1}]: ", configId, docId) & ex.Message)
End Try
row.Item(colName) = value
@@ -237,16 +242,16 @@ Public Class ClassWindreamDocGrid
Next
Next
Catch ex As Exception
- ClassLogger.Add(">> Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message, False)
+ LOGGER.Warn("Attention: Could not load values from TBPMO_DOC_VALUES: " & ex.Message)
End Try
- If LogErrorsOnly = False Then ClassLogger.Add(" >> Values loaded...", False)
+ LOGGER.Debug("Values loaded...")
Try
' Tabellen zum DataSet hinzufügen
ds.Tables.Add(DT_RESULT)
ds.Tables.Add(DT_DETAILS)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> tables added to ds.Tables...", False)
+ LOGGER.Debug("tables added to ds.Tables...")
Catch ex As Exception
- ClassLogger.Add(">> Attention: Could not Add tables to ds.Tables: " & ex.Message, False)
+ LOGGER.Warn("Attention: Could not Add tables to ds.Tables: " & ex.Message)
End Try
Try
@@ -264,9 +269,9 @@ Public Class ClassWindreamDocGrid
' Parameter `createConstraints` auf false setzen, um erstellung eines unsinnigen
' `foreignKeyConstraints` zu verhindern
ds.Relations.Add("docIdDetails", parentColumn, childColumn, False)
- If LogErrorsOnly = False Then ClassLogger.Add(" >> relationdocIdDetails created...", False)
+ LOGGER.Debug("relationdocIdDetails created...")
Catch ex As Exception
- ClassLogger.Add(">> Could not set master-detail Relation DocSearch: " & ex.Message, False)
+ LOGGER.Warn("Could not set master-detail Relation DocSearch: " & ex.Message)
End Try
Dim gridControl As GridControl = gridView.GridControl
@@ -291,7 +296,7 @@ Public Class ClassWindreamDocGrid
gridControl.LevelTree.Nodes.Add("docIdDetails", grvwDetail)
Catch ex As Exception
MsgBox("Error in FillColumns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
- ClassLogger.Add(">> Attention: Could not load converted datatable DocSearch: " & ex.Message, False)
+ LOGGER.Warn("Attention: Could not load converted datatable DocSearch: " & ex.Message)
End Try
AddHandler gridView.MasterRowExpanded, AddressOf gridView_MasterRowExpanded
@@ -429,7 +434,7 @@ Public Class ClassWindreamDocGrid
e.Column.OptionsColumn.AllowEdit = False
End If
Catch ex As Exception
- ClassLogger.Add("Error in detailView_CustomRowCellEdit: " & ex.Message, False)
+ LOGGER.Warn("Error in detailView_CustomRowCellEdit: " & ex.Message)
End Try
End Sub
@@ -469,7 +474,7 @@ Public Class ClassWindreamDocGrid
End If
End If
Catch ex As Exception
- ClassLogger.Add("Unexpected error in gridView_CustomColumnDisplayText: " & ex.Message, False, False)
+ LOGGER.Warn("Unexpected error in gridView_CustomColumnDisplayText: " & ex.Message)
End Try
End Sub
@@ -521,7 +526,7 @@ Public Class ClassWindreamDocGrid
End If
AddHandler detailView.CustomRowCellEdit, AddressOf detailView_CustomRowCellEdit
Catch ex As Exception
- ClassLogger.Add("Unexpected error in gridView_MasterRowExpanded: " & ex.Message, False, False)
+ LOGGER.Warn("Unexpected error in gridView_MasterRowExpanded: " & ex.Message)
MsgBox("Unexpected error in gridView_MasterRowExpanded: " & ex.Message, MsgBoxStyle.Critical)
End Try
diff --git a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
index 20e0937..fb13e82 100644
--- a/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
+++ b/app/DD-Record-Organizer/DD-Record-Organizer.vbproj
@@ -11,7 +11,7 @@
DD-Record-Organizer
512
WindowsForms
- v4.5.2
+ v4.6.2
true
false
publish\
@@ -81,21 +81,18 @@
False
-
False
False
-
False
False
-
False
@@ -111,26 +108,21 @@
False
-
False
-
False
False
-
False
-
False
-
False
@@ -143,7 +135,6 @@
False
-
False
@@ -172,6 +163,9 @@
False
+
+ ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll
+
..\..\lib\DLLLicenseManager.dll
@@ -197,6 +191,7 @@
P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll
True
+
False
True
@@ -205,6 +200,9 @@
True
+
+ ..\packages\NLog.4.7.10\lib\net45\NLog.dll
+
False
..\..\3rdparty\lib\Oracle Managed Data Access\Oracle.ManagedDataAccess.dll
@@ -212,14 +210,18 @@
+
+
+
+
@@ -503,7 +505,6 @@
-
@@ -757,6 +758,7 @@
True
Application.myapp
+ True
True
@@ -1241,6 +1243,7 @@
+
diff --git a/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb
index 343a952..8a6e303 100644
--- a/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb
+++ b/app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb
@@ -172,7 +172,7 @@ Partial Public Class DD_DMSDataSet
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.BeginInit
@@ -184,7 +184,7 @@ Partial Public Class DD_DMSDataSet
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
@@ -369,7 +369,7 @@ Partial Public Class DD_DMSDataSet
End Sub
_
Public ReadOnly Property TBPMO_FORM() As TBPMO_FORMDataTable
@@ -379,7 +379,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWPMO_CONTROL_SCREEN() As VWPMO_CONTROL_SCREENDataTable
@@ -389,7 +389,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_FORM_VIEW() As TBPMO_FORM_VIEWDataTable
@@ -399,7 +399,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_RECORD() As TBPMO_RECORDDataTable
@@ -409,7 +409,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWPMO_DOKUMENTTYPES() As VWPMO_DOKUMENTTYPESDataTable
@@ -419,7 +419,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WD_FVIEW_DT_INDEX() As TBPMO_WD_FVIEW_DT_INDEXDataTable
@@ -429,7 +429,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WORKFLOW_TASK() As TBPMO_WORKFLOW_TASKDataTable
@@ -439,7 +439,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WORKFLOW_TASK_STATE() As TBPMO_WORKFLOW_TASK_STATEDataTable
@@ -449,7 +449,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWPMO_GUI_ENTITY() As VWPMO_GUI_ENTITYDataTable
@@ -459,7 +459,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WORKFLOW() As TBPMO_WORKFLOWDataTable
@@ -469,7 +469,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWPMO_WF_OVERVIEW_AUTHORITY() As VWPMO_WF_OVERVIEW_AUTHORITYDataTable
@@ -479,7 +479,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable
@@ -489,7 +489,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_EINGANGSARTEN() As TBDD_EINGANGSARTENDataTable
@@ -499,7 +499,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable
@@ -509,7 +509,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WD_FORMVIEW_DOKTYPES() As TBPMO_WD_FORMVIEW_DOKTYPESDataTable
@@ -519,7 +519,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_KONFIGURATION() As TBPMO_KONFIGURATIONDataTable
@@ -529,7 +529,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable
@@ -539,7 +539,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_FORM_TYPE() As TBPMO_FORM_TYPEDataTable
@@ -549,7 +549,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable
@@ -559,7 +559,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWPMO_USERS_GROUPS() As VWPMO_USERS_GROUPSDataTable
@@ -569,7 +569,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable
@@ -579,7 +579,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBWH_DOKART_MODULE() As TBWH_DOKART_MODULEDataTable
@@ -589,7 +589,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable
@@ -599,7 +599,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WD_OBJECTTYPE() As TBPMO_WD_OBJECTTYPEDataTable
@@ -609,7 +609,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_FOLLOW_UP_EMAIL() As TBPMO_FOLLOW_UP_EMAILDataTable
@@ -619,7 +619,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_FOLLUPEMAIL_USER() As TBPMO_FOLLUPEMAIL_USERDataTable
@@ -629,7 +629,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_RECORD_LOG_CONFIG() As TBPMO_RECORD_LOG_CONFIGDataTable
@@ -639,7 +639,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWPMO_RECORD_CHANGES() As VWPMO_RECORD_CHANGESDataTable
@@ -649,7 +649,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable
@@ -659,7 +659,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
@@ -669,7 +669,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
@@ -679,7 +679,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWDDINDEX_AUTOM() As VWDDINDEX_AUTOMDataTable
@@ -689,7 +689,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_TEMPLATE() As TBPMO_TEMPLATEDataTable
@@ -699,7 +699,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_TEMPLATE_ENTITY() As TBPMO_TEMPLATE_ENTITYDataTable
@@ -709,7 +709,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_TEMPLATE_PATTERN() As TBPMO_TEMPLATE_PATTERNDataTable
@@ -719,7 +719,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBTEMP_QUICKDISPLAY() As TBTEMP_QUICKDISPLAYDataTable
@@ -729,7 +729,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_LANGUAGE_OBJECT() As TBPMO_LANGUAGE_OBJECTDataTable
@@ -739,7 +739,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBDD_CLIENT() As TBDD_CLIENTDataTable
@@ -749,7 +749,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_CONSTRUCTOR_USER_SQL() As TBPMO_CONSTRUCTOR_USER_SQLDataTable
@@ -759,7 +759,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WD_IMPORT_PROFILE() As TBPMO_WD_IMPORT_PROFILEDataTable
@@ -769,7 +769,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WD_IMPORT_PROFILE_IDX() As TBPMO_WD_IMPORT_PROFILE_IDXDataTable
@@ -779,7 +779,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWPMO_WF_ACTIVE() As VWPMO_WF_ACTIVEDataTable
@@ -789,7 +789,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_RIGHT_GROUP() As TBPMO_RIGHT_GROUPDataTable
@@ -799,7 +799,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WD_NAMECONVENTION_FORMAT() As TBPMO_WD_NAMECONVENTION_FORMATDataTable
@@ -809,7 +809,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_STRUCTURE_NODES_CONFIGURATION() As TBPMO_STRUCTURE_NODES_CONFIGURATIONDataTable
@@ -819,7 +819,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBWH_ENTITY() As TBWH_ENTITYDataTable
@@ -829,7 +829,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_WORKFLOW_TASK_HISTORY() As TBPMO_WORKFLOW_TASK_HISTORYDataTable
@@ -839,7 +839,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property VWPMO_RIGHTS_2B_WORKED() As VWPMO_RIGHTS_2B_WORKEDDataTable
@@ -849,7 +849,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_RIGHT_USER() As TBPMO_RIGHT_USERDataTable
@@ -859,7 +859,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_RECORD_VARIANT() As TBPMO_RECORD_VARIANTDataTable
@@ -869,7 +869,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property TBPMO_APPOINTMENTS() As TBPMO_APPOINTMENTSDataTable
@@ -879,7 +879,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -892,7 +892,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
@@ -901,7 +901,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
@@ -910,7 +910,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
@@ -918,7 +918,7 @@ Partial Public Class DD_DMSDataSet
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As DD_DMSDataSet = CType(MyBase.Clone,DD_DMSDataSet)
cln.InitVars
@@ -927,19 +927,19 @@ Partial Public Class DD_DMSDataSet
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
@@ -1113,7 +1113,7 @@ Partial Public Class DD_DMSDataSet
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@@ -1122,13 +1122,13 @@ Partial Public Class DD_DMSDataSet
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableTBPMO_FORM = CType(MyBase.Tables("TBPMO_FORM"),TBPMO_FORMDataTable)
If (initTable = true) Then
@@ -1460,7 +1460,7 @@ Partial Public Class DD_DMSDataSet
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub InitClass()
Me.DataSetName = "DD_DMSDataSet"
Me.Prefix = ""
@@ -1614,313 +1614,313 @@ Partial Public Class DD_DMSDataSet
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_FORM() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWPMO_CONTROL_SCREEN() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_FORM_VIEW() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_RECORD() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWPMO_DOKUMENTTYPES() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WD_FVIEW_DT_INDEX() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WORKFLOW_TASK() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WORKFLOW_TASK_STATE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWPMO_GUI_ENTITY() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WORKFLOW() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWPMO_WF_OVERVIEW_AUTHORITY() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WD_FORMVIEW_DOKTYPES() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_KONFIGURATION() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_USER() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_FORM_TYPE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWPMO_USERS_GROUPS() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBWH_DOKART_MODULE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WD_OBJECTTYPE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_FOLLOW_UP_EMAIL() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_FOLLUPEMAIL_USER() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_RECORD_LOG_CONFIG() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWPMO_RECORD_CHANGES() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWDDINDEX_AUTOM() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_TEMPLATE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_TEMPLATE_ENTITY() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_TEMPLATE_PATTERN() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBTEMP_QUICKDISPLAY() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_LANGUAGE_OBJECT() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBDD_CLIENT() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_CONSTRUCTOR_USER_SQL() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WD_IMPORT_PROFILE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WD_IMPORT_PROFILE_IDX() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_RIGHT_GROUP() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WD_NAMECONVENTION_FORMAT() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_STRUCTURE_NODES_CONFIGURATION() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBWH_ENTITY() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_WORKFLOW_TASK_HISTORY() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeVWPMO_RIGHTS_2B_WORKED() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_RIGHT_USER() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_RECORD_VARIANT() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Function ShouldSerializeTBPMO_APPOINTMENTS() As Boolean
Return false
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
@@ -1928,7 +1928,7 @@ Partial Public Class DD_DMSDataSet
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As DD_DMSDataSet = New DD_DMSDataSet()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@@ -1977,157 +1977,157 @@ Partial Public Class DD_DMSDataSet
Return type
End Function
- _
+ _
Public Delegate Sub TBPMO_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORMRowChangeEvent)
- _
+ _
Public Delegate Sub VWPMO_CONTROL_SCREENRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_CONTROL_SCREENRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_FORM_VIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_VIEWRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_RECORDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORDRowChangeEvent)
- _
+ _
Public Delegate Sub VWPMO_DOKUMENTTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_DOKUMENTTYPESRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WD_FVIEW_DT_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WORKFLOW_TASKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASKRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WORKFLOW_TASK_STATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_STATERowChangeEvent)
- _
+ _
Public Delegate Sub VWPMO_GUI_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_GUI_ENTITYRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WORKFLOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOWRowChangeEvent)
- _
+ _
Public Delegate Sub VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_EINGANGSARTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EINGANGSARTENRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_KONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_KONFIGURATIONRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_FORM_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_TYPERowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent)
- _
+ _
Public Delegate Sub VWPMO_USERS_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_USERS_GROUPSRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent)
- _
+ _
Public Delegate Sub TBWH_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_DOKART_MODULERowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WD_OBJECTTYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_OBJECTTYPERowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLOW_UP_EMAILRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FOLLUPEMAIL_USERRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORD_LOG_CONFIGRowChangeEvent)
- _
+ _
Public Delegate Sub VWPMO_RECORD_CHANGESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RECORD_CHANGESRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent)
- _
+ _
Public Delegate Sub VWDDINDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_AUTOMRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_TEMPLATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATERowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_TEMPLATE_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATE_ENTITYRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_TEMPLATE_PATTERNRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_TEMPLATE_PATTERNRowChangeEvent)
- _
+ _
Public Delegate Sub TBTEMP_QUICKDISPLAYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_QUICKDISPLAYRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_LANGUAGE_OBJECTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_LANGUAGE_OBJECTRowChangeEvent)
- _
+ _
Public Delegate Sub TBDD_CLIENTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CLIENTRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WD_IMPORT_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_IMPORT_PROFILERowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent)
- _
+ _
Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_RIGHT_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_GROUPRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_STRUCTURE_NODES_CONFIGURATIONRowChangeEvent)
- _
+ _
Public Delegate Sub TBWH_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITYRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_WORKFLOW_TASK_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_TASK_HISTORYRowChangeEvent)
- _
+ _
Public Delegate Sub VWPMO_RIGHTS_2B_WORKEDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHTS_2B_WORKEDRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_RIGHT_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_USERRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_RECORD_VARIANTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RECORD_VARIANTRowChangeEvent)
- _
+ _
Public Delegate Sub TBPMO_APPOINTMENTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_APPOINTMENTSRowChangeEvent)
'''
@@ -2161,7 +2161,7 @@ Partial Public Class DD_DMSDataSet
Private columnSINGLE_RECORD As Global.System.Data.DataColumn
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_FORM"
@@ -2171,7 +2171,7 @@ Partial Public Class DD_DMSDataSet
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
@@ -2189,14 +2189,14 @@ Partial Public Class DD_DMSDataSet
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
@@ -2204,7 +2204,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPARENT_ID
@@ -2212,7 +2212,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
@@ -2220,7 +2220,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLEVEL
@@ -2228,7 +2228,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
@@ -2236,7 +2236,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
@@ -2244,7 +2244,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
@@ -2252,7 +2252,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
@@ -2260,7 +2260,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property SHOW_FORM_CONSTRUCTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSHOW_FORM_CONSTRUCT
@@ -2268,7 +2268,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property FORM_TYPE_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_TYPE_ID
@@ -2276,7 +2276,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public ReadOnly Property SINGLE_RECORDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSINGLE_RECORD
@@ -2284,7 +2284,7 @@ Partial Public Class DD_DMSDataSet
End Property
_
Public ReadOnly Property Count() As Integer
Get
@@ -2293,33 +2293,33 @@ Partial Public Class DD_DMSDataSet
End Property
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORMRow
Get
Return CType(Me.Rows(index),TBPMO_FORMRow)
End Get
End Property
- _
+ _
Public Event TBPMO_FORMRowChanging As TBPMO_FORMRowChangeEventHandler
- _
+ _
Public Event TBPMO_FORMRowChanged As TBPMO_FORMRowChangeEventHandler
- _
+ _
Public Event TBPMO_FORMRowDeleting As TBPMO_FORMRowChangeEventHandler
- _
+ _
Public Event TBPMO_FORMRowDeleted As TBPMO_FORMRowChangeEventHandler
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Sub AddTBPMO_FORMRow(ByVal row As TBPMO_FORMRow)
Me.Rows.Add(row)
End Sub
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Overloads Function AddTBPMO_FORMRow(ByVal PARENT_ID As Integer, ByVal NAME As String, ByVal LEVEL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SHOW_FORM_CONSTRUCT As Boolean, ByVal parentTBPMO_FORM_TYPERowByFK_TBPMO_FORM_FORM_TYPE_ID As TBPMO_FORM_TYPERow, ByVal SINGLE_RECORD As Boolean) As TBPMO_FORMRow
Dim rowTBPMO_FORMRow As TBPMO_FORMRow = CType(Me.NewRow,TBPMO_FORMRow)
Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ID, NAME, LEVEL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SHOW_FORM_CONSTRUCT, Nothing, SINGLE_RECORD}
@@ -2332,13 +2332,13 @@ Partial Public Class DD_DMSDataSet
End Function
_
+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORMRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORMRow)
End Function