AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2020-04-28 09:38:32 +02:00
parent c131071e32
commit c7359a0c42
3 changed files with 109 additions and 147 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -120,4 +120,7 @@ Module ModuleRuntimeVariables
Public CONFIG As ConfigManager(Of ClassConfig) Public CONFIG As ConfigManager(Of ClassConfig)
Public GDPICTURE_LICENSE As String Public GDPICTURE_LICENSE As String
Public MyIndicies As List(Of String)
Public MyIndicies_Types As List(Of Integer)
End Module End Module

222
app/DD_PM_WINDREAM/frmAdministration.resx
View File

@ -264,6 +264,24 @@
<data name="&gt;&gt;gridAssignedUsers.ZOrder" xml:space="preserve"> <data name="&gt;&gt;gridAssignedUsers.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label20.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Left</value>
</data>
<data name="Label20.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="Label20.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label20.Text" xml:space="preserve">
<value>Zugeordnete Benutzer:</value>
</data>
<data name="Label20.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;Label20.Name" xml:space="preserve"> <data name="&gt;&gt;Label20.Name" xml:space="preserve">
<value>Label20</value> <value>Label20</value>
</data> </data>
@ -414,6 +432,24 @@
<data name="&gt;&gt;gridAvailableUsers.ZOrder" xml:space="preserve"> <data name="&gt;&gt;gridAvailableUsers.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label19.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Left</value>
</data>
<data name="Label19.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Label19.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="Label19.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label19.Text" xml:space="preserve">
<value>Verfügbare Benutzer:</value>
</data>
<data name="Label19.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;Label19.Name" xml:space="preserve"> <data name="&gt;&gt;Label19.Name" xml:space="preserve">
<value>Label19</value> <value>Label19</value>
</data> </data>
@ -483,66 +519,6 @@
<data name="&gt;&gt;SplitContainer_Profilzuordnung2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SplitContainer_Profilzuordnung2.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label20.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Left</value>
</data>
<data name="Label20.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="Label20.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label20.Text" xml:space="preserve">
<value>Zugeordnete Benutzer:</value>
</data>
<data name="Label20.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;Label20.Name" xml:space="preserve">
<value>Label20</value>
</data>
<data name="&gt;&gt;Label20.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label20.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Label20.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Label19.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Left</value>
</data>
<data name="Label19.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Label19.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="Label19.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label19.Text" xml:space="preserve">
<value>Verfügbare Benutzer:</value>
</data>
<data name="Label19.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;Label19.Name" xml:space="preserve">
<value>Label19</value>
</data>
<data name="&gt;&gt;Label19.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label19.Parent" xml:space="preserve">
<value>Panel2</value>
</data>
<data name="&gt;&gt;Label19.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value> <value>Fill</value>
</data> </data>
@ -606,6 +582,27 @@
<data name="&gt;&gt;gridAssignedGroups.ZOrder" xml:space="preserve"> <data name="&gt;&gt;gridAssignedGroups.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label22.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Left</value>
</data>
<data name="Label22.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label22.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Label22.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="Label22.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label22.Text" xml:space="preserve">
<value>Zugeordnete Gruppen:</value>
</data>
<data name="Label22.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;Label22.Name" xml:space="preserve"> <data name="&gt;&gt;Label22.Name" xml:space="preserve">
<value>Label22</value> <value>Label22</value>
</data> </data>
@ -708,6 +705,27 @@
<data name="&gt;&gt;gridAvailableGroups.ZOrder" xml:space="preserve"> <data name="&gt;&gt;gridAvailableGroups.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label23.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Left</value>
</data>
<data name="Label23.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label23.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Label23.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="Label23.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label23.Text" xml:space="preserve">
<value>Verfügbare Gruppen:</value>
</data>
<data name="Label23.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;Label23.Name" xml:space="preserve"> <data name="&gt;&gt;Label23.Name" xml:space="preserve">
<value>Label23</value> <value>Label23</value>
</data> </data>
@ -777,72 +795,6 @@
<data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label22.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Left</value>
</data>
<data name="Label22.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label22.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Label22.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="Label22.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label22.Text" xml:space="preserve">
<value>Zugeordnete Gruppen:</value>
</data>
<data name="Label22.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;Label22.Name" xml:space="preserve">
<value>Label22</value>
</data>
<data name="&gt;&gt;Label22.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label22.Parent" xml:space="preserve">
<value>Panel3</value>
</data>
<data name="&gt;&gt;Label22.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Label23.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Left</value>
</data>
<data name="Label23.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label23.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Label23.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 25</value>
</data>
<data name="Label23.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="Label23.Text" xml:space="preserve">
<value>Verfügbare Gruppen:</value>
</data>
<data name="Label23.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;Label23.Name" xml:space="preserve">
<value>Label23</value>
</data>
<data name="&gt;&gt;Label23.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label23.Parent" xml:space="preserve">
<value>Panel4</value>
</data>
<data name="&gt;&gt;Label23.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="NAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="NAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
</metadata> </metadata>
@ -3500,6 +3452,15 @@
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Profil-Verwaltung</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Finale Indexe</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value> <value>Start</value>
</data> </data>
@ -3536,15 +3497,6 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Profil-Verwaltung</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Finale Indexe</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve"> <data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value> <value>RibbonPage2</value>
</data> </data>

31
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -13,8 +13,7 @@ Public Class frmAdministration
Dim formloaded As Boolean Dim formloaded As Boolean
Private INSERT_ACTIVE As Boolean = False Private INSERT_ACTIVE As Boolean = False
Dim MyIndicies As List(Of String)
Dim MyIndicies_Types As List(Of Integer)
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
formloaded = False formloaded = False
UNSAVED_CHANGES_PROFILE = False UNSAVED_CHANGES_PROFILE = False
@ -83,11 +82,19 @@ Public Class frmAdministration
Exit Sub Exit Sub
End If End If
Try Try
Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text) MyIndicies_Types = New List(Of Integer)
If indexe IsNot Nothing Then MyIndicies = New List(Of String)
For Each index As String In indexe MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
If MyIndicies IsNot Nothing Then
Dim i As Integer = 0
For Each index As String In MyIndicies
Dim _vektorString As Boolean = False Dim _vektorString As Boolean = False
Select Case WINDREAM.GetTypeOfIndex(index) Dim oIndexType = WINDREAM.GetTypeOfIndex(i)
i += 1
MyIndicies_Types.Add(oIndexType)
Select Case oIndexType
Case 4097 Case 4097
_vektorString = True _vektorString = True
Case 36865 Case 36865
@ -102,12 +109,12 @@ Public Class frmAdministration
Next Next
End If End If
MyIndicies_Types = New List(Of Integer) 'MyIndicies_Types = New List(Of Integer)
MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList() 'MyIndicies = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList()
For Each i In MyIndicies 'For Each i In MyIndicies
Dim type = WINDREAM.GetTypeOfIndex(i) ' Dim type = WINDREAM.GetTypeOfIndex(i)
MyIndicies_Types.Add(type) ' MyIndicies_Types.Add(type)
Next 'Next
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Error in GetIndices windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") MsgBox("Error in GetIndices windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")