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

MS_09.05.2016

Browse Source
This commit is contained in:
SchreiberM 2016-05-09 13:55:58 +02:00
parent 4c53286626
commit 756d96d1d3
5 changed files with 164 additions and 140 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
app/DD-Record-Organiser/ClassControlBuilder.vb
View File

@ -230,9 +230,9 @@ Public Class ClassControlBuilder
End If End If
If CURRENT_RECORD_ID = 0 Then 'If CURRENT_RECORD_ID = 0 Then
Exit Sub ' Exit Sub
End If 'End If
If IsNothing(value) Then 'Kein Value also abhängige Controls auf "Leer" setzen If IsNothing(value) Then 'Kein Value also abhängige Controls auf "Leer" setzen
For Each row As DataRow In TableResult.Rows For Each row As DataRow In TableResult.Rows
@ -276,8 +276,11 @@ Public Class ClassControlBuilder
Dim upd1 = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", value.ToString, CONTROL_ID, CURRENT_RECORD_ID) Dim upd1 = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", value.ToString, CONTROL_ID, CURRENT_RECORD_ID)
' ClassDatabase.Execute_non_Query(upd1) ' ClassDatabase.Execute_non_Query(upd1)
Else Else
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", CONTROL_ID, CURRENT_RECORD_ID, value, Environment.UserName) If CURRENT_RECORD_ID <> 0 Then
'If ClassDatabase.Execute_non_Query(ins) = True Then Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", CONTROL_ID, CURRENT_RECORD_ID, value, Environment.UserName)
'If ClassDatabase.Execute_non_Query(ins) = True Then
End If
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'") ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
'End If 'End If
End If End If
@ -371,7 +374,7 @@ Public Class ClassControlBuilder
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpectet Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True) ClassLogger.Add("Unexpected Error in OnComboBoxValueChanged - TextBox: " & ex.Message, True)
End Try End Try
Else Else
ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'") ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'")
@ -452,7 +455,9 @@ Public Class ClassControlBuilder
Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId) Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
'SQL für enable control 'SQL für enable control
Dim SQLenable As String = String.Format("SELECT GUID, SQL_COMMAND_2 FROM TBPMO_CONTROL WHERE SQL_COMMAND_2 LIKE '%@{0}@%'", controlId) Dim SQLenable As String = String.Format("SELECT GUID, SQL_COMMAND_2 FROM TBPMO_CONTROL WHERE SQL_COMMAND_2 LIKE '%@{0}@%'", controlId)
'If CtrlCommandUI.IsInsert = True Then
' CtrlCommandUI.SaveRecord(0, CURRENT_FORM_ID, CURRENT_PARENT_ID)
'End If
Dim CONTROL_VALUE As String = ClassControlCommandsUI.GetControlValue(control) Dim CONTROL_VALUE As String = ClassControlCommandsUI.GetControlValue(control)
@ -470,6 +475,7 @@ Public Class ClassControlBuilder
If IsNothing(CONTROL_VALUE) Then If IsNothing(CONTROL_VALUE) Then
Exit Sub Exit Sub
End If End If
Enable_Controls(control, datatable1, CONTROL_VALUE) Enable_Controls(control, datatable1, CONTROL_VALUE)
Dim values = New List(Of Object)(CONTROL_VALUE.Split(";").ToArray()) Dim values = New List(Of Object)(CONTROL_VALUE.Split(";").ToArray())
'Jetzt noch die checked Items setzen 'Jetzt noch die checked Items setzen

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

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

25
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

@ -22,6 +22,7 @@ Partial Class frmConstructor_Main
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode() Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
@ -29,12 +30,12 @@ Partial Class frmConstructor_Main
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl() Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView() Me.TreeViewMain = New System.Windows.Forms.TreeView()
Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip() Me.CMSEntity = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ResetEbenenAuswahlToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiimportEntitätToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FormDesignerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FormDesignerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GridControlMain = New DevExpress.XtraGrid.GridControl() Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip() Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.FunktionenDataGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FunktionenDataGridToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnsichtUmschaltenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -58,7 +59,7 @@ Partial Class frmConstructor_Main
Me.pnlDetails = New System.Windows.Forms.Panel() Me.pnlDetails = New System.Windows.Forms.Panel()
Me.TabWindream = New DevExpress.XtraTab.XtraTabPage() Me.TabWindream = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl() Me.GridControlDocSearch = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip() Me.ContextMenuStripResultFiles = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -93,7 +94,7 @@ Partial Class frmConstructor_Main
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.GridControlPos = New DevExpress.XtraGrid.GridControl() Me.GridControlPos = New DevExpress.XtraGrid.GridControl()
Me.grvwGridPos = New DevExpress.XtraGrid.Views.Grid.GridView() Me.grvwGridPos = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.BindingNavigatorPOS = New System.Windows.Forms.BindingNavigator() Me.BindingNavigatorPOS = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
@ -129,7 +130,7 @@ Partial Class frmConstructor_Main
Me.GridControlParent = New DevExpress.XtraGrid.GridControl() Me.GridControlParent = New DevExpress.XtraGrid.GridControl()
Me.GridViewParent = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewParent = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.btnRelinkParentID = New System.Windows.Forms.Button() Me.btnRelinkParentID = New System.Windows.Forms.Button()
Me.BindingSource_Entity = New System.Windows.Forms.BindingSource() Me.BindingSource_Entity = New System.Windows.Forms.BindingSource(Me.components)
Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane() Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane()
Me.NavButtonHome = New DevExpress.XtraBars.Navigation.NavButton() Me.NavButtonHome = New DevExpress.XtraBars.Navigation.NavButton()
Me.NavButtonRefresh = New DevExpress.XtraBars.Navigation.NavButton() Me.NavButtonRefresh = New DevExpress.XtraBars.Navigation.NavButton()
@ -138,18 +139,18 @@ Partial Class frmConstructor_Main
Me.tsslblRecord = New System.Windows.Forms.ToolStripStatusLabel() Me.tsslblRecord = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel() Me.tsslblWorkflowstate = New System.Windows.Forms.ToolStripStatusLabel()
Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
Me.ImageCollection1 = New DevExpress.Utils.ImageCollection() Me.ImageCollection1 = New DevExpress.Utils.ImageCollection(Me.components)
Me.ttToolTip = New System.Windows.Forms.ToolTip() Me.ttToolTip = New System.Windows.Forms.ToolTip(Me.components)
Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip() Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet()
Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource() Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter() Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter()
Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource() Me.TBPMO_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.ToolTipController = New DevExpress.Utils.ToolTipController() Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerMain.SuspendLayout() Me.SplitContainerMain.SuspendLayout()
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()

28
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

@ -298,7 +298,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>788, 248</value> <value>795, 248</value>
</data> </data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -373,7 +373,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value> <value>1072, 338</value>
</data> </data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -391,7 +391,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value> <value>1072, 338</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value> <value>Detailansicht</value>
@ -409,7 +409,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1071, 362</value> <value>1078, 369</value>
</data> </data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib"> <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -469,7 +469,7 @@
<value>192, 255, 192</value> <value>192, 255, 192</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 309</value> <value>1072, 313</value>
</data> </data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value> <value>7</value>
@ -565,7 +565,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 25</value> <value>1072, 25</value>
</data> </data>
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -586,7 +586,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value> <value>1072, 338</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>windream-Dateien</value> <value>windream-Dateien</value>
@ -1017,7 +1017,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value> <value>1072, 338</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value> <value>Wiedervorlage</value>
@ -1044,7 +1044,7 @@
<value>Cyan</value> <value>Cyan</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 309</value> <value>1072, 313</value>
</data> </data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -1068,7 +1068,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 309</value> <value>1072, 313</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -1243,7 +1243,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing"> <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 25</value> <value>1072, 25</value>
</data> </data>
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib"> <data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -1272,7 +1272,7 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1069, 334</value> <value>1072, 338</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value> <value>Positionen</value>
@ -1472,7 +1472,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>1071, 25</value> <value>1078, 25</value>
</data> </data>
<data name="ToolStripEdit.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripEdit.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -1577,7 +1577,7 @@
<value>Panel2</value> <value>Panel2</value>
</data> </data>
<data name="SplitContainerBottom.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>1083, 387</value> <value>1083, 394</value>
</data> </data>
<data name="SplitContainerBottom.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainerBottom.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>

229
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@ -752,112 +752,7 @@ Public Class frmConstructor_Main
ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID) ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
Show_Selected_Record_Data(Grid_RecordID, False) Show_Selected_Record_Data(Grid_RecordID, False)
RIGHT_ONLY_READ = False Check_Rights()
RIGHT_WINDREAM_FORBIDDEN = False
tsmi_RecordDelete.Enabled = True
DeleteToolStripMenuItem.Enabled = True
CopyToolStripMenuItem.Enabled = True
RecordKopierenToolStripMenuItem.Enabled = True
PropertiesToolStripMenuItem.Enabled = True
tslblLocked.Visible = False
tslblFileslocked.Visible = False
TabFollowUp.PageEnabled = True
TabWindream.PageEnabled = True
WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
Dim tempsql
If SQL_RIGHT_READ_AND_VIEW_ONLY <> "" Then
Try
tempsql = SQL_RIGHT_READ_AND_VIEW_ONLY
tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
tempsql = tempsql.Replace("@USER_ID", USER_GUID)
tempsql = tempsql.Replace("@USER_GUID", USER_GUID)
''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
'' die Vorkommen im SQL-String auslesen
'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
''#####
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Dim elementohneSZ = element.Value.Replace("[%", "")
' elementohneSZ = elementohneSZ.Replace("]", "")
' ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
' tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
'Next
Try
RIGHT_ONLY_READ = CBool(ClassDatabase.Execute_Scalar(tempsql))
Catch ex As Exception
RIGHT_ONLY_READ = False
End Try
If RIGHT_ONLY_READ = True Then
' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
tsButtonAdd.Enabled = True
tsButtonEdit.Enabled = False
tsButtonSave.Enabled = False
tsButtonDelete.Enabled = False
tsmi_RecordDelete.Enabled = False
PropertiesToolStripMenuItem.Enabled = False
CopyToolStripMenuItem.Enabled = False
DeleteToolStripMenuItem.Enabled = False
tslblLocked.Visible = True
RecordKopierenToolStripMenuItem.Enabled = False
TabFollowUp.PageEnabled = False
End If
Catch ex As Exception
MsgBox("unexpected Error in Check Read-Limitations:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Check Read-Limitations: " & ex.Message)
ClassLogger.Add("TempSQL so far: " & tempsql)
End Try
End If
If SQL_RIGHT_WINDREAM_FORBIDDEN <> "" Then
Try
tempsql = SQL_RIGHT_WINDREAM_FORBIDDEN
tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
tempsql = tempsql.Replace("@USER_ID", USER_GUID)
tempsql = tempsql.Replace("@USER_GUID", USER_GUID)
''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
'' die Vorkommen im SQL-String auslesen
'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
''#####
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Dim elementohneSZ = element.Value.Replace("[%", "")
' elementohneSZ = elementohneSZ.Replace("]", "")
' ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
' tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
'Next
Try
RIGHT_WINDREAM_FORBIDDEN = CBool(ClassDatabase.Execute_Scalar(tempsql))
Catch ex As Exception
RIGHT_WINDREAM_FORBIDDEN = False
End Try
If RIGHT_WINDREAM_FORBIDDEN = True Then
' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
tslblFileslocked.Visible = True
TabWindream.PageEnabled = False
WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
End If
Catch ex As Exception
MsgBox("unexpected Error in Check Read-Limitations WINDREAM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Check Read-Limitations WINDREAM: " & ex.Message)
ClassLogger.Add("TempSQL so far: " & tempsql)
End Try
End If
If TCDetails.SelectedTabPage Is Nothing Then If TCDetails.SelectedTabPage Is Nothing Then
Exit Sub Exit Sub
@ -892,6 +787,125 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub Check_Rights()
Try
RIGHT_ONLY_READ = False
RIGHT_WINDREAM_FORBIDDEN = False
tsmi_RecordDelete.Enabled = True
DeleteToolStripMenuItem.Enabled = True
CopyToolStripMenuItem.Enabled = True
RecordKopierenToolStripMenuItem.Enabled = True
PropertiesToolStripMenuItem.Enabled = True
tslblLocked.Visible = False
tslblFileslocked.Visible = False
TabFollowUp.PageEnabled = True
TabPos.PageEnabled = True
TabWindream.PageEnabled = True
WindreamsucheNeuLadenToolStripMenuItem.Enabled = True
WorkflowTasksNeuErstellenToolStripMenuItem.Enabled = True
tsButtonShowWorkflowTasks.Enabled = True
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
Dim tempsql
If SQL_RIGHT_READ_AND_VIEW_ONLY <> "" Then
Try
tempsql = SQL_RIGHT_READ_AND_VIEW_ONLY
tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
tempsql = tempsql.Replace("@USER_ID", USER_GUID)
tempsql = tempsql.Replace("@USER_GUID", USER_GUID)
''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
'' die Vorkommen im SQL-String auslesen
'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
''#####
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Dim elementohneSZ = element.Value.Replace("[%", "")
' elementohneSZ = elementohneSZ.Replace("]", "")
' ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
' tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
'Next
Try
RIGHT_ONLY_READ = CBool(ClassDatabase.Execute_Scalar(tempsql))
Catch ex As Exception
RIGHT_ONLY_READ = False
End Try
If RIGHT_ONLY_READ = True Then
' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
tsButtonAdd.Enabled = True
tsButtonEdit.Enabled = False
tsButtonSave.Enabled = False
tsButtonDelete.Enabled = False
tsmi_RecordDelete.Enabled = False
PropertiesToolStripMenuItem.Enabled = False
CopyToolStripMenuItem.Enabled = False
DeleteToolStripMenuItem.Enabled = False
tslblLocked.Visible = True
RecordKopierenToolStripMenuItem.Enabled = False
TabFollowUp.PageEnabled = False
TabPos.PageEnabled = False
tsButtonShowWorkflowTasks.Enabled = False
WorkflowTasksNeuErstellenToolStripMenuItem.Enabled = False
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = False
End If
Catch ex As Exception
MsgBox("unexpected Error in Check Read-Limitations:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Check Read-Limitations: " & ex.Message)
ClassLogger.Add("TempSQL so far: " & tempsql)
End Try
End If
If SQL_RIGHT_WINDREAM_FORBIDDEN <> "" Then
Try
tempsql = SQL_RIGHT_WINDREAM_FORBIDDEN
tempsql = tempsql.Replace("@RECORDID", RECORD_ID)
tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID)
tempsql = tempsql.Replace("@USER_ID", USER_GUID)
tempsql = tempsql.Replace("@USER_GUID", USER_GUID)
''Regulären Ausdruck zum Auslesen der windream-Indexe definieren
'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
'' einen Regulären Ausdruck laden
'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
'' die Vorkommen im SQL-String auslesen
'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql)
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
''#####
'' alle Vorkommen der windream-Indexe im SQL-String durchlaufen
'For Each element As System.Text.RegularExpressions.Match In elemente
' Dim elementohneSZ = element.Value.Replace("[%", "")
' elementohneSZ = elementohneSZ.Replace("]", "")
' ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen
' tempsql = tempsql.Replace(element.Value, controlvalue.ToString)
'Next
Try
RIGHT_WINDREAM_FORBIDDEN = CBool(ClassDatabase.Execute_Scalar(tempsql))
Catch ex As Exception
RIGHT_WINDREAM_FORBIDDEN = False
End Try
If RIGHT_WINDREAM_FORBIDDEN = True Then
' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
tslblFileslocked.Visible = True
TabWindream.PageEnabled = False
WindreamsucheNeuLadenToolStripMenuItem.Enabled = False
End If
Catch ex As Exception
MsgBox("unexpected Error in Check Read-Limitations WINDREAM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add("Unexpected Error in Check Read-Limitations WINDREAM: " & ex.Message)
ClassLogger.Add("TempSQL so far: " & tempsql)
End Try
End If
Catch ex As Exception
MsgBox("unexpected Error in Check_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
#End Region #End Region
#Region "TreeView" #Region "TreeView"
@ -1018,6 +1032,7 @@ Public Class frmConstructor_Main
If SelectedNode IsNot Nothing Then If SelectedNode IsNot Nothing Then
ENTITY_LOADED = False ENTITY_LOADED = False
ENTITY_ID = SelectedNode.Tag ENTITY_ID = SelectedNode.Tag
CURRENT_FORM_ID = ENTITY_ID
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode) Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
ACT_EBENE = 2 ACT_EBENE = 2
@ -1279,6 +1294,7 @@ Public Class frmConstructor_Main
tsButtonShowWorkflowTasks.Enabled = True tsButtonShowWorkflowTasks.Enabled = True
CURRENT_PARENT_ID = PARENT_ID CURRENT_PARENT_ID = PARENT_ID
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID) ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID)
dff()
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
tsButtonSave.Enabled = True tsButtonSave.Enabled = True
' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht ' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
@ -2029,6 +2045,7 @@ Public Class frmConstructor_Main
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden! ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False RECORD_CHANGED = False
Update_Record_Label(Grid_RecordID) Update_Record_Label(Grid_RecordID)
Check_Rights()
End Select End Select
End If End If
Catch ex As Exception Catch ex As Exception