This commit is contained in:
Digital Data - Marlon Schreiber
2017-09-19 12:52:35 +02:00
parent 96c08ada63
commit 3a175d04e5
19 changed files with 3463 additions and 3039 deletions

View File

@@ -101,12 +101,11 @@
' SQL Befehl für CONTROL TABELLE
' SQL_COMMAND_1 auf leeren String setzen
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)
If ClassDatabase.Execute_non_Query(SQL) = True Then
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
Dim GUID = ClassDatabase.Execute_Scalar(SQL)
Return InsertControlScreen(GUID, control, CURRENT_ENTITY_ID)
Else
Throw New Exception()

View File

@@ -1,12 +1,47 @@
Public Class ClassNodeNavigation
Public Shared NODE_CONFIGURABLE_ID As Integer
Public Shared MyTreeView As TreeView
Public Shared Datatable_Nodes As DataTable
Public Shared TREEVIEW_IMAGELIST As ImageList
Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode)
Dim expression As String
expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type und Parent_Guid
Dim foundRows() As DataRow
foundRows = Datatable_Nodes.Select(expression)
Dim q As Integer
For q = 0 To foundRows.GetUpperBound(0)
Dim ID9 = foundRows(q)("GUID")
Dim LevelEntity9 = foundRows(q)("ENTITY_ID")
Dim controlID9 = foundRows(q)("CONTROL_ID")
Dim nodetext9 = foundRows(q)("NODE_CAPTION")
Dim RECORD_ID = foundRows(q)("RECORD_ID")
Dim NODE_CONFIG_ID = foundRows(q)("NODE_CONFIG_ID")
' Node erstellen..
Dim NEW_NODE As TreeNode
NEW_NODE = New TreeNode(nodetext9)
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9)
NEW_NODE.Tag = ClassNodeNavigation.CreateNODE_TAG(LevelEntity9, ID9, RECORD_ID, NODE_CONFIG_ID)
Dim index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then
Exit For
End If
index += 1
Next
NEW_NODE.ImageIndex = index
NEW_NODE.SelectedImageIndex = index
' ..und einfügen
ParentNode.Nodes.Add(NEW_NODE)
Next '
End Function
Public Shared Sub Check_NODE_CONFIG_ID(ENTITY_ID As Integer)
Try
If CURRENT_DT_NODE_CONFIGURABLE_NODES.Rows.Count > 0 Then
'Prüfen ob es für dieses Level einen konfigurierbaren Knoten gibt
Dim result = (From form In CURRENT_DT_NODE_CONFIGURABLE_NODES.AsEnumerable()
Select form
Where form.Item("ENTITY_ID") = ENTITY_ID).Single()
Select form
Where form.Item("ENTITY_ID") = ENTITY_ID).Single()
Dim ID = result.Item("GUID")
If Not IsNothing(ID) Then
@@ -18,7 +53,7 @@
ClassNodeNavigation.NODE_CONFIGURABLE_ID = 0
CURRENT_NODE_CONFIGURABLE_ID = 0
End Try
End Sub
Public Shared Function CreateNODE_TAG(Entity As Integer, IDNode As String, Record As Object, NODE_CONFIG_ID As Integer)
Dim vType, TagString As String
@@ -73,7 +108,7 @@
mytrv.Nodes.Add(MAIN_NODE)
Next
Return mytrv
Catch ex As System.Exception
ClassLogger.Add(">> Unexpected Error in CreateTreeViewNodesNew (NodeNavigation): " & ex.Message, True)
@@ -189,9 +224,9 @@
MsgBox("Error in FindNode (NodeNavigation):" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Public Shared Function CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS As DataTable, TREEVIEW_IMAGELIST As ImageList)
Try
Dim mytrv As New TreeView

View File

@@ -1,38 +0,0 @@
Public Class ClassNodes
Public Shared MyTreeView As TreeView
Public Shared Datatable_Nodes As DataTable
Public Shared TREEVIEW_IMAGELIST As ImageList
Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode)
Dim expression As String
expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type und Parent_Guid
Dim foundRows() As DataRow
foundRows = Datatable_Nodes.Select(expression)
Dim q As Integer
For q = 0 To foundRows.GetUpperBound(0)
Dim ID9 = foundRows(q)("GUID")
Dim LevelEntity9 = foundRows(q)("ENTITY_ID")
Dim controlID9 = foundRows(q)("CONTROL_ID")
Dim nodetext9 = foundRows(q)("NODE_CAPTION")
Dim RECORD_ID = foundRows(q)("RECORD_ID")
Dim NODE_CONFIG_ID = foundRows(q)("NODE_CONFIG_ID")
' Node erstellen..
Dim NEW_NODE As TreeNode
NEW_NODE = New TreeNode(nodetext9)
ClassNodeNavigation.Check_NODE_CONFIG_ID(LevelEntity9)
NEW_NODE.Tag = ClassNodeNavigation.CreateNODE_TAG(LevelEntity9, ID9, RECORD_ID, NODE_CONFIG_ID)
Dim index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then
Exit For
End If
index += 1
Next
NEW_NODE.ImageIndex = index
NEW_NODE.SelectedImageIndex = index
' ..und einfügen
ParentNode.Nodes.Add(NEW_NODE)
Next '
End Function
End Class

View File

@@ -177,13 +177,13 @@ Public Class ClassProxy
Return BUSY
End If
End Function
Public Shared Function PRPROXY_DOC_VALUES(DocID As Integer)
Public Shared Function PRPROXY_DOC_VALUES_UPD(DocID As Integer, RecId As Integer)
If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False
End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _
"EXEC @return_value = [dbo].[PRPROXY_DOC_VALUES] {0} " & vbNewLine & _
"SELECT 'Return Value' = @return_value", DocID)
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_DOC_VALUES_UPD] {0}, {1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", DocID, RecId)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then
If Result.Rows(0).Item(0) = 0 Then

View File

@@ -31,6 +31,14 @@
End If
End If
Else
If DT_RIGHTS_USER Is Nothing Or DT_RIGHTS_GROUP Is Nothing Then
Dim Sql As String
Sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
DT_RIGHTS_USER = ClassDatabase.Return_Datatable(Sql, True)
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)
End If
' Definitiond er REchte erfolgt über UserRightstabel......wenn gefüllt
If DT_RIGHTS_GROUP.Rows.Count > 0 And DT_RIGHTS_USER.Rows.Count = 0 Then
For Each row As DataRow In DT_RIGHTS_GROUP.Rows

View File

@@ -14,6 +14,7 @@ Public Class ClassWindreamDocGrid
'Public Shared RESULT_DISPLAYNAME As String
Public Shared RESULT_CONFIG_IDS As Hashtable
Private Shared DATE_COLUMNS As New List(Of String)
Private Shared DATE_COLUMNS_CONFIG As New List(Of String)
Public Shared DT_RESULTFILES As DataTable
Private Shared DT_DROPDOWN_ITEMS As DataTable
@@ -155,8 +156,11 @@ Public Class ClassWindreamDocGrid
Dim columnTitle As String = row.Item("HEADER_CAPTION")
Dim type As Integer = row.Item("TYPE_ID")
If type = 4 Then
If type = 4 And isConfig = False Then
DATE_COLUMNS.Add(columnTitle)
ElseIf type = 4 And isConfig = True Then
DATE_COLUMNS_CONFIG.Add(columnTitle)
End If
If isConfig = True Then
@@ -297,72 +301,87 @@ Public Class ClassWindreamDocGrid
Public Shared Sub detailView_CustomRowCellEdit(grvw As GridView, e As CustomRowCellEditEventArgs)
If (e.Column.Name = "colVALUE") Then
Dim rowView As DataRowView = grvw.GetRow(e.RowHandle)
Dim configId As Integer = rowView.Item("CONFIG_ID")
Dim title = rowView.Item("HEADER_CAPTION")
Dim editable As Boolean = rowView.Item("EDITABLE")
Dim typeId As Integer = rowView.Item("TYPE_ID")
Try
If (e.Column.Name = "colVALUE") Then
Dim rowView As DataRowView = grvw.GetRow(e.RowHandle)
Dim configId As Integer = rowView.Item("CONFIG_ID")
Dim title = rowView.Item("HEADER_CAPTION")
Dim editable As Boolean = rowView.Item("EDITABLE")
Dim typeId As Integer = rowView.Item("TYPE_ID")
If typeId = 1 And editable Then
Dim textedit As New RepositoryItemTextEdit()
If typeId = 1 And editable Then
Dim textedit As New RepositoryItemTextEdit()
AddHandler textedit.Leave, _textValueChangedHandler
AddHandler textedit.Leave, _textValueChangedHandler
e.RepositoryItem = textedit
e.RepositoryItem = textedit
End If
If typeId = 2 Then
Dim checkEdit As New RepositoryItemCheckEdit()
checkEdit.ValueChecked = "True"
checkEdit.ValueUnchecked = "False"
checkEdit.GlyphAlignment = HorzAlignment.Near
checkEdit.Caption = String.Empty
AddHandler checkEdit.CheckedChanged, _checkValueChangedHandler
e.RepositoryItem = checkEdit
End If
If typeId = 4 Then
Dim dateedit As New RepositoryItemDateEdit()
' Brauchen wir Zeitangaben in den Custom Fields?
AddHandler dateedit.CustomDisplayText, Sub(sender As Object, _e As DevExpress.XtraEditors.Controls.CustomDisplayTextEventArgs)
Dim parsedDate As DateTime
If Not DateTime.TryParse(_e.Value, parsedDate) Then
Try
If _e.Value <> "" Then
parsedDate = DateTime.ParseExact(_e.Value, CURRENT_DATE_FORMAT, System.Globalization.DateTimeFormatInfo.InvariantInfo) '& " HH:MM:ss"
_e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT) '& " HH:MM:ss")
End If
Catch ex As Exception
If LogErrorsOnly = False Then ClassLogger.Add("Error in parse-Date: " & ex.Message, False)
End Try
End If
End Sub
AddHandler dateedit.EditValueChanged, _datepickerValueChangedHandler
e.RepositoryItem = dateedit
End If
If typeId = 3 Then
Dim dropdown As New RepositoryItemComboBox()
Dim matchingRows() As DataRow = DT_DROPDOWN_ITEMS.Select(String.Format("CONFIG_ID = {0}", configId), "SEQUENCE")
For Each matchingRow As DataRow In matchingRows
Dim item As New WindreamDocGridComboboxItem()
item.ConfigID = matchingRow.Item("CONFIG_ID")
item.Value = matchingRow.Item("VALUE")
dropdown.Items.Add(item)
Next
AddHandler dropdown.SelectedValueChanged, _dropdownValueChangedHandler
e.RepositoryItem = dropdown
End If
ElseIf (e.Column.Name <> "colVALUE") Then
' Erlaube Editieren nur für VALUE Spalte
e.Column.OptionsColumn.AllowEdit = False
End If
Catch ex As Exception
ClassLogger.Add("Error in detailView_CustomRowCellEdit: " & ex.Message, False)
End Try
If typeId = 2 Then
Dim checkEdit As New RepositoryItemCheckEdit()
checkEdit.ValueChecked = "True"
checkEdit.ValueUnchecked = "False"
checkEdit.GlyphAlignment = HorzAlignment.Near
checkEdit.Caption = String.Empty
AddHandler checkEdit.CheckedChanged, _checkValueChangedHandler
e.RepositoryItem = checkEdit
End If
If typeId = 4 Then
Dim dateedit As New RepositoryItemDateEdit()
AddHandler dateedit.EditValueChanged, _datepickerValueChangedHandler
' Brauchen wir Zeitangaben in den Custom Fields?
AddHandler dateedit.CustomDisplayText, Sub(sender As Object, _e As DevExpress.XtraEditors.Controls.CustomDisplayTextEventArgs)
Dim parsedDate As DateTime
If Not DateTime.TryParse(_e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(_e.Value, CURRENT_DATE_FORMAT & " HH:MM:ss", System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
_e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT & " HH:MM:ss")
End Sub
e.RepositoryItem = dateedit
End If
If typeId = 3 Then
Dim dropdown As New RepositoryItemComboBox()
Dim matchingRows() As DataRow = DT_DROPDOWN_ITEMS.Select(String.Format("CONFIG_ID = {0}", configId), "SEQUENCE")
For Each matchingRow As DataRow In matchingRows
Dim item As New WindreamDocGridComboboxItem()
item.ConfigID = matchingRow.Item("CONFIG_ID")
item.Value = matchingRow.Item("VALUE")
dropdown.Items.Add(item)
Next
AddHandler dropdown.SelectedValueChanged, _dropdownValueChangedHandler
e.RepositoryItem = dropdown
End If
ElseIf (e.Column.Name <> "colVALUE") Then
' Erlaube Editieren nur für VALUE Spalte
e.Column.OptionsColumn.AllowEdit = False
End If
End Sub
Private Shared Sub gridView_CustomColumnDisplayText(sender As Object, e As CustomColumnDisplayTextEventArgs)
@@ -381,6 +400,18 @@ Public Class ClassWindreamDocGrid
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT & " HH:MM:ss")
ElseIf DATE_COLUMNS_CONFIG.Contains(e.Column.FieldName) And e.ListSourceRowIndex <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
If e.Value.ToString() = String.Empty Then
e.DisplayText = ""
Exit Sub
End If
If Not DateTime.TryParse(e.Value, parsedDate) Then
parsedDate = DateTime.ParseExact(e.Value, CURRENT_DATE_FORMAT, System.Globalization.DateTimeFormatInfo.InvariantInfo)
End If
e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT)
End If
End Sub

View File

@@ -287,7 +287,6 @@
<Compile Include="ClassAsyncSQL.vb" />
<Compile Include="ClassMoreMetadata.vb" />
<Compile Include="ClassNodeNavigation.vb" />
<Compile Include="ClassNodes.vb" />
<Compile Include="ClassPosGrid.vb" />
<Compile Include="ClassProxy.vb" />
<Compile Include="ClassRecordCommands.vb" />

View File

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

View File

@@ -207,6 +207,7 @@ Partial Class frmConstructor_Main
Me.NavButtonHome = New DevExpress.XtraBars.Navigation.NavButton()
Me.NavButtonRefresh = New DevExpress.XtraBars.Navigation.NavButton()
Me.StatusStrip_Main = New System.Windows.Forms.StatusStrip()
Me.ContextMenuStripClipboard = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.tsslblStatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslblRecord = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblDocIDMain = New System.Windows.Forms.ToolStripStatusLabel()
@@ -1460,10 +1461,16 @@ Partial Class frmConstructor_Main
'
'StatusStrip_Main
'
Me.StatusStrip_Main.ContextMenuStrip = Me.ContextMenuStripClipboard
Me.StatusStrip_Main.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblStatus, Me.tsslblRecord, Me.tslblDocIDMain, Me.tsslblWorkflowstate, Me.progressLoadEntity, Me.labelLoadEntity})
resources.ApplyResources(Me.StatusStrip_Main, "StatusStrip_Main")
Me.StatusStrip_Main.Name = "StatusStrip_Main"
'
'ContextMenuStripClipboard
'
Me.ContextMenuStripClipboard.Name = "ContextMenuStripClipboard"
resources.ApplyResources(Me.ContextMenuStripClipboard, "ContextMenuStripClipboard")
'
'tsslblStatus
'
Me.tsslblStatus.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
@@ -1794,7 +1801,6 @@ Partial Class frmConstructor_Main
Friend WithEvents statStripDoc As System.Windows.Forms.StatusStrip
Friend WithEvents tslblDocIDTab1 As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tslblDocViewLocked As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tslblDocIDMain As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tsVariants As System.Windows.Forms.ToolStrip
Friend WithEvents tslblVariantsCount As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripSeparator23 As System.Windows.Forms.ToolStripSeparator
@@ -1852,4 +1858,6 @@ Partial Class frmConstructor_Main
Friend WithEvents TimerClearResultfiles As System.Windows.Forms.Timer
Friend WithEvents tsbtnPos_Refresh As System.Windows.Forms.ToolStripButton
Friend WithEvents tstxtboxSearchNode As ToolStripTextBox
Friend WithEvents ContextMenuStripClipboard As ContextMenuStrip
Friend WithEvents tslblDocIDMain As ToolStripStatusLabel
End Class

View File

@@ -543,7 +543,7 @@
<value>GridControlMain</value>
</data>
<data name="&gt;&gt;GridControlMain.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControlMain.Parent" xml:space="preserve">
<value>SplitContainerTop.Panel2</value>
@@ -713,7 +713,7 @@
<value>SplitContainerTop</value>
</data>
<data name="&gt;&gt;SplitContainerTop.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerTop.Parent" xml:space="preserve">
<value>SplitContainerMain.Panel1</value>
@@ -901,7 +901,7 @@
<value>SplitContainerDetails</value>
</data>
<data name="&gt;&gt;SplitContainerDetails.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerDetails.Parent" xml:space="preserve">
<value>TabDetails</value>
@@ -1074,7 +1074,7 @@
<value>TabDetails</value>
</data>
<data name="&gt;&gt;TabDetails.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TabDetails.Parent" xml:space="preserve">
<value>TCDetails</value>
@@ -1110,7 +1110,7 @@
<value>GridControlPos</value>
</data>
<data name="&gt;&gt;GridControlPos.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControlPos.Parent" xml:space="preserve">
<value>Panel1</value>
@@ -1388,7 +1388,7 @@
<value>TabPos</value>
</data>
<data name="&gt;&gt;TabPos.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TabPos.Parent" xml:space="preserve">
<value>TCDetails</value>
@@ -1450,7 +1450,7 @@
<value>GridControlDocSearch</value>
</data>
<data name="&gt;&gt;GridControlDocSearch.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControlDocSearch.Parent" xml:space="preserve">
<value>TabWindream</value>
@@ -1552,7 +1552,7 @@
<value>TabWindream</value>
</data>
<data name="&gt;&gt;TabWindream.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TabWindream.Parent" xml:space="preserve">
<value>TCDetails</value>
@@ -1983,7 +1983,7 @@
<value>TabFollowUp</value>
</data>
<data name="&gt;&gt;TabFollowUp.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TabFollowUp.Parent" xml:space="preserve">
<value>TCDetails</value>
@@ -2094,7 +2094,7 @@
<value>GridControl1</value>
</data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>TabPageVariant</value>
@@ -2166,7 +2166,7 @@
<value>TabPageVariant</value>
</data>
<data name="&gt;&gt;TabPageVariant.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TabPageVariant.Parent" xml:space="preserve">
<value>TCDetails</value>
@@ -2178,7 +2178,7 @@
<value>TCDetails</value>
</data>
<data name="&gt;&gt;TCDetails.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TCDetails.Parent" xml:space="preserve">
<value>SplitContainerMain.Panel2</value>
@@ -2202,7 +2202,7 @@
<value>SplitContainerMain</value>
</data>
<data name="&gt;&gt;SplitContainerMain.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerMain.Parent" xml:space="preserve">
<value>SplitContainerFORM.Panel2</value>
@@ -2235,13 +2235,13 @@
<value>SplitContainerFORM</value>
</data>
<data name="&gt;&gt;SplitContainerFORM.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SplitContainerFORM.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;SplitContainerFORM.ZOrder" xml:space="preserve">
<value>6</value>
<value>7</value>
</data>
<metadata name="ContextMenuStripResultFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>591, 56</value>
@@ -2508,17 +2508,29 @@
<value>NavPane</value>
</data>
<data name="&gt;&gt;NavPane.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;NavPane.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;NavPane.ZOrder" xml:space="preserve">
<value>8</value>
<value>9</value>
</data>
<metadata name="StatusStrip_Main.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ContextMenuStripClipboard.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1028, 95</value>
</metadata>
<data name="ContextMenuStripClipboard.Size" type="System.Drawing.Size, System.Drawing">
<value>61, 4</value>
</data>
<data name="&gt;&gt;ContextMenuStripClipboard.Name" xml:space="preserve">
<value>ContextMenuStripClipboard</value>
</data>
<data name="&gt;&gt;ContextMenuStripClipboard.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="tsslblStatus.Size" type="System.Drawing.Size, System.Drawing">
<value>57, 19</value>
</data>
@@ -2577,7 +2589,7 @@
<value>$this</value>
</data>
<data name="&gt;&gt;StatusStrip_Main.ZOrder" xml:space="preserve">
<value>7</value>
<value>8</value>
</data>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>160, 17</value>
@@ -2585,11 +2597,11 @@
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>444, 17</value>
</metadata>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFtEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
MTYuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iODhkMTc1NGQ3MDBlNDlhBQEAAAAo
MTUuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iODhkMTc1NGQ3MDBlNDlhBQEAAAAo
RGV2RXhwcmVzcy5VdGlscy5JbWFnZUNvbGxlY3Rpb25TdHJlYW1lcgAAAAACAAAACw==
</value>
</data>
@@ -3334,19 +3346,19 @@
<value>grvwGrid</value>
</data>
<data name="&gt;&gt;grvwGrid.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;grvwCarousel.Name" xml:space="preserve">
<value>grvwCarousel</value>
</data>
<data name="&gt;&gt;grvwCarousel.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Layout.LayoutView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Views.Layout.LayoutView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;grvwTiles.Name" xml:space="preserve">
<value>grvwTiles</value>
</data>
<data name="&gt;&gt;grvwTiles.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;tslbldisplayRecords.Name" xml:space="preserve">
<value>tslbldisplayRecords</value>
@@ -3514,7 +3526,7 @@
<value>grvwGridPos</value>
</data>
<data name="&gt;&gt;grvwGridPos.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;BindingNavigatorAddNewItem.Name" xml:space="preserve">
<value>BindingNavigatorAddNewItem</value>
@@ -3616,7 +3628,7 @@
<value>GridViewDoc_Search</value>
</data>
<data name="&gt;&gt;GridViewDoc_Search.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;tslblWindreamView.Name" xml:space="preserve">
<value>tslblWindreamView</value>
@@ -3682,43 +3694,43 @@
<value>GridViewVariants</value>
</data>
<data name="&gt;&gt;GridViewVariants.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridColumn1.Name" xml:space="preserve">
<value>GridColumn1</value>
</data>
<data name="&gt;&gt;GridColumn1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colREASON_CODE.Name" xml:space="preserve">
<value>colREASON_CODE</value>
</data>
<data name="&gt;&gt;colREASON_CODE.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colCOMMENT.Name" xml:space="preserve">
<value>colCOMMENT</value>
</data>
<data name="&gt;&gt;colCOMMENT.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colADDED_WHO.Name" xml:space="preserve">
<value>colADDED_WHO</value>
</data>
<data name="&gt;&gt;colADDED_WHO.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colADDED_WHEN.Name" xml:space="preserve">
<value>colADDED_WHEN</value>
</data>
<data name="&gt;&gt;colADDED_WHEN.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colRECORD_ID.Name" xml:space="preserve">
<value>colRECORD_ID</value>
</data>
<data name="&gt;&gt;colRECORD_ID.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;tslblVariantsCount.Name" xml:space="preserve">
<value>tslblVariantsCount</value>
@@ -3910,19 +3922,19 @@
<value>TileNavCategory1</value>
</data>
<data name="&gt;&gt;TileNavCategory1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.TileNavCategory, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraBars.Navigation.TileNavCategory, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;NavButtonHome.Name" xml:space="preserve">
<value>NavButtonHome</value>
</data>
<data name="&gt;&gt;NavButtonHome.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;NavButtonRefresh.Name" xml:space="preserve">
<value>NavButtonRefresh</value>
</data>
<data name="&gt;&gt;NavButtonRefresh.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;tsslblStatus.Name" xml:space="preserve">
<value>tsslblStatus</value>
@@ -3970,7 +3982,7 @@
<value>ImageCollection1</value>
</data>
<data name="&gt;&gt;ImageCollection1.Type" xml:space="preserve">
<value>DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;ttToolTip.Name" xml:space="preserve">
<value>ttToolTip</value>
@@ -4000,7 +4012,7 @@
<value>ToolTipController</value>
</data>
<data name="&gt;&gt;ToolTipController.Type" xml:space="preserve">
<value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
<value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TBPMO_RECORD_VARIANTTableAdapter.Name" xml:space="preserve">
<value>TBPMO_RECORD_VARIANTTableAdapter</value>

View File

@@ -959,6 +959,9 @@ Public Class frmConstructor_Main
If GRIDRightMouse_Clicked Then
Exit Sub
End If
If NODE_NAVIGATION = True Then
Exit Sub
End If
' If NODE_NAVIGATION = False Then
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
If IsNothing(Grid_RecordID) Then
@@ -1203,6 +1206,7 @@ Public Class frmConstructor_Main
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
If SelectedNode IsNot Nothing Then
Update_Status_Label(True, SelectedNode.Tag)
ClassNodeNavigation.Check_NODE_CONFIG_ID(ENTITY_ID)
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
@@ -3676,9 +3680,13 @@ Public Class frmConstructor_Main
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user)
ClassDatabase.Execute_non_Query(Sql)
ClassProxy.PRPROXY_DOC_VALUES(docId)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCBSelectedValueChanged: ", ex.Message)
End Try
@@ -3710,11 +3718,12 @@ Public Class frmConstructor_Main
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, dateString, user)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, RECORD_ID, configid, dateString, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES(docId)
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message)
@@ -3740,11 +3749,11 @@ Public Class frmConstructor_Main
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configid, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES(docId)
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message)
@@ -3766,11 +3775,11 @@ Public Class frmConstructor_Main
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configid, value, user)
If ClassDatabase.Execute_non_Query(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES(docId)
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)

View File

@@ -108,26 +108,26 @@ Partial Class frmMain
'NotifyIcon
'
Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray
resources.ApplyResources(Me.NotifyIcon, "NotifyIcon")
Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray
'
'cmsSystray
'
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem})
Me.cmsSystray.Name = "cmsSystray"
resources.ApplyResources(Me.cmsSystray, "cmsSystray")
'
'ADDIBeendenToolStripMenuItem
'
resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.cancel1
Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem"
resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem")
'
'CockpitAnzeigenToolStripMenuItem
'
resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organizer.My.Resources.Resources.WebUserControl_ascx__11270_16x
Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem"
resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem")
'
'TimerTasks
'
@@ -191,11 +191,11 @@ Partial Class frmMain
'
'ribbonMain
'
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu
Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray
Me.ribbonMain.ExpandCollapseItem.Id = 0
Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItemConnections, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.LabelLanguage, Me.BarButtonItem20, Me.BarButtonItemSAPConnect, Me.BarButtonItemStructureNOdes, Me.BarSubItem1, Me.BarButtonItem14, Me.BarButtonItem21, Me.BarButtonItem22, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemAbout, Me.BarButtonItem19, Me.btnGlobalSearch, Me.LabelUser, Me.bbtnItemViewsUser, Me.BarButtonItem23, Me.itemRefreshProxy, Me.LabelProxyServer, Me.BarSubItem2, Me.BarButtonItem25, Me.StatusPersonifiedLogin, Me.itemScanInbox, Me.BarButtonItem13})
resources.ApplyResources(Me.ribbonMain, "ribbonMain")
Me.ribbonMain.MaxItemId = 8
Me.ribbonMain.Name = "ribbonMain"
Me.ribbonMain.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
@@ -213,6 +213,10 @@ Partial Class frmMain
Me.MainMenu.ItemLinks.Add(Me.itemInfo)
Me.MainMenu.ItemLinks.Add(Me.itemAbout)
Me.MainMenu.ItemLinks.Add(Me.itemExit)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.MainMenu.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
Me.MainMenu.Name = "MainMenu"
Me.MainMenu.Ribbon = Me.ribbonMain
'
@@ -437,6 +441,10 @@ Partial Class frmMain
resources.ApplyResources(Me.BarSubItem1, "BarSubItem1")
Me.BarSubItem1.Id = 38
Me.BarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem14), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem21), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem22), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem8), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem9), New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem23)})
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.BarSubItem1.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("BarSubItem1.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
Me.BarSubItem1.Name = "BarSubItem1"
Me.BarSubItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large
'
@@ -513,6 +521,8 @@ Partial Class frmMain
Me.LabelProxyServer.Glyph = CType(resources.GetObject("LabelProxyServer.Glyph"), System.Drawing.Image)
Me.LabelProxyServer.Id = 1
Me.LabelProxyServer.ItemAppearance.Normal.Font = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.LabelProxyServer.ItemAppearance.Normal.FontSizeDelta = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.FontSizeDelta"), Integer)
Me.LabelProxyServer.ItemAppearance.Normal.FontStyleDelta = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.FontStyleDelta"), System.Drawing.FontStyle)
Me.LabelProxyServer.ItemAppearance.Normal.ForeColor = CType(resources.GetObject("LabelProxyServer.ItemAppearance.Normal.ForeColor"), System.Drawing.Color)
Me.LabelProxyServer.ItemAppearance.Normal.Options.UseFont = True
Me.LabelProxyServer.ItemAppearance.Normal.Options.UseForeColor = True
@@ -525,6 +535,10 @@ Partial Class frmMain
resources.ApplyResources(Me.BarSubItem2, "BarSubItem2")
Me.BarSubItem2.Id = 2
Me.BarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.BarButtonItem25)})
Me.BarSubItem2.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("BarSubItem2.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer)
Me.BarSubItem2.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("BarSubItem2.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.BarSubItem2.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("BarSubItem2.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.BarSubItem2.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("BarSubItem2.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image)
Me.BarSubItem2.Name = "BarSubItem2"
'
'BarButtonItem25
@@ -535,9 +549,12 @@ Partial Class frmMain
'
'StatusPersonifiedLogin
'
resources.ApplyResources(Me.StatusPersonifiedLogin, "StatusPersonifiedLogin")
Me.StatusPersonifiedLogin.Glyph = Global.DD_Record_Organizer.My.Resources.Resources.user_16xLG
Me.StatusPersonifiedLogin.Id = 5
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Font = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.Font"), System.Drawing.Font)
Me.StatusPersonifiedLogin.ItemAppearance.Normal.FontSizeDelta = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.FontSizeDelta"), Integer)
Me.StatusPersonifiedLogin.ItemAppearance.Normal.FontStyleDelta = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.FontStyleDelta"), System.Drawing.FontStyle)
Me.StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor = CType(resources.GetObject("StatusPersonifiedLogin.ItemAppearance.Normal.ForeColor"), System.Drawing.Color)
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseFont = True
Me.StatusPersonifiedLogin.ItemAppearance.Normal.Options.UseForeColor = True
@@ -589,6 +606,10 @@ Partial Class frmMain
'pageForms
'
Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color)
Me.pageForms.Appearance.FontSizeDelta = CType(resources.GetObject("pageForms.Appearance.FontSizeDelta"), Integer)
Me.pageForms.Appearance.FontStyleDelta = CType(resources.GetObject("pageForms.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.pageForms.Appearance.GradientMode = CType(resources.GetObject("pageForms.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.pageForms.Appearance.Image = CType(resources.GetObject("pageForms.Appearance.Image"), System.Drawing.Image)
Me.pageForms.Appearance.Options.UseBackColor = True
Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2})
Me.pageForms.Image = Global.DD_Record_Organizer.My.Resources.Resources.application_form
@@ -651,6 +672,7 @@ Partial Class frmMain
'
'RibbonStatusBar1
'
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser)
Me.RibbonStatusBar1.ItemLinks.Add(Me.StatusPersonifiedLogin)
@@ -658,7 +680,6 @@ Partial Class frmMain
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage)
Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelProxyServer)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.ribbonMain
'
@@ -696,15 +717,19 @@ Partial Class frmMain
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
'
'frmMain
'
resources.ApplyResources(Me, "$this")
Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color)
Me.Appearance.FontSizeDelta = CType(resources.GetObject("frmMain.Appearance.FontSizeDelta"), Integer)
Me.Appearance.FontStyleDelta = CType(resources.GetObject("frmMain.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.Appearance.GradientMode = CType(resources.GetObject("frmMain.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.Appearance.Image = CType(resources.GetObject("frmMain.Appearance.Image"), System.Drawing.Image)
Me.Appearance.Options.UseBackColor = True
Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.ribbonMain)

View File

@@ -1065,6 +1065,172 @@
gxXhBTzyM4OT531dfdMT3r8GiY4Xirjbybxo0lSDU/jGHY6bjGo+r+c1Q/vgxiQx3lBgickmSU/fQtLV
N5fmzFsjzZ5vJqAzz1Rg1tzVPE2llBpcvWDBYiuaD8xbbEnzDC1JfYL2QnwT8eW5ugYWGIYUES7/T/we
UVnFoWBr+TznI5VPNdUJyXP+R5GkfwMPT3OfchuhBQAAAABJRU5ErkJggg==
</value>
</data>
<data name="itemScanInbox.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAABGdBTUEAALGPC/xhBQAAJYhJREFUeF7t
XQl4TtfapW5L9fb2rx8dcPvrYCiq2oort2iJui01VJVUqZDGFFFEg0hNkZiHqrGUxky1aFExJpGJJIh5
rNLBPCeCsv+19nf25+Rkf0Gv4XxJ3udZT0i+4Zx3rf2+7x5PPne1gQMHVhk0aBB+DBzUr1+/UCIkJCQ0
ODhYonfv3hJBQUESPXv2DO3Ro4dEt27dJD799NPQgIAACX9//9BOnTpJdOjQQcLPzy/U19dXom3btqFt
2rRphq9+EHhAXkSe3Xvr1avX42FhYVFDhgwR06ZNE7NmzRIzZ84UERER4ptvvhEzZsyQmD59uvj666/l
a6ZOnSq++uorMWXKFDF58mSJSZMmiYkTJ4oJEyaI8ePHS4wbN0588cUXYuzYsWLMmDFi9OjRYtSoURIj
R44Un3zyifDx8dlev379GriUQkCeEO6lodUWCQ8P30piz549K+61paWliS+//FIgEpx/880338Il/R0o
IC8uz+665WfLJ/kZGRkGJffHGFFatmz5B66pNEAR5EWCu23I73XR+u9Ly7caIwFqBPHGG2+E49JKAkwH
+XmdeWYx5NTSyK9v4mdt5NU6w4YN81IAoVmAwk4CRZ0Vc7799luDgvtvrD2aNWv2i4eHR/u33nqr8bvv
vlu3YcOGXgqoE5yoV6+eE3Xq1HGiVq1aXhBRHU9Pz+fgKkaRnCEiEPk4Cq6BKKIOBQYGiubNm4sGDRpI
wCES77zzjnj77bcl/vOf/0jAQRJwqKhbt66El5eXBBwmizy7WFRUlKhUqZJExYoVRYUKFSRefPFFUb58
eYly5cpJlC1bVpQpU0bihRdekHj++efFc889J//26quviho1apwFZlepUqU8XMiehnuKAZX0K2jphz78
8ENZRf/888+Gy/LMldFH7LW0aNFCIBqcq1q1agBcydrib4D7CIHk9+3b92zHjh2NW8uz2zV2RREFROXK
lT+DS/8HcI9ogP75/6JKzyP/DhjHNVBbiGeeeaYxXEsRMBLY2vJPnDhxJvN3nt0Z8/HxYSRIhW9fAB4F
7NvV7NKlS7Hg4OCzzGN5dmeMdQHSgChevLgvXFwCKCidbUPLP3z48Bas0v+KcVAnN+CvGHtK6Dksgo9f
Ah6jr+lwu1mBESNGDPPz8zMu+9bs3Llz4rfffhNHjhzJFeC98p5vx1BQszvJNPAG8BTAgtB29uDQoUNH
3o4ATp8+LX799ddciWPHjolr164Znsje0LAogIPwcSPgWYAjjrazgv379x/EPuyt2OXLl8WBAwfk7Btq
BznDlhvAe+U9895PnTpleCN7a9u2LQeLtsLHLYByQGE63G5WEMXKy4wAmzdvNi7dtf3xxx8iJCRE9OjR
Q07P/vDDDzke3333nbxXdJWlEFJSUmRDyM7OnDnDbiCLwB/h4w+BFwEODtnOHgJKIQrE3coYwPz580VA
QIDguP6SJUtyHQYMGCAbwM0mtWbPns3wfxm+HQhwIUoZwJYRgPPhxdu3bz+YY/g3s549e8rRru+//z5X
YsGCBaJTp04iNjbW8Ije2rVrxwiwG77tBfwH+CfAxmY7Y9fkH+iu/BtpII036co4jcp8yCiwaNGiXIvB
gwfL1UiujGMAnCgqUqTIUvi2E1AdKArYdvEJBylKBwUFre7WrZuscnXYtWuXFADDf24Gl5wNGzZM6yOC
q47KlSvH8D8Y8AZU/rftnACVWaxVq1a93n33XXHy5Enx559/ZsHOnTtl/mcYzM0gwcOHD9f6iKhdu7bb
hH9lVCbHqyt07tw5jUumrly5kgUsfCgAhr958+blWvTp00fMmTNH66N9+/bJ8P/3v/99FvzZEagGMPzb
ftkZ08AzgYGBkR9//LHs5uhAcbAKZpWbG8FVykyDv//+u9Y/jA6opy7Al4OA5gAXiNiy+2c1KrSol5dX
K678YX//0qVLWUCFs7vIiSNOe+Y2hIaGiqFDh2p9Q3BGtWTJkhz86QnUBbjm0JZDwDqjUsv7+/sf58BH
enq6FigWZQ7kEq/cBoo/ISFB6xcWyVw2hvAfAT/6AVWBIoDbrDqmUkuiDlhEJV+8eFGLZcuWCa4VZBTI
TWDLp/h1PiE4OmqEf9sP/rgyKrVInTp1WjZp0kRs375dXLhwIQt++eUXmQe5K4c5MbeABLMbqPMJUa1a
NfHkk09ugA8DAS+A6wDcJvwro2LLoNr/mdu3OAWqA/vC/fv3l1u2cgN4vxQ9B3l0/tiwYYMM/4UKFZoC
/3ERyKvA44D91wNajIot0apVqwkcGmbXT4fVq1cL1ApykiQ3oHfv3nJPos4XBFPiCy+8cBK+6wc0AZ4H
HgbczqjYx1955ZUGDRs2lOvnOf+vA8cEWAxyo2ZOBrt23EmUlJSk9QNRvXp1hv8Y+K4boBaA2H4xqCuj
cp9HyNvWtWtXOf+tA53Dooi1QE7GoEGDxGeffab1AcFZQm4gKVCgwFj4zQd4GeBqYLcL/8qo3Cc/+OCD
cO4COnHihBapqakyLzI/spXkVKBXJFauXKn1AcG1FKVLl/4ZPvsc4OofbhWz5eqfWzUq97FSpUrVaNq0
qZwGPX78uBZsGZwj5778nIiwsDC5CIQ9H939E9xOVqxYsVXwWVeAZw88Abj9tnMq+Nn27dvHc2j46NGj
WlAcdBAPZMiJ4PoHpgHdvRM8zMII/6Phr9YAVwD/A3Db8K+MCn4CESDM09NTDg3rcPDgQZkGOEiiTuPI
KeA98d44C6q7dwINRIX/vkADgGcO2HYPwO0YFUwlV/L29k7jwQ5cGq0DF0gEBwfLVbA5Cbwn3pvunhW4
s7hIkSJc99cFeB0oDrh9+FdGJf9fmzZtVvn6+mqXSRMcHeOYABdJ5CRw6dePP/6ovWeCw8PGwo8w4COg
IpAjwr8yuVCkdu3anV9++WVx+PBhLfbu3SvrAE4Tc/QwJ4Ctn/lfd78KPDfBWPjRG3gHeAbIEeFfGZXM
GcIXq1SpkrZt2zZZDevAlTLMh5wuDQ8Pd2sMHDhQ3ktkZKT2XhU4UGas++PCD9uv+/urJpeNe3h4RM6d
O1eOhbsCVwtzulTlTncEoxjvgfeiu0czypQpo1v3l+NMLhSpV6/eZzw1hFV/duCcOdMBq2f+dCew1fMn
70F3b2ZwSRha/yb4Jghwi3V//43JNFC9evXj3D20f//+m2Lt2rVuCd296MD1EoUKFfoKfmkPeAD/C7jN
wo/bNZkGUAf05zoBLgvLzeAE2BNPPJEMn3Dmryngdgs/btfkQhHg1ddffz2ZG0n37NmTK0HyS5QocapA
gQIT4I/OgBr6dbuFH7drHBr+P+S9pqgFfuPad06U7N69O1eAQ96cFOLRd9WqVUuCLzjxw9bPXb9MkTmm
7+/KCuDmSw8bNmwpl4Zzx+zixYvlqiBum+akUE4E740HTXPMn4NC/Pnpp5+K1q1bn0LPiEu/WPzl/JNG
eYrYlClTUtkSuCY+Nxv3SC5dulRwdLRhw4bc/cPjX5gCcqYI+vXrVwTkbyX53PyQZw7jOkAeAtGgQQOK
gOv/cqQI8k+aNGkcdwTfjPzU3X+IOUtScgwOHL75SSAcLWzVqtXFSpUqcRWwW5wJeFsWFhb2PHN+dmGf
juo9dLlo0HZajgPv69iJC8ad6o3Dx40bN46Eu7gSKEcVhPlR6Y9nwefKSH5z/5nSWU16LBYfjkwWrSfu
lPh40k7RZtIu4TN5l2g7xYF2X+0Svl/tlvhkqgN+0xxoT3y9W3SwYvpu0dEF+Dfza/l+CeMzCfU96nvb
GdfC6yJ4jbxWXnOrCTvFR4D3yCTRqNMceV+8v+yiQXJysvD29k6Hv/4N5Kgu4YOogrdzEkhnF9MuO8lv
PjhGtJt3TPjOPyb8FhwTYatPi8lx58SUeAe+SjgnpiacF1MTz4tpwNcbb2D6JgdmEEnEBYlvFJIdiLBA
/V69zvE+4zOMzyTU90wj8N28Bl4Lr4nXNpnAtU4CQiNPC1/cR7u5x4TPnKPi/eCV8v4C+rk+OIOGNMBT
w4fBZ2WBR6T3coA9zDXxrsI/8ySd06xvpHTaJyC/97KTYu2+dLHpcIYDRzJEkgnJv2ZGCvHbZSc2E79n
xpZsYH2tfL/p8yQs35lEmK6J18hr3Whgxa400W3xCSnothACIxvvc/WGvcadZzVOJNWqVYsLQ7gdPGcM
Czdq1KgUN0O4Kv7Y+hv6RYh2s39Fqz8u+iw7JWIOXnI6UisCJxGXRbKVKEARmIXYW4Xxfuvnyu+TMF0L
YCV/4y8ZIhFYvTdd+C86LiNam+mHpADafjbfuPOsxiVkNWrUYB3gtlvCrJY/JCTkXa791xkrfjrlg5BI
0X7hcdHh2+Ni8bY0kWA4MNHkVOlk6fDLEIADTkJIjoUsCZCpoCXaBPNrzZ+hPlt9l/puQl3TRsK4Tl4z
r533kHAoQ8xESqGwGdmadF0o79dVQchVUfXr1+faQFsfCnk79sBwGDc96Cw+xdEqPgzfIDqC/L4rTol4
OE06zxCAUwQgnthEWIhIMhNlQiZSbxWazyHM38fvlzCuiVDXqq49nsC9xAEB35+QAvcOi5H3S+HrbNOm
TXKFEPxm60Mhb8ceHDt2bBwHO3Sm8r/P+FTR+bsTspCKO3TJ4Tw6kg41HJuoWhpbHUKwghKAQibishB8
xQVuvCbT+wHnZzvJv/HdvBZel5N8QpEP8F5igfA1Z6TAKXTer6s6gKODH3zwgfjnP//JGcLKANcGurU9
zPXwXPygM9Xv95uxX7aSKaiq2WLiTE50isBwthLBRtUKsxMAQVItkES7gum95s91tnqA3+0kH1DXSEji
DcTiXiiASRA2Bc6uI+939LRowwNZjZNFHh4e38J3/wK4PMx9xwMCAwP/zYkQV0elywKwfYQIQLX86ZKT
4vvtaQ6nmZwYT6fSuU6HI9wy7BpEOImxEJakI/cWYf4cfq6E8T3qe9V18Lok8QYyk58hNgAz0c2kwP0h
Agogu0KQs6NeXl7b4b46wNOA244K8iGPwTwRS2ccFKEzmgcvl+R3/+GkiDEcRigR3BAAnW043kSEFIGJ
KBJvRTLCfPIf2UP3PqsAnOQTxvVIHL6cmXxA3UfMzxnipz2X5D1S6O91+1beN8c/dLZu3TrOC5yB/9x+
f+DfRowYsYJnAOhsSeR26Qif0YmS/PB1Z6WzlAicUQDOJeIBqwikEEAOIUkCaZtANpGkQHJNyEK8Fcb7
HJ9jfKbxHYT6XnUt8YRxjXG/XJbXrQTAe4nGPRFB6N5SBC1DQTDumwWwzrhQlCumihcv/il8WAFw20Wi
hcaMGXOOhx7pLHTcaukI/1kHRCCcMxH5n45yRgHpTMOxhgDo7AQ63yAh0UnMFbHRSdqdFIAD8vNJvoJx
DUoA6hpjCVzzBgiA96EEEAWMiDorhf7J5G3yvqfMTTA8kdU++ugjPirmG/hQHRDlfnVAly5dXuSyaB59
ojPm/0bI/z1B/mfLT4kFqWmO1iIdRyc6nEmnSgcbzlYCSJBkKHIsArCQaiXdFczvySQAAt/B7yPUNcQT
FIAhAl4rr5vgPfBelACmJ10QgT8iCnznGPvIbliYu4k9PT2j4MZawJOA2+0TyN+/f//O3PakM5X/vfsu
F0Egv9dPp8Xq/ZekoxwigAMNR8pWZQhAikA6HySYCJEEGbghgKtaJFuge40UgCEC52ebvk9+P8BrUdcl
yTcEwGvnPSjy1x/MEEt3pkuhUwRN/OfK+3dl3DtRt27d3+HH+oBb7hQqMGTIkHl8UILOVP73/WKj6A3y
w9eflU6is6LYahhCDQHQqbFO8ul0gwAt+VcdUEQevYHkbGB+nRIBP0N9nvr8RALfGXkgQyzYkS4itqaJ
yUkXxZeJF0R49DkxOOqcCMW9jI49L8bGnReTOEmVfFF8j9euw/31WnFaiqDlgFXy/l0NCHHijOctFy5c
uC186ZYDQgVHjhx5hE/F0JnK/wERe0XwytNi8sYLYh1bCsi/IQDUAUarij1yBQJwkC8FwFZoCCBREgQo
0gwCzQLQka6DWQTqs4j4366KZfvRnduWLsbiWseA8FEJF8TI+PNiBIgeBsKHbjgnhsScE2GGCAahqB2w
9qzot+aM+HzVGdE38rTog3ulCNpP3CzvnwNhrownrZYuXZozg1UA9zoqpkWLFk/zYASefKEz9oPpAJIf
EnlGLNiW5hCAigBGCohxCsAQgSGAeCmAq5J8nQAIJ5mAJPhY9jC/nuBnxOK7Fu6+JKZsThPj0ZK/RGsf
t+mi+GLjRTEWInAKASIYDhEM23DeIQIZDVyLoMeiX+X9cyDMlfHRMq+++uoKuJPrA4oBbjMzmD84OLgl
B4B0xokQ3nyLXkvgEDhm9RkRifyvBLAe5EcxhyoBGOSTDCkAEE8kGORLAYAsJQAziVbiUzQw/10C70nE
5yzZlyG+QoifsgVhHgKYBExMSRMTMgnBIYLR1mgAEaiUoETQ3yKC97pkXwdwBrVWrVoH4M+3gFKA28wM
Fhg0aNBk7vTVGcfBeeO+o+Ik+cPhrDXIj2tB/jqQ7xQAyKcAYkD+BqcAroo4qwAU+SCOkOSDSCL52J8O
HHcgRQP1Nwm8dh2+K2LHJfE1wv00YGpqOoSQLqYw30MMSgjmiMC0QBGMir8gRcBowJTgFAFSgjUStAxx
DIO7qgPi4uJYCF6CP7lvwK3OC3xo6NChO3gDOuM4OG+8++x9slVMhPMcAricSQBRID/68BWLABwRgORL
AYB4KQCD/E2S+D8lzMTqiLdiE97zw8HLImLnJfENARHMAKZvT3eIAUKYSiEwIhhCYDQYb4kGTAlaEZjS
QQhE0P7LTdIPLIh1xnODecjm008/HQKfqjOD3MIKcxMEDz/Qmcr/JH8gHDIH/f/VcPwaCGAtyJcikAK4
ckMAIF4KALnfKQAT+RuPOggkkkAm4ST/xM2RiPct2n9ZzN6TIWbvzhCzgJm7LjnFYBWCjAiaaGAWgaoL
tCJA5Atc4JgKZ0HsyrhErGLFigvhU7VCyP6FYFBQUH3ufdOZyv/evZdKRzA0/rg3QyOAKw4BgHynAEC+
FIBBvhQAiNeSD1IJK9GbT2ZFAqLGQpA/bx+RIebieuZCCHOcYrgkxWAVgiM1OKKBuTZggeisC7KIwFQY
QgSNOkTIATFXRj++9tpr3D5eG3CLiaEH+vXrN8zVBJDK/+3HxEtHjEDVHHngslgFAaxWAgD5LgUA8uNN
5EsBkHyQTpjJTwa5KRayrUjE67/Ddy/ENRALIARivkkMN4TgiApKCOZoYE4JUgRICVkigdE7YBdxIO6d
EZANgf5wtVqYB0vWrFmTE0MNAbdYIfTg4MGD49asWWPcQmbj+DdvuHvETjEYjuAgSmYBXHEIAOQ7BQDy
N4D8WJDvEABaLcCwLck3BJCp5Wci+prYcsrA6RvYiNctwfd99/MNLDp4RXxrEQTFYBaCSg0qGrBQNKcE
ayRQNQF7B6qLKEWAKOA3Jk76w9UCEZ4hwA20RYoU4eGRbnF6SKEhQ4ac44FPOuP4N294QOQJ6Yg56P9H
wuEOAVyRAlirBADyo0F+DMjfgLwvBYCWH49Wn8DWrwRA8lWrN8hPAdmbDSjit5rA369Aj2LJYeAX4opY
TOD7vzdEYRYDhcAUoYTgjAYmEagCMbMIjJrA6B2ocQJVDwTO3Sf9kd0CEY4IPvvssxPgW/sfHe/v7/9v
9Swcq3H+mzfbPHCRdAAdsRQOXQkHR8LhFMAaQwDrMgngqkMAIN8hAKQAa+gn+SQerV2Rn4n4M5mx6vc/
xY8QgMSRq+IHA0spCCkKhxisQphPIViiAVOCsy7IRgQcJ8hUDxipgD5xtUDk+vXr8vHxL730EieGagK2
Pj42Py42mI+D44VbTS0A/WREtHQAHTEVxdNKODcSTpYCgONlBAD5DgFcdQgArZ8CUORnaf0k3kw+SJfk
G4SnmhCD96yAABSW/+bAMnzPMpMgpBisQrBEA6sIVDpQhSF7B+ZxAiUCcyr40KgDdCuF6Ucervmvf/2L
E0PqCDnbniH0twEDBqzgBJBOACr/B87aJR3AnMgCaSpaywo4dhUcLQWA1s/BmPUgIxqkUABZwj9I3MjW
D/KTTlxzCIDkG8Qr8iXpZx3Ydu6aSMRrVuL9mYB64ifCJAiKgdHBLASVGhgNzLXBTUWAKEARZKoHkArC
jVTQYWy89IurOoDPF0AhyJXCHwDcMWTbiaFCoaGhR3gAlE4AKv+Hrj4pHUBH0CF0DMfaf4RTVzsFcFVE
KQEYrd8Z/tHypQBAfBKITwaphFMAIH0rCCccxF+X2HT6ulh97JoDxw0Y/19FHL0mIpUgTGJQQmBqUNHA
mRKsIlA1geoiMhWkuEgFRhToMXOn9IurBSJXr17lZhEeKTMUPuYzBHiOgP3Mx8fnRS5k4Nn3VjPnf7Z+
OoCOYFikY+gg5swFcKQSgDMCKAGA/HiQnyBb/zWxCeQrAaSA+M0gXpHvaPUO4redB/lnrou1EMzaE9fF
OuKkAfzb8ftrYo0hCIohEmJwCoERwRQNWCxmJwLVReQ4gbkeMKcCc0E4cJVjoairBSJ8jCxXCpcrV245
3OwJ2HJiKH9QUFBnjgBeuXLFuPQbpvK/H/K/ufVzRo2OYa6chHBJh83Yfkksg3PXg3ynAEB+HFonBZAI
otj6pQC05F8XqQbxqUA8Wv56kL3+1HURpYDfOf8N8G98jRIExWAWgjMaaESgagLVO1BdRIrAmgpU19Bc
EDIKsGHQP7qFonyQNP368ssvq4khWz5EskBISMg8DgBRsVZTG0C6T0+90frhCNX66SCGSzqMjqMDF6BV
rYCjY9D6Y0F+HMiPBzGJIEgKgKEf5DsFAPK3gngH+UKknBMiBkRHg9xo/Iw5I8QGDfj7mNNCvkaKwYgO
FALTBIWgokG2IsD1ShGY6wFGAaSC7KIAawEWxvSPq4WiXFjr4eHBiaH3AE4M2W5AqODnn3++gzuAqFir
qQ0gA3/6Q9/64SC2fjqMjqMDGU7pUA7TLoez14OEBCUAo/VLAUjyr0vytwBJ+Lck3kR67FkH4jRQfyOk
IMxCQES4EQ00IlA1gdFF1KaCm0QBpgEWxvSPqzrg0KFD8nmCRYsWtefEUMOGDZ/mAc+8UJ3x5t4PmOes
/M25fyKKJGvrj4AD6Ug6lI6lg+lotrqfQMAqiCEKpMRADLEQQzR+RjPMAySPLVoRr4iOR0RI0IC/jze9
TglBRQRGA1ciYGHI3gG7iKoeMKcCl1EAAlA9gqGIAv2XOxaKulogwp3VPFT62WefteXEUP7u3bu35OnY
ugEgtQO4XfgaqfhRUD5bgGr9bBls/SyaVOtnGKUjmVvpWDqYjmaro+NJAIlgjmbhxnBN8lWrV8STWJKc
aGAjsAnpQYH/J/g3JQanCAAKySoCVROowpBdRGsq4KyiqyigegRyXIBpwIgCTdFA6CedsSfAA6jLly9v
y4mhAr169ZrMAQtdAajyfw/kf2f4hwMoALYItgx2mdh/lq0fAlCtnw5VrZ+OpsPpeBLA1mgl39zqSaaZ
9CQgGUgxgf8n+DclCKsQKCitCBgFcC0qFSzCNVqjQKZaAAJgoasGh9gI2BhUGmgbtkb6SbdAhN1qrrBG
IWjLiaGHgoOD4zlzlV3+H4T8nzX8O6ZT2frZUtiPVrnf3PrpYNn6ST4cTwJIBAkhMSz0zOSrVk9SFemb
LwixBdgKpBrgv/k7/o2vkUIw3ptJBCoSGDUBI49KBY4ogFRgigKqFmAqo6gdg0PZpYFzotvXqdJPrhaK
btmyhWsExaOPPmq7iaHCfOQbHxKtMyUAVf1T+ZwuNXf9VPHH1s+WI3M/BJCl9aNb6Az9JB+EyJxvIZ8t
mWSSVEX6totCbAd2WMDfKTFQCBQMhWMWAdMBIwwjjewdWFKBMwoYtYDqFlLMFLVMA7hHXRpQvYHeC/dn
KwBuHeeI4FNPPWWviaGAgIB3+vXrJ598rTO1BKzvogNyVkxV/9rwD4ex5TCPsiUtQoty5n44mi1Otf5M
od8F+Yp4Er0zTYjdwB4LdgE7TUKgYKwioLhkYWhKBTIK4FpuRAFTjwACoIjNxaAaGHL2Bow0oHoDncZl
PyTMHdY+Pj7iueees9XE0AOBgYHDuKVZVwDS1CKQDqOipeKZ/9kCOETKFqGqf234h0NV+M+U+02tX4V+
lfOt5JNcEr8X2J8uxAHgoPGT/98HKCFQKFYRUFTmVMBBo0xRwFQLUKxZ0gAEYE0DujqAvST6ydXxMRxf
GT16tChbtuxB+N02E0MP9unTJ47Hv7JS1RlHt7jsqXGHCBG+6qg2/zurfziMAtCFf1n5s/Wj5bEFqtZv
Dv0q55NART7JJckk/RA0+gtwOAMw/v0zQDHwNRSKEgHTAcWkCkOZCkwFIUVIMbpOA457MfcG5Migpg7o
NdcxDuCqG6iMD6OoVKkSJ4aaAbZ4vkChvn37nktMTNT2AJSpnoB3z0Vi1IbTMgRSAK7yv6z+jfDPvrbq
+rHFqcrfnPvNrZ/EkUASSfLZykkyCf8VxP8G/H7ZAf77CEAhUCAUASMB0wEjCCOJNQqoWkD2CCxpQI0O
mnsDzjrASAMUvZogYjQcuOyIbBz0j6sl4sq40ZbPGCxatCgnhmxxhMyjXLDAGcDsBEBTxWCzrvNEn9nb
ZCjkAImr7l+mvn824d+c+9n6SRwJJJEkVJJvEH8UpB/HZZ4wcAz//wOgMCgCRgKmCkYORhAVBcy1gOoW
UoSqS0gByIEh9AZ0dYDqDpoLwTGxZ0TXCQlO8l0Vf2bjRFujRo1EqVKlODGknjB2XyeG/ocC4B5AVzWA
MqYCVRDmITNc7Q0wG2sAbrVr2bIlD5HiQ6ZtcZZgET7ejefcnj2L5nELxjBHIaj1AbkRrIkYETn276ro
sxob2LFjxwSfulayZMm18P27wH1/xnCR3r17y1UrfAiybiYwz+6MsfXTxxRAiRIl1sP3TYD7PjMoBcAD
DnkW8MmTJ43LzbM7adwmRv8SJgHYYs9gEW5j3rhxo1BPwj5zBlVSnt0xY3FtftK47QQQFBQk2A00PxH7
9OnT2nmBPLs94+iq2a+Et7e3vQTAp2LFx8eLI0eOZIKKBunp6XIY807DDsbBL921/bdgf5/h3upTwnYC
4OPRuRXc+lj0uw07GHs+umu7m7CdAAIDA0VsbKz20eh3E3awo0ePaq/tVrEicYWYv36+2Lbb9SP1reAT
V20nAK4F5HKwewlXs4/3yhj+ddd1K/h84eei4sCKouakmqLm1Jqiclhl8dbgt0TqrlTt682wnQC6d+8u
YmJisjwa/W6Dzrifzx9kQaa7rpuh6zddRePJjcXmC5vFwUv4nYGZm2eKEl1KiC07t2jfp2BLAURHR4sD
Bw7cc/Bc3XstAvZuSL7uem6G6ORoUX5AebHo1CIthm4dKpqOaKp9r4LtBNCtWzcRFRWV6bn49xr3qtt5
/vx52Qp113ArCJgaIBovbyyCDgVlge9eX+GZ4inydcmnfa8CnyhiKwF07dpVrF+/XvuM/HsJtg7Olt1s
VvJ2jcJit4zRRve9twOvQV6ickplUXMbcr+B6luri6Ibiop8a/I5MCKf9r0KthNAQECAPOOeh0LYBayW
OXbOQvGvRAaOXXBYm/1u3ef/VXSZ0kUUXFlQFI4vLPFw/MPigegHRL5oEK8QnE/7XgXbCaBLly5ypcqe
PXtsDdWP5oQKyVXgDJv6G8O77r13CuOXjBcPfPmAeCj5IS0ejHtQlO9dXvteBT5TyFYC8Pf3FzwTaPfu
3Xm4BZTrXk6UWlNKlN1RNgsKDygsIlZGaN+nYDsBcOsyNy/ywRB5uDkSNycKjz4eouS4kqLqqqrCM8ZT
VFhYQTzV5ykRNi9M+x4zbCeATp06ycef79ixIw+3gS++/0J0ntRZoteMXiIhJUH7OitsJ4COHTvK8+y4
MSQPdx8VKlQQjz322Az43h4LQnx9fX+fNWuWfMhBHu4uWGxTAA8//PBI+N4WS8Ieb9my5Q9DhgwRqamp
ebjL4BF8ZcqUOQ+/9wJscVrIP2rVquXr5+cn5wO2bt2ah7uIN954g6eHJ8Lv3CBaAygO3NftYdyZUsbb
23s79wdyB2se7g4YZcuVK3e5QIECX8DnfJYQTwy774+S4d60EqVLl2758ccfp/N0a24SycOdxeLFi2Xu
L1as2Dr4uy+gnip6X3sANO5KoQpfQm7q1bp160vMU1wixs0iefjvER4eLqpWrcrNIPvg5+GAH8BdQTwu
zhanhLAKfQqogUgwqHnz5mdZE4waNUosWbJEzhNw40gebg2cWmevig/devvtt2XYL1q0aAz8OwboAXBn
MFs/068tzgliFHgEYJek9iOPPNKtWrVqq5o0aXKCj0DlViYuZSY4l83JDA5mNGvWTLz//vsSTZs2Fe+9
9558Zm7jxo3l/jeCByPxtGw+Qq1+/frinXfekaBj6tWrJx+pQnh5eUnUqVNHHq/+5ptvSqBAleDBCjxt
8/XXX5fw9PQU1atX5xm88vQtDw8PCba01157TZ7E8corr4gqVapIVK5cmQc2y5253JzJcHy3gYh6sWTJ
kjsLFiw4F34dAZB89v0rAjwcwlaHRvNiHgV4ds0bQBuAXZVwYDTAwmVcHm4Z9NdYgM8N5NFwHQC2fJLP
DaGsvWx3bDxFwHNr+Iiz14AGQGugI9AFYNclD7cG+qsT4AOw1fPZgRz144OkbUm+MoqAQ5NUKVMCFcvz
bDwAnm+Xh1sHGxEPhSTxPA6GaZZFn23JV8YLVEJgWmAvgcrNw+2BeZ4HQLCrx9E+2xOfZ3mWZ+5n+fL9
P2tkH2rU/ce+AAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem19.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -1242,6 +1408,12 @@
Yx8G+/8H09D4N5NlWbdRYGV2AAAAAElFTkSuQmCC
</value>
</data>
<data name="itemAbout.Caption" xml:space="preserve">
<value>System-Info</value>
</data>
<data name="itemAbout.Description" xml:space="preserve">
<value>Diplays Info for ADDI-Release etc.</value>
</data>
<data name="itemAbout.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAt0RVh0VGl0
@@ -1342,6 +1514,20 @@
yfvkPPhE1Ql+k9vzOv3/P/ifoPoeVeUDAqiG6o3/Nb1j0KB/AMYUfCkDw9hpAAAAAElFTkSuQmCC
</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MainMenu.MenuAppearance.HeaderItemAppearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="BarButtonItem1.Caption" xml:space="preserve">
<value>Calendar</value>
</data>
@@ -1595,49 +1781,6 @@
l8lb8j0xKzJ5W1aijIK6PZe0KWzOoNqwtu4xi4EXlxVaCd3AjmQLj9kobCyndGgnEm1O7d1GY9p7EDMx
bI5YJB5u7wmfmJ7YwPr3k8o4jnJXjMbj0vMgfhYI3NJFUEf2C4nv7DY+0RDIaln7zu7iuvf+VYq/7zWr
UuokCMwsYbcJ78YxKrF3dzEqSlTcsjO/jn2tW1ZoJfioK7yYILJc9eX548dElrbsgmuWFfpP8NH3jZWW
6qMifaxeVuRJ4CPGHguDwbDq340j4jYtOeG+AAAAAElFTkSuQmCC
</value>
</data>
<data name="BarButtonItem13.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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
6qMifaxeVuRJ4CPGHguDwbDq340j4jYtOeG+AAAAAElFTkSuQmCC
</value>
</data>
@@ -2215,6 +2358,18 @@
H96GlUb79Bl9R69plEs/sTcJ3iKg49AD+2P+T005EBVCV4RGRUH79NmPOi7a//rTSCnoGM/i/9QoaSk8
qy3lS/H/Rm5QvyqWfPjLAcv+Bd859emhr0AKAAAAAElFTkSuQmCC
</value>
</data>
<data name="BarSubItem1.MenuAppearance.HeaderItemAppearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="BarSubItem1.MenuAppearance.HeaderItemAppearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="BarSubItem1.MenuAppearance.HeaderItemAppearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="BarSubItem1.MenuAppearance.HeaderItemAppearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="btnGlobalSearch.Caption" xml:space="preserve">
<value>global search</value>
@@ -2325,6 +2480,73 @@
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAERJREFUOE9j+P//P0UYhfPt27f/xGBkPRgGODk54cVkG/Dh/UcwTXsXEIOR9WAY
gM1WZEy2AaNhMGTCgByMVZB4/J8BAMCa3yXIH1ZEAAAAAElFTkSuQmCC
</value>
</data>
<data name="LabelProxyServer.ItemAppearance.Normal.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="LabelProxyServer.ItemAppearance.Normal.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="BarSubItem2.MenuAppearance.HeaderItemAppearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="BarSubItem2.MenuAppearance.HeaderItemAppearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="BarSubItem2.MenuAppearance.HeaderItemAppearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="BarSubItem2.MenuAppearance.HeaderItemAppearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="StatusPersonifiedLogin.ItemAppearance.Normal.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="StatusPersonifiedLogin.ItemAppearance.Normal.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="BarButtonItem13.Glyph" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
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>
@@ -2339,6 +2561,18 @@
</data>
<data name="pageHome.Text" xml:space="preserve">
<value>Home - Main Views</value>
</data>
<data name="pageForms.Appearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="pageForms.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="pageForms.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="pageForms.Appearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="pageForms.Text" xml:space="preserve">
<value>Other Views</value>
@@ -2363,6 +2597,18 @@
</data>
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>1436, 23</value>
</data>
<data name="frmMain.Appearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="frmMain.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="frmMain.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="frmMain.Appearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1436, 786</value>

File diff suppressed because it is too large Load Diff

View File

@@ -39,7 +39,7 @@ Public Class frmMass_Change
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
ClassLogger.Add(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
ClassLogger.Add(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text), False)
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)
ProgressBar1.Visible = True
@@ -127,7 +127,7 @@ Public Class frmMass_Change
i += 1
Next
SUCCESSFULL = True
ClassLogger.Add(String.Format("### MassChange finished successfully! ###"))
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

View File

@@ -76,6 +76,7 @@ Public Class frmRecordView
End Try
RUN_WDSEARCH_GRID()
ClassWorkflow.Refresh_Workflows_Entity()
Load_Task_Data()
End Sub
@@ -90,10 +91,14 @@ Public Class frmRecordView
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, USER_USERNAME)
ClassDatabase.Execute_non_Query(Sql, False)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error:" & vbNewLine & ex.Message)
MsgBox("Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
'Perform your actions
End Sub
@@ -108,10 +113,14 @@ Public Class frmRecordView
Dim user As String = USER_USERNAME
Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, dateString, user)
ClassDatabase.Execute_non_Query(Sql, False)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, dateString, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message)
MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -124,10 +133,14 @@ Public Class frmRecordView
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim user As String = USER_USERNAME
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user)
ClassDatabase.Execute_non_Query(Sql, False)
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configId, value, user)
If ClassDatabase.Execute_non_Query(Sql, False) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message)
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

View File

@@ -12,6 +12,7 @@ Public NotInheritable Class frmSplash
End Sub
Private Sub frmSplash_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.Escape Then
ESC_Hidden = True
lblpersonilization.Visible = True

View File

@@ -112,7 +112,7 @@
<util:RemoveFolderEx Id="RemoveApplicationFolder" On="uninstall" Property="APPLICATIONFOLDER" />
</Component>
<Component Id="Docu" Guid="D6FAF95B-3CF0-4504-B18B-E1181E92DC91">
<File Id="releaseNote.txt" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DD_MODULE\Digital Data - RECORD ORGANIZER\ChangeLog.txt" KeyPath="yes"/>
<File Id="releaseNote.txt" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DD_MODULE\DD - RECORD ORGANIZER\ChangeLog.txt" KeyPath="yes"/>
</Component>
<!-- WINDREAM Bibliotheken -->
<Component Id="WindreamLibs" Guid="4D11FC99-50D9-4E54-B18A-8885C9112646">

View File

@@ -254,7 +254,7 @@ Public Class frmVersionCheck
Rename(targetfile, Renamefilestring)
Return True
Catch ex As Exception
ClassLogger.Add(String.Format("Unexpected Error in File_Rename: " & "targetfile '{0}'" & "Renamefilestring '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
ClassLogger.Add(String.Format("Unexpected Error in File_Rename: " & " targetfile '{0}'" & "Renamefilestring '{1}'" & "ERROR: {2}", targetfile, Renamefilestring, ex.Message))
ClassLogger.Add("myRow: " & myRow.ToString, False)
Return False
End Try