AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS V2.7 .Net Logger etc

Browse Source
This commit is contained in:
SchreiberM 2021-06-15 16:28:55 +02:00
parent e2619eb3ad
commit e796ae91cb
109 changed files with 295499 additions and 8793 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
app/DD-Record-Organizer/App.config
View File

@ -9,12 +9,10 @@
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString"
connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=ddd"
providerName="System.Data.SqlClient" />
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=ddd" providerName="System.Data.SqlClient"/>
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/>
</startup>
<userSettings>
<DD_Record_Organizer.My.MySettings>
@ -25,19 +23,19 @@
<value>*.*</value>
</setting>
<setting name="WD_ENTITYIMP_IMPPATH" serializeAs="String">
<value />
<value/>
</setting>
<setting name="WD_ENTITYIMP_TARGETPATH" serializeAs="String">
<value />
<value/>
</setting>
<setting name="WD_ENTITYIMP_SAFETYPATH" serializeAs="String">
<value />
<value/>
</setting>
<setting name="WD_ENTITYIMP_OBJECTTYPE" serializeAs="String">
<value />
<value/>
</setting>
<setting name="WD_INDEXDOKART_SAVE" serializeAs="String">
<value />
<value/>
</setting>
<setting name="User_Calendar_isChild" serializeAs="String">
<value>True</value>
@ -52,17 +50,20 @@
<value>False</value>
</setting>
<setting name="TBPMO_RIGHT_GROUPDataGridView" serializeAs="String">
<value />
<value/>
</setting>
<setting name="frmRecordViewSplitter" serializeAs="String">
<value>332</value>
</setting>
<setting name="TBPMO_RIGHT_USERDataGridView" serializeAs="String">
<value />
<value/>
</setting>
<setting name="UserDocIDIndexname" serializeAs="String">
<value>Dokument-ID</value>
</setting>
<setting name="SaveDocGridlayout" serializeAs="String">
<value>False</value>
</setting>
</DD_Record_Organizer.My.MySettings>
</userSettings>
<applicationSettings>

4
app/DD-Record-Organizer/ClassBackgroundHelper.vb
View File

@ -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

2
app/DD-Record-Organizer/ClassConstructors.vb
View File

@ -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

86
app/DD-Record-Organizer/ClassControlBuilder.vb
View File

@ -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

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

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

28
app/DD-Record-Organizer/ClassControlCommandsUI.vb
View File

@ -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

12
app/DD-Record-Organizer/ClassControlLoader.vb
View File

@ -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

82
app/DD-Record-Organizer/ClassControlValues.vb
View File

@ -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

2
app/DD-Record-Organizer/ClassControls_Manual.vb
View File

@ -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

2
app/DD-Record-Organizer/ClassCustomComboBox.vb
View File

@ -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

32
app/DD-Record-Organizer/ClassDOC_SEARCH.vb
View File

@ -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

70
app/DD-Record-Organizer/ClassDatabase.vb
View File

@ -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

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

@ -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

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

@ -63,17 +63,11 @@ Public Class ClassEmail
"<br>>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _
My.Computer.Clock.LocalTime.ToLongTimeString & "</font>")
' 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

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

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

10
app/DD-Record-Organizer/ClassFolderWatcher.vb
View File

@ -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

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

@ -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

60
app/DD-Record-Organizer/ClassHelper.vb
View File

@ -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
'' <summary>
''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen
''' </summary>
''' <param name="sFilename">Dateiname ohne Pfadangabe</param>
''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen
''' im Dateinamen</param>
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

146
app/DD-Record-Organizer/ClassImport_Windream.vb
View File

@ -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

53
app/DD-Record-Organizer/ClassInit.vb
View File

@ -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

8
app/DD-Record-Organizer/ClassLayout.vb
View File

@ -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

14
app/DD-Record-Organizer/ClassLicence.vb
View File

@ -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

200
app/DD-Record-Organizer/ClassLogger.vb
View File

@ -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

2
app/DD-Record-Organizer/ClassMoreMetadata.vb
View File

@ -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

34
app/DD-Record-Organizer/ClassNodeNavigation.vb
View File

@ -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

12
app/DD-Record-Organizer/ClassOfficeTemplate.vb
View File

@ -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

2
app/DD-Record-Organizer/ClassPosGrid.vb
View File

@ -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

4
app/DD-Record-Organizer/ClassRecordCommands.vb
View File

@ -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)

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

@ -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)

64
app/DD-Record-Organizer/ClassSAP.vb
View File

@ -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 '<ObjectType>' AND AR_DATE GE '<AR_DATE>'"
'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

56
app/DD-Record-Organizer/ClassUpdate.vb
View File

@ -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

2
app/DD-Record-Organizer/ClassUser.vb
View File

@ -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

108
app/DD-Record-Organizer/ClassWDRights.vb
View File

@ -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
''' </summary>
''' <returns>Returns Boolean True when successfull</returns>
''' <remarks></remarks>
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

57
app/DD-Record-Organizer/ClassWindreamDocGrid.vb
View File

@ -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

25
app/DD-Record-Organizer/DD-Record-Organizer.vbproj
View File

@ -11,7 +11,7 @@
<AssemblyName>DD-Record-Organizer</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl>
@ -81,21 +81,18 @@
</Reference>
<Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Map.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Office.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Pdf.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Pdf.v19.2.Drawing, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
@ -111,26 +108,21 @@
</Reference>
<Reference Include="DevExpress.Sparkline.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraCharts.v19.2.Wizard, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
@ -143,7 +135,6 @@
</Reference>
<Reference Include="DevExpress.XtraMap.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
@ -172,6 +163,9 @@
<Reference Include="DevExpress.XtraWizard.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DLLLicenseManager">
<HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
</Reference>
@ -197,6 +191,7 @@
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Microsoft.Office.Interop.Outlook, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>True</EmbedInteropTypes>
@ -205,6 +200,9 @@
<Reference Include="Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess, Version=4.121.1.0, Culture=neutral, PublicKeyToken=89b483f429c47342, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\3rdparty\lib\Oracle Managed Data Access\Oracle.ManagedDataAccess.dll</HintPath>
@ -212,14 +210,18 @@
</Reference>
<Reference Include="PresentationCore" />
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.DirectoryServices.AccountManagement" />
<Reference Include="System.DirectoryServices.Protocols" />
<Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Runtime.Remoting" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Transactions" />
<Reference Include="System.Web" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
@ -503,7 +505,6 @@
<Compile Include="ClassImport_Windream.vb" />
<Compile Include="ClassInit.vb" />
<Compile Include="ClassLayout.vb" />
<Compile Include="ClassLogger.vb" />
<Compile Include="ClassDatabase.vb" />
<Compile Include="ClassControlBuilder.vb" />
<Compile Include="ClassControlProperties.vb" />
@ -757,6 +758,7 @@
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
@ -1241,6 +1243,7 @@
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<None Include="packages.config" />
<None Include="Resources\database_go.png" />
</ItemGroup>
<ItemGroup>

8768
app/DD-Record-Organizer/DD_DMSDataSet.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

34
app/DD-Record-Organizer/DD_DMSDataSet.xsd
View File

@ -270,7 +270,7 @@ FROM TBPMO_FORM_VIEW where FORM_ID = @FORMID and SCREEN_ID = 1</Comma
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPMO_RECORD" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_RECORD] WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBPMO_RECORD] WHERE ([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -306,7 +306,7 @@ WHERE (GUID = @RECORD_ID)</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [TBPMO_RECORD] SET [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -393,7 +393,7 @@ ORDER BY DOKUMENTTYPE</CommandText>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPMO_WD_FVIEW_DT_INDEX" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_WD_FVIEW_DT_INDEX] WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBPMO_WD_FVIEW_DT_INDEX] WHERE ([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_FW_DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="FW_DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -435,7 +435,7 @@ WHERE (FW_DOCTYPE_ID = @ID)</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_WD_FVIEW_DT_INDEX] SET [FW_DOCTYPE_ID] = @FW_DOCTYPE_ID, [INDEXNAME] = @INDEXNAME, [INDEX_VALUE] = @INDEX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [TBPMO_WD_FVIEW_DT_INDEX] SET [FW_DOCTYPE_ID] = @FW_DOCTYPE_ID, [INDEXNAME] = @INDEXNAME, [INDEX_VALUE] = @INDEX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([FW_DOCTYPE_ID] = @Original_FW_DOCTYPE_ID) AND ([INDEXNAME] = @Original_INDEXNAME) AND ([INDEX_VALUE] = @Original_INDEX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, FW_DOCTYPE_ID, INDEXNAME, INDEX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_FVIEW_DT_INDEX WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@FW_DOCTYPE_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="FW_DOCTYPE_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -663,7 +663,7 @@ FROM VWPMO_GUI_ENTITY</CommandText>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_WORKFLOW" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_WORKFLOW] WHERE (([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBPMO_WORKFLOW] WHERE ([GUID] = @Original_GUID) AND ([TITLE] = @Original_TITLE) AND (@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -890,7 +890,7 @@ FROM TBDD_EINGANGSARTEN</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @BESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND ((@IsNull_BESCHREIBUNG = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERSTELLTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));
<CommandText>UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @BESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE ([GUID] = @Original_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND (@IsNull_BESCHREIBUNG = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERSTELLTWANN) AND (@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERTWER] = @Original_GEANDERTWER)) AND (@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));
SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@BEZEICHNUNG" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="BEZEICHNUNG" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -1271,7 +1271,7 @@ SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHE
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_FORM_TYPE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_FORM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([FORM_TYPE] = @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBPMO_FORM_TYPE] WHERE ([GUID] = @Original_GUID) AND ([FORM_TYPE] = @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_FORM_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="FORM_TYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -2018,7 +2018,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_W
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_CONNECTION" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBDD_CONNECTION] WHERE ([GUID] = @Original_GUID) AND (@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND (@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND (@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND (@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND (@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND (@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int16" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="SmallInt" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_DESCRIPTION" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="true" SourceVersion="Original" />
@ -2074,7 +2074,7 @@ FROM TBDD_CONNECTION</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBDD_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL_PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, [PASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [TBDD_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL_PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, [PASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND (@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND (@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Original_SQL_PROVIDER)) AND (@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = @Original_SERVER)) AND (@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATABASE] = @Original_DATABASE)) AND (@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND (@IsNull_PASSWORD = 1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, DESCRIPTION, SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CONNECTION WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -2517,7 +2517,7 @@ VALUES (@NAME_PATTERN,@ADDED_WHO,@TEMPLATE_ENT_ID)</CommandText>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_LANGUAGE_OBJECT" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_LANGUAGE_OBJECT] WHERE (([GUID] = @Original_GUID) AND ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTION) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBPMO_LANGUAGE_OBJECT] WHERE ([GUID] = @Original_GUID) AND ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTION) AND (@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_LANGUAGE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="LANGUAGE_TYPE" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -2562,7 +2562,7 @@ FROM TBPMO_LANGUAGE_OBJECT</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_LANGUAGE_OBJECT] SET [LANGUAGE_TYPE] = @LANGUAGE_TYPE, [SCREEN_ID] = @SCREEN_ID, [PMO_OBJECT_NAME] = @PMO_OBJECT_NAME, [CAPTION] = @CAPTION, [HINT] = @HINT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTION) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [TBPMO_LANGUAGE_OBJECT] SET [LANGUAGE_TYPE] = @LANGUAGE_TYPE, [SCREEN_ID] = @SCREEN_ID, [PMO_OBJECT_NAME] = @PMO_OBJECT_NAME, [CAPTION] = @CAPTION, [HINT] = @HINT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTION) AND (@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_LANGUAGE_OBJECT WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@LANGUAGE_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="LANGUAGE_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -3220,7 +3220,7 @@ FROM TBPMO_STRUCTURE_NODES_CONFIGURATION where GUID = @GUID</CommandT
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_WORKFLOW_TASK_HISTORY" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_WORKFLOW_TASK_HISTORY] WHERE (([GUID] = @Original_GUID))</CommandText>
<CommandText>DELETE FROM [TBPMO_WORKFLOW_TASK_HISTORY] WHERE ([GUID] = @Original_GUID))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@ -3236,7 +3236,7 @@ FROM TBPMO_STRUCTURE_NODES_CONFIGURATION where GUID = @GUID</CommandT
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_WORKFLOW_TASK_HISTORY] SET [STATE_DESC] = @STATE_DESC, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO WHERE (([GUID] = @Original_GUID));
<CommandText>UPDATE [TBPMO_WORKFLOW_TASK_HISTORY] SET [STATE_DESC] = @STATE_DESC, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO WHERE ([GUID] = @Original_GUID));
SELECT GUID, STATE_DESC, COMMENT, ADDED_WHO FROM TBPMO_WORKFLOW_TASK_HISTORY WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STATE_DESC" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STATE_DESC" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -3287,7 +3287,7 @@ FROM VWPMO_RIGHTS_2B_WORKED</CommandText>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_RIGHT_USER" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_RIGHT_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBPMO_RIGHT_USER] WHERE ([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -3334,7 +3334,7 @@ FROM TBPMO_RIGHT_USER</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_RIGHT_USER] SET [USER_ID] = @USER_ID, [ENTITY_ID] = @ENTITY_ID, [EDIT_REC] = @EDIT_REC, [ADD_REC] = @ADD_REC, [DELETE_REC] = @DELETE_REC, [ADD_DOC] = @ADD_DOC, [READ_ONLY_DOC] = @READ_ONLY_DOC, [DELETE_DOC] = @DELETE_DOC, [FILES_VISIBLE] = @FILES_VISIBLE, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [TBPMO_RIGHT_USER] SET [USER_ID] = @USER_ID, [ENTITY_ID] = @ENTITY_ID, [EDIT_REC] = @EDIT_REC, [ADD_REC] = @ADD_REC, [DELETE_REC] = @DELETE_REC, [ADD_DOC] = @ADD_DOC, [READ_ONLY_DOC] = @READ_ONLY_DOC, [DELETE_DOC] = @DELETE_DOC, [FILES_VISIBLE] = @FILES_VISIBLE, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([EDIT_REC] = @Original_EDIT_REC) AND ([ADD_REC] = @Original_ADD_REC) AND ([DELETE_REC] = @Original_DELETE_REC) AND ([ADD_DOC] = @Original_ADD_DOC) AND ([READ_ONLY_DOC] = @Original_READ_ONLY_DOC) AND ([DELETE_DOC] = @Original_DELETE_DOC) AND ([FILES_VISIBLE] = @Original_FILES_VISIBLE) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, USER_ID, ENTITY_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_RIGHT_USER WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@USER_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="USER_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -3424,7 +3424,7 @@ ORDER BY GUID DESC</CommandText>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_APPOINTMENTS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_APPOINTMENTS] WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)))</CommandText>
<CommandText>DELETE FROM [TBPMO_APPOINTMENTS] WHERE ([UniqueID] = @Original_UniqueID) AND (@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND (@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND (@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND (@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND (@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND (@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND (@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND (@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND (@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_UniqueID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="UniqueID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_Type" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="Type" SourceColumnNullMapping="true" SourceVersion="Original" />
@ -3482,7 +3482,7 @@ FROM TBPMO_APPOINTMENTS AS T INNER JOIN
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)));
<CommandText>UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE ([UniqueID] = @Original_UniqueID) AND (@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND (@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND (@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND (@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND (@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND (@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND (@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND (@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND (@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)));
SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (UniqueID = @UniqueID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Type" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="Type" SourceColumnNullMapping="false" SourceVersion="Current" />

508
app/DD-Record-Organizer/DD_DMSDataSetCalendar.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

8
app/DD-Record-Organizer/DD_DMSDataSetCalendar.xsd
View File

@ -12,7 +12,7 @@
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPMO_APPOINTMENTS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_APPOINTMENTS] WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)))</CommandText>
<CommandText>DELETE FROM [TBPMO_APPOINTMENTS] WHERE ([UniqueID] = @Original_UniqueID) AND (@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND (@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND (@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND (@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND (@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND (@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND (@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND (@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND (@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_UniqueID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="UniqueID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_Type" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="Type" SourceColumnNullMapping="true" SourceVersion="Original" />
@ -68,7 +68,7 @@ FROM TBPMO_APPOINTMENTS</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE (([UniqueID] = @Original_UniqueID) AND ((@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND ((@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND ((@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND ((@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND ((@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND ((@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND ((@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND ((@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND ((@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)));
<CommandText>UPDATE [TBPMO_APPOINTMENTS] SET [Type] = @Type, [StartDate] = @StartDate, [EndDate] = @EndDate, [AllDay] = @AllDay, [Subject] = @Subject, [Location] = @Location, [Description] = @Description, [Status] = @Status, [Label] = @Label, [ResourceID] = @ResourceID, [ResourceIDs] = @ResourceIDs, [ReminderInfo] = @ReminderInfo, [RecurrenceInfo] = @RecurrenceInfo, [CustomField1] = @CustomField1, [CustomField2] = @CustomField2 WHERE ([UniqueID] = @Original_UniqueID) AND (@IsNull_Type = 1 AND [Type] IS NULL) OR ([Type] = @Original_Type)) AND (@IsNull_StartDate = 1 AND [StartDate] IS NULL) OR ([StartDate] = @Original_StartDate)) AND (@IsNull_EndDate = 1 AND [EndDate] IS NULL) OR ([EndDate] = @Original_EndDate)) AND (@IsNull_AllDay = 1 AND [AllDay] IS NULL) OR ([AllDay] = @Original_AllDay)) AND (@IsNull_Subject = 1 AND [Subject] IS NULL) OR ([Subject] = @Original_Subject)) AND (@IsNull_Location = 1 AND [Location] IS NULL) OR ([Location] = @Original_Location)) AND (@IsNull_Status = 1 AND [Status] IS NULL) OR ([Status] = @Original_Status)) AND (@IsNull_Label = 1 AND [Label] IS NULL) OR ([Label] = @Original_Label)) AND (@IsNull_ResourceID = 1 AND [ResourceID] IS NULL) OR ([ResourceID] = @Original_ResourceID)));
SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Description, Status, Label, ResourceID, ResourceIDs, ReminderInfo, RecurrenceInfo, CustomField1, CustomField2 FROM TBPMO_APPOINTMENTS WHERE (UniqueID = @UniqueID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Type" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="Type" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -136,7 +136,7 @@ SELECT UniqueID, Type, StartDate, EndDate, AllDay, Subject, Location, Descriptio
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPMO_RESOURCES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [dbo].[TBPMO_RESOURCES] WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)))</CommandText>
<CommandText>DELETE FROM [dbo].[TBPMO_RESOURCES] WHERE ([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND (@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND (@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_UniqueID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="UniqueID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_ResourceID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ResourceID" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -168,7 +168,7 @@ SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM TBPMO
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [dbo].[TBPMO_RESOURCES] SET [ResourceID] = @ResourceID, [ResourceName] = @ResourceName, [Color] = @Color, [Image] = @Image, [CustomField1] = @CustomField1 WHERE (([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND ((@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND ((@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)));
<CommandText>UPDATE [dbo].[TBPMO_RESOURCES] SET [ResourceID] = @ResourceID, [ResourceName] = @ResourceName, [Color] = @Color, [Image] = @Image, [CustomField1] = @CustomField1 WHERE ([UniqueID] = @Original_UniqueID) AND ([ResourceID] = @Original_ResourceID) AND (@IsNull_ResourceName = 1 AND [ResourceName] IS NULL) OR ([ResourceName] = @Original_ResourceName)) AND (@IsNull_Color = 1 AND [Color] IS NULL) OR ([Color] = @Original_Color)));
SELECT UniqueID, ResourceID, ResourceName, Color, Image, CustomField1 FROM TBPMO_RESOURCES WHERE (UniqueID = @UniqueID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@ResourceID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ResourceID" SourceColumnNullMapping="false" SourceVersion="Current" />

446
app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

8
app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.xsd
View File

@ -12,7 +12,7 @@
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_MENU_FORM" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE (([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [dbo].[TBPMO_MENU_FORM] WHERE ([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND (@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_MENU_ENTRY" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="MENU_ENTRY" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -51,7 +51,7 @@ SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICON_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [dbo].[TBPMO_MENU_FORM] SET [MENU_ENTRY] = @MENU_ENTRY, [ICON_PATH] = @ICON_PATH, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND (@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@MENU_ENTRY" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="MENU_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -95,7 +95,7 @@ SELECT GUID, MENU_ENTRY, ICON_PATH, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_MENU_FORM_ENTRIES" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE (([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [dbo].[TBPMO_MENU_FORM_ENTRIES] WHERE ([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND (@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_MENU_FORM_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="MENU_FORM_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -138,7 +138,7 @@ SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO,
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND ((@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [dbo].[TBPMO_MENU_FORM_ENTRIES] SET [MENU_FORM_ID] = @MENU_FORM_ID, [FORM_ID] = @FORM_ID, [ICON_PATH] = @ICON_PATH, [MENU_ENTRY] = @MENU_ENTRY, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([MENU_FORM_ID] = @Original_MENU_FORM_ID) AND ([FORM_ID] = @Original_FORM_ID) AND (@IsNull_ICON_PATH = 1 AND [ICON_PATH] IS NULL) OR ([ICON_PATH] = @Original_ICON_PATH)) AND ([MENU_ENTRY] = @Original_MENU_ENTRY) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, MENU_FORM_ID, FORM_ID, ICON_PATH, MENU_ENTRY, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_MENU_FORM_ENTRIES WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@MENU_FORM_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="MENU_FORM_ID" SourceColumnNullMapping="false" SourceVersion="Current" />

2784
app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

16
app/DD-Record-Organizer/DD_ECMAdmin.xsd
View File

@ -477,7 +477,7 @@ WHERE (T2.GUID = @ENTITY_ID)</CommandText>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_DOCSEARCH_RESULTLIST_CONFIG" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE))</CommandText>
<CommandText>DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE ([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_ENTITY_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ENTITY_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -531,7 +531,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAGE] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION, [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [VISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS, [SEQUENCE] = @SEQUENCE WHERE (([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE));
<CommandText>UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAGE] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION, [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [VISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS, [SEQUENCE] = @SEQUENCE WHERE ([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE));
SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS, SEQUENCE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@ENTITY_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ENTITY_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -650,7 +650,7 @@ FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG</CommandText>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_LOG_ESSENTIALS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_LOG_ESSENTIALS] WHERE (([GUID] = @Original_GUID))</CommandText>
<CommandText>DELETE FROM [TBPMO_LOG_ESSENTIALS] WHERE ([GUID] = @Original_GUID))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@ -679,7 +679,7 @@ ORDER BY GUID DESC</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_LOG_ESSENTIALS] SET [REFERENCE_KEY] = @REFERENCE_KEY, [REFERENCE_STRING] = @REFERENCE_STRING, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID));
<CommandText>UPDATE [TBPMO_LOG_ESSENTIALS] SET [REFERENCE_KEY] = @REFERENCE_KEY, [REFERENCE_STRING] = @REFERENCE_STRING, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE ([GUID] = @Original_GUID));
SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBPMO_LOG_ESSENTIALS WHERE (GUID = @GUID) ORDER BY GUID DESC</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@REFERENCE_KEY" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="REFERENCE_KEY" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -710,7 +710,7 @@ SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COM
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBPMO_DOCRESULT_DROPDOWN_ITEMS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBPMO_DOCRESULT_DROPDOWN_ITEMS] WHERE (([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBPMO_DOCRESULT_DROPDOWN_ITEMS] WHERE ([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_CONFIG_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CONFIG_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
@ -757,7 +757,7 @@ WHERE (CONFIG_ID = @CONFIG_ID)</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBPMO_DOCRESULT_DROPDOWN_ITEMS] SET [CONFIG_ID] = @CONFIG_ID, [VALUE] = @VALUE, [SEQUENCE] = @SEQUENCE, [DEFAULT] = @DEFAULT, [COLOR] = @COLOR, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [TBPMO_DOCRESULT_DROPDOWN_ITEMS] SET [CONFIG_ID] = @CONFIG_ID, [VALUE] = @VALUE, [SEQUENCE] = @SEQUENCE, [DEFAULT] = @DEFAULT, [COLOR] = @COLOR, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@CONFIG_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="CONFIG_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -807,7 +807,7 @@ SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDED_WHEN
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBDD_GROUPS" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM [TBDD_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<CommandText>DELETE FROM [TBDD_GROUPS] WHERE ([GUID] = @Original_GUID) AND (@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND (@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_NAME" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="true" SourceVersion="Original" />
@ -856,7 +856,7 @@ FROM TBDD_GROUPS</CommandText>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [ECM_FK_ID] = @ECM_FK_ID, [AD_SYNC] = @AD_SYNC, [INTERNAL] = @INTERNAL, [ACTIVE] = @ACTIVE, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
<CommandText>UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [ECM_FK_ID] = @ECM_FK_ID, [AD_SYNC] = @AD_SYNC, [INTERNAL] = @INTERNAL, [ACTIVE] = @ACTIVE, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND (@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND (@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));
SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />

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

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

26
app/DD-Record-Organizer/ModuleMySettings.vb
View File

@ -2,6 +2,7 @@
Imports System.Xml
Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel
Imports DigitalData.Modules.Logging
Module ModuleMySettings
Public PATH_FileExclusions As String = Path.Combine(Application.UserAppDataPath(), "FileExclusions.xml")
@ -10,7 +11,7 @@ Module ModuleMySettings
Public MyConnectionString As String = ""
Public MyFormsDesign As String = ""
Public LogErrorsOnly As Boolean = True
Public DEBUG As Boolean = False
Public Sett_TaskOverviewKeepInFront As Boolean = True
Public Task_Popup_minutes As Integer = 2
Public Sett_ConstructorStart As Integer
@ -51,7 +52,8 @@ Module ModuleMySettings
'Public USER_CLIENTS_COMMA_SEPERATED As String
Public FWSCAN_started As Boolean = False
Public LOGCONFIG As LogConfig
Public LOGGER As Logger
Dim rowresult As String = ""
Public Function LoadFileExclusion()
@ -112,10 +114,10 @@ Module ModuleMySettings
Dim DT As DataTable
'if file doesn't exist, create the file with its default xml table
If Not File.Exists(ConfigPath) Then
ClassLogger.Add(">> ConfigFile was created in: " & ConfigPath, False)
LOGGER.Info("ConfigFile was created in: " & ConfigPath)
DT = CreateConfigTable()
DT.WriteXml(ConfigPath)
ClassLogger.Add(">> Defaultvalues were saved.", False)
LOGGER.Info("Defaultvalues were saved.")
End If
DT = GetTablefromXML(ConfigPath)
If DT Is Nothing Then
@ -141,7 +143,7 @@ Module ModuleMySettings
PWplainText = wrapper.DecryptData(csb.Password)
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
Catch ex As Exception
ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
LOGGER.Warn("- the Password '" & csb.Password & "' could not be decrypted")
connstring = ""
End Try
@ -170,7 +172,7 @@ Module ModuleMySettings
PWplainText = wrapper.DecryptData(csb.Password)
connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText)
Catch ex As Exception
ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False)
LOGGER.Warn("- the Password '" & csb.Password & "' could not be decrypted")
connstring = ""
End Try
@ -186,8 +188,8 @@ Module ModuleMySettings
Case "MyLinkedServer"
ClassProxy.MyLinkedServer = Row.Item("Value")
Case "LogErrorsOnly"
LogErrorsOnly = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
DEBUG = CBool(Row.Item("Value"))
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
Case "Sett_TaskOverviewKeepInFront"
Sett_TaskOverviewKeepInFront = CBool(Row.Item("Value"))
Case "WD_IndexDeleteDocs"
@ -287,7 +289,7 @@ Module ModuleMySettings
Catch ex As Exception
MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Error in LoadMyConfig: " & ex.Message, True)
LOGGER.Warn("Error in LoadMyConfig: " & ex.Message, True)
Return False
End Try
Return True
@ -300,8 +302,8 @@ Module ModuleMySettings
Return DS.Tables(0)
Catch ex As Exception
MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message & vbNewLine & "ConfigPath: " & vbNewLine & path, MsgBoxStyle.Critical)
ClassLogger.Add("Error in GetTablefromXML: " & ex.Message, True)
ClassLogger.Add(">> ConfigPath: " & ConfigPath, False)
LOGGER.Warn("Error in GetTablefromXML: " & ex.Message, True)
LOGGER.Warn("ConfigPath: " & ConfigPath)
Return Nothing
End Try
@ -385,7 +387,7 @@ Module ModuleMySettings
table.AcceptChanges()
ClassLogger.Add(">> CreateConfigTable su...", False)
LOGGER.Info("CreateConfigTable su...")
Return table
Catch ex As Exception
MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

2
app/DD-Record-Organizer/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.5.0.7")>
<Assembly: AssemblyVersion("2.7.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

142
app/DD-Record-Organizer/My Project/Resources.resx
View File

@ -133,11 +133,8 @@
<data name="UserInterfaceEditor_5845_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\UserInterfaceEditor_5845_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Carousel_16x16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Carousel_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="windream-Logo-transparent" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DD_Icons-ADDI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_Icons-ADDI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -172,9 +169,6 @@
<data name="Files_7954" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asset_pie-series-chart_on_12X12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asset_pie-series-chart_on_12X12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Men3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Men3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -184,6 +178,12 @@
<data name="Arrow_RedoRetry_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Arrow_RedoRetry_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Login_6031_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Login_6031_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lock" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -205,11 +205,8 @@
<data name="userAccounts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\userAccounts.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="user_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -220,6 +217,9 @@
<data name="bell_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dtp1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dtp1.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="checkbox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -262,18 +262,18 @@
<data name="table" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\table.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="changechartlegendalignment_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="page_excel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_excel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dtp" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Reports-collapsed_12995_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Reports-collapsed_12995_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="text1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\text1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -292,20 +292,26 @@
<data name="_1480524473_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1480524473_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="magifier_zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="brick_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\brick_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="calendar_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\calendar_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dtp1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dtp1.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Carousel_16x16" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Carousel_16x16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="f5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\f5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -319,6 +325,9 @@
<data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ComboBox_672" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ComboBox_672.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -331,8 +340,8 @@
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="windream_Logo_transparent_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\windream-Logo-transparent_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -343,8 +352,8 @@
<data name="base_globe_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\base_globe_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lightbulb" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lightbulb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -355,9 +364,6 @@
<data name="delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_Forward_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_Forward_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Arrow_RedoRetry_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Arrow_RedoRetry_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -373,9 +379,6 @@
<data name="Property_501" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Property_501.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Works Finished (nonXP)" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Works Finished (nonXP).ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -391,6 +394,9 @@
<data name="WMI_Task_21x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WMI_Task_21x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Connection_Manager" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Connection_Manager.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -409,15 +415,9 @@
<data name="lock_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lock_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sql" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sql.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_lightning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_lightning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -430,8 +430,8 @@
<data name="Label_684" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Label_684.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="benutzer3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\benutzer3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bug_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bug_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -469,6 +469,9 @@
<data name="view_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\view_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -481,14 +484,8 @@
<data name="database_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="AddTable_5632" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="windream-Logo-transparent" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="key_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="xml" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\xml.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -499,8 +496,8 @@
<data name="f2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\f2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -523,9 +520,6 @@
<data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="benutzer3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\benutzer3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -535,6 +529,9 @@
<data name="user_suit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="windream_Logo_transparent_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\windream-Logo-transparent_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="WebUserControl(ascx)_11270_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WebUserControl(ascx)_11270_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -556,11 +553,11 @@
<data name="action_add_16xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="arrow_Forward_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_Forward_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Connection_Manager" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Connection_Manager.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bricks" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bricks.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -589,14 +586,17 @@
<data name="folder_Open_32xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="f3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\f3.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="database_error" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="note_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\note_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -610,8 +610,8 @@
<data name="Table_748" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bug_edit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bug_edit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -619,8 +619,8 @@
<data name="Men4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Men4.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lock" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="asset_pie-series-chart_on_12X12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asset_pie-series-chart_on_12X12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="keinbild" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\keinbild.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -628,11 +628,11 @@
<data name="UserInterfaceEditor_5845" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\UserInterfaceEditor_5845.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="changechartlegendalignment_32x32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="1532_Flag_Blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Login_6031_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Login_6031_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -640,8 +640,8 @@
<data name="f1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\f1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -688,8 +688,8 @@
<data name="138_PushPin_32x42_72" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\138_PushPin_32x42_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Men5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="database_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -712,8 +712,8 @@
<data name="112_RefreshArrow_Blue_24x24_721" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\112_RefreshArrow_Blue_24x24_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Reports-collapsed_12995_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Reports-collapsed_12995_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="action_Cancel_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NetworkPipes_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NetworkPipes_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>

14
app/DD-Record-Organizer/My Project/Settings.Designer.vb generated
View File

@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@ -266,6 +266,18 @@ Namespace My
Me("UserDocIDIndexname") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property SaveDocGridlayout() As Boolean
Get
Return CType(Me("SaveDocGridlayout"),Boolean)
End Get
Set
Me("SaveDocGridlayout") = value
End Set
End Property
End Class
End Namespace

3
app/DD-Record-Organizer/My Project/Settings.Settings
View File

@ -58,5 +58,8 @@
<Setting Name="UserDocIDIndexname" Type="System.String" Scope="User">
<Value Profile="(Default)">Dokument-ID</Value>
</Setting>
<Setting Name="SaveDocGridlayout" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
</Settings>
</SettingsFile>

2
app/DD-Record-Organizer/Strings/ControlProperties.Designer.vb generated
View File

@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class ControlProperties

4
app/DD-Record-Organizer/frmChooseParentRecord.vb
View File

@ -63,7 +63,7 @@ Public Class frmChooseParentRecord
Try
ColorRow = Color.FromName(rowCellValue)
Catch ex As Exception
ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
LOGGER.Warn("RowBackColor '" & rowCellValue & "'could not be converted from name!")
Exit Sub
End Try
'Dim c As Color = DirectCast(rowCellValue, Color)
@ -71,7 +71,7 @@ Public Class frmChooseParentRecord
e.HighPriority = True
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in RowStyle: " & ex.Message)
End Try
End If

20
app/DD-Record-Organizer/frmConfig_Basic.Designer.vb generated
View File

@ -22,8 +22,8 @@ Partial Class frmConfig_Basic
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.lblLinkedServer = New System.Windows.Forms.Label()
@ -44,6 +44,7 @@ Partial Class frmConfig_Basic
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.CheckBoxGridDocResult_BestFitColumns = New System.Windows.Forms.CheckBox()
Me.Button4 = New System.Windows.Forms.Button()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.Label11 = New System.Windows.Forms.Label()
@ -83,7 +84,6 @@ Partial Class frmConfig_Basic
Me.btncheckWDFolderexists = New System.Windows.Forms.Button()
Me.txtwdFolder = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.CheckBoxGridDocResult_BestFitColumns = New System.Windows.Forms.CheckBox()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
@ -246,6 +246,12 @@ Partial Class frmConfig_Basic
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'CheckBoxGridDocResult_BestFitColumns
'
resources.ApplyResources(Me.CheckBoxGridDocResult_BestFitColumns, "CheckBoxGridDocResult_BestFitColumns")
Me.CheckBoxGridDocResult_BestFitColumns.Name = "CheckBoxGridDocResult_BestFitColumns"
Me.CheckBoxGridDocResult_BestFitColumns.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Image = Global.DD_Record_Organizer.My.Resources.Resources.email_go
@ -401,8 +407,8 @@ Partial Class frmConfig_Basic
'
'DataGridView1
'
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
resources.ApplyResources(Me.DataGridView1, "DataGridView1")
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Name = "DataGridView1"
@ -513,12 +519,6 @@ Partial Class frmConfig_Basic
resources.ApplyResources(Me.Label12, "Label12")
Me.Label12.Name = "Label12"
'
'CheckBoxGridDocResult_BestFitColumns
'
resources.ApplyResources(Me.CheckBoxGridDocResult_BestFitColumns, "CheckBoxGridDocResult_BestFitColumns")
Me.CheckBoxGridDocResult_BestFitColumns.Name = "CheckBoxGridDocResult_BestFitColumns"
Me.CheckBoxGridDocResult_BestFitColumns.UseVisualStyleBackColor = True
'
'frmConfig_Basic
'
resources.ApplyResources(Me, "$this")

1410
app/DD-Record-Organizer/frmConfig_Basic.resx
View File

File diff suppressed because it is too large Load Diff

15
app/DD-Record-Organizer/frmConfig_Basic.vb
View File

@ -139,7 +139,7 @@ Public Class frmConfig_Basic
End Try
Me.txtActualConnection.Text = constr
chkLogErrorsOnly.Checked = LogErrorsOnly
chkLogErrorsOnly.Checked = DEBUG
'txtwdSearch_Count.Text = WDResultListCount.ToString
txtTask_Popup.Text = Task_Popup_minutes.ToString
CheckBoxGridDocResult_BestFitColumns.Checked = GridDocResult_BestFitColumns
@ -181,13 +181,14 @@ Public Class frmConfig_Basic
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start(ClassLogger.DateiSpeicherort)
Process.Start(LOGCONFIG.LogFile)
End Sub
Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
LogErrorsOnly = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", LogErrorsOnly, "ConfigMain")
clsCURRENT.LOG_ERRORS_ONLY = LogErrorsOnly
DEBUG = chkLogErrorsOnly.Checked
SaveMySettingsValue("LogErrorsOnly", DEBUG, "ConfigMain")
clsCURRENT.LOG_ERRORS_ONLY = DEBUG
LOGCONFIG.Debug = DEBUG
End Sub
@ -273,8 +274,8 @@ Public Class frmConfig_Basic
System.IO.Directory.CreateDirectory(mypath)
End If
Catch ex As Exception
ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False)
ClassLogger.Add(" >> " & ex.Message, False)
LOGGER.Warn("Fehler beim Erstellen des Folderwatchordners: " & mypath)
LOGGER.Warn("" & ex.Message)
MsgBox("Error in creating Hotfolder: " & mypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try

2
app/DD-Record-Organizer/frmConstructorDesigner.vb
View File

@ -307,7 +307,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
' view = SQL_SELECT_EBENE1TextBox.Text.ToUpper.Replace("SELECT * FROM ", "")
' view = view.Trim
' Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')"
' If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Sql, False)
' LOGGER.Debug("" & Sql, False)
' Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
' If DT IsNot Nothing Then
' COLUMN_NAME1ComboBox.Items.Clear()

28
app/DD-Record-Organizer/frmConstructor_Main.Designer.vb generated
View File

@ -39,6 +39,7 @@ Partial Class frmConstructor_Main
Me.AuswertungAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiFilesearch = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiNodedownSearch = New System.Windows.Forms.ToolStripMenuItem()
Me.EntitätsweiteSucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripSeparator24 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmiNodeRename = New System.Windows.Forms.ToolStripMenuItem()
@ -167,6 +168,7 @@ Partial Class frmConstructor_Main
Me.docCM_Open = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.docCM_Copy = New System.Windows.Forms.ToolStripMenuItem()
Me.ExportNachExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
Me.docCMEntityWideSearch = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator()
@ -350,13 +352,12 @@ Partial Class frmConstructor_Main
'
'AuswertungAnzeigenToolStripMenuItem
'
Me.AuswertungAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Reports_collapsed_12995_32x
Me.AuswertungAnzeigenToolStripMenuItem.Name = "AuswertungAnzeigenToolStripMenuItem"
resources.ApplyResources(Me.AuswertungAnzeigenToolStripMenuItem, "AuswertungAnzeigenToolStripMenuItem")
'
'tsmiFilesearch
'
Me.tsmiFilesearch.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiNodedownSearch})
Me.tsmiFilesearch.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiNodedownSearch, Me.EntitätsweiteSucheToolStripMenuItem})
resources.ApplyResources(Me.tsmiFilesearch, "tsmiFilesearch")
Me.tsmiFilesearch.Name = "tsmiFilesearch"
'
@ -366,6 +367,11 @@ Partial Class frmConstructor_Main
Me.tsmiNodedownSearch.Name = "tsmiNodedownSearch"
resources.ApplyResources(Me.tsmiNodedownSearch, "tsmiNodedownSearch")
'
'EntitätsweiteSucheToolStripMenuItem
'
Me.EntitätsweiteSucheToolStripMenuItem.Name = "EntitätsweiteSucheToolStripMenuItem"
resources.ApplyResources(Me.EntitätsweiteSucheToolStripMenuItem, "EntitätsweiteSucheToolStripMenuItem")
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
@ -386,9 +392,9 @@ Partial Class frmConstructor_Main
'tstxtRenameNode
'
Me.tstxtRenameNode.BackColor = System.Drawing.SystemColors.Control
resources.ApplyResources(Me.tstxtRenameNode, "tstxtRenameNode")
Me.tstxtRenameNode.ForeColor = System.Drawing.SystemColors.ControlText
Me.tstxtRenameNode.Name = "tstxtRenameNode"
resources.ApplyResources(Me.tstxtRenameNode, "tstxtRenameNode")
'
'tsmiNodeNew
'
@ -404,8 +410,8 @@ Partial Class frmConstructor_Main
'tsmINewText
'
Me.tsmINewText.BackColor = System.Drawing.Color.Yellow
resources.ApplyResources(Me.tsmINewText, "tsmINewText")
Me.tsmINewText.Name = "tsmINewText"
resources.ApplyResources(Me.tsmINewText, "tsmINewText")
'
'ToolStripSeparator15
'
@ -1236,7 +1242,7 @@ Partial Class frmConstructor_Main
'ContextMenuStripResultFiles
'
Me.ContextMenuStripResultFiles.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ToolStripSeparator10, Me.docCMEntityWideSearch, Me.ToolStripSeparator20, Me.docCM_InWork, Me.docCM_linkRecord, Me.docCM_Showlinks, Me.docCM_RenameMain, Me.ToolStripSeparator22, Me.WindreamToolStripMenuItem, Me.ToolStripSeparator7, Me.docCM_CheckRights, Me.docCM_GetRights, Me.ToolStripSeparator8, Me.docCM_RemoveLink, Me.docCM_DeleteFile, Me.ToolStripSeparator9, Me.docCM_showGridSearch, Me.ToolStripSeparator16, Me.docCM_PropertiesFile, Me.ToolStripSeparator25, Me.ToolStripMenuItem1, Me.docCM_ResetView})
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.docCM_Open, Me.OrdnerÖffnenToolStripMenuItem, Me.docCM_Copy, Me.ExportNachExcelToolStripMenuItem, Me.ToolStripSeparator10, Me.docCMEntityWideSearch, Me.ToolStripSeparator20, Me.docCM_InWork, Me.docCM_linkRecord, Me.docCM_Showlinks, Me.docCM_RenameMain, Me.ToolStripSeparator22, Me.WindreamToolStripMenuItem, Me.ToolStripSeparator7, Me.docCM_CheckRights, Me.docCM_GetRights, Me.ToolStripSeparator8, Me.docCM_RemoveLink, Me.docCM_DeleteFile, Me.ToolStripSeparator9, Me.docCM_showGridSearch, Me.ToolStripSeparator16, Me.docCM_PropertiesFile, Me.ToolStripSeparator25, Me.ToolStripMenuItem1, Me.docCM_ResetView})
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
'
@ -1256,6 +1262,12 @@ Partial Class frmConstructor_Main
Me.docCM_Copy.Name = "docCM_Copy"
resources.ApplyResources(Me.docCM_Copy, "docCM_Copy")
'
'ExportNachExcelToolStripMenuItem
'
Me.ExportNachExcelToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel
Me.ExportNachExcelToolStripMenuItem.Name = "ExportNachExcelToolStripMenuItem"
resources.ApplyResources(Me.ExportNachExcelToolStripMenuItem, "ExportNachExcelToolStripMenuItem")
'
'ToolStripSeparator10
'
Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
@ -1303,8 +1315,8 @@ Partial Class frmConstructor_Main
'CMDoc_TextBoxRenameFile
'
Me.CMDoc_TextBoxRenameFile.BackColor = System.Drawing.Color.Orange
resources.ApplyResources(Me.CMDoc_TextBoxRenameFile, "CMDoc_TextBoxRenameFile")
Me.CMDoc_TextBoxRenameFile.Name = "CMDoc_TextBoxRenameFile"
resources.ApplyResources(Me.CMDoc_TextBoxRenameFile, "CMDoc_TextBoxRenameFile")
'
'DisplaynameUmbenennenToolStripMenuItem
'
@ -1315,8 +1327,8 @@ Partial Class frmConstructor_Main
'CMDoc_TextBoxRenameDisplay
'
Me.CMDoc_TextBoxRenameDisplay.BackColor = System.Drawing.Color.DarkOrange
resources.ApplyResources(Me.CMDoc_TextBoxRenameDisplay, "CMDoc_TextBoxRenameDisplay")
Me.CMDoc_TextBoxRenameDisplay.Name = "CMDoc_TextBoxRenameDisplay"
resources.ApplyResources(Me.CMDoc_TextBoxRenameDisplay, "CMDoc_TextBoxRenameDisplay")
'
'ToolStripSeparator22
'
@ -1977,4 +1989,6 @@ Partial Class frmConstructor_Main
Friend WithEvents bsitmLoadEntity As DevExpress.XtraBars.BarStaticItem
Friend WithEvents bsitmWFState As DevExpress.XtraBars.BarStaticItem
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ExportNachExcelToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EntitätsweiteSucheToolStripMenuItem As ToolStripMenuItem
End Class

91
app/DD-Record-Organizer/frmConstructor_Main.resx
View File

@ -177,6 +177,12 @@
<data name="tsmiNodedownSearch.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="EntitätsweiteSucheToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 22</value>
</data>
<data name="EntitätsweiteSucheToolStripMenuItem.Text" xml:space="preserve">
<value>Enitätssuche - "alle Dateien"</value>
</data>
<data name="tsmiFilesearch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@ -204,9 +210,6 @@
<data name="ToolStripSeparator24.Size" type="System.Drawing.Size, System.Drawing">
<value>221, 6</value>
</data>
<data name="tstxtRenameNode.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="tstxtRenameNode.Size" type="System.Drawing.Size, System.Drawing">
<value>200, 23</value>
</data>
@ -229,9 +232,6 @@
<data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
<value>Knotentext:</value>
</data>
<data name="tsmINewText.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="tsmINewText.Size" type="System.Drawing.Size, System.Drawing">
<value>152, 23</value>
</data>
@ -478,7 +478,7 @@
<value>0, 0</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>908, 237</value>
<value>910, 237</value>
</data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -550,7 +550,7 @@
<value>0, 0</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>699, 229</value>
<value>699, 221</value>
</data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@ -580,7 +580,7 @@
<value>0, 26</value>
</data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>486, 178</value>
<value>488, 170</value>
</data>
<data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
@ -627,10 +627,10 @@
<value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
</data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 204</value>
<value>0, 196</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>486, 25</value>
<value>488, 25</value>
</data>
<data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -657,7 +657,7 @@
<value>0, 0</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>486, 26</value>
<value>488, 26</value>
</data>
<data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -678,7 +678,7 @@
<value>Panel2</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 233</value>
<value>1201, 225</value>
</data>
<data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -854,7 +854,7 @@
<value>1</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 260</value>
<value>1201, 252</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value>
@ -872,7 +872,7 @@
<value>0</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 288</value>
<value>1203, 280</value>
</data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@ -884,7 +884,7 @@
<value>0, 27</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 237</value>
<value>1201, 225</value>
</data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -980,9 +980,6 @@
<data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="BindingNavigatorPositionItem.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
<value>50, 23</value>
</data>
@ -1141,7 +1138,7 @@
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 264</value>
<value>1201, 252</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value>
@ -1197,7 +1194,7 @@
<value>0, 27</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 237</value>
<value>1201, 225</value>
</data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
@ -1299,7 +1296,7 @@
<value>1</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 264</value>
<value>1201, 252</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>Dateien</value>
@ -1730,7 +1727,7 @@
<value>2</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 264</value>
<value>1201, 252</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value>
@ -1832,7 +1829,7 @@
<value>5</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 237</value>
<value>1201, 225</value>
</data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>90</value>
@ -1904,7 +1901,7 @@
<value>1</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 264</value>
<value>1201, 252</value>
</data>
<data name="TabPageVariant.Text" xml:space="preserve">
<value>Vorgängervarianten</value>
@ -1931,7 +1928,7 @@
<value>0, 0</value>
</data>
<data name="TreeList1.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 264</value>
<value>1201, 252</value>
</data>
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>301, 17</value>
@ -1960,7 +1957,7 @@
<value>0</value>
</data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>1201, 264</value>
<value>1201, 252</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve">
<value>NodeNavigation(beta)</value>
@ -1993,7 +1990,7 @@
<value>Panel2</value>
</data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 537</value>
<value>1203, 527</value>
</data>
<data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -2017,7 +2014,7 @@
<value>Fill</value>
</data>
<data name="SplitContainerFORM.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 147</value>
<value>0, 158</value>
</data>
<data name="SplitContainerFORM.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
@ -2026,7 +2023,7 @@
<value>Panel2</value>
</data>
<data name="SplitContainerFORM.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 537</value>
<value>1203, 527</value>
</data>
<data name="SplitContainerFORM.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@ -2067,6 +2064,12 @@
<data name="docCM_Copy.Text" xml:space="preserve">
<value>Datei in Zwischenablage kopieren</value>
</data>
<data name="ExportNachExcelToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>255, 26</value>
</data>
<data name="ExportNachExcelToolStripMenuItem.Text" xml:space="preserve">
<value>Export nach Excel</value>
</data>
<data name="ToolStripSeparator10.Size" type="System.Drawing.Size, System.Drawing">
<value>252, 6</value>
</data>
@ -2120,9 +2123,6 @@
<data name="docCM_Showlinks.Text" xml:space="preserve">
<value>Verknüpfungen anzeigen</value>
</data>
<data name="CMDoc_TextBoxRenameFile.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="CMDoc_TextBoxRenameFile.Size" type="System.Drawing.Size, System.Drawing">
<value>152, 23</value>
</data>
@ -2135,9 +2135,6 @@
<data name="NeuToolStripMenuItem.Text" xml:space="preserve">
<value>Dateinamen umbenennen</value>
</data>
<data name="CMDoc_TextBoxRenameDisplay.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="CMDoc_TextBoxRenameDisplay.Size" type="System.Drawing.Size, System.Drawing">
<value>152, 23</value>
</data>
@ -2289,7 +2286,7 @@
<value>Ansicht zurücksetzen</value>
</data>
<data name="ContextMenuStripResultFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>256, 494</value>
<value>256, 520</value>
</data>
<data name="&gt;&gt;ContextMenuStripResultFiles.Name" xml:space="preserve">
<value>ContextMenuStripResultFiles</value>
@ -2367,7 +2364,7 @@
<value>221, 134</value>
</metadata>
<data name="bbtniRefresh.Caption" xml:space="preserve">
<value>Aktualisieren</value>
<value>Aktualisieren Datensätze</value>
</data>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="bbtniRefresh.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -2634,13 +2631,13 @@
<value>Record-Funktionen</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 147</value>
<value>1203, 158</value>
</data>
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 684</value>
<value>0, 685</value>
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1203, 25</value>
<value>1203, 24</value>
</data>
<data name="&gt;&gt;RibbonStatusBar1.Name" xml:space="preserve">
<value>RibbonStatusBar1</value>
@ -3190,6 +3187,12 @@
<data name="&gt;&gt;tsmiNodedownSearch.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;EntitätsweiteSucheToolStripMenuItem.Name" xml:space="preserve">
<value>EntitätsweiteSucheToolStripMenuItem</value>
</data>
<data name="&gt;&gt;EntitätsweiteSucheToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripSeparator12.Name" xml:space="preserve">
<value>ToolStripSeparator12</value>
</data>
@ -3724,6 +3727,12 @@
<data name="&gt;&gt;docCM_Copy.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ExportNachExcelToolStripMenuItem.Name" xml:space="preserve">
<value>ExportNachExcelToolStripMenuItem</value>
</data>
<data name="&gt;&gt;ExportNachExcelToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripSeparator10.Name" xml:space="preserve">
<value>ToolStripSeparator10</value>
</data>

196
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -297,7 +297,7 @@ Public Class frmConstructor_Main
'End Try
' Hintergrund Bild initialisieren
BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein)
BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein) '
' Bestimme Dinge ausblenden wenn kein admin
@ -353,7 +353,7 @@ Public Class frmConstructor_Main
End If
End If
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM TBPMO_ENTITY_RIGHT_CONTROLS where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID), False)
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = ClassDatabase.Return_Datatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID), False)
Load_Adding_users()
Load_Configurable_Nodes()
@ -362,7 +362,7 @@ Public Class frmConstructor_Main
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 2")
End Try
Try
SQL = String.Format("select * from VWPMO_STRUCTURE_NODES where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
SQL = String.Format("select T.* from VWPMO_STRUCTURE_NODES T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True)
If DT.Rows.Count > 1 Then
TreeView_perControl = True
@ -397,7 +397,7 @@ Public Class frmConstructor_Main
DT_TREEVIEW_NODES_FIRST = ClassHelper.FILTER_DATATABLE(DT, "EXPAND_NODE = 1", "")
SQL = String.Format("select * from TBPMO_STRUCTURE_NODES_CONFIGURATION where ENTITY_ID IN (SELECT FORM_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0})", CONSTRUCTORID)
SQL = String.Format("select T.* from TBPMO_STRUCTURE_NODES_CONFIGURATION T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID WHERE T1.CONSTRUCT_ID = {0}", CONSTRUCTORID)
DT_TREEVIEW_CONFIGURATION = ClassDatabase.Return_Datatable(SQL)
Try
@ -477,7 +477,6 @@ Public Class frmConstructor_Main
FORM_LOADED = True
sw.Done()
If LogErrorsOnly = False Then ClassLogger.Add("", False)
Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 4")
End Try
@ -574,9 +573,11 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
If My.Settings.SaveDocGridlayout Then
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
End If
Dim XMLPath = Get_DocGrid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
@ -587,12 +588,15 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
If My.Settings.SaveDocGridlayout Then
Dim XMLPath = Get_DocGrid_Layout_Filename()
If File.Exists(XMLPath) Then
GridViewDoc_Search.RestoreLayoutFromXml(XMLPath)
GridViewDoc_Search.GuessAutoFilterRowValuesFromFilter()
End If
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, ex.StackTrace)
End Try
@ -949,7 +953,7 @@ Public Class frmConstructor_Main
' End If
' End If
' Catch ex As Exception
' ClassLogger.Add("Error In Search_RowHandle: " & ex.Message, False)
' LOGGER.Warn("Error In Search_RowHandle: " & ex.Message)
' End Try
'End Function
Public Function Get_Grid_Column_Count() As Integer
@ -1051,7 +1055,7 @@ Public Class frmConstructor_Main
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 And _refresh = False And ERROR_WHILE_SAVING = False Then
Exit Sub
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & RECID.ToString & " - " & Now, False)
LOGGER.Debug("RowHandler: RID: " & RECID.ToString & " - " & Now)
'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
If GRID_TYPE = GridType.Grid Then
If IsTopFirstRow Then
@ -1266,7 +1270,7 @@ Public Class frmConstructor_Main
Next
sw.Done()
Catch ex As Exception
ClassLogger.Add("Error in SearchNodeForRecord: " & ex.Message, True)
LOGGER.Warn("Error in SearchNodeForRecord: " & ex.Message)
End Try
End Sub
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
@ -1576,7 +1580,7 @@ Public Class frmConstructor_Main
If SelectedNode IsNot Nothing Then
Dim _TagENT_ID = ClassNodeNavigation.Return_ENTITY_FOR_TAG(SelectedNode.Tag)
If (_TagENT_ID <> 0 And _TagENT_ID <> ENTITY_ID) Or _TagENT_ID <> CURRENT_ENTITY_ID Then
ClassLogger.Add("Entity-Data needs to be reloaded...", False)
LOGGER.Info("Entity-Data needs to be reloaded...")
ENTITY_ID = _TagENT_ID
CURRENT_ENTITY_ID = ENTITY_ID
@ -1672,7 +1676,7 @@ Public Class frmConstructor_Main
Try
PWplainText = wrapper.DecryptData(_row.Item("AD_USER_PW").ToString())
Catch ex As Exception
ClassLogger.Add("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted", False)
LOGGER.Warn("- the Password for FileAddingUser '" & FAU_AD_USER & "' could not be decrypted")
PWplainText = ""
End Try
FAU_AD_USER_PW = PWplainText
@ -2223,12 +2227,12 @@ Public Class frmConstructor_Main
RECORD_ID = SELECTED_RECORD_ID
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
CONTROL_HANDLING()
Dim sql = String.Format("select TRL.DOC_ID, TDRL.FULL_FILENAME FROM TBPMO_DOC_RECORD_LINK TRL, TBPMO_DOCRESULT_LIST TDRL WHERE TRL.DOC_ID = TDRL.DocID AND TRL.RECORD_ID = {0}", RECORD_ID)
Dim sql = String.Format("select TRL.DOC_ID, TDRL.FULL_FILENAME FROM TBPMO_DOC_RECORD_LINK TRL INNER JOIN TBPMO_DOCRESULT_LIST TDRL ON TRL.DOC_ID = TDRL.DocID WHERE TRL.RECORD_ID = {0}", RECORD_ID)
Dim DT_DOC_RESULT As DataTable = DD_LIB_Standards.clsDatabase.Return_Datatable(sql, False)
If IsNothing(DT_DOC_RESULT) Then
ClassLogger.Add(">> DT_DOC_RESULT is nothing!", True)
LOGGER.Warn("DT_DOC_RESULT is nothing!")
End If
If ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "DELETE_RECORD - UserDecidedYes") = True Then
RECORD_CHANGED = False
@ -2454,7 +2458,7 @@ Public Class frmConstructor_Main
Sub Load_Entity_Data_CONTROLS_RECORDS()
Try
If LogErrorsOnly = False Then ClassLogger.Add("START Load_Entity_Data", False)
LOGGER.Debug("START Load_Entity_Data")
Dim sw As New SW("Load_Entity_Data")
PARENT_SKIPPED = False
' Me.Cursor = Cursors.WaitCursor
@ -2521,21 +2525,21 @@ Public Class frmConstructor_Main
Try
ADD_RECORDS_CONSTR = resultDT_VWPMO_CONSTRUCTOR_FORMS.Item("ADD_RECORDS")
Catch ex As Exception
ClassLogger.Add(ex.Message, True)
LOGGER.Warn(ex.Message)
ADD_RECORDS_CONSTR = True
End Try
If ADD_RECORDS_CONSTR = False Then
ClassLogger.Add("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID, False)
LOGGER.Warn("ADDING RECORDS IS PROHIBITED FOR ENTITY: " & ENTITY_ID)
End If
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
DT_WINDREAM_COLUMNS_GRID = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
expression = String.Format("ENTITY_ID = {0} AND TYPE_ID = 3 AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
DT_DOCRESULT_DROPDOWN_ITEMS = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS, expression, "SEQUENCE")
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
DT_RESULTLIST_OPTIONS = ClassHelper.FILTER_DATATABLE(CURRENT_VARIABLE_CONTROLS, "ENTITY_ID = " & ENTITY_ID, "")
expression = String.Format("ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE") 'ClassDatabase.Return_Datatable(sql, True)
DT_RESULTLIST_VARIABLE_VALUE = ClassHelper.FILTER_DATATABLE(CURRENT_RESULTLIST_CONFIG, expression, "SEQUENCE")
Dim ENTITY_ROW = (From form In DT_ENTITY_DATA.AsEnumerable()
Select form
Where form.Item("GUID") = ENTITY_ID).Single()
@ -2551,7 +2555,7 @@ Public Class frmConstructor_Main
CURRENT_ENTITY_REDUNDANT_ID = 0
End If
'sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & ENTITY_ID, "") ' ClassDatabase.Return_Datatable(sql, True)
DT_RIGHTS_USER = ClassHelper.FILTER_DATATABLE(CURRENT_TBPMO_RIGHT_USER, "ENTITY_ID = " & ENTITY_ID, "")
expression = String.Format("")
sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
DT_RIGHTS_GROUP = ClassDatabase.Return_Datatable(sql, True)
@ -2617,7 +2621,7 @@ Public Class frmConstructor_Main
PARENT_RECORDID = 0
EBENE1_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE1_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 1 selected in TreeView", False)
LOGGER.Debug("Level 1 selected in TreeView")
'tslblEntity2.Visible = False
@ -2636,7 +2640,7 @@ Public Class frmConstructor_Main
Case 2
EBENE2_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE2_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 2 selected in TreeView", False)
LOGGER.Debug("Level 2 selected in TreeView")
EBENE3_ENTITY = ""
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken
If EBENE1_RECID > 0 Then
@ -2670,7 +2674,7 @@ Public Class frmConstructor_Main
Case 3
EBENE3_ENTITY = TreeViewMain.SelectedNode.Text
ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 3 selected in TreeView", False)
LOGGER.Debug("Level 3 selected in TreeView")
Dim result4 = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
@ -2691,7 +2695,7 @@ Public Class frmConstructor_Main
CURRENT_ENTITYSQL = CURRENT_ENTITYSQL.ToString.Replace("@T2.RECORD1_ID", PARENT_RECORDID)
End If
Catch ex As Exception
ClassLogger.Add("Error in Replacing patterns in entity_sql: " & ex.Message)
LOGGER.Warn("Error in Replacing patterns in entity_sql: " & ex.Message)
End Try
Else
@ -2809,7 +2813,7 @@ Public Class frmConstructor_Main
primaryKey(0) = CURRENT_DT_ENTITY_RECORDS.Columns("Record-ID")
CURRENT_DT_ENTITY_RECORDS.PrimaryKey = primaryKey
Catch ex As Exception
ClassLogger.Add("Could not set the primary Key(Record-ID): " & ex.Message, True)
LOGGER.Warn("Could not set the primary Key(Record-ID): " & ex.Message)
End Try
@ -3195,7 +3199,7 @@ Public Class frmConstructor_Main
If IsNothing(PARENT_RECORD1) Then
Dim New_Record = ClassRecordCommands.GetLastRecord
If Not IsNothing(New_Record) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
LOGGER.Debug("Parent-Record Ebene 1 wird neu angelegt...")
'Die neue Record-ID setzen
ClassRecordCommands.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
Return New_Record
@ -3213,7 +3217,7 @@ Public Class frmConstructor_Main
If IsNothing(PARENT_RECORD2) Then
Dim New_Record = ClassRecordCommands.GetLastRecord
If Not IsNothing(New_Record) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False)
LOGGER.Debug("Parent-Record Ebene 1 wird neu angelegt...")
'Die neue Record-ID setzen
ClassRecordCommands.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "")
Return New_Record
@ -3255,7 +3259,7 @@ Public Class frmConstructor_Main
' grvwGrid.GridControl.RepositoryItems.Add(chkRep)
' grvwGrid.Columns("files?").ColumnEdit = chkRep
'Catch ex As Exception
' ClassLogger.Add(">> Attention: Column files? not existing in GridView?", False)
' LOGGER.Warn("Attention: Column files? not existing in GridView?")
'End Try
'grvwGrid.Columns("Record-ID").OptionsColumn.AllowShowHide = False
End If
@ -3368,7 +3372,7 @@ Public Class frmConstructor_Main
Where form.Item("GUID") = ENTITY_ID).Single()
Update_Status_Label(False, "")
If LogErrorsOnly = False Then ClassLogger.Add(" >> GRID_RECORD ID: " & Rec_ID.ToString, False)
LOGGER.Debug("GRID_RECORD ID: " & Rec_ID.ToString)
'Me.pnlDetails.Visible = True
If FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet####
Dim linkedRecord
@ -3583,7 +3587,7 @@ Public Class frmConstructor_Main
Return Grid_RecordID
Else
'tsstatus_Detail_show(True, "Grid_RecordID konnte nicht gewählt werden!")
'ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
'LOGGER.Info("Grid_RecordID konnte nicht gewählt werden - SelectedRecord_ShowData", True)
Return Nothing
End If
Else
@ -3761,7 +3765,7 @@ Public Class frmConstructor_Main
End If
End If
Else
ClassLogger.Add(">> No files 2 delete - after deleting record!", False)
LOGGER.Info("No files 2 delete - after deleting record!")
End If
Cursor = Cursors.Default
Catch ex As Exception
@ -3918,7 +3922,7 @@ Public Class frmConstructor_Main
End If
If DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count > 0 Then
ClassLogger.Add($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!", False)
LOGGER.Info($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!")
End If
ClassWindreamDocGrid.FillColumns(
@ -4225,7 +4229,7 @@ Public Class frmConstructor_Main
Return PARENT_RECORDID
Case Else
MsgBox("Undefined pattern '" & content & "' in windream-Search Config. Please inform Your system-administrator.", MsgBoxStyle.Exclamation)
ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True)
LOGGER.Warn("Undefined Search-pattern in windream-search config: " & content)
End Select
End Function
'Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked
@ -4280,8 +4284,8 @@ Public Class frmConstructor_Main
End If
Catch ex As Exception
ClassLogger.Add(" ### Error in CloseDocView")
ClassLogger.Add("### " & ex.Message & " ###")
LOGGER.Warn(" ### Error in CloseDocView")
LOGGER.Warn("### " & ex.Message & " ###")
End Try
End Sub
@ -4336,7 +4340,7 @@ Public Class frmConstructor_Main
End If
End Sub
Private Sub ButtonResetView_Click(sender As Object, e As EventArgs) Handles ButtonResetView.Click
Reset_View_layout
Reset_View_layout()
End Sub
Sub Reset_View_layout()
Try
@ -4545,22 +4549,22 @@ Public Class frmConstructor_Main
RUN_WDSEARCH_GRID()
TimerClearResultfiles.Start()
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
LOGGER.Debug("No new files were added or windream tab is not focused!")
End If
Me.Cursor = Cursors.Default
Else
'If RIGHT_RECORD_AND_FILE_READ_ONLY = True Then
' ClassLogger.Add(">> RIGHT_RECORD_AND_FILE_READ_ONLY is set! No DragDrop allowed", False)
' LOGGER.Warn("RIGHT_RECORD_AND_FILE_READ_ONLY is set! No DragDrop allowed")
'End If
If RIGHT_READ_ONLY_DOC = True Then
ClassLogger.Add(">> RIGHT_WD_FORBIDDEN is set! No DragDrop allowed", False)
LOGGER.Warn("RIGHT_WD_FORBIDDEN is set! No DragDrop allowed")
Else
ClassLogger.Add(">> No DragDrop allowed - ELSE", False)
LOGGER.Warn("No DragDrop allowed - ELSE")
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Drag_Drop: " & ex.Message)
LOGGER.Warn("Unexpected Error in Drag_Drop: " & ex.Message)
MsgBox("Unexpected Error in DragDrop - Please check the log for further information!", MsgBoxStyle.Exclamation)
Finally
@ -4584,7 +4588,7 @@ Public Class frmConstructor_Main
If Not IsNothing(Str) Then
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
If DropType.ToString.Contains("SCAN") = False Then
ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
LOGGER.Info("Check_Dropped_Files:" & Str.ToString)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
If CURRENT_WORKFILE.ToString.Contains("@") Then
MsgBox("File contains invalid operator @!" & vbNewLine & "Please rename file and try again!", MsgBoxStyle.Exclamation)
@ -4950,8 +4954,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Load_Level1()
End If
sw.Done()
If LogErrorsOnly = False Then ClassLogger.Add("", False)
FORM_SHOWN = True
End Sub
Sub Jump_Record()
@ -5210,9 +5212,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim ColorRow As Color
Try
ColorRow = Color.FromName(rowCellValue)
If LogErrorsOnly = False Then ClassLogger.Add(">> RowBackColor '" & rowCellValue & "' will be used for record: " & Get_Focused_Row_Cell_Value("Record-ID"), False)
LOGGER.Debug("RowBackColor '" & rowCellValue & "' will be used for record: " & Get_Focused_Row_Cell_Value("Record-ID"))
Catch ex As Exception
ClassLogger.Add(">> RowBackColor '" & rowCellValue & "'could not be converted from name!", False)
LOGGER.Info("RowBackColor '" & rowCellValue & "'could not be converted from name!")
Exit Sub
End Try
'Dim c As Color = DirectCast(rowCellValue, Color)
@ -5220,7 +5222,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
e.HighPriority = True
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in RowStyle: " & ex.Message)
End Try
End If
End If
@ -5240,7 +5242,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in grvwGrid_MouseDown: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in grvwGrid_MouseDown: " & ex.Message)
End Try
End Sub
@ -5785,7 +5787,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try
RENAME_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
Catch ex As Exception
ClassLogger.Add(">> Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message, False)
LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
RENAME_DOC_PATH = Nothing
End Try
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
@ -5845,7 +5847,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Checking Value In Work: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Checking Value In Work: " & ex.Message)
End Try
Try
@ -5874,8 +5876,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
If rowcolorname <> "" Then
Exit For
End If
Exit For
End If
Next
If rowcolorname <> "" Then
ColorRow = Color.FromName(rowcolorname)
@ -5892,7 +5894,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in RowStyle-Color Dropdown: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in RowStyle-Color Dropdown: " & ex.Message)
End Try
End If
@ -5948,7 +5950,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">> FileRight is R but User is Admin!! - Check the configuration!", False)
LOGGER.Warn("FileRight is R but User is Admin!! - Check the configuration!")
End If
ROW_READ_ONLY = True
@ -5960,7 +5962,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">> FileRight is '' but User is Admin!! - Check the configuration!", False)
LOGGER.Warn("FileRight is '' but User is Admin!! - Check the configuration!")
End If
ROW_READ_ONLY = True
End Select
@ -5973,7 +5975,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">> RIGHT_READ_ONLY_DOC = True but User is Admin!! - Check the configuration!", False)
LOGGER.Warn("RIGHT_READ_ONLY_DOC = True but User is Admin!! - Check the configuration!")
End If
End If
End If
@ -5998,6 +6000,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Sub File_in_Work()
IW_USER = ""
IW_COMMENT = ""
docCM_InWork.Enabled = True
Try
Dim expression As String
@ -6005,13 +6009,22 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
Try
IW_USER = foundRowsLevel0(0)("IN_WORK_USER")
IW_COMMENT = foundRowsLevel0(0)("IN_WORK_COMMENT")
Dim oSQL = "Select IN_WORK,IN_WORK_USER,IN_WORK_COMMENT FROM TBPMO_DOCRESULT_LIST where DocID = " + ClassWindreamDocGrid.SELECTED_DOC_ID
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
IW_USER = CBool(oDT.Rows(0).Item("IN_WORK_USER"))
IW_COMMENT = CBool(oDT.Rows(0).Item("IN_WORK_COMMENT"))
End If
End If
Catch ex As Exception
IW_USER = ""
IW_COMMENT = ""
End Try
Dim displ As String
If CBool(ClassWindreamDocGrid.SELECTED_INWORK) = True Then
If IW_USER.ToUpper = USER_USERNAME.ToUpper Or USER_IS_ADMIN Then
@ -6033,7 +6046,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
docCM_InWork.Text = displ
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in File-Work Info: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in File-Work Info: " & ex.Message)
docCM_InWork.Enabled = False
End Try
End Sub
@ -6275,7 +6288,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
MsgBox(msg, MsgBoxStyle.Information)
Continue For
End If
ClassLogger.Add(String.Format("Relinking entity of record '{0}' to entity '{1}'?", _RECORD, ENTITY_STRING.ToString), False)
LOGGER.Info(String.Format("Relinking entity of record '{0}' to entity '{1}'?", _RECORD, ENTITY_STRING.ToString))
Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
If ClassDatabase.Execute_non_Query(upd) = True Then
@ -6671,7 +6684,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If RECORD_CREATE = True Then
Dim recordId = ClassRecordCommands.CreateRecordProcedure(ENTITY_ID)
If recordId = 0 Then
ClassLogger.Add("Error in ADD_NODE: Could not create Record", True)
LOGGER.Warn("Error in ADD_NODE: Could not create Record", True)
ClassHelper.MSGBOX_Handler("ERROR", "Error in ADD_NODE", "Could not create Record")
Exit Sub
Else
@ -6772,7 +6785,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">> OpenFile.FileRight is R but User is Admin!! - Check the configuration!", False)
LOGGER.Warn("OpenFile.FileRight is R but User is Admin!! - Check the configuration!")
End If
allow_Open = True
Case "RW"
@ -6903,7 +6916,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If USER_IS_ADMIN = False Then
ContextMenu_Read()
Else
ClassLogger.Add(">>cmsRFB_O.FileRight is R but User is Admin!! - Check the configuration!", False)
LOGGER.Warn(">>cmsRFB_O.FileRight is R but User is Admin!! - Check the configuration!")
End If
Case Else
ContextMenu_Write()
@ -7157,7 +7170,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
'' For Each oProcess As Process In Process.GetProcesses()
'' If oProcess.Id = oDatarow.Item("PROCESS_ID") Then
'' 'process found so it's running so return true
'' If LogErrorsOnly = False Then ClassLogger.Add($"Process {oProcess.ProcessName} still running - {oProcess.Id.ToString}", False)
'' LOGGER.Debug($"Process {oProcess.ProcessName} still running - {oProcess.Id.ToString}")
'' exists = True
'' End If
'' Next
@ -7180,28 +7193,28 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
' Dim oFileExists = ClassDatabase.Execute_Scalar(oSql, False)
' If oFileExists = 0 Then
' CURRENT_OFFICE_FILE_CHANGED = True
' ClassLogger.Add($"The docId [{oDocID}] of handled file {oDocPath} changed during editing mode!", False)
' LOGGER.Info($"The docId [{oDocID}] of handled file {oDocPath} changed during editing mode!")
' oSql = $"SELECT MAX(dwDocID) FROM windream60.dbo.BaseAttributes WHERE dwVersionID = {oVersionID}"
' Dim oNEW_DOC As DataTable = ClassDatabase.Return_Datatable(oSql, False)
' If oNEW_DOC.Rows.Count = 1 And Not IsDBNull(oNEW_DOC.Rows(0).Item(0)) Then
' Dim oNEWDocID = oNEW_DOC.Rows(0).Item(0)
' ClassLogger.Add($"New DocID is: {oNEWDocID}!!", False)
' LOGGER.Info($"New DocID is: {oNEWDocID}!!")
' oSql = $"EXEC PRPMO_DOC_CHANGE_DOCID {oDocID},{oNEWDocID},'{USER_USERNAME}'"
' If LogErrorsOnly = False Then ClassLogger.Add(oSql, False)
' If ClassDatabase.Execute_non_Query(oSql, False) = False Then
' ClassLogger.Add($"Could not relink the DocID!!", False)
' LOGGER.Debug(oSql)
' If ClassDatabase.Execute_non_Query(oSql) = False Then
' LOGGER.Info($"Could not relink the DocID!!")
' Else
' oSql = $"UPDATE TBPMO_DOC_ID_CHANGED SET NEW_DOC_ID = {oNEWDocID}, CHANGED_WHEN = GETDATE() WHERE GUID = {oGUID}"
' ClassDatabase.Execute_non_Query(oSql, False)
' ClassDatabase.Execute_non_Query(oSql)
' End If
' Else
' ClassLogger.Add($"Could not get the new DOCID [{oSql}]!!", False)
' LOGGER.Info($"Could not get the new DOCID [{oSql}]!!")
' End If
' End If
' 'End If
'Next
Catch ex As Exception
ClassLogger.Add($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!", True)
LOGGER.Warn($"Unexpected error in TimerFileHandleTick [{ex.Message}]!!")
End Try
End Sub
@ -7365,11 +7378,32 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
frmRecord_Changes.ShowDialog()
End Sub
Private Sub OfficeVorlagentsmi_Click(sender As Object, e As EventArgs)
Private Sub ExportNachExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportNachExcelToolStripMenuItem.Click
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel File|*.xlsx"
saveFileDialog1.Title = "Export to Excel:"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Cursor = Cursors.WaitCursor
GridControlDocSearch.MainView.ExportToXlsx(saveFileDialog1.FileName)
Dim result As MsgBoxResult
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("File was created. Do You want to open excel?")
End If
result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(saveFileDialog1.FileName)
End If
End If
Cursor = Cursors.Default
End Sub
Private Sub BarEditItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarEditItem2.ItemClick
Private Sub EntitätsweiteSucheToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EntitätsweiteSucheToolStripMenuItem.Click
CURRENT_SEARCH_TYPE = "ENTITY"
RUN_ENTITY_DOC_SEARCH()
End Sub
End Class

8
app/DD-Record-Organizer/frmDocLink_Record_Entities.vb
View File

@ -145,7 +145,7 @@ Public Class frmDocLink_Record_Entities
Dim ResultSQL, ResultViewName As String
Dim RecordId As Integer
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
LOGGER.Debug("GridType = Grid", False)
ResultViewName = "VWPMO_ENTITY_TABLE" & FormId.ToString
ResultSQL = "SELECT T.* FROM " & ResultViewName & " T"
@ -164,11 +164,11 @@ Public Class frmDocLink_Record_Entities
Return ResultSQL
Catch ex As Exception
ClassLogger.Add("Error in Get_Grid_Sql in LinkToRecord: " & vbNewLine & ex.Message, True)
LOGGER.Warn("Error in Get_Grid_Sql in LinkToRecord: " & vbNewLine & ex.Message)
MsgBox("Error in Get_Grid_Sql in LinkToRecord: " & vbNewLine & ex.Message)
End Try
Catch ex As Exception
ClassLogger.Add("Error in Get_Grid_Sql: " & vbNewLine & ex.Message, True)
LOGGER.Warn("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
MsgBox("Error in Get_Grid_Sql: " & vbNewLine & ex.Message)
End Try
End Function
@ -294,7 +294,7 @@ Public Class frmDocLink_Record_Entities
NODE_NAVIGATION_LOADED = True
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> NodeTag: " & SelectedNode.Tag.ToString, False)
LOGGER.Debug("NodeTag: " & SelectedNode.Tag.ToString, False)
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
Dim Record = ClassNodeNavigation.Return_RECORD_forTag(SelectedNode.Tag)
If Record <> 0 Then

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

@ -121,7 +121,7 @@ Public Class frmDocRecordLink
If IsNothing(SELECTED_RECORDID) Then
Continue For
End If
If LogErrorsOnly = False Then ClassLogger.Add(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString, False)
LOGGER.Debug(">>> Doc will be linked with Record: " & SELECTED_RECORDID.ToString, False)
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = row.Item("DOC_ID")
@ -153,11 +153,11 @@ Public Class frmDocRecordLink
Dim ENT_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", SELECTED_RECORDID))
If ENT_ID > 1 And Entity_Index <> String.Empty Then
If clsWD_SET.IndexFile(DOC_PATH, Entity_Index, ENT_ID, _objecttype) = False Then
Dim msg = "Die Entität-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
If USER_LANGUAGE <> "de-DE" Then
msg = "Could not index Entity-ID! Please check logfile!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
'Dim msg = "Die Entität-ID konnte nicht gesetzt werden! Bitte überprüfen Sie die Logfile"
'If USER_LANGUAGE <> "de-DE" Then
' msg = "Could not index Entity-ID! Please check logfile!"
'End If
'MsgBox(msg, MsgBoxStyle.Exclamation)
End If
End If
If Record_Index <> String.Empty Then
@ -226,11 +226,11 @@ Public Class frmDocRecordLink
ENTITY_LOAD_ACTIVE = True
Save_DocGrid_Layout()
Dim ResultSQL, ResultViewName As String
If LogErrorsOnly = False Then ClassLogger.Add(" >> GridType = Grid", False)
LOGGER.Debug("GridType = Grid", False)
ResultViewName = $"VWPMO_ENTITY_TABLE{entity.id}"
ResultSQL = $"SELECT T.* FROM {ResultViewName} T"
txtEntity.Text = cmbConstructorForms.Text
If LogErrorsOnly = False Then ClassLogger.Add(" >> ResultSQL: " & ResultSQL, False)
LOGGER.Debug("ResultSQL: " & ResultSQL, False)
Me.Cursor = Cursors.WaitCursor
Dim DT_RESULT = clsDatabase.Return_Datatable(ResultSQL, True)
If Not IsNothing(DT_RESULT) Then

15
app/DD-Record-Organizer/frmDocSearchResult.Designer.vb generated
View File

@ -30,6 +30,7 @@ Partial Class frmDocSearchResult
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabelCaption = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.docCM_Open = New System.Windows.Forms.ToolStripMenuItem()
@ -65,7 +66,7 @@ Partial Class frmDocSearchResult
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabelCaption, Me.ToolStripButton1})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabelCaption, Me.ToolStripButton1, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1083, 25)
@ -75,7 +76,7 @@ Partial Class frmDocSearchResult
'ToolStripLabelCaption
'
Me.ToolStripLabelCaption.Name = "ToolStripLabelCaption"
Me.ToolStripLabelCaption.Size = New System.Drawing.Size(88, 22)
Me.ToolStripLabelCaption.Size = New System.Drawing.Size(87, 22)
Me.ToolStripLabelCaption.Text = "ToolStripLabel1"
'
'ToolStripButton1
@ -87,6 +88,15 @@ Partial Class frmDocSearchResult
Me.ToolStripButton1.Size = New System.Drawing.Size(95, 22)
Me.ToolStripButton1.Text = "Aktualisieren"
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(120, 22)
Me.ToolStripButton2.Text = "Export nach Excel"
Me.ToolStripButton2.ToolTipText = "Export nach Excel"
'
'GridControlDocSearch
'
Me.GridControlDocSearch.ContextMenuStrip = Me.ContextMenuStripResultFiles
@ -217,4 +227,5 @@ Partial Class frmDocSearchResult
Friend WithEvents docCM_PropertiesFile As ToolStripMenuItem
Friend WithEvents ToolStripSeparator25 As ToolStripSeparator
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton
End Class

43
app/DD-Record-Organizer/frmDocSearchResult.vb
View File

@ -31,7 +31,6 @@ Public Class frmDocSearchResult
Public Sub LoadDocSearch()
Try
Cursor = Cursors.WaitCursor
Dim DTRESULT As DataTable = ClassDatabase.Return_Datatable(CURRENT_DOCSEARCH_SQL, True)
GridControlDocSearch.DataSource = Nothing
GridViewDoc_Search.Columns.Clear()
@ -39,8 +38,16 @@ Public Class frmDocSearchResult
GridViewDoc_Search.BestFitColumns(True)
ToolStripLabelCaption.Text = $"{CURRENT_DOCSEARCH_CAPTION} ({DTRESULT.Rows.Count} rows)"
Load_DocGrid_Layout()
GridControlDocSearch.DataSource = DTRESULT
GridControlDocSearch.DataSource = DTRESULT
If GridViewDoc_Search.RowCount > 15000 Then
ToolStripButton2.Enabled = False
Else
ToolStripButton2.Enabled = True
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in LoadDocSearch: " & ex.Message)
LOGGER.Warn("Unexpected Error in LoadDocSearch: " & ex.Message)
End Try
Cursor = Cursors.Default
@ -216,9 +223,41 @@ Public Class frmDocSearchResult
Private Sub GridViewDoc_Search_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewDoc_Search.ColumnFilterChanged
ToolStripLabelCaption.Text = $"{CURRENT_DOCSEARCH_CAPTION} ({GridViewDoc_Search.RowCount} rows [filtered])"
If GridViewDoc_Search.RowCount > 12000 Then
ToolStripButton2.Enabled = False
Else
ToolStripButton2.Enabled = True
End If
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
LoadDocSearch()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Try
Dim saveFileDialogDocSearchResult As New SaveFileDialog
saveFileDialogDocSearchResult.Filter = "Excel File|*.xlsx"
saveFileDialogDocSearchResult.Title = "Export to Excel:"
saveFileDialogDocSearchResult.ShowDialog()
If saveFileDialogDocSearchResult.FileName <> "" Then
Cursor = Cursors.WaitCursor
GridControlDocSearch.MainView.ExportToXlsx(saveFileDialogDocSearchResult.FileName)
Dim result As MsgBoxResult
Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?")
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("File was created. Do You want to open excel?")
End If
result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(saveFileDialogDocSearchResult.FileName)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in ExportExcel: " & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End Sub
End Class

2
app/DD-Record-Organizer/frmDoc_Links.vb
View File

@ -46,7 +46,7 @@ Public Class frmDoc_Links
If IsNothing(oDocID) Then
Continue For
End If
If LogErrorsOnly = False Then ClassLogger.Add($">> RecordLink will be removed Record: {oRECORD_ID} - DocID: {oDocID} ", False)
LOGGER.Debug($"RecordLink will be removed Record: {oRECORD_ID} - DocID: {oDocID} ")
Try
If ClassFileResult.Delete_ResultFile(oDocID, oRECORD_ID, 0) = True Then
ClassHelper.InsertEssential_Log(oDocID, "DOC-ID", $"RECORD LINK {oRECORD_ID} REMOVED FROM DOC-SEARCH")

10
app/DD-Record-Organizer/frmEntities.vb
View File

@ -50,7 +50,7 @@ Public Class frmEntities
Try
Dim DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 1 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2}))", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Level 0 >>" & DT_SQL, False)
LOGGER.Debug(Now.ToString & "Level 0 >>" & DT_SQL, False)
Dim DT As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
If DT.Rows.Count > 0 Then
@ -63,7 +63,7 @@ Public Class frmEntities
'Jetzt die Ebene1Knoten einhängen
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " &
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID IN ({2},0) AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("GUID"), USER_GUID)
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Level 1 >>" & DT_SQL, False)
LOGGER.Debug(Now.ToString & "Level 1 >>" & DT_SQL, False)
'Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL"
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
If dtEbene1.Rows.Count > 0 Then
@ -73,7 +73,7 @@ Public Class frmEntities
Node1.Tag = row1.Item("GUID")
DT_SQL = String.Format("SELECT T.GUID, T1.FORM_TITLE,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), {1}) AS 'CAPTION' FROM " & _
"TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = {2} AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {3})) ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, row1.Item("GUID"), USER_GUID)
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Level 2 >>" & DT_SQL, False)
LOGGER.Debug(Now.ToString & "Level 2 >>" & DT_SQL, False)
' Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL"
'Jetzt die Ebene2 Knoten einhängen
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
@ -93,7 +93,7 @@ Public Class frmEntities
"FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 AND T.GUID IN (select DISTINCT ENTITY_ID FROM TBPMO_CLIENT_ENTITY WHERE CLIENT_ID IN (select client_Id from TBDD_CLIENT_USER where USER_ID = {2})) ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
'Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE"
Dim DT3 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
If LogErrorsOnly = False Then ClassLogger.Add(Now.ToString & ">> Indepentent Entities >>" & DT_SQL, False)
LOGGER.Debug(Now.ToString & "Indepentent Entities >>" & DT_SQL, False)
If DT3.Rows.Count > 0 Then
Dim Node As TreeNode
Node = TreeViewEntity.Nodes.Add("INDEPENDENT ENTITIES")
@ -209,7 +209,7 @@ Public Class frmEntities
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), "FORM-OVERVIEW-UserLayout.xml")
' treeListForms.RestoreLayoutFromXml(XMLPath)
Catch notFoundEx As System.IO.FileNotFoundException
ClassLogger.Add("Layout added for Overview")
LOGGER.Warn("Layout added for Overview")
Catch ex As Exception
MsgBox("Error while loading custom Layout!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try

36
app/DD-Record-Organizer/frmGlobalSearch.Designer.vb generated
View File

@ -51,6 +51,10 @@ Partial Class frmGlobalSearch
Me.txtSearch = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout()
CType(Me.GridControlRecords, System.ComponentModel.ISupportInitialize).BeginInit()
@ -63,6 +67,7 @@ Partial Class frmGlobalSearch
Me.ToolStripMain.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainerMain
@ -106,7 +111,7 @@ Partial Class frmGlobalSearch
'
'GridViewRecords
'
Me.GridViewRecords.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewRecords.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewRecords.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewRecords.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewRecords.GridControl = Me.GridControlRecords
Me.GridViewRecords.Name = "GridViewRecords"
@ -152,6 +157,7 @@ Partial Class frmGlobalSearch
'
'GridControlFiles
'
Me.GridControlFiles.ContextMenuStrip = Me.ContextMenuStrip1
resources.ApplyResources(Me.GridControlFiles, "GridControlFiles")
Me.GridControlFiles.MainView = Me.GridViewFiles
Me.GridControlFiles.Name = "GridControlFiles"
@ -159,7 +165,7 @@ Partial Class frmGlobalSearch
'
'GridViewFiles
'
Me.GridViewFiles.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewFiles.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewFiles.Appearance.EvenRow.BackColor = System.Drawing.Color.Orange
Me.GridViewFiles.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewFiles.GridControl = Me.GridControlFiles
Me.GridViewFiles.Name = "GridViewFiles"
@ -266,6 +272,27 @@ Partial Class frmGlobalSearch
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.EigenschaftenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
'
'DateiÖffnenToolStripMenuItem
'
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem")
'
'OrdnerÖffnenToolStripMenuItem
'
Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
resources.ApplyResources(Me.OrdnerÖffnenToolStripMenuItem, "OrdnerÖffnenToolStripMenuItem")
'
'EigenschaftenToolStripMenuItem
'
Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
'
'frmGlobalSearch
'
resources.ApplyResources(Me, "$this")
@ -291,6 +318,7 @@ Partial Class frmGlobalSearch
Me.Panel1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
@ -321,4 +349,8 @@ Partial Class frmGlobalSearch
Friend WithEvents ShowRecordToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents tsbtnviewDetail As System.Windows.Forms.ToolStripButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
End Class

64
app/DD-Record-Organizer/frmGlobalSearch.resx
View File

@ -155,9 +155,6 @@
<data name="GridControlRecords.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="GridViewRecords.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Aqua</value>
</data>
<data name="GridControlRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>751, 313</value>
</data>
@ -193,7 +190,7 @@
<value>Magenta</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>60, 22</value>
<value>61, 22</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Export</value>
@ -234,17 +231,44 @@
<data name="SplitContainerMain.Panel1.Text" xml:space="preserve">
<value>Panel1</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>571, 17</value>
</metadata>
<data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>149, 22</value>
</data>
<data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Datei öffnen</value>
</data>
<data name="OrdnerÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>149, 22</value>
</data>
<data name="OrdnerÖffnenToolStripMenuItem.Text" xml:space="preserve">
<value>Ordner öffnen</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>149, 22</value>
</data>
<data name="EigenschaftenToolStripMenuItem.Text" xml:space="preserve">
<value>Eigenschaften</value>
</data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 70</value>
</data>
<data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
<value>ContextMenuStrip1</value>
</data>
<data name="&gt;&gt;ContextMenuStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GridControlFiles.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="GridControlFiles.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="GridViewFiles.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Orange</value>
</data>
<data name="GridControlFiles.Size" type="System.Drawing.Size, System.Drawing">
<value>406, 313</value>
<value>408, 313</value>
</data>
<data name="GridControlFiles.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@ -289,7 +313,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>406, 25</value>
<value>408, 25</value>
</data>
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@ -331,7 +355,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;SplitContainerMain.ZOrder" xml:space="preserve">
<value>1</value>
<value>2</value>
</data>
<metadata name="ToolStripMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
@ -604,7 +628,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>2</value>
<value>3</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
@ -739,6 +763,24 @@
<data name="&gt;&gt;tsbtnRefresh.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DateiÖffnenToolStripMenuItem.Name" xml:space="preserve">
<value>DateiÖffnenToolStripMenuItem</value>
</data>
<data name="&gt;&gt;DateiÖffnenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;OrdnerÖffnenToolStripMenuItem.Name" xml:space="preserve">
<value>OrdnerÖffnenToolStripMenuItem</value>
</data>
<data name="&gt;&gt;OrdnerÖffnenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;EigenschaftenToolStripMenuItem.Name" xml:space="preserve">
<value>EigenschaftenToolStripMenuItem</value>
</data>
<data name="&gt;&gt;EigenschaftenToolStripMenuItem.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmGlobalSearch</value>
</data>

129
app/DD-Record-Organizer/frmGlobalSearch.vb
View File

@ -1,10 +1,35 @@
Imports DevExpress.Utils
Imports System.Text
Imports System.IO
Imports DevExpress.XtraGrid.Views.Grid
Imports System.Runtime.InteropServices
Public Class frmGlobalSearch
Inherits Form
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function
Public Structure SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
Dim nShow As Integer
Dim hInstApp As IntPtr
Dim lpIDList As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
Public hkeyClass As IntPtr
Public dwHotKey As Integer
Public hIcon As IntPtr
Public hProcess As IntPtr
End Structure
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
Public Const SW_SHOW As Short = 5
Private _Helper As ClassHelper
Dim sel_Records, sel_FT As String
Private Sub tsbtnRefresh_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh.Click
@ -52,10 +77,10 @@ Public Class frmGlobalSearch
Sub PREPARE_FT_SQL()
Dim sqlft = SQL_FULLTEXT
sqlft = sqlft.Replace("@FULLTEXT", txtSearch.Text)
Dim selDoc = String.Format("SELECT [DocID],[FULL_FILENAME],[Filename],[DISPLAY_NAME],[Doctype],[Creation_DateTime] As CreatedWhen,[Change_DateTime] as ChangedWhen,[IN_WORK] as [InWork?] " &
"FROM VWPMO_DOC_SEARCH where DocID in " & vbNewLine &
"({0}) " & vbNewLine &
"AND DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {1})", sqlft, USERID_FK_INT_ECM)
Dim selDoc = String.Format("SELECT T.[DocID],T.[FULL_FILENAME],T.[Filename],T.[DISPLAY_NAME],T.[Doctype],T.[Creation_DateTime] As CreatedWhen,T.[Change_DateTime] as ChangedWhen,T.[IN_WORK] as [InWork?] " &
"FROM VWPMO_DOC_SEARCH T INNER JOIN ( " & vbNewLine &
"{0}) Y ON T.DocID = Y.dwDocID " & vbNewLine &
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHT ON T.DocID = TRIGHT.dwObjectID WHERE TRIGHT.dwUserOrGroupID = {1}", sqlft, USERID_FK_INT_ECM)
sel_FT = selDoc
End Sub
@ -183,20 +208,7 @@ Public Class frmGlobalSearch
End Sub
Private Sub GridControlFiles_DoubleClick(sender As Object, e As EventArgs) Handles GridControlFiles.DoubleClick
Me.Cursor = Cursors.WaitCursor
For Each row In GridViewFiles.GetSelectedRows
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
If IsNothing(SELECTED_DOC_PATH) Then
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
Exit Sub
End If
ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID)
Next
Me.Cursor = Cursors.Default
File_open()
End Sub
Sub Save_DocGrid_Layout()
Try
@ -256,4 +268,83 @@ Public Class frmGlobalSearch
Load_DocGrid_Layout()
Load_RecordGrid_Layout()
End Sub
Sub Show_File_Properties()
Try
For Each row In GridViewFiles.GetSelectedRows
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO
sei.cbSize = Marshal.SizeOf(sei)
sei.lpVerb = "properties"
sei.lpFile = SELECTED_DOC_PATH
sei.nShow = SW_SHOW
sei.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(sei) Then
Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Open file propertys:", ex.Message)
End If
Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Open_folder()
Try
For Each row In GridViewFiles.GetSelectedRows
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
ClassHelper.Open_Folder(SELECTED_DOC_PATH, SELECTED_DOC_ID)
ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID)
Next
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub GridControlRecords_DoubleClick(sender As Object, e As EventArgs) Handles GridControlRecords.DoubleClick
End Sub
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
File_open()
End Sub
Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
Open_folder()
End Sub
Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
Show_File_Properties()
End Sub
Sub File_open()
Me.Cursor = Cursors.WaitCursor
For Each row In GridViewFiles.GetSelectedRows
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
If IsNothing(SELECTED_DOC_PATH) Then
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
Exit Sub
End If
ClassHelper.File_open(SELECTED_DOC_PATH, SELECTED_DOC_ID)
Next
Me.Cursor = Cursors.Default
End Sub
End Class

1
app/DD-Record-Organizer/frmMain.Designer.vb generated
View File

@ -618,6 +618,7 @@ Partial Class frmMain
Me.pageForms.ImageOptions.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_form
Me.pageForms.Name = "pageForms"
resources.ApplyResources(Me.pageForms, "pageForms")
Me.pageForms.Visible = False
'
'groupQuickAccessForm2
'

634
app/DD-Record-Organizer/frmMain.resx
View File

@ -1650,73 +1650,72 @@
</data>
<data name="BarButtonItem4.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAPdEVYdFRpdGxlAFRhc2s7RWRpdLiPZrMAAAMeSURBVDhPZZN/LJRxHMcfJxzjYv1Rm5a1bNXy
j7Wyfk0IYUjKEtVKRPoxtVpToayM86MuFUqKdZXUFpWJOVIpXXYuv9IxP/qBczi/7hx37z7PM26tnu21
Pfs+39fr++z7fB8GAEOXCWFKLCDMEjNfVidlvQIL3SMhvVRC4+ZzsHNMWI9z5wKm3wv21SgKwqG4F4qE
jDL0DqjxQd6LOlkPIuJy0XDVA00ZPpCmbqtlI/8GzDrvh2FG9QU9JTFIzizBvmPZCD8qwt7o64g5m4ea
i1vQLo5E7YUNrGDxb8C8I38PdMoGdD+JgoEGy6tlyCmsRO6DSuQQdZe24js9e3vehRX4/wW+5e3G9MB7
dIkPwWAwQD0xDUXPIOq/KDikQm90PTsyH7B8l7aRqUpcZwxYtOUEY/q3BIqi/dDrDRgd13J0/1RB1tpL
AU/8qkzE52t7WMGGYDfdxBhozd4BzY836CigvZjVY3hMy6Ea06CvfxTN+RH4VZeBd5n+oJXx+LhTCnnm
8wH+V5E/NN2laL8bAt2MnhOH1BqoiBG6bxWfgqzoEBQvdkFv6EKzOBCioGWp8wFLeZYvJjufojU3GFrd
LMlTGBqdwjAF+lWjqL8Zgo7nQZys7TxBe+EE4bYlcztJAVm6Fya+FaHldiCmtDNQksxG+pUjaCzLQFtx
ACdPNEej+swqVAtdEedsmzUfsGpM9cB4y100i3wxrtFBSfLvgWFIXwjR8tCPk0caDqLqpCMqkjch1kkg
Is/aGJBeccVY0w3Ir3lBfiMQ8sJYvL2+E/ICb04ekISiInY5ys6vx+GV1tnksF+CZww0JG+GWpoGZUUU
Bmvi8ak4HnXC7Zzc9zII5dEOeH7aGQdWWN2i+QtZOXQx/RpzAQtJvIvkw8V1eB+/FvXpO3E6MgaleSmY
7PuI11EOeBy7BmEOlrdpri0rdz7yYYIXmRkDPIJPWBPsq9k7e57pktdXoDD1HC67OSLEnp9D43YEr+2O
O9N2x40JsKWzxAb+piqJjietYrfUHYLFLr1Wdqvz7AXWnjQmYGU/gSnD4mvDY3xseMwfYXhMZalwx7cA
AAAASUVORK5CYII=
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAA90RVh0VGl0
bGUAVGFzaztFZGl0uI9mswAAAx5JREFUOE9lk38slHEcxx8nHONi/VGblrVs1fKPtbJ+TQhhSMoS1UpE
+jG1WlOhrIzzoy4VSop1ldQWlYk5Uilddi6/0jE/+oFzOL/uHHfvPs8zbq2e7bU9+z7f1+v77Pt8HwYA
Q5cJYUosIMwSM19WJ2W9AgvdIyG9VELj5nOwc0xYj3PnAqbfC/bVKArCobgXioSMMvQOqPFB3os6WQ8i
4nLRcNUDTRk+kKZuq2Uj/wbMOu+HYUb1BT0lMUjOLMG+Y9kIPyrC3ujriDmbh5qLW9AujkTthQ2sYPFv
wLwjfw90ygZ0P4mCgQbLq2XIKaxE7oNK5BB1l7biOz17e96FFfj/Bb7l7cb0wHt0iQ/BYDBAPTENRc8g
6r8oOKRCb3Q9OzIfsHyXtpGpSlxnDFi05QRj+rcEiqL90OsNGB3XcnT/VEHW2ksBT/yqTMTna3tYwYZg
N93EGGjN3gHNjzfoKKC9mNVjeEzLoRrToK9/FM35EfhVl4F3mf6glfH4uFMKeebzAf5XkT803aVovxsC
3YyeE4fUGqiIEbpvFZ+CrOgQFC92QW/oQrM4EKKgZanzAUt5li8mO5+iNTcYWt0syVMYGp3CMAX6VaOo
vxmCjudBnKztPEF74QThtiVzO0kBWboXJr4VoeV2IKa0M1CSzEb6lSNoLMtAW3EAJ080R6P6zCpUC10R
52ybNR+wakz1wHjLXTSLfDGu0UFJ8u+BYUhfCNHy0I+TRxoOouqkIyqSNyHWSSAiz9oYkF5xxVjTDciv
eUF+IxDywli8vb4T8gJvTh6QhKIidjnKzq/H4ZXW2eSwX4JnDDQkb4ZamgZlRRQGa+LxqTgedcLtnNz3
Mgjl0Q54ftoZB1ZY3aL5C1k5dDH9GnMBC0m8i+TDxXV4H78W9ek7cToyBqV5KZjs+4jXUQ54HLsGYQ6W
t2muLSt3PvJhgheZGQM8gk9YE+yr2Tt7numS11egMPUcLrs5IsSen0PjdgSv7Y4703bHjQmwpbPEBv6m
KomOJ61it9QdgsUuvVZ2q/PsBdaeNCZgZT+BKcPia8NjfGx4zB9heExlqXDHtwAAAABJRU5ErkJggg==
</value>
</data>
<data name="BarButtonItem4.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAPdEVYdFRpdGxlAFRhc2s7RWRpdLiPZrMAAApqSURBVFhHlZcJVJRVG8eHFipsMQ0T9SPNzyJN
Uist61hpZi6EaCJiFCCQuKAom6AkCAJiiqSJqIkoIsI4IrIj+4gDyhIgyDLINvsMw8zAsIz+u/dlOQh9
56t7zu/M+7687/P/3/vc+9wLCwDDv2h6hGcJzxP0B+//cRvSG9Ydvni60aB/xzOOrife9jnCSfU9mtTn
vC8qY4PdwZn0+aj3RjPcRoozusMXA42+TIPRHlJoD8cRXh1kgkdAXD6vogVCuRq5JQ1w2BvJI8/fJEwc
5HXCiwQ6Qs8RhswxbaQ4ozt8MdCeKY2xWVqTYF9cy7ZH6/04HDqeAK+gG/AM5sAjkA33ADYeNstxt7oN
+eWP4OD+B+wpbudht/csnD3OoDj1HLhnrHD3rNX92+HrlpO4tDOMiZHijO7wxcALz9bE24nUbZl43F0L
pbwJu3wvorJOAEmHhvRagzapCpWNYmTwGpHCrUdhRSvK60QoftAOTlYFLH4MQHZ2KuorbqGlNBol5zaK
SFw6Gv/IwPO1CbaMeJ8kAU3cSMREHIXj7hM48CsHEVcLEJ10Dwm3q8DJrUFMShlOxhYg8HQynDzOwnzz
fvh5e+FqxCGUZ4VAxk9DSeQGGvwFAk3FU+KM7vDFgAH9mjgb6DTV6Gn+HUUn10CpVCG/qBT+oZexZXc4
rLaGwtwmCKs3BRD8sdYmAJscguDuexrRsclIzeIhyssMlek+UDSmoDhiPQ1O58T/NUBf0K+O3QydugLa
xnAUHvkc/f06KDrVKK1sRFLaHVzjZCMmPoOIpeAi4Qq5Zt/MRWomD3lFlah8wEe89xI053lD0ZQE3qm1
NPhLg/HHtlEGXqi6bA1dZxm664+hMOQzPH78BJruPnSqe9DYIsb9P/koKW9ASVkd80vvy6v4qKxtQW2j
AAKxHCm+n0Nc6AVV000UhZvjhRdfpivpGb6bE2s0ow28WBlthf6OEnTXHkFB8GI8eQJ09ejQpe2Hursf
QpkK/GYp+C1SNLXI8KhVjuZ2BVqFCrSJZFCrtUjz/RRSrhu6mq6De3zNkIGhJTmEXs1O27EGKqIs0a8o
gqb6MPIDPwUZAEa8S6uDhvxS5J1aCMlqEMnUEMs0eNBcgXMZDojN84S2px8ZPosgL9gNTeM1FBxdCX19
g1dIbH2e7Qa/UruN4Nla+pH7AUOjDLxUfn49+uSFUP95CLn+nwymYKD3apIK+qvq6kMHSYlCpUXKvVM4
mbwKhfW+OBD1OdplfGR4fwxF3g5o6i+j5OwWGnx8hsXKgLqDrtCJGlDj7oTMdasOkefPjzZgUBq5Dr3i
HKjKfJHttxA6YoARJeJUmNLZ1QulRkt67A1OsT0qJAexN2IBqvh3mfdz/L+ELGcruhrZKLm4B79YOB6p
8toOnbAeiqhQqHMTULDxO7CXfREw0gCtVgb3IszRK8qE6p43snyJAd0TMuQqBF75HunFl6BkxPtwNdcf
7BJ7cAXbsPO391FRz4W2T4e+/sdIdZ8POXc/lPxkHPX1Q/DpLAgV3ZBfCEWzuz2E0REoD/TB77PfHRAf
YWBc8Skz9AhSoeR5IHP/R+gnBoJirJFU4YhfOcsRkxmMZN45nMkwR07rFhyKX4SLyUHQ9urQQcxpe/uR
G7wWYt5xpF0Ohu/xZLQo+5Bytwnc05FoPRGEa6ZzcG7WLBycOjVktIGXeeGroG1NhPLOHmR4fcj06GJy
KPxiP0FumxNOpa1BWNIKZLdswaXSFXAO+RKaHi1JTS+kym6yYnrJPrATVVfs8OiWLXq1QiQW1ONCUhnS
SOkOXW2FU9NnwHXCxFDa4TEGio5/C20zGx0FLkjzWIBeMqw0/2Ex7ghgL0T6o81Ia7JGQt0KWPtPxwN+
GVkZfYw43S8UHZ3IO2YB/g0bPOnhQ/vAG9z0MCTl1WLT9jP4ysIPSybPPUq1CE9NQmrgFW7oN+jmXyWz
eBtS3eahhxigs51OOt/TtvCKN8ZvpTPhEWeMgLNb0U2GXEaWpVihhkAiR2VKGBrY1mQ/aUB3mRuUuWug
KD8IH08vLF61DxPfWn2M6NCtnW71Ty1DauDVguBl6Gq4BHm2E5L3fDAsQFGoNHAJ+Q6/JL8FM7epeCTg
k+WohUiuQjspQvcTf0XdVUs81jxEd3UIOjJXQFbig7wDs5HqaoLlC+YeJxqvERjxhePfeaoQ0cLwWl7g
UnQ9PA9Zpj1u7TIlOe2HlIhLlVpICEK5FM7EZOgFd7I8e8i9Ci0CMUrYIai9tA461QMoudsgvbkUsjue
yPV8B7e2z0Lot0bhJD49rAztjHoGhuSoMNpAjv8SqKsjIEv7EUk75jL5ldD8DtNFhHvJ817IlGpShkXg
xQWh5oI5dMpKdGQ7QBr/GST5e5DlOhMcp7fh99WkSBKbnpqGdkW9n/ZGsQwMl40xMP422UjUlb9BkrIZ
N7bNYcTERFjc0QURRaGBgJRfgURJ9gMB7sQGoipyDSnfZZCn20IcsxCibBekb58Ott10RDkspsFnEWg5
ZsQLvU1Yh339WV+YvDfGwOsZPouhLj8GSZIVOFtnM1WPqXyEofIr7VChVSDEnSsB+PPUt+iTlkB6yxpt
5+dDmPEzUhyNEWfzH9zwWY3kw/Y0+DQCM/R57rNYDG7/ZYV+NmGMgQlpnovQeS8Y4sTvkePzMa47mYDt
+B4SHEyQsMUEyftWIjXYATe8lqM8bDl6REUQXrdE8+n3IUi2x037qbiycSriXb9AQ/YRcPZ8TYNPJjBH
+JxdM1iUbJcZrMMLx48dgZS9H6Oz2B+Sm1YQXbeAiG0OYYIZBNfM0MbeAH7qfmQEWSM/zBk97fkQxK7F
oxPvoj3RBhybKbi83ghXXZag9qYX2jPdcdlqJg1uSGDOhVnbjFm3nY1Z99yNWYfmkwUxysBribsWiPgc
Z0gznCBLd4Q0zR6SVDuIbv2EtkxPFEfvRvyO1eQToP2SGZpCZqKVbYkEq0mIMn8TV1y+RG3SfrQmOaPq
jBkubpxBD6V09tP4eumO01g812mshwemsX4xJdNihAFmOw6zMtnE2f6BJHGbKZmEpuA4zwX757lI91uH
1NCfEbPTDEVkUxE/LEV9wHS0xFng2jpD/LHaEOEbPgTn4I+Id1mGaMu3EWU5Q+r/9ZTNJK7BYHy9oh1G
rBovI1a1pxHrwBxSDEcYoIdS6pK+TJLDeoNAh45Cl9D0V8YbLvH8wUrb0VqPlvxo5P/uheid63HSYj6c
TcZdIu/MI8wgTBn8hswy5h8bpvfcrZNZVXsnMVS7TmL5zB5rgEKd0g9ozih09lJTk+d9au6/Y7c/BMVs
5IS74YzNUhxZYQqneVPOk79TYTrU9ABKvxn6nuk5pcrlDRalYudEBu/3iLcRBobakJGRhmhAo0VLf6jZ
tT8KK7/5HitN52hdP3orac3MN6zo3wgDm8sIwSHy7Ymo8wRWOWXr68M8ZeB/MRiEBjZ8x3Q5JhrNrnt1
gnHwc/oGH5FnUwk0XbTC0b1Eb5/JONa/4W9FR0KDDganuZxEoPml84NWNjoyNF1Mr73eNWD9OwxYfwHB
iWAdVWmZ+wAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAA90RVh0VGl0
bGUAVGFzaztFZGl0uI9mswAACmpJREFUWEeVlwlUlFUbx4cWKmwxDRP1I83PIk1SKy3rWGlmLoRoImIU
IJC4oCiboCQIAmKKpImoiSgiwjgisiP7iAPKEiDIMsg2+wzDzMCwjP6792U5CH3nq3vO78z7vrzv8//f
+9z73AsLAMO/aHqEZwnPE/QH7/9xG9Ib1h2+eLrRoH/HM46uJ972OcJJ9T2a1Oe8Lypjg93BmfT5qPdG
M9xGijO6wxcDjb5Mg9EeUmgPxxFeHWSCR0BcPq+iBUK5GrklDXDYG8kjz98kTBzkdcKLBDpCzxGGzDFt
pDijO3wx0J4pjbFZWpNgX1zLtkfr/TgcOp4Ar6Ab8AzmwCOQDfcANh42y3G3ug355Y/g4P4H7Clu52G3
9yycPc6gOPUcuGescPes1f3b4euWk7i0M4yJkeKM7vDFwAvP1sTbidRtmXjcXQulvAm7fC+isk4ASYeG
9FqDNqkKlY1iZPAakcKtR2FFK8rrRCh+0A5OVgUsfgxAdnYq6ituoaU0GiXnNopIXDoa/8jA87UJtox4
nyQBTdxIxEQchePuEzjwKwcRVwsQnXQPCberwMmtQUxKGU7GFiDwdDKcPM7CfPN++Hl74WrEIZRnhUDG
T0NJ5AYa/AUCTcVT4ozu8MWAAf2aOBvoNNXoaf4dRSfXQKlUIb+oFP6hl7FldzistobC3CYIqzcFEPyx
1iYAmxyC4O57GtGxyUjN4iHKywyV6T5QNKagOGI9DU7nxP81QF/Qr47dDJ26AtrGcBQe+Rz9/TooOtUo
rWxEUtodXONkIyY+g4il4CLhCrlm38xFaiYPeUWVqHzAR7z3EjTneUPRlATeqbU0+EuD8ce2UQZeqLps
DV1nGbrrj6Ew5DM8fvwEmu4+dKp70Ngixv0/+Sgpb0BJWR3zS+/Lq/iorG1BbaMAArEcKb6fQ1zoBVXT
TRSFm+OFF1+mK+kZvpsTazSjDbxYGW2F/o4SdNceQUHwYjx5AnT16NCl7Ye6ux9CmQr8Zin4LVI0tcjw
qFWO5nYFWoUKtIlkUKu1SPP9FFKuG7qaroN7fM2QgaElOYRezU7bsQYqoizRryiCpvow8gM/BRkARrxL
q4OG/FLknVoIyWoQydQQyzR40FyBcxkOiM3zhLanHxk+iyAv2A1N4zUUHF0JfX2DV0hsfZ7tBr9Su43g
2Vr6kfsBQ6MMvFR+fj365IVQ/3kIuf6fDKZgoPdqkgr6q+rqQwdJiUKlRcq9UziZvAqF9b44EPU52mV8
ZHh/DEXeDmjqL6Pk7BYafHyGxcqAuoOu0IkaUOPuhMx1qw6R58+PNmBQGrkOveIcqMp8ke23EDpigBEl
4lSY0tnVC6VGS3rsDU6xPSokB7E3YgGq+HeZ93P8v4QsZyu6GtkoubgHv1g4Hqny2g6dsB6KqFCocxNQ
sPE7sJd9ETDSAK1WBvcizNEryoTqnjeyfIkB3RMy5CoEXvke6cWXoGTE+3A11x/sEntwBduw87f3UVHP
hbZPh77+x0h1nw85dz+U/GQc9fVD8OksCBXdkF8IRbO7PYTRESgP9MHvs98dEB9hYFzxKTP0CFKh5Hkg
c/9H6CcGgmKskVThiF85yxGTGYxk3jmcyTBHTusWHIpfhIvJQdD26tBBzGl7+5EbvBZi3nGkXQ6G7/Fk
tCj7kHK3CdzTkWg9EYRrpnNwbtYsHJw6NWS0gZd54augbU2E8s4eZHh9yPToYnIo/GI/QW6bE06lrUFY
0gpkt2zBpdIVcA75EpoeLUlNL6TKbrJiesk+sBNVV+zw6JYterVCJBbU40JSGdJI6Q5dbYVT02fAdcLE
UNrhMQaKjn8LbTMbHQUuSPNYgF4yrDT/YTHuCGAvRPqjzUhrskZC3QpY+0/HA34ZWRl9jDjdLxQdncg7
ZgH+DRs86eFD+8Ab3PQwJOXVYtP2M/jKwg9LJs89SrUIT01CauAVbug36OZfJbN4G1Ld5qGHGKCznU46
39O28Io3xm+lM+ERZ4yAs1vRTYZcRpalWKGGQCJHZUoYGtjWZD9pQHeZG5S5a6AoPwgfTy8sXrUPE99a
fYzo0K2dbvVPLUNq4NWC4GXoargEebYTkvd8MCxAUag0cAn5Dr8kvwUzt6l4JOCT5aiFSK5COylC9xN/
Rd1VSzzWPER3dQg6MldAVuKDvAOzkepqguUL5h4nGq8RGPGF4995qhDRwvBaXuBSdD08D1mmPW7tMiU5
7YeUiEuVWkgIQrkUzsRk6AV3sjx7yL0KLQIxStghqL20DjrVAyi52yC9uRSyO57I9XwHt7bPQui3RuEk
Pj2sDO2MegaG5Kgw2kCO/xKoqyMgS/sRSTvmMvmV0PwO00WEe8nzXsiUalKGReDFBaHmgjl0ykp0ZDtA
Gv8ZJPl7kOU6Exynt+H31aRIEpuemoZ2Rb2f9kaxDAyXjTEw/jbZSNSVv0GSshk3ts1hxMREWNzRBRFF
oYGAlF+BREn2AwHuxAaiKnINKd9lkKfbQhyzEKJsF6Rvnw623XREOSymwWcRaDlmxAu9TViHff1ZX5i8
N8bA6xk+i6EuPwZJkhU4W2czVY+pfISh8ivtUKFVIMSdKwH489S36JOWQHrLGm3n50OY8TNSHI0RZ/Mf
3PBZjeTD9jT4NAIz9Hnus1gMbv9lhX42YYyBCWmei9B5LxjixO+R4/MxrjuZgO34HhIcTJCwxQTJ+1Yi
NdgBN7yWozxsOXpERRBet0Tz6fchSLbHTfupuLJxKuJdv0BD9hFw9nxNg08mMEf4nF0zWJRslxmswwvH
jx2BlL0fo7PYH5KbVhBdt4CIbQ5hghkE18zQxt4Afup+ZARZIz/MGT3t+RDErsWjE++iPdEGHJspuLze
CFddlqD2phfaM91x2WomDW5IYM6FWduMWbedjVn33I1Zh+aTBTHKwGuJuxaI+BxnSDOcIEt3hDTNHpJU
O4hu/YS2TE8UR+9G/I7V5BOg/ZIZmkJmopVtiQSrSYgyfxNXXL5EbdJ+tCY5o+qMGS5unEEPpXT20/h6
6Y7TWDzXaayHB6axfjEl02KEAWY7DrMy2cTZ/oEkcZspmYSm4DjPBfvnuUj3W4fU0J8Rs9MMRWRTET8s
RX3AdLTEWeDaOkP8sdoQ4Rs+BOfgj4h3WYZoy7cRZTlD6v/1lM0krsFgfL2iHUasGi8jVrWnEevAHFIM
Rxigh1Lqkr5MksN6g0CHjkKX0PRXxhsu8fzBStvRWo+W/Gjk/+6F6J3rcdJiPpxNxl0i78wjzCBMGfyG
zDLmHxum99ytk1lVeycxVLtOYvnMHmuAQp3SD2jOKHT2UlOT531q7r9jtz8ExWzkhLvhjM1SHFlhCqd5
U86Tv1NhOtT0AEq/Gfqe6TmlyuUNFqVi50QG7/eItxEGhtqQkZGGaECjRUt/qNm1Pworv/keK03naF0/
eitpzcw3rOjfCAObywjBIfLtiajzBFY5Zevrwzxl4H8xGIQGNnzHdDkmGs2ue3WCcfBz+gYfkWdTCTRd
tMLRvURvn8k41r/hb0VHQoMOBqe5nESg+aXzg1Y2OjI0XUyvvd41YP07DFh/AcGJYB1VaZn7AAAAAElF
TkSuQmCC
</value>
</data>
<data name="BarButtonItem5.Caption" xml:space="preserve">
@ -1724,71 +1723,71 @@
</data>
<data name="BarButtonItem5.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAydEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO1BlcnNvbjtDb250YWN0O1VzZXI7Q2xpZW50
fhE26AAAAyhJREFUOE91kllMU0EUhgdLVeIaXzRqCCIoAQK0VmwpYrl2oRqEpqmmjcQVFEQRKLu4gKwW
WlAEDATRkIKAQtQgxIq4xK1g3CNqosSNB4lLXKLG3xlE0z54kz935pzzf/fcmUMA/NPfRyaTuUTIInhy
uZyv4lR8pUzpSmM8Fmd5J4/jRqfTMfM4W4HGz26K7ujLW3H3dDqHhljJA9NqwcEEhWBGZGSki6PHCaBS
qcadzVFF9puiPrzp3oNhWyFGrpRhsDkN5/JXI0Pu3avm1K6OHicAbdm1wxj+9HmdFl05avRbtLhnXoW+
9FB0JkqQsswTynAl39HjBOA4jt8YJ/nenBiK4Uc96CqPR4VBiMJoP1g0Pr+2Sdy/KxSK/wPkYXJ+mS5w
qGqdGD/eP8CPd3fw6fYhPLNuR67SC5uFs4fYwTp6SPHJpf9E6TyjfEFpxVrxty8vevDztQ0fb5jwpCke
u5WeX/V+M6tolzxHjxOA3oKLm5vbVMta8eXBU1n4bLfg7ZkM3KrQY5/a6ybLsZqCVikpOCEl+1ukfwBF
7UvJq8/tpDGeY9c8IS3Kf1tbigKPGmLxsG4jmrZKELdsbhLNTdy/fA65/jKb7D4uJrnHxITkN0tJnjWE
GdmQ8BIPBAmzasX21mIdDumFMGv9Ub5ehBSzsD8m2zeYfYDVsXpjjYiQXUeX0DXh7TALQtNrF58ualHA
0qZFZ8sm2K3J6DLFoMQYjNRyf+TUhyDBFNhjSF+oHAONTiZvu1mQU2SNwJkBI269ykfrwBqkVgciJtcD
+sw5iCuZh5peDu13DDjcvRLGwyIYMn2KqXc8A4zfWhowbHucio77BjTal6P+hgxHroWh5qoUVZfEqLwY
DMsFEcptQhzsDUHVBQ76rIUj1DuZASasz/PFXmswCjtFKDm7CJV9Ilh6F6HMJoDpfBBKewJR0h2A3BP+
yDzui6RqX2hTvekQkCkMwFPHeoRH75hfqUn2smmSve9p07xpgRc0KVTJVDvnI4pqZcK8h+otHn3yDe61
kuhZauod/YXR0x/bTKSaRMXIU6mmjWn62JvFWNtuVHxCiMtvw3vW4/F3IE4AAAAASUVORK5CYII=
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAADJ0RVh0VGl0
bGUAQ3VzdG9tZXI7RW1wbG95ZWU7UGVyc29uO0NvbnRhY3Q7VXNlcjtDbGllbnR+ETboAAADKElEQVQ4
T3WSWUxTQRSGB0tV4hpfNGoIIigBArRWbCliuXahGoSmqaaNxBUURBEou7iArBZaUAQMBNGQgoBC1CDE
irjErWDcI2qixI0HiUtcosbfGUTTPniTP3fmnPN/99yZQwD8099HJpO5RMgieHK5nK/iVHylTOlKYzwW
Z3knj+NGp9Mx8zhbgcbPboru6Mtbcfd0OoeGWMkD02rBwQSFYEZkZKSLo8cJoFKpxp3NUUX2m6I+vOne
g2FbIUaulGGwOQ3n8lcjQ+7dq+bUro4eJwBt2bXDGP70eZ0WXTlq9Fu0uGdehb70UHQmSpCyzBPKcCXf
0eME4DiO3xgn+d6cGIrhRz3oKo9HhUGIwmg/WDQ+v7ZJ3L8rFIr/A+Rhcn6ZLnCoap0YP94/wI93d/Dp
9iE8s25HrtILm4Wzh9jBOnpI8cml/0TpPKN8QWnFWvG3Ly968PO1DR9vmPCkKR67lZ5f9X4zq2iXPEeP
E4Degoubm9tUy1rx5cFTWfhst+DtmQzcqtBjn9rrJsuxmoJWKSk4ISX7W6R/AEXtS8mrz+2kMZ5j1zwh
Lcp/W1uKAo8aYvGwbiOatkoQt2xuEs1N3L98Drn+MpvsPi4mucfEhOQ3S0meNYQZ2ZDwEg8ECbNqxfbW
Yh0O6YUwa/1Rvl6EFLOwPybbN5h9gNWxemONiJBdR5fQNeHtMAtC02sXny5qUcDSpkVnyybYrcnoMsWg
xBiM1HJ/5NSHIMEU2GNIX6gcA41OJm+7WZBTZI3AmQEjbr3KR+vAGqRWByIm1wP6zDmIK5mHml4O7XcM
ONy9EsbDIhgyfYqpdzwDjN9aGjBse5yKjvsGNNqXo/6GDEeuhaHmqhRVl8SovBgMywURym1CHOwNQdUF
DvqshSPUO5kBJqzP88VeazAKO0UoObsIlX0iWHoXocwmgOl8EEp7AlHSHYDcE/7IPO6LpGpfaFO96RCQ
KQzAU8d6hEfvmF+pSfayaZK972nTvGmBFzQpVMlUO+cjimplwryH6i0effIN7rWS6Flq6h39hdHTH9tM
pJpExchTqaaNafrYm8VY225UfEKIy2/De9bj8XcgTgAAAABJRU5ErkJggg==
</value>
</data>
<data name="BarButtonItem5.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAydEVYdFRpdGxlAEN1c3RvbWVyO0VtcGxveWVlO1BlcnNvbjtDb250YWN0O1VzZXI7Q2xpZW50
fhE26AAACfBJREFUWEfFlndUVNcWxq9JbNGoKXZ6j4yCSK+KiAMIaqQEEelVpIUig1RBRggWuoD0IgNS
AghGjY+iEUEN6gOixBYTn0aNZCWal6hf9hmCmrVI1luLP95e6zd35p579rf3PvucOxyA/yvj3nydRh9t
Qpdr3W7AnQgz5jqjTflnE9fu79tt2XM+xfJOb7IFzsSveXwq0rivLVC3qcFrue3hrapTqpxUuIrNyuP6
fJ1xb47BrN5Li6v31Fza6K3V0rpN93lnjDGuFG3F3dN78ehSMZ7ersPD86m42RqEi9nWaA1chgpHxYel
9graJXZyYh/j+R5j3JtjMKtzX764yV9n5ErJVlzKNCKxLPxyqwG/3BDhp+EK/HS1FCMDuXjQE42HPbG4
Vu2Ijp1qKHWUe3Jwg6ThhAOocVma0p1igesNHuiIWoL7Pal4cP4AHvTtxQ/n0nD/yxT8pysOt1v9CF/c
bPLCqWAFlNgvwl6z97omHEDFZpVrF7JtcCHTAtXOkmiL0MT1xm242RyC602BuCbyxGCxPQYObcIVoifZ
EMf9ZVFqtwh7Vs15NuEAiu0UnvWmrcFnQWoo2rQQokBjlDnK4ETECnTF6eF0ohFOReuiPVQDIjcFHPWQ
RoubFIrp2WTjWWIn4/keY9ybYzDLWy/53xOUdYWTDLI3SuO3x4NoE7phr/n7yLKcizzrecixmoc00/ew
U3cWvFWm4cjHi1FoMx/x+jOfTDiADIsFt+o8lUlkLglvBX69DvzcizvnCtEu3ISczUrYZyuPIn8N1ApW
oq8mCrtXzn6eYzEX0drTvyYXk8bzPca4N8dgJjR9r6HYQZoyfBc3zpQDT4eBnzqAkS+AHz8HbqXixXUh
Rr7cjh+7/PCoLxUC7enIXLcA4SumNk44gFj9mW7p5h8gyWQWnv88CDy5Cjw6MSr+iLiRjBfX4vHgpAfu
tdH58EU4orTfRqLJbASqveUz4QCMJSZPSeUvfJ7jIIVnj89TABTEw7ZRHjQBX8fj2b8FuNvsgDsNtrjd
7IUYvdkI05z+Qmf+GzMnHADZm/XBKwfbYo3w5A5l/MsACR8FfmgGvi8DhqLwa28gbouscaPaBoMVjkjj
y2IXX46t/2TinwP4H+yNAldtlxp/3u93z2ZSA16mAI4B9+uB4T3AlXBqBxd8U2qK4XIrnE63QJze7N9C
jCS9aK44ALGXv7P4opViUir4XEGL61/4094gZuQ7y2ddqfan0p+i7NuBb/YDl4KB/mB8J7LCUK4erpZZ
oDFUC4FLp+2jOe8SbxGTdmQbcpFERJYBF56hz31ygKFHQ2RjAeyv3fR3AbAMpgnMF1o0RxpQ2auo8/OB
iwHENvza7Y7hAkMM5uhhqMiMun8RbGQmr6U5bP1Z8FxYpgEXRoKh+/W4kH16XHC6Lhf0qS4behVATqPT
PwXASvl+5vqFX93tTAK+K8OL/k/wW7cL7or4GMrRxlChKbpTDCDQmHaBnl1ETCXEAbwS1eG2p+lwAana
3DahNht6FUBu0xbu1shhMbdHqonDow+MBvAm8Y6v1mx70XZd/H6jCE8vJeFenRVuVZjR+q/FQOEqZG9Y
jHXSkz+mZ98nxOUnuNLTdlzJaVuuqHsjV9S1gfPbrcn5JGuyodcq0OTE3XxcNcpIJV0rRh94FcDbOwJW
BafY8lDlo4WrLbF4eG4Pbje54ew+MxQ4yCLEcD42rBY33yziZQMWd39E4hu4Q53rucJOa84rUYPzTNBg
QxwXd8iEiytcyR2os+e+eVTGXWf8WMqG2OQx8anxiZbm5clbnndURSBzizqSTT7ALt2ZxAzsMpwDoaUE
stx5ENiqPLOzk19Dc2YQLAg2f1Jhpw1X0LGOyyfcYtU5151qdJssJt+EMOaEFeu44YeH2C0mytaOlXBK
ZDpfa3fJxsrcetfnA2cycZ/+BV0QRaEqdDUOemghz1UdRZ7LcSRED2079JFPb8WQNP3fXQRq5ZYuilrk
gzUj6wfmj/md5CxYxm2JWkpfyQR5Rpwg14h9fV14ani6uemuIpujWfVb0H5RgMH7eag7GYBhOgvu9eVg
sFGAM9ku6Eq3xb/2WOOLRHN6GRnAL0odlV86IaXGDH5CLTiG81r5LvKW5HM2Mf1P/5M+DuPRhYztT7KX
pY7ct9Y2odD6XA4JH++PRv/dNPTeiUXnje04cc0beS2b0FDri57GCFxtjMSFQnc0Cq0gjNGHV7wGco9b
Yu8xHaQ0a2BvuxESqozgk6wB+2DVXvOtCs6kwQKZQoh3CBdGBwPZm9LKc2YEpenX5jQ44+TlnTj/7W50
3wzHsa9d0DJgj+YBW7o64NiQC8o77JBaw0dYhgEC9uggItsQyZWmyD/FR9pRLSQ28hBbtwTRIhXEiFSR
3KiJ2HIdeCapY523cg3psUOKBcESF39M8YzVCBZWW6L1ih8+H/RH02UHHOlfjzoxNoQ1ar+yguiiFeov
fYSmSw747LITGvodUdJtiYzjxkj+bBkS6nmIqf0QgsPK2FGphMgKRYSXKyCiQhk7q3lwTeBhpb1MAGmy
3mBVF5fibd9kzf6Sjs0o7OJj33FtFJ9Zjco+Pip716KKqOxdg/JeM5T1rEbp2VUoOm2C3A59pB7VQFLT
MiSScGwtZV2jjKgqJRJURFiZAj4pkUdIMW3RIlmEFskhIFMZfHeFM6TJzgq2S8RRzPLZteJpTY8z0tu1
sadtOdLaNXDgpA6JGCK/ywiF3cZ0NUTOKT1knNChUmtQaZci4QgPcaIl2HlYBVGUcUQ5CZfKI7RYTiwa
VCiDwAIZbM+XIqQRfFAJFp4KD0hzIcGWQdyVc9zjluMwBbC7RY1Qh5CujJRWdaTQ75Rm2vtU4qSmpeJs
42mNY0hYUK1CpaYyi7MlURJmokFiUWkEHJTCtlxJ+OUQ2RIIylPAWnf5n0lzMcG252gFtkarIbHMjJzy
kNCgigRqJCaU0EBQlvFHVMUljqn5ENEkyrKNfJktlfkQZfsXUSn450jAl0R9syTgk7kYHukScIqTA99T
gf0RWECIK8B6YPoqe1nj9X4qWfahqt87RanCNX4JPIVLsC3jQyqbCkIKlBGcr4TAPCUEHVRAGFtbWlNx
ifNl4JshA890aXh8Kg33NCm4CCXhFC8N2wgZbAiWhZWfPNa4yt8ztJU6xDOeZ0Ga7Lhm1X95Bkwj2B6d
yzOYt8Jwo9Rm082yMRbuiiJLb6UeK2/FAUsvxUGKftDCU/Hbdb5KsPJRhKW3Iiy8FGDuJn/HzEVuaIzV
zrJ9Jg7SDbrWEknqqxd4yPDmsNNOmphHvEOMvivsQlU5u5Al9P3lKcjKwk4stk1YQKxb2aT5BGsc9qqV
IKQI5nAM9lvyT9g4W2M25wNiDsH8Mb/MP0uYEue4PwBpeQH/jkxGTgAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAADJ0RVh0VGl0
bGUAQ3VzdG9tZXI7RW1wbG95ZWU7UGVyc29uO0NvbnRhY3Q7VXNlcjtDbGllbnR+ETboAAAJ8ElEQVRY
R8WWd1RU1xbGr0ls0agpdnqPjIJIr4qIAwhqpAQR6VWkhSKDVEFGCBa6gPQiA1ICCEaNj6IRQQ3qA6LE
FhOfRo1kJZqXqF/2GYKatUjWW4s/3l7rN3fmnnv2t/c++5w7HID/K+PefJ1GH21Cl2vdbsCdCDPmOqNN
+WcT1+7v223Zcz7F8k5vsgXOxK95fCrSuK8tULepwWu57eGtqlOqnFS4is3K4/p8nXFvjsGs3kuLq/fU
XNrordXSuk33eWeMMa4UbcXd03vx6FIxnt6uw8PzqbjZGoSL2dZoDVyGCkfFh6X2CtoldnJiH+P5HmPc
m2Mwq3NfvrjJX2fkSslWXMo0IrEs/HKrAb/cEOGn4Qr8dLUUIwO5eNATjYc9sbhW7YiOnWoodZR7cnCD
pOGEA6hxWZrSnWKB6w0e6Ihagvs9qXhw/gAe9O3FD+fScP/LFPynKw63W/0IX9xs8sKpYAWU2C/CXrP3
uiYcQMVmlWsXsm1wIdMC1c6SaIvQxPXGbbjZHILrTYG4JvLEYLE9Bg5twhWiJ9kQx/1lUWq3CHtWzXk2
4QCK7RSe9aatwWdBaijatBCiQGOUOcrgRMQKdMXp4XSiEU5F66I9VAMiNwUc9ZBGi5sUiunZZONZYifj
+R5j3JtjMMtbL/nfE5R1hZMMsjdK47fHg2gTumGv+fvIspyLPOt5yLGahzTT97BTdxa8VabhyMeLUWgz
H/H6M59MOIAMiwW36jyVSWQuCW8Ffr0O/NyLO+cK0S7chJzNSthnK48ifw3UClairyYKu1fOfp5jMRfR
2tO/JheTxvM9xrg3x2AmNH2vodhBmjJ8FzfOlANPh4GfOoCRL4AfPwdupeLFdSFGvtyOH7v88KgvFQLt
6chctwDhK6Y2TjiAWP2ZbunmHyDJZBae/zwIPLkKPDoxKv6IuJGMF9fi8eCkB+610fnwRTiitN9Gosls
BKq95TPhAIwlJk9J5S98nuMghWePz1MAFMTDtlEeNAFfx+PZvwW42+yAOw22uN3shRi92QjTnP5CZ/4b
MyccANmb9cErB9tijfDkDmX8ywAJHwV+aAa+LwOGovBrbyBui6xxo9oGgxWOSOPLYhdfjq3/ZOKfA/gf
7I0CV22XGn/e73fPZlIDXqYAjgH364HhPcCVcGoHF3xTaorhciucTrdAnN7s30KMJL1orjgAsZe/s/ii
lWJSKvhcQYvrX/jT3iBm5DvLZ12p9qfSn6Ls24Fv9gOXgoH+YHwnssJQrh6ullmgMVQLgUun7aM57xJv
EZN2ZBtykURElgEXnqHPfXKAoUdDZGMB7K/d9HcBsAymCcwXWjRHGlDZq6jz84GLAcQ2/NrtjuECQwzm
6GGoyIy6fxFsZCavpTls/VnwXFimARdGgqH79biQfXpccLouF/SpLht6FUBOo9M/BcBK+X7m+oVf3e1M
Ar4rw4v+T/BbtwvuivgYytHGUKEpulMMINCYdoGeXURMJcQBvBLV4ban6XABqdrcNqE2G3oVQG7TFu7W
yGExt0eqicOjD4wG8Cbxjq/WbHvRdl38fqMITy8l4V6dFW5VmNH6r8VA4Spkb1iMddKTP6Zn3yfE5Se4
0tN2XMlpW66oeyNX1LWB89utyfkka7Kh1yrQ5MTdfFw1ykglXStGH3gVwNs7AlYFp9jyUOWjhastsXh4
bg9uN7nh7D4zFDjIIsRwPjasFjffLOJlAxZ3f0TiG7hDneu5wk5rzitRg/NM0GBDHBd3yISLK1zJHaiz
5755VMZdZ/xYyobY5DHxqfGJlublyVued1RFIHOLOpJNPsAu3ZnEDOwynAOhpQSy3HkQ2Ko8s7OTX0Nz
ZhAsCDZ/UmGnDVfQsY7LJ9xi1TnXnWp0mywm34Qw5oQV67jhh4fYLSbK1o6VcEpkOl9rd8nGytx61+cD
ZzJxn/4FXRBFoSp0NQ56aCHPVR1FnstxJEQPbTv0kU9vxZA0/d9dBGrlli6KWuSDNSPrB+aP+Z3kLFjG
bYlaSl/JBHlGnCDXiH19XXhqeLq56a4im6NZ9VvQflGAwft5qDsZgGE6C+715WCwUYAz2S7oSrfFv/ZY
44tEc3oZGcAvSh2VXzohpcYMfkItOIbzWvku8pbkczYx/U//kz4O49GFjO1Pspeljty31jah0PpcDgkf
749G/9009N6JReeN7ThxzRt5LZvQUOuLnsYIXG2MxIVCdzQKrSCM0YdXvAZyj1ti7zEdpDRrYG+7ERKq
jOCTrAH7YNVe860KzqTBAplCiHcIF0YHA9mb0spzZgSl6dfmNDjj5OWdOP/tbnTfDMexr13QMmCP5gFb
ujrg2JALyjvskFrDR1iGAQL26CAi2xDJlabIP8VH2lEtJDbyEFu3BNEiFcSIVJHcqInYch14Jqljnbdy
DemxQ4oFwRIXf0zxjNUIFlZbovWKHz4f9EfTZQcc6V+POjE2hDVqv7KC6KIV6i99hKZLDvjsshMa+h1R
0m2JjOPGSP5sGRLqeYip/RCCw8rYUamEyApFhJcrIKJCGTureXBN4GGlvUwAabLeYFUXl+Jt32TN/pKO
zSjs4mPfcW0Un1mNyj4+KnvXooqo7F2D8l4zlPWsRunZVSg6bYLcDn2kHtVAUtMyJJJwbC1lXaOMqCol
ElREWJkCPimRR0gxbdEiWYQWySEgUxl8d4UzpMnOCrZLxFHM8tm14mlNjzPS27Wxp2050to1cOCkDokY
Ir/LCIXdxnQ1RM4pPWSc0KFSa1BplyLhCA9xoiXYeVgFUZRxRDkJl8ojtFhOLBpUKIPAAhlsz5cipBF8
UAkWngoPSHMhwZZB3JVz3OOW4zAFsLtFjVCHkK6MlFZ1pNDvlGba+1TipKal4mzjaY1jSFhQrUKlpjKL
syVREmaiQWJRaQQclMK2XEn45RDZEgjKU8Bad/mfSXMxwbbnaAW2RqshscyMnPKQ0KCKBGokJpTQQFCW
8UdUxSWOqfkQ0STKso18mS2V+RBl+xdRKfjnSMCXRH2zJOCTuRge6RJwipMD31OB/RFYQIgrwHpg+ip7
WeP1fipZ9qGq3ztFqcI1fgk8hUuwLeNDKpsKQgqUEZyvhMA8JQQdVEAYW1taU3GJ82XgmyEDz3RpeHwq
Dfc0KbgIJeEULw3bCBlsCJaFlZ881rjK3zO0lTrEM55nQZrsuGbVf3kGTCPYHp3LM5i3wnCj1GbTzbIx
Fu6KIktvpR4rb8UBSy/FQYp+0MJT8dt1vkqw8lGEpbciLLwUYO4mf8fMRW5ojNXOsn0mDtINutYSSeqr
F3jI8Oaw006amEe8Q4y+K+xCVTm7kCX0/eUpyMrCTiy2TVhArFvZpPkEaxz2qpUgpAjmcAz2W/JP2Dhb
YzbnA2IOwfwxv8w/S5gS57g/AGl5Af+OTEZOAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem6.Caption" xml:space="preserve">
@ -1966,27 +1965,27 @@
</data>
<data name="BarButtonItem16.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAOnRFWHRUaXRsZQBWZXJzaW9u
O1Byb2R1Y3Q7U2V0dGluZztQcm9wZXJ0O0N1c3RvbWl6O0Rlc2lnbjtJdGVthGlsRwAAALhJREFUOE/N
kcEJAjEURAM5bBlbQ+xDsA9vHrYALcBytADP24Z40KMEXPzOhAGDhyS4CB5ePn82M/nJOjObRVpup419
wx8FzCEtSrx/cAFncZWWA2vbFSYwgi6D/dQSwG9uuT361e6wQI2qnnotgCfTbGAAa/BUZQ9rOWDEJq/N
Dxoy2A+1gE7j8kSa9qBXZU89FAOwIQKOTUMPjVdiCHvq8acTVN8A+BRQQobyX2gBhgD4JuGtm3sBXonK
akh7/ksAAAAASUVORK5CYII=
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA6dEVYdFRpdGxlAFZlcnNpb247UHJvZHVjdDtTZXR0
aW5nO1Byb3BlcnQ7Q3VzdG9taXo7RGVzaWduO0l0ZW2EaWxHAAAAuElEQVQ4T82RwQkCMRREAzlsGVtD
7EOwD28etgAtwHK0AM/bhnjQowRc/M6EAYOHJLgIHl4+fzYz+ck6M5tFWm6njX3DHwXMIS1KvH9wAWdx
lZYDa9sVJjCCLoP91BLAb265PfrV7rBAjaqeei2AJ9NsYABr8FRlD2s5YMQmr80PGjLYD7WATuPyRJr2
oFdlTz0UA7AhAo5NQw+NV2IIe+rxpxNU3wD4FFBChvJfaAGGAPgm4a2bewFeicpqSHv+SwAAAABJRU5E
rkJggg==
</value>
</data>
<data name="BarButtonItem16.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAOnRFWHRUaXRsZQBWZXJzaW9u
O1Byb2R1Y3Q7U2V0dGluZztQcm9wZXJ0O0N1c3RvbWl6O0Rlc2lnbjtJdGVthGlsRwAAAYhJREFUWEfN
lTFOw0AQRXODtFGU1k2aKAeh5CJI1JEocxROwAE4ADV9lA6lpln+i3Ylz2QwyBkciid5ZufPH3vX9qyU
clPC5JSEySkJk1MSJqfkIvHx+lD+Eu9nAohEmXg/E0AkysT7mQAiUSbezwQQiTLxfia4BReJaOpMvJ8J
IBJl4v1MAJHI4zWNqNbjNSaASOTxmkZU6/EaE0Ak8nhNo1fzLuYOciqzGhMARSM4ikOPt7unl06cKh05
1ryfCUBFkcEQR3QyWYil4nvxqOuNKJUNOdaoEYvmlzHAgYbV6FlsxUrsxWeFa3KsUUPteYisAbir1vg3
ULtMG0DwaLm7yCxi2/yuHYCTzeFiz3nEzYCnshPrCtfk2vqq+V07wFzNOO0cOPa5GexcT7aIIdo6tWg6
Y16LI6PvYABeM5py2JrB2vcl11tvtSdTBIHJEP9igB+3AMj11tO2IP8QjkVNc17DMahh3odoDGqW9yke
Cw3F+a5qbH5GvfzwzygLmZjfcVRTSpl9Ae9BkK09DJXIAAAAAElFTkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAA6dEVYdFRpdGxlAFZlcnNpb247UHJvZHVjdDtTZXR0
aW5nO1Byb3BlcnQ7Q3VzdG9taXo7RGVzaWduO0l0ZW2EaWxHAAABiElEQVRYR82VMU7DQBBFc4O0UZTW
TZooB6HkIkjUkShzFE7AATgANX2UDqWmWf6LdiXPZDDIGRyKJ3lm588fe9f2rJRyU8LklITJKQmTUxIm
p+Qi8fH6UP4S72cCiESZeD8TQCTKxPuZACJRJt7PBBCJMvF+JrgFF4lo6ky8nwkgEmXi/UwAkcjjNY2o
1uM1JoBI5PGaRlTr8RoTQCTyeE2jV/Mu5g5yKrMaEwBFIziKQ4+3u6eXTpwqHTnWvJ8JQEWRwRBHdDJZ
iKXie/Go640olQ051qgRi+aXMcCBhtXoWWzFSuzFZ4VrcqxRQ+15iKwBuKvW+DdQu0wbQPBoubvILGLb
/K4dgJPN4WLPecTNgKeyE+sK1+Ta+qr5XTvAXM047Rw49rkZ7FxPtogh2jq1aDpjXosjo+9gAF4zmnLY
msHa9yXXW2+1J1MEgckQ/2KAH7cAyPXW07Yg/xCORU1zXsMxqGHeh2gMapb3KR4LDcX5rmpsfka9/PDP
KAuZmN9xVFNKmX0B70GQrT0MlcgAAAAASUVORK5CYII=
</value>
</data>
<data name="BarButtonItem17.Caption" xml:space="preserve">
@ -2034,74 +2033,74 @@
</data>
<data name="BarButtonItem18.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAVdEVYdFRpdGxlAExhbmd1YWdlO1dvcmxkOxwy6+MAAANfSURBVDhPPZN9TNR1HMd/JhMcSiD4
sAMGAcdDwDQldSinXcPOB+SwzmUsjoMiHvSuW3LRIcIdKMK5iCg8D90hNTDYDCRxPWDxoNH5gEitJbaK
2Hpam7P6p829+n4P87u99tnv+/u8X7/f7/v9/hTgIWI84juy/nMBE/UZXHGs43LtWsYOr2GkejVfvJHO
cFUan1WmctGaPCL6A5RjH97yU+gwS0GADPLPpOCG4Dr8fU3gg78mBF/CvSuCcYbMifKJgYrN06ucuuyT
4QWCxeO1T4hGH9+ff4227GjuDL4Kv7h56+koWrRRzAxY4NdOBsvjpWCxkmfJ94e37Clc4nC7PCP21XB3
jONbI+HnVpo0os62cHSzCn5qwblpFcy5OVcSKwXByrbiHVKwyGAr7/B+Ms6wLQ3+/BRH5kpqN66kZsMK
+OEY9idXUJURwXS3CX5soc8ULQVLZXjh7rLHdAU1z9Dn8/GxNQX+GODg2nCYqcO6ZhncruVAehh8V0NZ
aijcaaCnQCUFIVIQqLfE9zf27qRj6DQXzGrxzd2UPi4av7XxUtKj8E0lJvVSjIKrHXli3s77L6ySglAp
CM4uTv3NdS6XE+fPMFAWJ77dI0I2+LpSIBbx1n6YqhC1HKbN/rnOvcsfCkKy8ov+fdH5Ct7RSc4e0tNX
HE2vKYqzRhXTbi3cLIEbRTD5MlNva/AawmnLjZBbt8Qv2H7A+3uZ5yquoRm6Jubo8c3Sf32WM4Pv0dOU
y1TbJrhm5GZrJs3mXViczfe0Wq1aZBdKQXDC5qyLOfsLMDS0Y3zXh+WD29iH5qjr9vJmdxOn6jRcsCRw
3Kqh3tPDvoPt8hT6d0CORdEZEXvXPx9LqctAjrWQ3OqjGJpGMTSPYnYP4zzpoO2dPZz+qBJ9SRGJWQX7
ZG4+Pn8CQ+M0qv6tJjWW1u08Z68hr+ESOc5h8uovYTxcgbNLh968gZiN6QOiP+xBTlHitqTJEhAUGhgZ
kxnZmaTV3dfb+ylqGaO0/St/3VFRTUq29n7UupSuoJCgaNmfrnfN/4CxWflK/qEqKZELEhYak/RsnPb1
sUSd827yzkbUosY/ZRtfnrLNIO4vk2HjkZNK8q7GeUGCrsFPjKZYSuRrBQnCBSqBfFrkg2s5v+D/fgmg
/Ac6q/APMz2KSgAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0
bGUATGFuZ3VhZ2U7V29ybGQ7HDLr4wAAA19JREFUOE89k31M1HUcx38mExxKIPiwAwYBx0PANCV1KKdd
w84H5LDOZSyOgyIe9K5bctEhwh0owrmIKDwP3SE1MNgMJHE9YPGg0fmASK0ltorYelqbs/qnzb36fg/z
u7322e/7+7xfv9/v+/3+FOAhYjziO7L+cwET9Rlccazjcu1axg6vYaR6NV+8kc5wVRqfVaZy0Zo8IvoD
lGMf3vJT6DBLQYAM8s+k4IbgOvx9TeCDvyYEX8K9K4JxhsyJ8omBis3Tq5y67JPhBYLF47VPiEYf359/
jbbsaO4Mvgq/uHnr6ShatFHMDFjg104Gy+OlYLGSZ8n3h7fsKVzicLs8I/bVcHeM41sj4edWmjSizrZw
dLMKfmrBuWkVzLk5VxIrBcHKtuIdUrDIYCvv8H4yzrAtDf78FEfmSmo3rqRmwwr44Rj2J1dQlRHBdLcJ
fmyhzxQtBUtleOHussd0BTXP0Ofz8bE1Bf4Y4ODacJipw7pmGdyu5UB6GHxXQ1lqKNxpoKdAJQUhUhCo
t8T3N/bupGPoNBfMavHN3ZQ+Lhq/tfFS0qPwTSUm9VKMgqsdeWLezvsvrJKCUCkIzi5O/c11LpcT588w
UBYnvt0jQjb4ulIgFvHWfpiqELUcps3+uc69yx8KQrLyi/590fkK3tFJzh7S01ccTa8pirNGFdNuLdws
gRtFMPkyU29r8BrCacuNkFu3xC/YfsD7e5nnKq6hGbom5ujxzdJ/fZYzg+/R05TLVNsmuGbkZmsmzeZd
WJzN97RarVpkF0pBcMLmrIs5+wswNLRjfNeH5YPb2IfmqOv28mZ3E6fqNFywJHDcqqHe08O+g+3yFPp3
QI5F0RkRe9c/H0upy0COtZDc6qMYmkYxNI9idg/jPOmg7Z09nP6oEn1JEYlZBftkbj4+fwJD4zSq/q0m
NZbW7TxnryGv4RI5zmHy6i9hPFyBs0uH3ryBmI3pA6I/7EFOUeK2pMkSEBQaGBmTGdmZpNXd19v7KWoZ
o7T9K3/dUVFNSrb2ftS6lK6gkKBo2Z+ud83/gLFZ+Ur+oSopkQsSFhqT9Gyc9vWxRJ3zbvLORtSixj9l
G1+ess0g7i+TYeORk0ryrsZ5QYKuwU+MplhK5GsFCcIFKoF8WuSDazm/4P9+CaD8Bzqr8A8zPYpKAAAA
AElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem18.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAVdEVYdFRpdGxlAExhbmd1YWdlO1dvcmxkOxwy6+MAAApsSURBVFhHnZcJWI7pGsc/Y5hBGMxk
TMo5tsFByDCWoakmFGmnRUX1taKP+iqptBPSQqWRRDUzZWk3KEWiQrt20rG0fe1ZRmP+537eFumYmXOd
57p+1/O+z/e+9/9/38/zPu/78QD8Twxpw4iPiOF9fDyEEYMYOQQ2xu5hMXgfFPsQg9qw26Hb5EpirPNK
f7JCaQwRZYmSKAuUnOvHnDDr5awZis/yURRJnOHjfrjJvcs+6ooUhxkdNjT43zXmenh+uHFD19NC4PeX
xIs+ujn+6OkiOvvoINr7aMMfb9rQ8TgHOcd1GinOp8RH/4+BkbnHdUmsE2+7SvC2/R5x9x1tg/q2vEHk
4m0r0f0Q2YfVmegYYviAga0ul3g6Tq48IxdV3rEoU15cmpB38fp+XkKGC/uZCTM+njdvntgtX1XKphW/
izKHkNFLM9HUz3X09NOYjrcdD5Dptp6JjiXeGdDcu4UXflXIu//En5dVa8/LeGTNhvuFh5sIVo2OSd6j
mpoZkpjmLIc/Xjeipz4Z1UmeCFaUQhX1Pc8TEaggiQB5SVQkuKPnWQIq4t1wRFYCvmsl8OZpPHpa8pC6
dxUTHU98PGDAL1qfl15lx0t6sJ13pYrPhpjwRyt/kPo0JF7VKvKadkNinjGK6yJx0XQ+V8o3j6PgJzcV
PaJbnMhvj2NwaI0EZXsT3qun4LfaKLivmsKdv2m6gdc1EZyJn/RnM9HPiHcGnE4t58Xlb+UllhqwUy5r
t1DZGSeTNxfF3d6GvGf2KGl1w9O2DPxs8DV+by/Ey0JneJGAx8ovcWDlZLwqD4DzcnHsXyaOogvueEnn
QpnP8aLYBy8KXNB9V4hX1SdxTnsGE51IjBgwIAxbwovN12aH3FwfOLl2xYl4pYbkQlPkNzmhrO0wOl5X
ob1DhCidmVwpu+85wEHmC7x+FAG7JZM4AYH0RLx6eBo7F0xAV+5eWPzrM3Tl7CEE6LwjwMuyQESoTmOi
k4h3BmxDFrGOy9zKU2a6X6xCc3KRMXKe2aGgyRXdb2rx6k0LmlsaEKkxHW8as9BJAtbzmYAAZvPGo+u2
AKZzxmHH7HG4HWGNjuydyKZef7oY9KaPQUeWFVXjCH5UlmSiXxDvDFDj5nyV0ldjPc5+VxyTrY3M2p24
/WQv6joS8KqnAV2vn5GBpwhXkcJvz9M4gZeVIRTYGi8rgnsFyk9Q6U+QKXu0Z1pQ1kK8KAviaMvgo6vA
CyHrJJioODFyqIER9iFLnfzif8CvlSZIf2iJrDobiF4UobHjIWrrK/HoSSXClCTx+t8pJGDO0ZZh1gcf
7ddN0cZIN+FoTTdGa9oOtF7rpTPPGcEKU5joZOI9A8NXKn850fHHbxqjczWRUr4dV6v4iLtrgZrnJXgs
akRdazfqGkQI11qImmQPdOf7oCvfi/BE5z3irjvabwrQctUIrVcN0XLFgKMt0woddxwJB5Sf0Ye/7GS2
E35ODEwBl72p19xt7tErEFewBQkl23D21g54/OKLomci1IheoLq5C4+b2pGVGIsw1Xk4LjcZQd8Tsu+4
6bkBrdctIUrRI3TRkmaGm+6KCFwrzuG/Rlxks3iSIemJEQMbEXuzfcL3nRPje2kNYu5q4EKhDmxDDXEs
owYpZQ0oed6J0voOlNe3ofK5CA/q6lH08CkKqus47lfU4k5xBXxtLRFjK0+ZmxDGOCdYDRcLOUQlueNQ
qHWWtLT0bCkpqQmkx96KAy8jZmCUic+sMrvQ9eD7boH1MT3YBG2D77VKBN6owY0aEXLrWnGXyKtrQe7j
Zo6c2ibcedSE7JoG5FY/x83iGtibmyBKsBbndq2Ek8UaRKfZ48gvmlC2lKgmHfb4sdcyq/qAAfZ+HqO6
e3GHtpsXDAMysSsyD04Xi+CRUoaDV8lEZg1SH9RzRm7UNONmH+yYkVndjOTiZzidVYWIjCLYGPwA153y
+DnTEcHJuhD+uBgKpuKdpMN2QJZ9bxtkQGzzrm/hGmkEfS9XmIbegiDqHvZfKoY7mfD6tQKHyEhYdi1i
858ipbQel2lqkqn/Jf8JN+5zpQLuqQ8QkFYG5zA7RFwzRUiqPvadWQrroLn4zmACE+vdgvvbIANj1xo7
de4O2AQTH03oH02EWVg2bKLvw+F8IVwSSuGeXAaPy+XwTC2DN4l5kymGF415pJZzv7vEl8D+fAHM/XbD
NUoejmdkYBU0BwZe/8BSLTFWATb/f2KAH1GlITTCLn81aHuGQt8/A/yT2dhJ02H7cwEcLhRhPwk4J5TA
NekBDiSWUl9K56XYT2MO54uwl65j15v4+dM6WgdLEtd1Ww5NewVIq4xma+CDFWCLcMwKw9DzSgIfqsBG
aDg7QtPnCvQOR8PQezd2HBLAMuwSBDH3SSQfdnGFsIsthC3BRG1o3PpsHsxO3YbRiSzo+aVj6wErbNm3
GSoOLtiwJxhLNy27SDrjCJZwr/YgA58u0fAxlreKhrJDKDY7OELLUQvm9PVyLHELAumZ3h2oje1Hj4J/
6g7Mw3NgcTqH6/kkakxrxuj4Degdu44tvmlQ976CTW4p2OCUgPWOlyBvFYNFap4WpDO6T2/YYAPcRjTp
n8u+WmEU3rKJblIQXoCaUA+HLm6AT/xqHE5ag5D0zXA6rUEltYbu4Sjo0hTpkqDO0TRsPZIGrUPXoE5V
U/W8jI0HesUV7C6AxVthGN46QXKxJOn0P4LvVYA17klYrOHrKWcZDVWnYBh5rIPwzELYRsyHMHIB7M8u
hEfcKhyIVoKxtwo0Xb2gRoJqXpeh6vUrVDxSsZGyVnJOguK+eE584/5EyFFVF6kf9KH4/eX/oAE2OFJM
fNaUpbohlSrCUzA4sBH8gBkwC5wJ86CZsDjOmIVdofOwL3IZzI/IQc3BDJucT0HZNRkbXJKwjmVtfxFy
tuexwTEeG+mYxRP7fIYExe/9Eu5rHzLA3I2W+kZPZqneyRZtR3ds91kDfZ+pHNt8JKmX7O29JWHqNwv8
w0ug5SAPJVsXyAt7hWX3xGETZa5OhihO69Qlmsspbu9XcF/2rL1nYIFWMOvYj+wREZspu0tZRje4WWMv
H1Z+q6HrIUFPhjgxGer7xTlU930BDSc6tl8CRRtHrBXEQpFMbKUFqEILT0YnRDRjjaUKxWOl5/6ILOzV
4dr7BjSDecb+meyw38RYiUVayxZpHi3/3lAXJt4raXOZDj1mhERVhBOx3kYKynumQW2PKjZTtjoHr0KP
1oSseRSkNQMrvpJW/5bisK9f7sXD4jOd/vZfBvhBN9ghM9BvYszI0ROnfK1g6rJg/WzRdwbjoWE3Gdu9
JGFxZAV2+7vBwteN9okYqkY81pqfg7TWCdGc9S6uI0ZNYHPOXrm9bz2Cxf9LA+Ynsjio9Ztgc/YJMX7U
+NGS05Z9smOW7LjYufJTy+YrLhJJawVgoeZx0QL1gLK5KgdjZ8gKTEZNkJKi69luxxZc/5wP64/9lwaG
Qo3dzFYtqwYLyDJin9Pse+5LYkpfz87ZOPu3w65j13ObzZ/E5dp7Bv6mDa4IC87KyjYUVp3+v91sfCBj
4m8bAN5/AL4ctfhPs0ktAAAAAElFTkSuQmCC
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0
bGUATGFuZ3VhZ2U7V29ybGQ7HDLr4wAACmxJREFUWEedlwlYjukaxz9jmEEYzGRMyjm2wUHIMJahqSYU
aadFRfW1oo/6Kqm0E9JCpZFENTNlaTcoRaJCu3bSsbR97VlGY/7nft4W6ZiZc53nun7X877P9773/3/f
z/M+7/vxAPxPDGnDiI+I4X18PIQRgxg5BDbG7mExeB8U+xCD2rDbodvkSmKs80p/skJpDBFliZIoC5Sc
68ecMOvlrBmKz/JRFEmc4eN+uMm9yz7qihSHGR02NPjfNeZ6eH64cUPX00Lg95fEiz66Of7o6SI6++gg
2vtowx9v2tDxOAc5x3UaKc6nxEf/j4GRucd1SawTb7tK8Lb9HnH3HW2D+ra8QeTibSvR/RDZh9WZ6Bhi
+ICBrS6XeDpOrjwjF1XesShTXlyakHfx+n5eQoYL+5kJMz6eN2+e2C1fVcqmFb+LMoeQ0Usz0dTPdfT0
05iOtx0PkOm2nomOJd4Z0Ny7hRd+Vci7/8Sfl1Vrz8t4ZM2G+4WHmwhWjY5J3qOamhmSmOYshz9eN6Kn
PhnVSZ4IVpRCFfU9zxMRqCCJAHlJVCS4o+dZAiri3XBEVgK+ayXw5mk8elrykLp3FRMdT3w8YMAvWp+X
XmXHS3qwnXelis+GmPBHK3+Q+jQkXtUq8pp2Q2KeMYrrInHRdD5XyjePo+AnNxU9olucyG+PY3BojQRl
exPeq6fgt9oouK+awp2/abqB1zURnImf9Gcz0c+IdwacTi3nxeVv5SWWGrBTLmu3UNkZJ5M3F8Xd3oa8
Z/YoaXXD07YM/GzwNX5vL8TLQmd4kYDHyi9xYOVkvCoPgPNycexfJo6iC+54SedCmc/xotgHLwpc0H1X
iFfVJ3FOewYTnUiMGDAgDFvCi83XZofcXB84uXbFiXilhuRCU+Q3OaGs7TA6XlehvUOEKJ2ZXCm77znA
QeYLvH4UAbslkzgBgfREvHp4GjsXTEBX7l5Y/OszdOXsIQTovCPAy7JARKhOY6KTiHcGbEMWsY7L3MpT
ZrpfrEJzcpExcp7ZoaDJFd1vavHqTQuaWxoQqTEdbxqz0EkC1vOZgABm88aj67YApnPGYcfscbgdYY2O
7J3Ipl5/uhj0po9BR5YVVeMIflSWZKJfEO8MUOPmfJXSV2M9zn5XHJOtjczanbj9ZC/qOhLwqqcBXa+f
kYGnCFeRwm/P0ziBl5UhFNgaLyuCewXKT1DpT5Ape7RnWlDWQrwoC+Joy+Cjq8ALIeskmKg4MXKogRH2
IUud/OJ/wK+VJkh/aImsOhuIXhShseMhausr8ehJJcKUJPH63ykkYM7RlmHWBx/t103Rxkg34WhNN0Zr
2g60XuulM88ZwQpTmOhk4j0Dw1cqfznR8cdvGqNzNZFSvh1Xq/iIu2uBmucleCxqRF1rN+oaRAjXWoia
ZA905/ugK9+L8ETnPeKuO9pvCtBy1QitVw3RcsWAoy3TCh13HAkHlJ/Rh7/sZLYTfk4MTAGXvanX3G3u
0SsQV7AFCSXbcPbWDnj84ouiZyLUiF6gurkLj5vakZUYizDVeTguNxlB3xOy77jpuQGt1y0hStEjdNGS
Zoab7ooIXCvO4b9GXGSzeJIh6YkRAxsRe7N9wvedE+N7aQ1i7mrgQqEObEMNcSyjBillDSh53onS+g6U
17eh8rkID+rqUfTwKQqq6zjuV9TiTnEFfG0tEWMrT5mbEMY4J1gNFws5RCW541CodZa0tPRsKSmpCaTH
3ooDLyNmYJSJz6wyu9D14PtugfUxPdgEbYPvtUoE3qjBjRoRcutacZfIq2tB7uNmjpzaJtx51ITsmgbk
Vj/HzeIa2JubIEqwFud2rYSTxRpEp9njyC+aULaUqCYd9vix1zKr+oAB9n4eo7p7cYe2mxcMAzKxKzIP
TheL4JFShoNXyURmDVIf1HNGbtQ042Yf7JiRWd2M5OJnOJ1VhYiMItgY/ADXnfL4OdMRwcm6EP64GAqm
4p2kw3ZAln1vG2RAbPOub+EaaQR9L1eYht6CIOoe9l8qhjuZ8Pq1AofISFh2LWLznyKltB6XaWqSqf8l
/wk37nOlAu6pDxCQVgbnMDtEXDNFSKo+9p1ZCuugufjOYAIT692C+9sgA2PXGjt17g7YBBMfTegfTYRZ
WDZsou/D4XwhXBJK4Z5cBo/L5fBMLYM3iXmTKYYXjXmklnO/u8SXwP58Acz9dsM1Sh6OZ2RgFTQHBl7/
wFItMVYBNv9/YoAfUaUhNMIufzVoe4ZC3z8D/JPZ2EnTYftzARwuFGE/CTgnlMA16QEOJJZSX0rnpdhP
Yw7ni7CXrmPXm/j50zpaB0sS13VbDk17BUirjGZr4IMVYItwzArD0PNKAh+qwEZoODtC0+cK9A5Hw9B7
N3YcEsAy7BIEMfdJJB92cYWwiy2ELcFEbWjc+mwezE7dhtGJLOj5pWPrASts2bcZKg4u2LAnGEs3LbtI
OuMIlnCv9iADny7R8DGWt4qGskMoNjs4QstRC+b09XIscQsC6ZneHaiN7UePgn/qDszDc2BxOofr+SRq
TGvG6PgN6B27ji2+aVD3voJNbinY4JSA9Y6XIG8Vg0VqnhakM7pPb9hgA9xGNOmfy75aYRTesoluUhBe
gJpQD4cuboBP/GocTlqDkPTNcDqtQSW1hu7hKOjSFOmSoM7RNGw9kgatQ9egTlVT9byMjQd6xRXsLoDF
W2EY3jpBcrEk6fQ/gu9VgDXuSVis4espZxkNVadgGHmsg/DMQthGzIcwcgHszy6ER9wqHIhWgrG3CjRd
vaBGgmpel6Hq9StUPFKxkbJWck6C4r54Tnzj/kTIUVUXqR/0ofj95f+gATY4Ukx81pSluiGVKsJTMDiw
EfyAGTALnAnzoJmwOM6YhV2h87AvchnMj8hBzcEMm5xPQdk1GRtckrCOZW1/EXK257HBMR4b6ZjFE/t8
hgTF7/0S7msfMsDcjZb6Rk9mqd7JFm1Hd2z3WQN9n6kc23wkqZfs7b0lYeo3C/zDS6DlIA8lWxfIC3uF
ZffEYRNlrk6GKE7r1CWayylu71dwX/asvWdggVYw69iP7BERmym7S1lGN7hZYy8fVn6roeshQU+GODEZ
6vvFOVT3fQENJzq2XwJFG0esFcRCkUxspQWoQgtPRidENGONpQrFY6Xn/ogs7NXh2vsGNIN5xv6Z7LDf
xFiJRVrLFmkeLf/eUBcm3itpc5kOPWaERFWEE7HeRgrKe6ZBbY8qNlO2OgevQo/WhKx5FKQ1Ayu+klb/
luKwr1/uxcPiM53+9l8G+EE32CEz0G9izMjRE6d8rWDqsmD9bNF3BuOhYTcZ270kYXFkBXb7u8HC1432
iRiqRjzWmp+DtNYJ0Zz1Lq4jRk1gc85eub1vPYLF/0sD5ieyOKj1m2Bz9gkxftT40ZLTln2yY5bsuNi5
8lPL5isuEklrBWCh5nHRAvWAsrkqB2NnyApMRk2QkqLr2W7HFlz/nA/rj/2XBoZCjd3MVi2rBgvIMmKf
0+x77ktiSl/Pztk4+7fDrmPXc5vNn8Tl2nsG/qYNrggLzsrKNhRWnf6/3Wx8IGPibxsA3n8Avhy1+E+z
SS0AAAAASUVORK5CYII=
</value>
</data>
<data name="LabelLanguage.Caption" xml:space="preserve">
@ -2112,70 +2111,69 @@
</data>
<data name="BarButtonItem20.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAC3RFWHRUaXRsZQBVc2VyO5db
CgIAAAMdSURBVDhPVZN5SFNxAMff9t7b81h5pLmcm04nbUzTqVNJNM8OS7PDzKMMW7qV5FGWuiyPDs2C
CLIkqMSsEFEz6VoWlpiESyKJgoICg6L6QxJLk7793srYfvD54/v4HvB+/CgA/ykLEFFGBbteL2MH86XM
9xwJ/SbDg95KUZTA1meLndjtJ1IdjJD86Dqcjbun9eg4kI4cP+e59f4OdSvl7EJb7zx2osiXPdtamIze
+hycydbBEOwJ05plvzcGcEhTiBptvfPYiZ0ytvtS8WqU6vxwudKI8Xvn8fBCObJV4i+pvmy/rXceO5Hr
zdQWKJx/T36ewK8vzzD5sgXDlw2oiPacTPGh22y989iJQCehvEwnnZn69gnT767j4+OjeNK6A6Vat0mZ
WLCc/MwFBDGBIwgJ9gXkuDVl6UZfD/bi62gLXvWU4kZFIjb5O78oiPBuNiXIR2ripD9Kwj0GC9QuRcQv
tAZrWL6QYgjykpjA6z0Negy3H0F/w1rUrvJDrnrR2yuFMXOWNgOmxpowdC4P9anK2Q1STs8H+cPJBcJg
I80Nn/SSwJQUhjNZoWhMUyNf44uqSB/w4bk3Z9FXtw5dVUkwn0jBmsWMmQ8zaqFQW+0k/nozdTUse43Y
tyIeT68dRmdtLllfippYqXX513gTuioT0VEajW+3MpHgKpzmC1y2M2x7e1QULHsK8Sg5Di0hGhSHaWEI
CUa5whv7whdh4n4FZi0m/BzajemBXPRVhSJqATXAF/iUMKL35qzNeJKRirshKvRrlOhUy3BO4YmypW54
0LwZM5ZqfOjOI8tbSFgLfZjLbJATZeQLlFUs93PEsBMDsZG4o1WjR63AeaUE5Sp3mE9lkuVq3D+egowl
LBJdhdCJqecaR6qYZEXWgkrGwVpwLzwIt0NV6FApcEDjAXNzJmbGTDAfS8E2LwaNXiwyKMEsyUQQ+FsT
8AUeG2j2YjXD4SDNYT9hl4CBMciVLB+yLqe70sgiD5InkhJcJRnJVG88pXLk43+bPAkaQvg/EvKVzsiU
cYh1pwdpAZVMvkUTQgkSAsuHVY4U9Qd4YOOXT2nTGwAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFVzZXI7l1sKAgAAAx1JREFUOE9V
k3lIU3EAx9/23tvzWHmkuZybTidtTNOpU0k0zw5Ls8PMowxbupXkUZa6LI8OzYIIsiSoxKwQUTPpWhaW
mIRLIomCggKDovpDEkuTvv3eyth+8Pnj+/ge8H78KAD/KQsQUUYFu14vYwfzpcz3HAn9JsOD3kpRlMDW
Z4ud2O0nUh2MkPzoOpyNu6f16DiQjhw/57n1/g51K+XsQlvvPHaiyJc921qYjN76HJzJ1sEQ7AnTmmW/
NwZwSFOIGm2989iJnTK2+1LxapTq/HC50ojxe+fx8EI5slXiL6m+bL+tdx47kevN1BYonH9Pfp7Ary/P
MPmyBcOXDaiI9pxM8aHbbL3z2IlAJ6G8TCedmfr2CdPvruPj46N40roDpVq3SZlYsJz8zAUEMYEjCAn2
BeS4NWXpRl8P9uLraAte9ZTiRkUiNvk7vyiI8G42JchHauKkP0rCPQYL1C5FxC+0BmtYvpBiCPKSmMDr
PQ16DLcfQX/DWtSu8kOuetHbK4Uxc5Y2A6bGmjB0Lg/1qcrZDVJOzwf5w8kFwmAjzQ2f9JLAlBSGM1mh
aExTI1/ji6pIH/DhuTdn0Ve3Dl1VSTCfSMGaxYyZDzNqoVBb7ST+ejN1NSx7jdi3Ih5Prx1GZ20uWV+K
mlipdfnXeBO6KhPRURqNb7cykeAqnOYLXLYzbHt7VBQsewrxKDkOLSEaFIdpYQgJRrnCG/vCF2HifgVm
LSb8HNqN6YFc9FWFImoBNcAX+JQwovfmrM14kpGKuyEq9GuU6FTLcE7hibKlbnjQvBkzlmp86M4jy1tI
WAt9mMtskBNl5AuUVSz3c8SwEwOxkbijVaNHrcB5pQTlKneYT2WS5WrcP56CjCUsEl2F0Imp5xpHqphk
RdaCSsbBWnAvPAi3Q1XoUClwQOMBc3MmZsZMMB9LwTYvBo1eLDIowSzJRBD4WxPwBR4baPZiNcPhIM1h
P2GXgIExyJUsH7Iup7vSyCIPkieSElwlGclUbzylcuTjf5s8CRpC+D8S8pXOyJRxiHWnB2kBlUy+RRNC
CRICy4dVjhT1B3hg45dPadMbAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem20.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAC3RFWHRUaXRsZQBVc2VyO5db
CgIAAAmJSURBVFhHlZcLOJT5HseHwplhDCN3rcskcommMCK6uFQuuUQ1uYRCKkpIFyGKtpNNKhspKZFU
u4ZSyjWrNkWkrT2rtc4Wm5It6bSdnu/+3yntZN+z55zf83yeZ+b3vL/f9/v7v+/7n/8wAPwlqbPYjBR7
NmP7TDZj60y2/hYBOzbRRqE43lqhlSLOWuEYYS6BQUHX46+gTUpCiffcLGVssWWvznTTR9k2b9TlRqP9
bBraylNxeX8k9iyxQMx0hZyYGQoMKuj6/Cdok6NQIZ7clu15JGLWu74bBfipfh/un9uEjpPhuJW/DG35
QtwqDMfeQGtEWcpHkBJpghRVS9dzLLTJUagg4qppTprDPXWH8H1lMq7tdkZdmj2uJAlweYs1KhL4KIww
wYGgyVg9Vf5tuBmrM9iYGU5Kx1P1dH0loU2OQsVmgUJ86eZFeFjzd9RnzEUVETy/1hRl4YYoDNLD/sVa
yPDQRIITD6kuGjjoPxFr+Wws5jH9Sfk4ur6S0CZHoYI8cB23Srbi9rEInF1niqNCXeR4aSBzvgrSnZQQ
b8vBjsV8tJZuR6yNEnI8VLHOUh5+vL9VknImXV9JaJOjkJCKt2GPfFeZiYrNdsj21kLSbCWst2IjcioL
gVNY2B/phF+u5+LpzS9RGOeO6GkKiJgiRwwwn5B6Jbq+ktAmRyEhHWej8Oj68UQcEuojaQ4XmQGOOJ7o
D9HeVbhXlYHB20eIeC6eXM/Gz7WZSF8yAwGT5ODLY74l9Wp0fSWhTY5CGdhopdBYkRmCTA9t7Itwx8jP
LRi6W4LndwrF4s/I5E9astHftAePrqahJicUQlOl37z0mW9IvSZdX0lok6NQBmKmy289tNIB8XYT8F3z
BQz/eAVDHScw2Pap+OPadPxYlYiGgwFYaa3xzv0z5iNSr0HXVxLa5CgkpObqyqnGCriPYmZw0NvVgpfd
1RhsP/Zx2cWT16bhn5e2oev0Goh2LkIQX31otpbcUVLPoesrCW1ylA8xXjiFFbjBWhnfVp3Ai+7LeHYr
//3kjZ9/FO+pjEdrQRAK18+Gn4nyHVJnQNXS9ZWENikJCWpX40RN5/QUJq/GcE8Dmf4wmZwSTxeL/1QZ
h3slEaj/wge7lpjD2UDhJKnh0vUbC21SErIPUCbkvM1UQ5L87Z+0VxfiaWsBHtft/CAejwenI/HNIT+c
2GCPUCv1IUt1uSBS81/3AAra5FhIUKug5GOh/uX+mCVoq/gCvTU78cPXsbhTFIbmHD+UJToiwVkfdpqy
JeRaDYI0Xa+x0CbHEhQUxDA0NJSbJbCOSVwwGemBc1GcvBzVWcshSvPAgZUzEOOog0DzCdDRUEtksVjM
tXN1pVbPmRgQ4aBzZuVMrcehAo3HQVaqZ5bxVQJNNZjSvmYcce8/iUlCTUGQYysqqnh6ep5b7Ld4eG+Q
Fc7tEiJpkRlWTFNBgBkHkQJ1xDvrIdLOABYWFq90dHQqVthP3JufEonrlfno7zyNnobduJgTgl2hDvAx
U0rTYo8fRwl8IlheXs5IUOeKISFDUJvHZgX72gq+P3v2LIqLi5EeZI/e2t3oLE9A7f5glG5ZiPy1s5C9
YgZC7Iywa9cuJK4OwNH0dfj3y268/kceXt3LxvCd3XjRmoKeqjVI8TfBfJ58KOkv/YmBsrIyxpncPEpc
VlNmvGmICqdh92QDbJztKBZ/9+4dYqNCULYnAk35a/At+YG6krUUhRtdkLzcDsu83NDR0YEoTxu01onw
5nENBq5n4NyORUjxtkR9SQ6ekU2sdLM9XPRZIvGQkgZKS0spcWpp9MInKHVeDAtBe2gIzrstRGBgILkE
GBoagq+PLyICA7A+OhqxK1ci0t0dC12c0dzcjKamJgTbaeP5QD9GHuSj+0I8trsbY7qOYtzekLn47WU/
mrNd4KzLHCA6ip8YIEE97dzo6OijWX6+6Ni3D23EQJPDLLjz+ejq6sLIyAi6u7sxb948pO5Ixc6dO+Hq
4opr166JxXNzcyG0UhcbGL6bjb6rG1Ge5Izdy63RWnEEv3YW4NpeR8yZKDdItFTHGpAxMDAQkCavvkrZ
jrxl/mhfFYZGezvsMDdDQkIC+vv70draKjZw9+5dnDp1Cq7zXVFZWYnq6mq4ublhOXkb7re14FVXHoaa
1uP51Qg8uxSEAZEfeksXooicK6zUZW4SPbWxBrjh4eFH6+vrcfN0CbZPt8DtsFA02M3EBXNz8CdNQkND
A2xtbcXiVGRlZZGVuQcrqxnIy8+HuaYSMtf44fXAXSIei8Grq/C0OhADFb54cs4ND444Io6cnIyUx2UR
vT9uAQlq+Q1TU1Mf9fb24oebN7BZTwc3A4SoJYIXzUyRNomHqcTEAi4X5LqPBqjPsxUVwddVE4u/6u/A
r9c2YvDKKgxUCXG/aCG6jnmhdJMNEjxNYMYdf1FaisEjeuMkDcjx+XyfgoIC8X3u6+nBZm01tPh444qV
FapMTSCaYozCSYY4Q0z4KiuLhcPCwuCmyMFWPc0P4nfI5BvwsJzsFd7ELI+F+ZOV4cTjwJ6niklc5hUp
KYY50ZMV60oYUFq6dOkhkUiEFy9e4BdyrzdpqKDR1RXV/GmonGKCr4yMcMbQECU8AxTp6cGTw8ECMnmS
rjo+HxVvXI+HZ5YiyYsHDy4TJuRNr6mpwdcVFVgXHQNLS8tTREvdesL497oSBnSioqJutLS04OnTp3h4
/z42qXNR6zgbFyymosLYCOeIeJmBAU4R8WN6+sibOBHb9f4Qf94Yg2eXQ9BZ4CGePESeDXtZaXSRvYF6
g3IOHISTk1Mb0dK1Unm/+pIGDDMyMt4ODAygr68P7Q11iFOfgBqBDURmJjhvRJaex8MpfX0U6eqigIjv
MNB6L97Xjuf169B9egm2kckpcQ8uC5EsFlzkZNBIVqCp+RuIqqoREBBAnRWN6Qyo+vr6Fh3OOwLRxRpU
5OxHpJoKTpoY4yhZ8sO6n+EQEc3R1kaWpiYyNLWwnK+CN/96TcTXEnF/Im5AHlAmljFZCGYyEUoMuMrJ
ovjgAVy8VIPk5BQIBALqFqjRGaD2/sn+/v41iYmJCLOcijAuG6EUymysIAR/IECJDSHB30KZlALPyGvW
mb9APLkrmwlfDgs+ivLw5hAUWfDkW0IoFMLBweEq0TCmtP5kQPyFPJkEbYIlwZoGGwlmOhuyq7yM2fAw
VBCLm6jIHCd5pzHXjTKNoEOQpcRpDfw/kKD2Dcowh6BGoA4h1Gfxf8L/JQAwfgd3hPPGW+V/iAAAAABJ
RU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFVzZXI7l1sKAgAACYlJREFUWEeV
lws4lPkex4fCmWEMI3etyyRyiaYwIrq4VC65RDW5hEIqSkgXIYq2k00qGykpkVS7hlLKNas2RaStPau1
zhabki3ptJ2e7/7fKe1k37PnnN/zfJ5n5ve8v9/3+/u/7/uf/zAA/CWps9iMFHs2Y/tMNmPrTLb+FgE7
NtFGoTjeWqGVIs5a4RhhLoFBQdfjr6BNSkKJ99wsZWyxZa/OdNNH2TZv1OVGo/1sGtrKU3F5fyT2LLFA
zHSFnJgZCgwq6Pr8J2iTo1AhntyW7XkkYta7vhsF+Kl+H+6f24SOk+G4lb8MbflC3CoMx95Aa0RZykeQ
EmmCFFVL13MstMlRqCDiqmlOmsM9dYfwfWUyru12Rl2aPa4kCXB5izUqEvgojDDBgaDJWD1V/m24Gasz
2JgZTkrHU/V0fSWhTY5CxWaBQnzp5kV4WPN31GfMRRURPL/WFGXhhigM0sP+xVrI8NBEghMPqS4aOOg/
EWv5bCzmMf1J+Ti6vpLQJkehgjxwHbdKtuL2sQicXWeKo0Jd5HhpIHO+CtKdlBBvy8GOxXy0lm5HrI0S
cjxUsc5SHn68v1WSciZdX0lok6OQkIq3YY98V5mJis12yPbWQtJsJay3YiNyKguBU1jYH+mEX67n4unN
L1EY547oaQqImCJHDDCfkHolur6S0CZHISEdZ6Pw6PrxRBwS6iNpDheZAY44nugP0d5VuFeVgcHbR4h4
Lp5cz8bPtZlIXzIDAZPk4MtjviX1anR9JaFNjkIZ2Gil0FiRGYJMD23si3DHyM8tGLpbgud3CsXiz8jk
T1qy0d+0B4+upqEmJxRCU6XfvPSZb0i9Jl1fSWiTo1AGYqbLbz200gHxdhPwXfMFDP94BUMdJzDY9qn4
49p0/FiViIaDAVhprfHO/TPmI1KvQddXEtrkKCSk5urKqcYKuI9iZnDQ29WCl93VGGw/9nHZxZPXpuGf
l7ah6/QaiHYuQhBffWi2ltxRUs+h6ysJbXKUDzFeOIUVuMFaGd9WncCL7st4div//eSNn38U76mMR2tB
EArXz4afifIdUmdA1dL1lYQ2KQkJalfjRE3n9BQmr8ZwTwOZ/jCZnBJPF4v/VBmHeyURqP/CB7uWmMPZ
QOEkqeHS9RsLbVISsg9QJuS8zVRDkvztn7RXF+JpawEe1+38IB6PB6cj8c0hP5zYYI9QK/UhS3W5IFLz
X/cACtrkWEhQq6DkY6H+5f6YJWir+AK9NTvxw9exuFMUhuYcP5QlOiLBWR92mrIl5FoNgjRdr7HQJscS
FBTEMDQ0lJslsI5JXDAZ6YFzUZy8HNVZyyFK88CBlTMQ46iDQPMJ0NFQS2SxWMy1c3WlVs+ZGBDhoHNm
5Uytx6ECjcdBVqpnlvFVAk01mNK+Zhxx7z+JSUJNQZBjKyqqeHp6nlvst3h4b5AVzu0SImmRGVZMU0GA
GQeRAnXEO+sh0s4AFhYWr3R0dCpW2E/cm58SieuV+ejvPI2eht24mBOCXaEO8DFTStNijx9HCXwiWF5e
zkhQ54ohIUNQm8dmBfvaCr4/e/YsiouLkR5kj97a3egsT0Dt/mCUblmI/LWzkL1iBkLsjLBr1y4krg7A
0fR1+PfLbrz+Rx5e3cvG8J3deNGagp6qNUjxN8F8nnwo6S/9iYGysjLGmdw8SlxWU2a8aYgKp2H3ZANs
nO0oFn/37h1io0JQticCTflr8C35gbqStRSFG12QvNwOy7zc0NHRgShPG7TWifDmcQ0Grmfg3I5FSPG2
RH1JDp6RTax0sz1c9Fki8ZCSBkpLSylxamn0wicodV4MC0F7aAjOuy1EYGAguQQYGhqCr48vIgIDsD46
GrErVyLS3R0LXZzR3NyMpqYmBNtp4/lAP0Ye5KP7Qjy2uxtjuo5i3N6QufjtZT+as13grMscIDqKnxgg
QT3t3Ojo6KNZfr7o2LcPbcRAk8MsuPP56OrqwsjICLq7uzFv3jyk7kjFzp074eriimvXronFc3NzIbRS
FxsYvpuNvqsbUZ7kjN3LrdFacQS/dhbg2l5HzJkoN0i0VMcakDEwMBCQJq++StmOvGX+aF8VhkZ7O+ww
N0NCQgL6+/vR2toqNnD37l2cOnUKrvNdUVlZierqari5uWE5eRvut7XgVVcehprW4/nVCDy7FIQBkR96
SxeiiJwrrNRlbhI9tbEGuOHh4Ufr6+tx83QJtk+3wO2wUDTYzcQFc3PwJ01CQ0MDbG1txeJUZGVlkZW5
ByurGcjLz4e5phIy1/jh9cBdIh6Lwaur8LQ6EAMVvnhyzg0PjjgijpycjJTHZRG9P24BCWr5DVNTUx/1
9vbih5s3sFlPBzcDhKglghfNTJE2iYepxMQCLhfkuo8GqM+zFRXB11UTi7/q78Cv1zZi8MoqDFQJcb9o
IbqOeaF0kw0SPE1gxh1/UVqKwSN64yQNyPH5fJ+CggLxfe7r6cFmbTW0+HjjipUVqkxNIJpijMJJhjhD
TPgqK4uFw8LC4KbIwVY9zQ/id8jkG/CwnOwV3sQsj4X5k5XhxOPAnqeKSVzmFSkphjnRkxXrShhQWrp0
6SGRSIQXL17gF3KvN2mooNHVFdX8aaicYoKvjIxwxtAQJTwDFOnpwZPDwQIyeZKuOj4fFW9cj4dnliLJ
iwcPLhMm5E2vqanB1xUVWBcdA0tLy1NES916wvj3uhIGdKKiom60tLTg6dOneHj/Pjapc1HrOBsXLKai
wtgI54h4mYEBThHxY3r6yJs4Edv1/hB/3hiDZ5dD0FngIZ48RJ4Ne1lpdJG9gXqDcg4chJOTUxvR0rVS
eb/6kgYMMzIy3g4MDKCvrw/tDXWIU5+AGoENRGYmOG9Elp7Hwyl9fRTp6qKAiO8w0Hov3teO5/Xr0H16
CbaRySlxDy4LkSwWXORk0EhWoKn5G4iqqhEQEECdFY3pDKj6+voWHc47AtHFGlTk7EekmgpOmhjjKFny
w7qf4RARzdHWRpamJjI0tbCcr4I3/3pNxNcScX8ibkAeUCaWMVkIZjIRSgy4ysmi+OABXLxUg+TkFAgE
AuoWqNEZoPb+yf7+/jWJiYkIs5yKMC4boRTKbKwgBH8gQIkNIcHfQpmUAs/Ia9aZv0A8uSubCV8OCz6K
8vDmEBRZ8ORbQigUwsHB4SrRMKa0/mRA/IU8mQRtgiXBmgYbCWY6G7KrvIzZ8DBUEIubqMgcJ3mnMdeN
Mo2gQ5ClxGkN/D+QoPYNyjCHoEagDiHUZ/F/wv8lADB+B3eE88Zb5X+IAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItemSAPConnect.Caption" xml:space="preserve">
@ -2646,63 +2644,63 @@
</data>
<data name="BarButtonItem13.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAPdEVYdFRpdGxlAFNob3c7RXllO0njByUAAAK7SURBVDhPpZNpSFRRFMefjvbBjBpyaZUmNDfE
BSTSUXNlUsdtnHEcxVxy0kpcUDKhRlyLcRstNFMbmlBHTcYNE2TQSCKjNPxSkPtS4oZbG8a/+15+CfyQ
dOB37+Vwzu89uOdSAP6LPZP7Ya/QJbAIegT9Xegzndch/B2PJY5UndiBPurecD3DLudbp1YGW2kUfKvR
Kr7lTpm/xaicZ95d4M3JirY3NSV1rFI/DlXiy6F7/ghIsEqDbCIbopxXBhWp+NT3CItvNdj58gYLr5ow
1lKMrjsSVAXbrGdzT4tJ/QGCjkuAnO6lWBWhtkm9MglmhxrRWnELkXwf8LzcYWFjC54nFyKeOxpux+N1
fTaUcdxfN11PJdASRpDhac5Rxrn8rJUlIzYuHlwfIe43d2Jwag7OnmJIMwtQXPMUHjwxoqMvoygxCIpQ
e8Q5mHCJRI9SCOzuZiREQ6PpxMrqOrzCMtD3fhwxKbmwdroEK4J6YAS+wkxMzy5B1dgKqTAEMg+zFiIw
oFIk16bbOvqxufkVm1vfERKTgwdqLeLTC3HWxgOC2EyUq55DLM3FzPwqJmeWUfekAxI/yRwRHKKE4WnX
c0t7sLX9Axub3/CsaxDCxDwU1naguu0F8qs1CI2XQa0ZwOTsMiO4mqnChfPiLOYP7E8eNvKPlNfVqIbw
eXEDK2vbaG7vR2BEOuxcIhEUlYWmdi0mZpYw9mEehRW9cLqYpTY+qH+CCOh5YRa2jyCvSCSt3y57qIV2
6COGR6Ywu7CGl8Pj6Okfg0zeDe/w8m0H97RKUn+MQA+YDiVKUpKdkRgeN3M85xaQk+8tkA97CUomfEQK
uAfdm3D1z3vn4JZSzDaxtCV1Rwh69BUy1xiRrKTCpQ1U2JU6WkSPrMFu0VGCMcGIwCYYEpivugSWMM2M
YK8Hsh/2TP47oH4DNdAB6uHEmGQAAAAASUVORK5CYII=
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAA90RVh0VGl0
bGUAU2hvdztFeWU7SeMHJQAAArtJREFUOE+lk2lIVFEUx5+O9sGMGnJplSY0N8QFJNJRc2VSx22ccRzF
XHLSSlxQMqFGXItxGy00UxuaUEdNxg0TZNBIIqM0/FKQ+1Lihlsbxr/7Xn4J/JB04Hfv5XDO7z2451IA
/os9k/thr9AlsAh6BP1d6DOd1yH8HY8ljlSd2IE+6t5wPcMu51unVgZbaRR8q9EqvuVOmb/FqJxn3l3g
zcmKtjc1JXWsUj8OVeLLoXv+CEiwSoNsIhuinFcGFan41PcIi2812PnyBguvmjDWUoyuOxJUBdusZ3NP
i0n9AYKOS4Cc7qVYFaG2Sb0yCWaHGtFacQuRfB/wvNxhYWMLnicXIp47Gm7H43V9NpRx3F83XU8l0BJG
kOFpzlHGufyslSUjNi4eXB8h7jd3YnBqDs6eYkgzC1Bc8xQePDGioy+jKDEIilB7xDmYcIlEj1II7O5m
JERDo+nEyuo6vMIy0Pd+HDEpubB2ugQrgnpgBL7CTEzPLkHV2AqpMAQyD7MWIjCgUiTXpts6+rG5+RWb
W98REpODB2ot4tMLcdbGA4LYTJSrnkMszcXM/ComZ5ZR96QDEj/JHBEcooThaddzS3uwtf0DG5vf8Kxr
EMLEPBTWdqC67QXyqzUIjZdBrRnA5OwyI7iaqcKF8+Is5g/sTx428o+U19WohvB5cQMra9tobu9HYEQ6
7FwiERSVhaZ2LSZmljD2YR6FFb1wupilNj6of4II6HlhFraPIK9IJK3fLnuohXboI4ZHpjC7sIaXw+Po
6R+DTN4N7/DybQf3tEpSf4xAD5gOJUpSkp2RGB43czznFpCT7y2QD3sJSiZ8RAq4B92bcPXPe+fgllLM
NrG0JXVHCHr0FTLXGJGspMKlDVTYlTpaRI+swW7RUYIxwYjAJhgSmK+6BJYwzYxgrweyH/ZM/jugfgM1
0AHq4cSYZAAAAABJRU5ErkJggg==
</value>
</data>
<data name="BarButtonItem13.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAPdEVYdFRpdGxlAFNob3c7RXllO0njByUAAAilSURBVFhHxZcJVFTXHcZfDCYak2oSu0TTpFvs
MW1tjNHUKhBEkB0HhmWAYZMdhJFh32WTTfZtQBh2ARFlUwYUDKAluLAom8q+KwgqWMxpz9d7nxmOTUnP
6emp/Z/zm3vffe/d7/vfbWYYAP9XVm18laza+CpZtfFV8t/Eaz/A/yykAmsIr7+EzEvQa3qf8p8Z6soR
Ml1iV6aTkn2M6cgSMO2nXOgtVjRdoL2pOe4Iv/mkRV5ztFlnU6QJGsMMUR+ki1pfbVS5q9wpO6pQlGe9
z1qotO0n5J21BGqINZKospWJPfBjJkpuE3Ni7wbS9L2gogmBx5iYACET6n2MNrHC5ceNPryWYHXqZrrD
Un+JN4argzHdGINHrcl4clOEhbZUTNRFoLfIHS0nTVHpdghik51/S+VsK/CU27qN9PEGgTUi4PMYT3Me
E/w5HazvRQfJNsFfQKusMEGmOd7KtTvf7flEfQQRSsNipxjPeorw1/4yLA9U4Nvhi/h2tB7Lw7V4dq8a
C13FmG5Kw50iT0j8tJDJ3f73ULnNob/aKPM27Y/27WFuuLqBWyJHWrDizpw/bbgpcpQMVgTgQUsiFtpz
MdSSjZKMMIT5C2FpZgFlFQ4+262ETz9TwFcHtGBibIYgH3cUZUThXnMRJluy0JXvifOCg4hT/vDq/g/W
biZ902lZs6qB6yl2tFijuPOX62+J7PsHzgVgqikF9QWR8BU6w8yQB2NNFegeUoKGihrUNLlQ45pCiWMM
VQ0dqCoqQ11uP7TlZcHVOIxjTk6ozonGQE0sGsN5SNX+ZHjLhjUbiQY1QRP9l6DDvvbrGLNzvcXeaC0+
gWBPAbxs+bDim2LPAWLAIRDOgYkISMhFXM55pJfUIqmwCon5FQhJLYRbWCpMnYPwpSIPehpasOVqwMvZ
EV+Lg9F4go9o5Y/qiQZdgdLFuRL0QqZAqKHZLnJAeYI3QgTWiD9xHGfLK3GQ6wJBaD4CUyqQV9uGK30j
qLp+Bx4RGdA94gOXoBScrm9D3oU2JBQ3wD+xDHJaTsjOPY0wXw8I+XooiHBFhZsanHe+xyNa6wk04ZWg
F+suhRkPno0VItrNBmfPlqO//y5OFVTB0DEWfsnViCtoRPPABJruj+Kb8RkWFUMBlLhHockn8y+5Tkxc
Ryx5zkyYhJDYfPT29qG0pBQefA5y/G2RoL19jGhtIqxMBf1YK3ZSOlQdZYd4L1tIauswNj6JJ08W4eKf
BmtfMQJSqpF5rhWXugeI8DQ6Hs7jxtQsFDmOUDhsBwVtOzh4x6G88Q6SSpogjDgNI/sTeEz6GB0dx4WL
Evia6UBkpw6LT17XIJoro8BmX+mtmZ3qYb5cXVGN4aExzC8sYnHpOQxsw2EXUIiA5BqIK9ogCE5C69gL
A27haZBVtcB+gqyqJVmQ9qhq6kVKyVUyDVWQ13HD0rPnmH+8iOGRcVTXSOCjd2DZ7XcyaUTzRwS6FtiP
DTW+Wv35ovT57tt9mJ6aw8LjJTxdXIa+TSjM3LLgfvIc0s9chbz6EexR4GE3ixGpU3hsKatijvKGO4jN
a4RbVBkUuZ54urRMRuEZHjxcQO/dYYgSE6e9dsh0Es33COx+pAbetnLLvddwqQ1DA+OYnn6E2UeLxPkz
2Hokgu+aAQ9iIK2kBTxrP+zYq4M//plDICWp72BLDozt/FkDccSAY3ABWaAhWCDic/NLmJl9guGxB5A0
tEPFKK7/ZQN0Ct4yPSqKzC5sJgYmMDYxh6kHC3hAXorPPI/DVlFwCT2DiFOXkH76CnbLG+DTz9VfsIui
hl37uMgtbyLTdB1hojoYOMTCPzIXD+eeYubhE0xMzxMDszgpasBXh49HEk16JrBTQBfhG1/I6v3Gya90
9mb7AAaGZjAyPofxqXl0dI/goIEXrPxy4RVTgRhxAzJLm2Bo6YU98vr4QpYLA3MP5JW3oKimHTE5jXCP
PAt5jjuav+khwgsYJQkNjs7iVvcY9G3FCx//Vv73RPMtwspWZKdBxzzKISK5Dj3947g7OIOBkYcYGptD
ZPIZqJgEwdYvHz5xlYjLv4I8kmmZpAulF9tRKulEZlkrwtPr4JtQCTXT4/AKy8YwSYIK3xueQe/9afhG
1GCfqif9pnuXQId/ZRuyW5Hwrr51Ukp6XjO6eifQc3cSvQPT6CPYeyZBycAPdn558D5ZgeA0CaKzL7Oi
0VmXyUkogUtIMZR5/jBxikQ3ebefJNFzbwq3+yYQl9mIA5zQTKLxU8I6As2eNUCDVtjtSNisaxmf5BVe
iYZrd9HZM4Yu0kFX7ySCYgohq+0Kjk00rLyy4EqG2iW8hIxMLvTsYrBfyxXHAkRk2kaJ6CS6esZx+Wo/
nHzLyFkRIiJ9byFIh35FnLFwLaTFyybeV9AU8nj24vGwRAkuNnbjRtcIbt0ewYWGDviE54BjEYS9Gs4E
F2iaBkAYmIFz5JhuJ8/cYJ/rRmDMBajz0yZ3ydmakT5/Rlj5HlDnZ5DiuzATFDKmLgW0KjVBf0RsXL9h
00fK3OOBulYZgzbuxYhIrkd2yV9wvrYDLW330XprEK3tQ2z9fG0nsk5fQ1hiHcwFhVAzTh7ar+4T/Oa6
d35N+qJbjia2Iq5m8pIBvnM+Y+Kcxxg75dFLaoJCFwk9LumC2fKHL/UUD+oGx6obxdZqmiX3HbY8tcyx
zAIpoWWeuaxmlNSvpBclkdcMiN++S0eVvPNzwvsEOuTs7wDCa1RYykoYH81njIg4zzGXMXTIZQzsc2iz
dDSoEer+HQLNhC6irYSPCL/4jo8JVPADAv3hQY9Zap6+ywpLs17VgBER5hFhQyJsYJfD6NuJGT0bMcO1
yaa3pUakZuj0vEmgpqgIhdZpG71Hn6FDvSK8mvg/GZBmrU/FbbNfiFtnM7oEHassRudIFsMhkJBOz79F
nZ9JREU/KCyFjdX+rbxKVm18laza+OoA8w8Jvcvnr1nstAAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAA90RVh0VGl0
bGUAU2hvdztFeWU7SeMHJQAACKVJREFUWEfFlwlUVNcdxl8MJhqTahK7RNOkW+wxbW2M0dQqEESQHQeG
ZYBhkx2EkWHfZZNN9m1AGHYBEWVTBhQMoCW4sCibyr4rCCpYzGnP13ufGY5NSc/p6an9n/Obe999793v
+99tZhgA/1dWbXyVrNr4Klm18VXy38RrP8D/LKQCawivv4TMS9Brep/ynxnqyhEyXWJXppOSfYzpyBIw
7adc6C1WNF2gvak57gi/+aRFXnO0WWdTpAkawwxRH6SLWl9tVLmr3Ck7qlCUZ73PWqi07SfknbUEaog1
kqiylYk98GMmSm4Tc2LvBtL0vaCiCYHHmJgAIRPqfYw2scLlx40+vJZgdepmusNSf4k3hquDMd0Yg0et
yXhyU4SFtlRM1EWgt8gdLSdNUel2CGKTnX9L5Wwr8JTbuo308QaBNSLg8xhPcx4T/DkdrO9FB8k2wV9A
q6wwQaY53sq1O9/t+UR9BBFKw2KnGM96ivDX/jIsD1Tg2+GL+Ha0HsvDtXh2rxoLXcWYbkrDnSJPSPy0
kMnd/vdQuc2hv9oo8zbtj/btYW64uoFbIkdasOLOnD9tuClylAxWBOBBSyIW2nMx1JKNkowwhPkLYWlm
AWUVDj7brYRPP1PAVwe0YGJshiAfdxRlROFecxEmW7LQle+J84KDiFP+8Or+D9ZuJn3TaVmzqoHrKXa0
WKO485frb4ns+wfOBWCqKQX1BZHwFTrDzJAHY00V6B5SgoaKGtQ0uVDjmkKJYwxVDR2oKipDXW4/tOVl
wdU4jGNOTqjOicZATSwaw3lI1f5keMuGNRuJBjVBE/2XoMO+9usYs3O9xd5oLT6BYE8BvGz5sOKbYs8B
YsAhEM6BiQhIyEVcznmkl9QiqbAKifkVCEkthFtYKkydg/ClIg96Glqw5WrAy9kRX4uD0XiCj2jlj+qJ
Bl2B0sW5EvRCpkCoodkuckB5gjdCBNaIP3EcZ8srcZDrAkFoPgJTKpBX24YrfSOoun4HHhEZ0D3iA5eg
FJyub0PehTYkFDfAP7EMclpOyM49jTBfDwj5eiiIcEWFmxqcd77HI1rrCTThlaAX6y6FGQ+ejRUi2s0G
Z8+Wo7//Lk4VVMHQMRZ+ydWIK2hE88AEmu6P4pvxGRYVQwGUuEehySfzL7lOTFxHLHnOTJiEkNh89Pb2
obSkFB58DnL8bZGgvX2MaG0irEwF/VgrdlI6VB1lh3gvW0hq6zA2PoknTxbh4p8Ga18xAlKqkXmuFZe6
B4jwNDoezuPG1CwUOY5QOGwHBW07OHjHobzxDpJKmiCMOA0j+xN4TPoYHR3HhYsS+JrpQGSnDotPXtcg
miujwGZf6a2ZnephvlxdUY3hoTHMLyxicek5DGzDYRdQiIDkGogr2iAITkLr2AsDbuFpkFW1wH6CrKol
WZD2qGrqRUrJVTINVZDXccPSs+eYf7yI4ZFxVNdI4KN3YNntdzJpRPNHBLoW2I8NNb5a/fmi9Pnu232Y
nprDwuMlPF1chr5NKMzcsuB+8hzSz1yFvPoR7FHgYTeLEalTeGwpq2KO8oY7iM1rhFtUGRS5nni6tExG
4RkePFxA791hiBITp712yHQSzfcI7H6kBt62csu913CpDUMD45iefoTZR4vE+TPYeiSC75oBD2IgraQF
PGs/7Nirgz/+mUMgJanvYEsOjO38WQNxxIBjcAFZoCFYIOJz80uYmX2C4bEHkDS0Q8Uorv9lA3QK3jI9
KorMLmwmBiYwNjGHqQcLeEBeis88j8NWUXAJPYOIU5eQfvoKdssb4NPP1V+wi6KGXfu4yC1vItN0HWGi
Ohg4xMI/MhcP555i5uETTEzPEwOzOClqwFeHj0cSTXomsFNAF+EbX8jq/cbJr3T2ZvsABoZmMDI+h/Gp
eXR0j+CggRes/HLhFVOBGHEDMkubYGjphT3y+vhClgsDcw/klbegqKYdMTmNcI88C3mOO5q/6SHCCxgl
CQ2OzuJW9xj0bcULH/9W/vdE8y3CylZkp0HHPMohIrkOPf3juDs4g4GRhxgam0Nk8hmomATB1i8fPnGV
iMu/gjySaZmkC6UX21Eq6URmWSvC0+vgm1AJNdPj8ArLxjBJggrfG55B7/1p+EbUYJ+qJ/2me5dAh39l
G7JbkfCuvnVSSnpeM7p6J9BzdxK9A9PoI9h7JkHJwA92fnnwPlmB4DQJorMvs6LRWZfJSSiBS0gxlHn+
MHGKRDd5t58k0XNvCrf7JhCX2YgDnNBMovFTwjoCzZ41QINW2O1I2KxrGZ/kFV6Jhmt30dkzhi7SQVfv
JIJiCiGr7QqOTTSsvLLgSobaJbyEjEwu9OxisF/LFccCRGTaRonoJLp6xnH5aj+cfMvIWREiIn1vIUiH
fkWcsXAtpMXLJt5X0BTyePbi8bBECS42duNG1whu3R7BhYYO+ITngGMRhL0azgQXaJoGQBiYgXPkmG4n
z9xgn+tGYMwFqPPTJnfJ2ZqRPn9GWPkeUOdnkOK7MBMUMqYuBbQqNUF/RGxcv2HTR8rc44G6VhmDNu7F
iEiuR3bJX3C+tgMtbffRemsQre1DbP18bSeyTl9DWGIdzAWFUDNOHtqv7hP85rp3fk36oluOJrYirmby
kgG+cz5j4pzHGDvl0UtqgkIXCT0u6YLZ8ocv9RQP6gbHqhvF1mqaJfcdtjy1zLHMAimhZZ65rGaU1K+k
FyWR1wyI375LR5W883PC+wQ65OzvAMJrVFjKShgfzWeMiDjPMZcxdMhlDOxzaLN0NKgR6v4dAs2ELqKt
hI8Iv/iOjwlU8AMC/eFBj1lqnr7LCkuzXtWAERHmEWFDImxgl8Po24kZPRsxw7XJprelRqRm6PS8SaCm
qAiF1mkbvUefoUO9Irya+D8ZkGatT8Vts1+IW2czugQdqyxG50gWwyGQkE7Pv0Wdn0lERT8oLIWN1f6t
vEpWbXyVrNr46gDzDwm9y+evWey0AAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItemSwitchCon.Caption" xml:space="preserve">

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

@ -96,7 +96,7 @@ Public Class frmMain
Dim IPs As IPAddress
For Each IPs In Addresslist
'Aktuelle Machine
ClassLogger.Add(">> " & My.Computer.Name & " - IP: " & IPs.ToString, False)
LOGGER.Info("" & My.Computer.Name & " - IP: " & IPs.ToString, False)
LabelMachine.Caption = My.Computer.Name & " - IP: " & IPs.ToString
Next IPs
@ -120,7 +120,7 @@ Public Class frmMain
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If LogErrorsOnly = False Then ClassLogger.Add(">> FormLoad finished!", False)
LOGGER.Debug("FormLoad finished!", False)
Proxy_Server_Controls()
CONN_Manager
@ -148,7 +148,7 @@ Public Class frmMain
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in CONN_Manager:" & ex.Message, True)
LOGGER.Warn("Unexpected Error in CONN_Manager:" & ex.Message)
End Try
End Sub
Sub Proxy_Server_Controls()
@ -156,13 +156,13 @@ Public Class frmMain
If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
'itemRefreshProxy.Visibility = BarItemVisibility.Always
LabelProxyServer.Visibility = BarItemVisibility.Always
ClassLogger.Add(">> PROXY-SERVER is being used", False)
LOGGER.Info("PROXY-SERVER is being used", False)
Else
'itemRefreshProxy.Visibility = BarItemVisibility.Never
LabelProxyServer.Visibility = BarItemVisibility.Never
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message, True)
LOGGER.Warn("Unexpected Error in Sub Proxy_Server_Controls():" & ex.Message)
End Try
End Sub
@ -170,7 +170,7 @@ Public Class frmMain
Try
If TIMER_SCAN.Enabled = False And CURRENT_SCAN_FOLDERWATCH <> "" And FWSCAN_started = True Then
If System.IO.Directory.Exists(CURRENT_SCAN_FOLDERWATCH) = False Then
ClassLogger.Add(">> SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
LOGGER.Warn("SCAN PATH '" & CURRENT_SCAN_FOLDERWATCH & "'not accessable!", False)
Exit Sub
End If
TIMER_SCAN.Interval = 30000
@ -310,7 +310,7 @@ Public Class frmMain
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL2)
If dt.Rows.Count <> 0 Then
pageForms.Visible = True
For Each row As DataRow In dt.Rows
Dim image As Bitmap = Nothing
@ -347,6 +347,8 @@ Public Class frmMain
groupQuickAccessForm2.ItemLinks.Add(item)
Next
Else
pageForms.Visible = False
End If
Catch ex As Exception
@ -490,7 +492,7 @@ Public Class frmMain
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Load BackgroundImage: " & ex.Message)
LOGGER.Warn("Unexpected Error in Load BackgroundImage: " & ex.Message)
End Try
End Sub
@ -572,7 +574,7 @@ Public Class frmMain
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < USERS_LOGGED_IN Then
If USER_IS_ADMIN = True Then
ClassLogger.Add(">> User is Admin - Timer will be started", False)
LOGGER.Info("User is Admin - Timer will be started", False)
'If USER_LANGUAGE = "de-DE" Then
MsgBox("You now got 3 minutes for creating a new license", MsgBoxStyle.Information)
'Else
@ -615,7 +617,7 @@ Public Class frmMain
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(ClassLogger.DateiSpeicherort)
Process.Start(LOGCONFIG.LogFile)
End If
Else
If ClassUpdate.UPDATE_NECESSARY Then
@ -666,7 +668,7 @@ Public Class frmMain
'If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
' If CURRENT_USER_IS_ADMIN = True Then
' ClassLogger.Add(">> User is Admin - Timer will be started", False)
' Logger.Info("User is Admin - Timer will be started", False)
' If USER_LANGUAGE = "de-DE" Then
' MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
' Else
@ -1072,7 +1074,7 @@ Public Class frmMain
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector", "CurrentAlias", oWM_ALIAS)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\A.I.S. GmbH\windream\3.6\ServerShareSelector", "VFSAlias", oWM_ALIAS)
Catch ex As Exception
ClassLogger.Add("Unexpected error in Changing WMAlias: " & ex.Message, True)
LOGGER.Warn("Unexpected error in Changing WMAlias: " & ex.Message)
MsgBox("Unexpected error in Changing WMAlias: " & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
@ -1081,7 +1083,7 @@ Public Class frmMain
IndexService.shutdown
IndexService.Start
Catch ex As Exception
ClassLogger.Add("Unexpected error in Restarting IndexService: " & ex.Message, True)
LOGGER.Warn("Unexpected error in Restarting IndexService: " & ex.Message)
MsgBox("Unexpected error in Restarting IndexService: " & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
@ -1090,7 +1092,7 @@ Public Class frmMain
ControlCenter.StartVFSService(0)
ControlCenter.StartVFSService(1)
Catch ex As Exception
ClassLogger.Add("Unexpected error in Restarting ControlCenter: " & ex.Message, True)
LOGGER.Warn("Unexpected error in Restarting ControlCenter: " & ex.Message)
MsgBox("Unexpected error in Restarting ControlCenter: " & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try

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

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

8
app/DD-Record-Organizer/frmRecordView.vb
View File

@ -395,9 +395,9 @@ Public Class frmRecordView
Dim State_DESC = ClassDatabase.Execute_Scalar(sql, True)
Dim Comment
If COMMENTTextBox.Text <> "" Then
Comment = String.Format(COMMENTTextBox.Text & vbNewLine & ">> " & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
Comment = String.Format(COMMENTTextBox.Text & vbNewLine & "" & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
Else
Comment = String.Format(">> " & Now.ToString & ": User {0} Changed the state to: {1}", Environment.UserName, State_DESC)
Comment = String.Format("" & Now.ToString & ": User {0} Changed the state to: {1}", Environment.UserName, State_DESC)
End If
If STATE_id > 0 Then
ins = String.Format("INSERT INTO TBPMO_WORKFLOW_TASK_HISTORY (WF_TASK_ID,STATE_ID,STATE_DESC,COMMENT,ADDED_WHO) VALUES" &
@ -587,7 +587,7 @@ Public Class frmRecordView
If Not IsNothing(Str) Then
Dim DropType = Str.Substring(0, Str.LastIndexOf("@") + 1)
If DropType.ToString.Contains("SCAN") = False Then
ClassLogger.Add(">> Check_Dropped_Files:" & Str.ToString, False)
LOGGER.Info("Check_Dropped_Files:" & Str.ToString)
Dim CURRENT_WORKFILE = Str.Substring(Str.LastIndexOf("@") + 1)
Dim insert = String.Format("INSERT INTO TBPMO_FILES_USER(FILENAME2WORK, USER_WORK, HANDLE_TYPE) VALUES('{0}','{1}','{2}')", CURRENT_WORKFILE, USER_USERNAME, DropType)
If ClassDatabase.Execute_non_Query(insert, True) = False Then
@ -613,7 +613,7 @@ Public Class frmRecordView
If CURRENT_TBPMO_FILES_USER.Rows.Count = 1 Then
frmWM_IndexFile.ShowDialog()
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
LOGGER.Debug("File was deleted or worked meanwhile!")
End If
Next
RUN_WDSEARCH_GRID()

2
app/DD-Record-Organizer/frmSAP_FuBa.Designer.vb generated
View File

@ -797,7 +797,7 @@ Partial Class frmSAP_FuBa
'
'btnERPConnect
'
Me.btnERPConnect.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle))
Me.btnERPConnect.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold)
Me.btnERPConnect.Image = Global.DD_Record_Organizer.My.Resources.Resources.database_connect
Me.btnERPConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnERPConnect.ImeMode = System.Windows.Forms.ImeMode.NoControl

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

@ -63,8 +63,8 @@ Public Class frmSAP_FuBa
Me.Cursor = Cursors.Default
'Try
' Me.Cursor = Cursors.WaitCursor
' If LogErrorsOnly = False Then ClassLogger.Add("", False)
' If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP Connect started:", False)
' LOGGER.Debug("")
' LOGGER.Debug("SAP Connect started:")
' ERPConnect.LIC.SetLic("W86DWC992C")
' con.Host = HostTextBox.Text
' con.SystemNumber = SystemNumberTextBox.Text
@ -72,10 +72,10 @@ Public Class frmSAP_FuBa
' con.Password = PasswordTextBox.Text
' con.Client = ClientTextBox.Text
' con.Language = LanguageTextBox.Text
' If LogErrorsOnly = False Then ClassLogger.Add(" >> HOST: " & HostTextBox.Text & " |SystemNumber: " & SystemNumberTextBox.Text & " |UserName: " & UserNameTextBox.Text & " |Password: " & PasswordTextBox.Text & " |Client: " & ClientTextBox.Text & " |Language: " & LanguageTextBox.Text, False)
' LOGGER.Debug("HOST: " & HostTextBox.Text & " |SystemNumber: " & SystemNumberTextBox.Text & " |UserName: " & UserNameTextBox.Text & " |Password: " & PasswordTextBox.Text & " |Client: " & ClientTextBox.Text & " |Language: " & LanguageTextBox.Text)
' con.Open(False)
' If LogErrorsOnly = False Then ClassLogger.Add(" >> SAP-Connection erfolgreich aufgebaut!", False)
' If LogErrorsOnly = False Then ClassLogger.Add("", False)
' LOGGER.Debug("SAP-Connection erfolgreich aufgebaut!")
' LOGGER.Debug("")
' lblConnectionopen.Visible = True
' Me.Cursor = Cursors.Default
'Catch ex As Exception
@ -146,7 +146,7 @@ Public Class frmSAP_FuBa
lblSave.Visible = False
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
ClassLogger.Add(">> SAPResulttable is nothing", False)
LOGGER.Warn("SAPResulttable is nothing")
Exit Sub
End If
'######
@ -165,12 +165,12 @@ Public Class frmSAP_FuBa
Next
createtablesql += ")"
''Die Tabelle anlegen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Create Table: " & createtablesql, False)
LOGGER.Debug("Create Table: " & createtablesql)
If ClassDatabase.Execute_non_Query_withConn(createtablesql, 1) = False Then
MsgBox("Error in creating TempTable: Check log", MsgBoxStyle.Critical)
Exit Sub
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> table has been created", False)
LOGGER.Debug("table has been created")
Dim alter = String.Format("ALTER TABLE {0} ADD GUID INTEGER NOT NULL IDENTITY(1,1)", tablename)
ClassDatabase.Execute_non_Query_withConn(alter, 1)
@ -215,7 +215,7 @@ Public Class frmSAP_FuBa
End Using
SQLconnect.Close()
Me.Cursor = Cursors.Default
If LogErrorsOnly = False Then ClassLogger.Add(" >> Create table from SAP FuBa was successfull " & SAPResulttable.Rows.Count & " Rows were inserted to table '" & tablename & "'!", False)
LOGGER.Debug("Create table from SAP FuBa was successfull " & SAPResulttable.Rows.Count & " Rows were inserted to table '" & tablename & "'!")
MsgBox("Create table was successfull! " & vbNewLine & SAPResulttable.Rows.Count & " Rows were inserted to table '" & tablename & "'!", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox("Unexpected Error in SQL bulkCopy: " & ex.Message, MsgBoxStyle.Critical)
@ -286,7 +286,7 @@ Public Class frmSAP_FuBa
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
sw.Stop()
ClassLogger.Add(">> SAPResulttable is nothing", False)
LOGGER.Warn("SAPResulttable is nothing")
Exit Sub
End If
@ -324,7 +324,7 @@ Public Class frmSAP_FuBa
lblSave.Visible = False
GridControl2.DataSource = Nothing
GridView2.Columns.Clear()
ClassLogger.Add(">> Unexpected Error in GridControl2 >> DataTable 2: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in GridControl2 >> DataTable 2: " & ex.Message)
MsgBox("Error in GridControl2 >> DataTable: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

10
app/DD-Record-Organizer/frmSQLEditor.vb
View File

@ -37,7 +37,7 @@ Public Class frmSQLEditor
Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_CONNECTION)
Catch ex As Exception
ClassLogger.Add(" - Unexpected Error in Load Connections - errpor: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unexpected Error in Load Connections - errpor: " & vbNewLine & ex.Message)
MsgBox("Unexpected Error in Load Connections: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -150,7 +150,7 @@ Public Class frmSQLEditor
Return dataset
Else
If LogErrorsOnly = True Then ClassLogger.Add(" >> It's an Oracle-Connection (ExecuteWithConnection)", False)
LOGGER.Debug("It's an Oracle-Connection (ExecuteWithConnection)")
Dim sqlConnection As OracleConnection
Dim sqlCommand As OracleCommand
Dim sqlAdapter As New OracleDataAdapter
@ -171,7 +171,7 @@ Public Class frmSQLEditor
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:")
Return Nothing
End Try
@ -319,7 +319,7 @@ Public Class frmSQLEditor
MsgBox("SQL-Befehl erfolgreich gespeichert!", MsgBoxStyle.Exclamation)
End If
Catch ex As Exception
ClassLogger.Add(" - Unexpected Error in Save SQL-Command for control - error: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unexpected Error in Save SQL-Command for control - error: " & vbNewLine & ex.Message)
MsgBox("Unexpected Error in Save SQL-Command for control - error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@ -344,7 +344,7 @@ Public Class frmSQLEditor
End If
Catch ex As Exception
ClassLogger.Add(" - Unexpected Error in Get Connection for Control - error: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unexpected Error in Get Connection for Control - error: " & vbNewLine & ex.Message)
MsgBox("Unexpected Error in Get Connection for Control - error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

4
app/DD-Record-Organizer/frmTask_Management.vb
View File

@ -47,7 +47,7 @@
Me.VWPMO_GUI_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_GUI_ENTITY)
Catch ex As Exception
MsgBox("Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, MsgBoxStyle.Exclamation)
ClassLogger.Add(">> Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, False)
LOGGER.Warn("Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message)
End Try
Load_TreeView()
Me.TBPMO_WORKFLOWTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW, USER_LANGUAGE)
@ -288,7 +288,7 @@
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(del, False) Then
If ClassDatabase.Execute_non_Query(del) Then
Load_ENTITY_States("ENT")
End If
End If

2
app/DD-Record-Organizer/frmTemplates.vb
View File

@ -132,7 +132,7 @@
For Each cc In doc.ContentControls
If Not IsNothing(cc) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False)
LOGGER.Debug("Office-Pattern: " & cc.Tag, False)
If Pattern_exists(cc.tag.ToString.ToUpper) = False Then
TBPMO_TEMPLATE_PATTERNTableAdapter.cmdInsertBasics(cc.tag.ToString, USER_USERNAME, _TEMPLATE_ENTITY_ID)
End If

12
app/DD-Record-Organizer/frmUserKonfig_AddUsers.vb
View File

@ -107,7 +107,7 @@ Public Class frmUserKonfig_AddUsers
newUserRow.Surname = IIf((IsDBNull(NAME) Or IsNothing(NAME)), "", NAME)
newUserRow.Email = IIf((IsDBNull(email) Or IsNothing(email)), "", email)
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Read User LDAP-Configurations: " & vbNewLine)
LOGGER.Warn("Unexpected Error in Read User LDAP-Configurations: " & vbNewLine)
End Try
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
Next
@ -164,14 +164,14 @@ Public Class frmUserKonfig_AddUsers
_Step = 8
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
SQL = $"INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID,ADDED_WHO) VALUES
((SELECT MAX(GUID) FROM TBDD_USER),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
(SELECT MAX(GUID) FROM TBDD_USER),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
ClassDatabase.Execute_non_Query(SQL, False)
_Step = 9
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER")
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, oUSERNAME)
Dim msg = String.Format("USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, oUSERNAME)
_Step = 10
ClassLogger.Add(msg, False)
ClassHelper.InsertEssential_Log(ID, "USER-ID", msg.Replace(">> ", ""))
LOGGER.Info(msg)
ClassHelper.InsertEssential_Log(ID, "USER-ID", msg.Replace("", ""))
usersAdded += 1
Else
MsgBox("Unexpected Error In Adding User (" & oUSERNAME & ") : " & "Check the log!", MsgBoxStyle.Exclamation)
@ -180,7 +180,7 @@ Public Class frmUserKonfig_AddUsers
_Step = 11
SQL = $"IF NOT EXISTS(SELECT T.GUID FROM TBDD_USER_MODULES T INNER JOIN TBDD_USER T1 ON T.USER_ID = T1.GUID INNER JOIN TBDD_MODULES T2 ON T.MODULE_ID = T2.GUID WHERE T2.SHORT_NAME = 'ADDI' AND T1.USERNAME = '{oUSERNAME}')
INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID,ADDED_WHO) VALUES
((SELECT GUID FROM TBDD_USER WHERE USERNAME = '{oUSERNAME}'),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
(SELECT GUID FROM TBDD_USER WHERE USERNAME = '{oUSERNAME}'),(SELECT T.GUID FROM TBDD_MODULES T WHERE T.SHORT_NAME = 'ADDI'),'{Environment.UserName}')"
_Step = 12
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
usersRefreshed += 1

12
app/DD-Record-Organizer/frmViewsUser.Designer.vb generated
View File

@ -69,7 +69,7 @@ Partial Class frmViewsUser
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = True
Me.GridControl1.Size = New System.Drawing.Size(354, 283)
Me.GridControl1.Size = New System.Drawing.Size(364, 305)
Me.GridControl1.TabIndex = 91
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
@ -150,7 +150,7 @@ Partial Class frmViewsUser
Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue
Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue"
Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True
Me.GridControlUsers2Menue.Size = New System.Drawing.Size(378, 283)
Me.GridControlUsers2Menue.Size = New System.Drawing.Size(378, 305)
Me.GridControlUsers2Menue.TabIndex = 90
Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue})
'
@ -224,7 +224,7 @@ Partial Class frmViewsUser
Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0)
Me.XtraTabControl1.Name = "XtraTabControl1"
Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
Me.XtraTabControl1.Size = New System.Drawing.Size(868, 382)
Me.XtraTabControl1.Size = New System.Drawing.Size(878, 404)
Me.XtraTabControl1.TabIndex = 92
Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1})
'
@ -237,7 +237,7 @@ Partial Class frmViewsUser
Me.XtraTabPage1.Controls.Add(Me.Label1)
Me.XtraTabPage1.Controls.Add(Me.GridControlUsers2Menue)
Me.XtraTabPage1.Name = "XtraTabPage1"
Me.XtraTabPage1.Size = New System.Drawing.Size(866, 357)
Me.XtraTabPage1.Size = New System.Drawing.Size(876, 379)
Me.XtraTabPage1.Text = "Globale Suche"
'
'btndeleteUserConstructorRel
@ -282,14 +282,14 @@ Partial Class frmViewsUser
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(347, 26)
Me.Label1.TabIndex = 91
Me.Label1.Text = "Konfigurieren Sie hier welche User Zugriff auf die globale Suche haben!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Achtung:" & _
Me.Label1.Text = "Konfigurieren Sie hier welche User Zugriff auf die globale Suche haben!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Achtung:" &
" in dieser Suche werden alle Datensätze angezeigt!!"
'
'frmViewsUser
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(868, 382)
Me.ClientSize = New System.Drawing.Size(878, 404)
Me.Controls.Add(Me.XtraTabControl1)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

8
app/DD-Record-Organizer/frmWM_ChangeDoctype.vb
View File

@ -136,7 +136,7 @@ Public Class frmWM_ChangeDoctype
AddDateTimePicker(DR.Item("GUID"), DR.Item("NAME"), y)
Case Else
MsgBox($"Please check the datatype of manual index ({ DR.Item("NAME")} - {type} - Refresh_Indices_Manual", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
LOGGER.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
End Select
anz += 1
@ -377,7 +377,7 @@ Public Class frmWM_ChangeDoctype
Next
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
End Try
End Sub
@ -415,7 +415,7 @@ Public Class frmWM_ChangeDoctype
End If
Else
runinLZ = True
If LogErrorsOnly = False Then ClassLogger.Add(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
End If
@ -486,7 +486,7 @@ Public Class frmWM_ChangeDoctype
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
End Try
End Sub

6
app/DD-Record-Organizer/frmWM_DoctypeConfig.vb
View File

@ -85,11 +85,11 @@ Public Class frmWM_DoctypeConfig
Sub Refresh_Dokart(All As Boolean)
Try
If All = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokumentarten für RecordOrganizer werden geladen", False)
LOGGER.Debug("Dokumentarten für RecordOrganizer werden geladen", False)
Me.TBDD_DOKUMENTARTTableAdapter.FillByPMO(Me.DD_DMSDataSet.TBDD_DOKUMENTART, USER_LANGUAGE)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Dokumentarten: " & DD_DMSDataSet.TBDD_DOKUMENTART.Rows.Count, False)
LOGGER.Debug("Anzahl Dokumentarten: " & DD_DMSDataSet.TBDD_DOKUMENTART.Rows.Count, False)
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Alle Dokumentarten werden geladen", False)
LOGGER.Debug("Alle Dokumentarten werden geladen", False)
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_DOKUMENTART, USER_LANGUAGE)
End If

8
app/DD-Record-Organizer/frmWM_EntityImport.vb
View File

@ -152,28 +152,28 @@ Public Class frmWM_EntityImport
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, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then
MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
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, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
'###
'den Record-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_RECORD_ID
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False)
LOGGER.Debug("Record-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical)
'den Doctype-Key auslesen
indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString
idxvalue = CURRENT_DOKARTSTRING
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False)
LOGGER.Debug("Doctype: " & idxvalue.ToString, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Doctype - See log", MsgBoxStyle.Critical)
'####

105
app/DD-Record-Organizer/frmWM_Import_Doc_Record.vb
View File

@ -136,7 +136,7 @@ Public Class frmWM_Import_Doc_Record
PROFILE_SQL_PARENT = DT.Rows(0).Item("SQL_PARENT_RECORD")
PROFILE_ONLY_RECORD = DT.Rows(0).Item("ONLY_RECORD_CREATING")
If PROFILE_ONLY_RECORD = True Then
ClassLogger.Add(">> Only Records shall be created", False)
LOGGER.Info("Only Records shall be created")
End If
PROFILE_NEW_OT = DT.Rows(0).Item("NEW_OBJECTTYPE")
Catch ex As Exception
@ -166,10 +166,10 @@ Public Class frmWM_Import_Doc_Record
End If
'nur weiter machen wenn kein BackgroundWorker mehr läuft
If Not Me.bwsearch.IsBusy Then
ClassLogger.Add("======================================================================", False)
ClassLogger.Add("Import RecordFiles started ", False)
ClassLogger.Add(Now, False)
ClassLogger.Add("======================================================================", False)
LOGGER.Info("======================================================================")
LOGGER.Info("Import RecordFiles started ")
LOGGER.Info(Now)
LOGGER.Info("======================================================================")
Me.lblStatusThread.Text = "Status: Import läuft"
bwsearch.RunWorkerAsync()
@ -196,14 +196,14 @@ Public Class frmWM_Import_Doc_Record
End If
Else
If Me.bwsearch.IsBusy Then
ClassLogger.Add(">> Attention: Thread Search still working - Threads will be aborted.", False)
LOGGER.Info("Attention: Thread Search still working - Threads will be aborted.")
Me.bwsearch.CancelAsync()
MsgBox("Threads were cancelled!", MsgBoxStyle.Information)
End If
End If
Catch ex As Exception
MsgBox("Unexpexted error in Start_Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpexted error in Start_Profile: " & ex.Message, True)
LOGGER.Info("Unexpexted error in Start_Profile: " & ex.Message)
End Try
End Sub
Sub Work_Search()
@ -211,24 +211,24 @@ Public Class frmWM_Import_Doc_Record
RUN_SEARCH()
Catch ex As Exception
MsgBox("Unexpexted error in Start_Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpexted error in Start_Search: " & ex.Message, True)
LOGGER.Info("Unexpexted error in Start_Search: " & ex.Message)
End Try
End Sub
Sub RUN_SEARCH()
Try
windreamSucheErgebnisse = clsWD_GET.GetSearchDocuments(PROFILE_WD_SEARCH)
ClassLogger.Add(">> Files Result: " & windreamSucheErgebnisse.Count, False)
LOGGER.Info("Files Result: " & windreamSucheErgebnisse.Count)
Search_Completed = True
Catch ex As Exception
ClassLogger.Add("Error in RUN_SEARCH - Error: " & ex.Message)
LOGGER.Info("Error in RUN_SEARCH - Error: " & ex.Message)
End Try
End Sub
Private Sub bwsearch_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
'Dim minutes = CInt(System.DateTime.Now.Subtract(CURRENT_START_DATETIME).Minutes)
'If minutes >= 1 Then
' Logger(" >> Suchdauer >= 1 Minute aber letzendlich ausgeführt (" & Now & ")", True)
'End If
'If minutes >= 1 Then
' Logger("Suchdauer >= 1 Minute aber letzendlich ausgeführt (" & Now & ")")
'End If
End Sub
Sub Work_Files()
@ -244,21 +244,21 @@ Public Class frmWM_Import_Doc_Record
Dim filename = "W:" & aktivesDokument.aPath
Dim DOK_FOLDER As String = IO.Path.GetDirectoryName(filename)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Working on file '" & IO.Path.GetFileName(filename) & "'", False)
LOGGER.Debug("Working on file '" & IO.Path.GetFileName(filename) & "'")
If Folder <> DOK_FOLDER Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Folderpath '" & DOK_FOLDER & "'", False)
LOGGER.Debug("Folderpath '" & DOK_FOLDER & "'")
Folder = DOK_FOLDER
End If
If Create_Record() = True Then
If PROFILE_SQL_PARENT <> "" Then
If Create_Parent_Record() = False Then
ClassLogger.Add(">> Create Parent-Record not successful!", False)
LOGGER.Warn("Create Parent-Record not successful!")
End If
End If
If PROFILE_ONLY_RECORD = False Then 'Es sollen auch Dateien importiert werden
If Import_File() = False Then
ClassLogger.Add(">> No import of file! Exit For each!", False)
LOGGER.Warn("No import of file! Exit For each!")
Continue For
End If
End If
@ -268,19 +268,19 @@ Public Class frmWM_Import_Doc_Record
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If DT Is Nothing = False Then 'CHECK DD
If DT.Rows.Count >= 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Control-Index-Rows", False)
LOGGER.Debug("" & DT.Rows.Count & " Control-Index-Rows")
Dim err As Boolean = False
For Each row As DataRow In DT.Rows
'Den Wert aus dem Index des Dokuments auslesen und in den ControlValue schreiben
Dim idxvalue
Dim indexname_old = row.Item("STRING2").ToString
If LogErrorsOnly = False Then ClassLogger.Add(" >> Read Value 2 for windream-index: '" & indexname_old & "'", False)
LOGGER.Debug("Read Value 2 for windream-index: '" & indexname_old & "'")
Try
idxvalue = aktivesDokument.GetVariableValue(indexname_old)
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception
err = True
ClassLogger.Add(">> Error Reading Value 2 for windream-index '" & indexname_old & "' - Error: " & ex.Message, False)
LOGGER.Warn("Error Reading Value 2 for windream-index '" & indexname_old & "' - Error: " & ex.Message)
Continue For
End Try
@ -293,17 +293,17 @@ Public Class frmWM_Import_Doc_Record
'ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String
Next
Else
ClassLogger.Add(">>There are no control-index relations defined!", False)
LOGGER.Info(">>There are no control-index relations defined!")
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> No control-values configured!", False)
LOGGER.Debug("No control-values configured!")
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> REC_EXISTS = True - no control values to be set!", False)
LOGGER.Debug("REC_EXISTS = True - no control values to be set!")
End If
Else
ClassLogger.Add(">> Create Record not successful!", False)
LOGGER.Warn("Create Record not successful!")
End If
'
@ -334,19 +334,19 @@ Public Class frmWM_Import_Doc_Record
Dim elementohneSZ = element.Value.Replace("[%", "")
elementohneSZ = elementohneSZ.Replace("]", "")
' für den Platzhalter den WErt aus windream auslesen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Read value for windream-index: '" & elementohneSZ & "'", False)
LOGGER.Debug("Read value for windream-index: '" & elementohneSZ & "'")
Dim idxvalue
Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception
ClassLogger.Add(">> Regex Doctype SQL: Error reading Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message, False)
LOGGER.Warn("Regex Doctype SQL: Error reading Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
Continue For
End Try
' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
SQL_FILE_DOCTYPE = SQL_FILE_DOCTYPE.Replace(element.Value, idxvalue.ToString)
Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Executing Doctype SQL: " & SQL_FILE_DOCTYPE, False)
LOGGER.Debug("Executing Doctype SQL: " & SQL_FILE_DOCTYPE)
Dim DokTYPE_ID = ClassDatabase.Execute_Scalar(SQL_FILE_DOCTYPE)
'#####
@ -428,31 +428,31 @@ Public Class frmWM_Import_Doc_Record
Sql = "SELECT STRING2 FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE STRING1 = 'INDEX_RECORD_ID' AND PROFILE_ID = " & cmbImportProfile.SelectedValue
RecordIndex = ClassDatabase.Execute_Scalar(Sql)
If clsWD_SET.IndexFile(CURRENT_FILEIN_WD, RecordIndex, IMPORT_REC_ID, DT.Rows(0).Item(1)) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record Index was written", False)
LOGGER.Debug("Record Index was written")
End If
End If
If PROFILE_IDX_WORKED <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Setting the Exported to ADDI-Flag - windream-index '" & PROFILE_IDX_WORKED & "'", False)
LOGGER.Debug("Setting the Exported to ADDI-Flag - windream-index '" & PROFILE_IDX_WORKED & "'")
clsWD_SET.File_SetBooleanIndex(True, aktivesDokument, PROFILE_IDX_WORKED, False)
End If
_Filesimported += 1
Return True
Else
ClassLogger.Add(">> File was not imported!", False)
LOGGER.Warn("File was not imported!")
Return False
End If
End If
Else
ClassLogger.Add(">> No doctype-ID found", False)
ClassLogger.Add(">> SQL: " & SQL_FILE_DOCTYPE, False)
LOGGER.Warn("No doctype-ID found")
LOGGER.Warn("SQL: " & SQL_FILE_DOCTYPE)
If REC_ADDED = True Then
ClassHelper.DeleteRecord(IMPORT_REC_ID)
Return False
End If
End If
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Import/IndexFile: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Import/IndexFile: " & ex.Message)
MsgBox("Unexpected Error in Import/IndexFile: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@ -476,23 +476,23 @@ Public Class frmWM_Import_Doc_Record
Dim elementohneSZ = element.Value.Replace("[%", "")
elementohneSZ = elementohneSZ.Replace("]", "")
' für den Platzhalter den WErt aus windream auslesen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Read value 1 for windream-index: '" & elementohneSZ & "'", False)
LOGGER.Debug("Read value 1 for windream-index: '" & elementohneSZ & "'")
Dim idxvalue
Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
If LogErrorsOnly = False Then ClassLogger.Add(" >> idxvalue from windream: '" & idxvalue.ToString & "'", False)
LOGGER.Debug("idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception
ClassLogger.Add(">> Regex Unique SQL: Error reading Value 1 for windream-index '" & elementohneSZ & "' - Error: " & ex.Message, False)
LOGGER.Warn("Regex Unique SQL: Error reading Value 1 for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
Continue For
End Try
' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
SQL_UNIQUE_FILE = SQL_UNIQUE_FILE.Replace(element.Value, idxvalue.ToString)
Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Executing Unique SQL: " & SQL_UNIQUE_FILE, False)
LOGGER.Debug("Executing Unique SQL: " & SQL_UNIQUE_FILE)
IMPORT_REC_ID = ClassDatabase.Execute_Scalar(SQL_UNIQUE_FILE)
End If
If IMPORT_REC_ID = Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record is new!", False)
LOGGER.Debug("Record is new!")
'Den Record inserten
Dim recordId = ClassRecordCommands.CreateRecordProcedure(PROFILE_ENTITY)
@ -500,19 +500,18 @@ Public Class frmWM_Import_Doc_Record
If recordId > 0 Then
IMPORT_REC_ID = recordId
REC_ADDED = True
If LogErrorsOnly = False Then ClassLogger.Add(" >> New Record-ID: " & IMPORT_REC_ID.ToString, False)
LOGGER.Debug("New Record-ID: " & IMPORT_REC_ID.ToString)
_RecordsAdded += 1
Else
Throw New Exception("Could not create Record")
End If
Else
ClassLogger.Add(">> ## RECORD already exists - Record-ID: '" & IMPORT_REC_ID.ToString & "' ##", False)
If LogErrorsOnly = True Then ClassLogger.Add(">> Unique SQL: " & SQL_UNIQUE_FILE, False)
LOGGER.Warn("## RECORD already exists - Record-ID: '" & IMPORT_REC_ID.ToString & "' ##")
IMP_REC_EXISTS = True
End If
Return True
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Create-Record: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Create-Record: " & ex.Message)
MsgBox("Unexpected Error in Create-Record: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
@ -533,36 +532,36 @@ Public Class frmWM_Import_Doc_Record
Dim elementohneSZ = element.Value.Replace("[%", "")
elementohneSZ = elementohneSZ.Replace("]", "")
' für den Platzhalter den WErt aus windream auslesen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Read parent value for windream-index: '" & elementohneSZ & "'", False)
LOGGER.Debug("Read parent value for windream-index: '" & elementohneSZ & "'")
Dim idxvalue
Try
idxvalue = aktivesDokument.GetVariableValue(elementohneSZ)
If LogErrorsOnly = False Then ClassLogger.Add(" >> parent idxvalue from windream: '" & idxvalue.ToString & "'", False)
LOGGER.Debug("parent idxvalue from windream: '" & idxvalue.ToString & "'")
Catch ex As Exception
ClassLogger.Add(">> Regex Unique SQL: Error reading parent Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message, False)
LOGGER.Warn("Regex Unique SQL: Error reading parent Value for windream-index '" & elementohneSZ & "' - Error: " & ex.Message)
Continue For
End Try
' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
SQL_PARENT = SQL_PARENT.Replace(element.Value, idxvalue.ToString)
Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Executing parent SQL: " & SQL_PARENT, False)
LOGGER.Debug("Executing parent SQL: " & SQL_PARENT)
IMP_PARENT_REC_ID = ClassDatabase.Execute_Scalar(SQL_PARENT)
If IMP_PARENT_REC_ID = Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> No PARENT_RECORD found!", False)
LOGGER.Debug("No PARENT_RECORD found!")
'Den Record inserten
Dim recordId = ClassRecordCommands.CreateRecordProcedure(PROFILE_ENTITY)
If recordId > 0 Then
IMP_PARENT_REC_ID = recordId
If LogErrorsOnly = False Then ClassLogger.Add(" >> New PARENT_RECORD-ID: " & IMP_PARENT_REC_ID.ToString, False)
LOGGER.Debug("New PARENT_RECORD-ID: " & IMP_PARENT_REC_ID.ToString)
_RecordsAdded += 1
Else
Throw New Exception("Could not create Record. Check PRPMO_CREATE_RECORD Procedure.")
End If
Else
ClassLogger.Add(">> ## PARENT_RECORD already exists - PARENT_RECORD-ID: '" & IMP_PARENT_REC_ID.ToString & "' ##", False)
If LogErrorsOnly = True Then ClassLogger.Add(">> parent SQL: " & SQL_PARENT, False)
LOGGER.Warn("## PARENT_RECORD already exists - PARENT_RECORD-ID: '" & IMP_PARENT_REC_ID.ToString & "' ##")
LOGGER.Debug(" parent SQL: " & SQL_PARENT)
End If
Dim sql = String.Format("SELECT GUID FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = {0} AND RECORD2_ID = {1}", IMP_PARENT_REC_ID, IMPORT_REC_ID)
Dim result = ClassDatabase.Execute_Scalar(sql)
@ -571,7 +570,7 @@ Public Class frmWM_Import_Doc_Record
End If
Return True
Catch ex As Exception
ClassLogger.Add(">> Unexpected Error in Create-Parent-Record: " & ex.Message, False)
LOGGER.Warn("Unexpected Error in Create-Parent-Record: " & ex.Message)
MsgBox("Unexpected Error in Create-Parent-Record: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try

68
app/DD-Record-Organizer/frmWM_IndexFile.vb
View File

@ -26,7 +26,7 @@ Public Class frmWM_IndexFile
stopwatch.Stop()
Dim message = String.Format("{0, 5}ms || {1}", stopwatch.ElapsedMilliseconds, label)
Console.WriteLine(message)
If LogErrorsOnly = False Then ClassLogger.Add(message, False)
LOGGER.Debug(message, False)
Return stopwatch.ElapsedMilliseconds
End Function
@ -115,7 +115,7 @@ Public Class frmWM_IndexFile
Dim indexname
''den Record_Key auslesen
'Dim indexname = DT.Rows(0).Item("IDXNAME_RECORDID").ToString
'If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & CURRENT_RECORD_ID.ToString, False)
'LOGGER.Debug("Record-ID: " & CURRENT_RECORD_ID.ToString, False)
'indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, CURRENT_RECORD_ID, clsWindream.MY_WDOBJECTTYPE)
'If indexierung_erfolgreich = False Then
' err = True
@ -125,7 +125,7 @@ Public Class frmWM_IndexFile
'End If
'den Entity-Key auslesen
'indexname = DT.Rows(0).Item("IDXNAME_ENTITYID").ToString
'If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & CURRENT_ENTITY_ID.ToString, False)
'LOGGER.Debug("Entity-ID: " & CURRENT_ENTITY_ID.ToString, False)
'indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, CURRENT_ENTITY_ID, clsWindream.MY_WDOBJECTTYPE)
'If indexierung_erfolgreich = False Then
' err = True
@ -138,7 +138,7 @@ Public Class frmWM_IndexFile
'End If
'den Doctype auslesen
indexname = DTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_DOCTYPE").ToString
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & vDokart.ToString, False)
LOGGER.Debug("Doctype: " & vDokart.ToString, False)
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, vDokart, clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then
err = True
@ -185,27 +185,27 @@ Public Class frmWM_IndexFile
' 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, False)
Select Case element.Value.Substring(2, 1).ToUpper
'Nur automatische Indizes auswerten
Case "A"
Dim APattern = element.Value.Substring(3, element.Value.Length - 4)
If APattern.Contains("#") Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> element filled with Record-Data.......: ", False)
LOGGER.Debug("element filled with Record-Data.......: ", False)
Dim split() As String = APattern.Split("#")
If split.Length = 2 Then
Dim CONTROL_ID = split(1)
If LogErrorsOnly = False Then ClassLogger.Add(" >> CONTROL_ID: " & CONTROL_ID, False)
LOGGER.Debug("CONTROL_ID: " & CONTROL_ID, False)
If IsNumeric(CONTROL_ID) Then
Dim CONTROLVALUE = ClassControlValues.Get_Control_Value_for_ID(CONTROL_ID, CURRENT_RECORD_ID)
If IsNothing(CONTROLVALUE) Then
ClassLogger.Add(">> Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
LOGGER.Warn("Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was nothing.", False)
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
idxvalue = ""
Else
If IsDBNull(CONTROLVALUE) Then
ClassLogger.Add(">> Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
ClassLogger.Add(">> SQL-Command: " & CURRENT_LAST_SQL)
LOGGER.Warn("Index should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.", False)
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
idxvalue = ""
Else
idxvalue = CONTROLVALUE
@ -220,7 +220,7 @@ Public Class frmWM_IndexFile
Next
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Value for Indexing : '" & idxvalue.ToString & "'", False)
LOGGER.Debug("Value for Indexing : '" & idxvalue.ToString & "'", False)
Count += 1
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
If indexierung_erfolgreich = False Then
@ -248,7 +248,7 @@ Public Class frmWM_IndexFile
'Nun alles aufrüumen und die neue DocID holen
If indexierung_erfolgreich = True Then
ClassLogger.Add(">> File was correctly imported and indexed: " & CURRENT_FILEIN_WD, False)
LOGGER.Info("File was correctly imported and indexed: " & CURRENT_FILEIN_WD, False)
Dim stg As String = "Datei erfolgreich nach windream übertragen"
Dim stg1 As String = "Erfolgsmeldung"
If USER_LANGUAGE <> "de-DE" Then
@ -275,7 +275,7 @@ Public Class frmWM_IndexFile
If Not IsNothing(CURRENT_DOC_ID) Then
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC_ID", "File was imported and indexed!")
ClassLogger.Add(String.Format(">> File-Import was finished - DocID: {0} ", CURRENT_DOC_ID), False)
LOGGER.Info(String.Format("File-Import was finished - DocID: {0} ", CURRENT_DOC_ID), False)
Dim delete = False
'Die Originaldatei löschen
If droptype = "dragdrop file" And indexierung_erfolgreich = True Then
@ -332,7 +332,7 @@ Public Class frmWM_IndexFile
stg = "Unexpected Error: Could not get a docId for transmitted file!"
End If
ClassLogger.Add(stg, True)
LOGGER.Warn(stg)
MsgBox(stg, MsgBoxStyle.Critical, stg1)
End If
Else
@ -362,7 +362,7 @@ Public Class frmWM_IndexFile
' ' MsgBox(DT.Rows.Count.ToString)
' For Each DR_AUTOINDEX As DataRow In DD_DMSDataSet.VWDDINDEX_AUTOM.Rows
' Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Build Automatischer Index '" & indexname & "'", False)
' LOGGER.Debug("Build Automatischer Index '" & indexname & "'", False)
' If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
' ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
' Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@ -375,32 +375,32 @@ Public Class frmWM_IndexFile
' ' alle Vorkommen der Indexe im SQL-String durchlaufen
' For Each element As System.Text.RegularExpressions.Match In elemente
' ' MsgBox(element.Value.ToUpper)
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Element: '" & element.Value & "'", False)
' LOGGER.Debug("Element: '" & element.Value & "'", False)
' '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden)
' 'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then
' 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
' Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
' If LogErrorsOnly = False Then ClassLogger.Add(" >> elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
' LOGGER.Debug("elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
' 'den Platzhalter im SQL-String durch den Wert ersetzen
' Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
' If manIndexwert <> "" Then
' SqlString = SqlString.Replace(element.Value, manIndexwert)
' If LogErrorsOnly = False Then ClassLogger.Add(" >> zusammengesetzter SQL-String: " & SqlString, False)
' LOGGER.Debug("zusammengesetzter SQL-String: " & SqlString, False)
' Else
' ClassLogger.Add(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False)
' Logger.Warn(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False)
' Return False
' End If
' Next
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ausführen SQL....", False)
' LOGGER.Debug("Ausführen SQL....", False)
' Dim automatischerValue As String = ""
' automatischerValue = Get_AutomatischerIndex_SQL(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER"))
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis SQL: '" & automatischerValue & "'", False)
' LOGGER.Debug("Ergebnis SQL: '" & automatischerValue & "'", False)
' If automatischerValue <> String.Empty Then
' DR_AUTOINDEX.Item("Indexiert") = True
' DR_AUTOINDEX.Item("Indexwert") = automatischerValue
' Else
' ClassLogger.Add(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False)
' ClassLogger.Add(" - SqlString: " & SqlString, False)
' Logger.Warn(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False)
' Logger.Warn(" - SqlString: " & SqlString, False)
' Return False
' End If
' Else
@ -409,7 +409,7 @@ Public Class frmWM_IndexFile
' Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE")
' 'Indexierung mit WindowsVariable
' If DEFAULTVALUE.StartsWith("$") Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
' LOGGER.Debug("Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
' Select Case DEFAULTVALUE.ToUpper
' Case "$filename_ext".ToUpper
' DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
@ -428,9 +428,9 @@ Public Class frmWM_IndexFile
' Case "$DateDDMMYYY".ToUpper
' DEFAULTVALUE = System.DateTime.Now.ToShortDateString
' End Select
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
' LOGGER.Debug("Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
' Else
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
' LOGGER.Debug("Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
' End If
' 'Den Wert in der Zwischentabelle speichern
' DR_AUTOINDEX.Item("Indexiert") = True
@ -445,7 +445,7 @@ Public Class frmWM_IndexFile
' Return True
' End If
' Catch ex As System.Exception
' ClassLogger.Add(" - Fehler bei FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message)
' Logger.Warn(" - Fehler bei FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message)
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei FillIndexe_Autom")
' Return False
' End Try
@ -617,7 +617,7 @@ Public Class frmWM_IndexFile
AddDateTimePicker(DR.Item("GUID"), DR.Item("NAME"), y)
Case Else
MsgBox($"Please check the datatype of manual index ({ DR.Item("NAME")} - {type} - Refresh_Indices_Manual (frmWMIndexFile)", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
LOGGER.Warn(" - Datentyp nicht hinterlegt - LoadIndexe_Man")
End Select
anz += 1
@ -941,7 +941,7 @@ Public Class frmWM_IndexFile
Next
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unvorhergesehener Unexpected error in Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Renew_ComboboxResults:")
End Try
End Sub
@ -982,7 +982,7 @@ Public Class frmWM_IndexFile
End If
Else
runinLZ = True
If LogErrorsOnly = False Then ClassLogger.Add(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
LOGGER.Debug(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
End If
@ -1053,7 +1053,7 @@ Public Class frmWM_IndexFile
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
LOGGER.Warn(" - Unvorhergesehener Unexpected error in AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in AddVorschlag_ComboBox:")
End Try
End Sub
@ -1135,7 +1135,7 @@ Public Class frmWM_IndexFile
CURRENT_FILENAME = ""
Me.VWDDINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
chkMultiIndexer.Checked = False
If LogErrorsOnly = False Then ClassLogger.Add(" >> frmWD_Index_Dokart_Load", False)
LOGGER.Debug("frmWD_Index_Dokart_Load", False)
chkdelete_origin.Checked = False
chkdelete_origin.Visible = False
Dim HandleType As String
@ -1195,7 +1195,7 @@ Public Class frmWM_IndexFile
MsgBox("No documenttypes for the redundant entity configured either! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation)
Exit Sub
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Redundant EntityID: " & CURRENT_ENTITY_REDUNDANT_ID)
LOGGER.Debug("Redundant EntityID: " & CURRENT_ENTITY_REDUNDANT_ID)
CURRENT_REDUNDANT_FORM_ID = CURRENT_ENTITY_REDUNDANT_ID
CURRENT_REDUNDANT_FORMVIEW_ID = FVID
CURRENT_ENTITY_ID = CURRENT_ENTITY_REDUNDANT_ID

4
app/DD-Record-Organizer/packages.config Normal file
View File

@ -0,0 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="NLog" version="4.7.10" targetFramework="net452" />
</packages>

BIN
app/packages/NLog.4.7.10/.signature.p7s vendored Normal file
View File

Binary file not shown.

BIN
app/packages/NLog.4.7.10/NLog.4.7.10.nupkg vendored Normal file
View File

Binary file not shown.

BIN
app/packages/NLog.4.7.10/lib/monoandroid44/NLog.dll vendored Normal file
View File

Binary file not shown.

26714
app/packages/NLog.4.7.10/lib/monoandroid44/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.7.10/lib/net35/NLog.dll vendored Normal file
View File

Binary file not shown.

29217
app/packages/NLog.4.7.10/lib/net35/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.7.10/lib/net40-client/NLog.dll vendored Normal file
View File

Binary file not shown.

29448
app/packages/NLog.4.7.10/lib/net40-client/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.7.10/lib/net45/NLog.dll vendored Normal file
View File

Binary file not shown.

29646
app/packages/NLog.4.7.10/lib/net45/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.7.10/lib/netstandard1.3/NLog.dll vendored Normal file
View File

Binary file not shown.

25787
app/packages/NLog.4.7.10/lib/netstandard1.3/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.7.10/lib/netstandard1.5/NLog.dll vendored Normal file
View File

Binary file not shown.

26786
app/packages/NLog.4.7.10/lib/netstandard1.5/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.7.10/lib/netstandard2.0/NLog.dll vendored Normal file
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More