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

MS: Anpassungen massenänderungen

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-06-06 14:13:08 +02:00
parent 603ff5cd68
commit 4a4ff4e87d
14 changed files with 2025 additions and 1778 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

214
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb Normal file
View File

@ -0,0 +1,214 @@
Public Class ClassFinalizeDoc
Public Shared Function Write_Final_Metadata()
Try
Dim _error As Boolean = False
If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then
'Jetzt finale Indexe setzen
If LogErrorsOnly = False Then ClassLogger.Add(" >> working final indices for doc: " & CURRENT_WMFILE.aName, False)
For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
Dim value As String = dr.Item("VALUE").ToString
Dim INDEXNAME = dr.Item("INDEXNAME").ToString
If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
If LogErrorsOnly = False Then ClassLogger.Add(" >> indexing with dynamic sql...", False)
Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
' Regulären Ausdruck zum Auslesen der 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(SQL_COMMAND)
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3)
Dim wertWD = CURRENT_WMFILE.GetVariableValue(WDINDEXNAME)
If Not IsNothing(wertWD) Then
SQL_COMMAND = SQL_COMMAND.ToString.Replace(element.Value, wertWD)
Else
ClassLogger.Add(">>Attention: indexvalue is invalid", False)
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
End Try
Next
Dim dynamic_value = ClassDatabase.Execute_Scalar(SQL_COMMAND, MyConnectionString, True)
If Not IsNothing(dynamic_value) Then
value = dynamic_value
Else
Continue For
End If
Else
If value.StartsWith("v") Then
Select Case dr.Item("VALUE").ToString
Case "vDate"
value = Now.ToShortDateString
Case "vUserName"
value = Environment.UserName
Case Else
value = dr.Item("VALUE")
End Select
End If
End If
Dim result() As String
ReDim Preserve result(0)
result(0) = value
If INDEXNAME.StartsWith("[%VKT") Then
Dim PM_String = Return_PM_VEKTOR(value, INDEXNAME)
'Hier muss nun separat als Vektorfeld indexiert werden
If Indexiere_VektorfeldPM(PM_String, CURRENT_PROFILE_VEKTOR_LOG) = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False)
Else
MsgBox("Unexpected error in finalindexing vektorvalue - check the log", MsgBoxStyle.Critical)
_error = True
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> now indexing..", False)
If Indexiere_File(INDEXNAME, result) = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT", False)
If LogErrorsOnly = False Then ClassLogger.Add("")
'Nun das Logging
If CURRENT_PROFILE_VEKTOR_LOG <> "" Then
Dim logstr = Return_LOGString(value, "DDFINALINDEX", INDEXNAME)
Indexiere_VektorfeldPM(logstr, CURRENT_PROFILE_VEKTOR_LOG)
End If
Else
MsgBox("Unexpected error in final index - check the log", MsgBoxStyle.Critical)
_error = True
End If
End If
If _error = True Then
Exit For
End If
Next
If _error = True Then
Return False
Else
Return True
End If
Else
Return True
End If
Catch ex As Exception
ClassLogger.Add(">> unexpected error in Write_Final_Metadata: " & ex.Message.ToString, True)
Return False
End Try
End Function
Private Shared Function Indexiere_File(idxxname As String, idxvalue As Object)
Dim File_indexiert As Boolean = False
Try
'Die Arrays vorbereiten
Dim arrIndex() As String = Nothing
Dim arrValue() As String = Nothing
arrIndex = Nothing
arrValue = Nothing
'Den Indexnamen übergeben
ReDim Preserve arrIndex(0)
arrIndex(0) = idxxname
'Das Array der Idnexwerte überprüfen
If idxvalue Is Nothing = False Then
If idxvalue.Length() > 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
Dim anzahl As Integer = 0
For Each indexvalue As String In idxvalue
ReDim Preserve arrValue(anzahl)
arrValue(anzahl) = indexvalue
anzahl += 1
Next
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
ReDim Preserve arrValue(0)
arrValue(0) = idxvalue(0).ToString
End If
Dim _windreamPM As New ClassPMWindream
'Jetzt das eigentliche Indexieren der Datei
File_indexiert = _windreamPM.RunIndexing(CURRENT_WMFILE, arrIndex, arrValue)
Return File_indexiert
End If
Catch ex As Exception
ClassLogger.Add(">> Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)
Return Err()
End Try
End Function
Private Shared Function Indexiere_VektorfeldPM(input As String, NameVectorfield As String)
Dim _success As Boolean = True
Dim Anzahl As Integer = 0
Dim myInputArr As String()
'Jeden Wert des Vektorfeldes durchlaufen
Dim wertWD = CURRENT_WMFILE.GetVariableValue(NameVectorfield)
If wertWD Is Nothing = False Then
'Es wird gegen ein Vektorfeld nachindexiert
If wertWD.GetType.ToString.Contains("System.Object") Then
'es handelt sich um ein Vektorfeld - Zuweisen der Indexwerte des Vektorfeldes zu Array
For Each obj As Object In wertWD
If obj Is Nothing = False Then
'Das Array anpassen
ReDim Preserve myInputArr(Anzahl)
'Den Wert im Array speichern
myInputArr(Anzahl) = obj.ToString
Anzahl += 1
End If
Next
End If
'Das Array anpassen
ReDim Preserve myInputArr(Anzahl)
'und den letzten Wert übergeben
myInputArr(Anzahl) = input
Else
'Das Array anpassen
ReDim Preserve myInputArr(Anzahl)
'und den letzten Wert übergeben
myInputArr(Anzahl) = input
End If
If myInputArr.Length > 0 Then
'Jetzt die Datei indexieren
If Indexiere_File(NameVectorfield, myInputArr) = False Then
_success = False
'errmessage = "Fehler beim Indexieren Vektorfeld '" & NameVKTIndex & "' - ERROR: " & idxerr_message
End If
End If
Return _success
End Function
Private Shared Function Return_PM_VEKTOR(input As String, VKTBezeichner As String)
Dim PM_String As String
Try
Dim Bezeichner As String = VKTBezeichner.Replace("[%VKT", "")
PM_String = "DD-PM#" & Bezeichner & "#" & input & "#" & Environment.UserName & "#" & Now.ToString
Catch ex As Exception
ClassLogger.Add(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True)
PM_String = "DD-PM ERROR: " & ex.Message
End Try
Return PM_String
End Function
Private Shared Function Return_LOGString(input As String, old As String, indexname As String)
Dim PM_String As String
Try
If old = "DDFINALINDEX" Then
PM_String = "DD-PMlog-FINAL" & "#" & indexname & "#" & input & "#" & Environment.UserName & "#" & Now.ToString
Else
PM_String = "DD-PMlog-CHG" & "#" & indexname & "#" & "NEW: '" & input & "' - OLD: '" & old & "'" & "#" & Environment.UserName & "#" & Now.ToString
End If
Catch ex As Exception
ClassLogger.Add(">> Fehler in Return_LOGString: " & ex.Message, True)
PM_String = "DD-PM ERROR: " & ex.Message
End Try
Return PM_String
End Function
End Class

5
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -155,6 +155,7 @@
<ItemGroup>
<Compile Include="ClassAnnotation.vb" />
<Compile Include="ClassControlCreator.vb" />
<Compile Include="ClassFinalizeDoc.vb" />
<Compile Include="ClassInit.vb" />
<Compile Include="ClassLogger.vb" />
<Compile Include="ClassPatterns.vb" />
@ -612,6 +613,10 @@
</ItemGroup>
<ItemGroup>
<Content Include="PM_ohne_slogan_128px.ico" />
<None Include="Resources\shape_square_go.png" />
<None Include="Resources\Checked-outforEdit_Color_13297.png" />
<None Include="Resources\Settings.png" />
<None Include="Resources\WorkItem_16xMD.png" />
<None Include="Resources\ampel-rot.png" />
<None Include="Resources\ampel-gruen.png" />
<None Include="Resources\ampel-gelb.png" />

8
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -1,13 +1,16 @@
Module ModuleRuntimeVariables
Imports WINDREAMLib
Module ModuleRuntimeVariables
' Diese Werte müssen später zur Laufzeit geladen werden
Public CURRENT_ProfilGUID As Integer
Public CURRENT_ProfilName As String
Public CURRENT_PROFILE_VEKTOR_LOG As String
Public CURRENT_HTML_DOC As String
Public CURRENT_DOC_GUID As Integer
Public CURRENT_DOC_ID As Integer
Public CURRENT_JUMP_DOC_GUID As Integer
Public CURRENT_WMFILE As WMObject
Public CURRENT_DOC_PATH As String
Public ERROR_STATE = ""
@ -37,6 +40,9 @@
Public CURRENT_CLICKED_PROFILE_ID As Integer = 0
Public CURRENT_CLICKED_PROFILE_TITLE As String
Public CURRENT_DT_FINAL_INDEXING As DataTable
Public CURRENT_DT_PROFILE As DataTable
Public CURRENT_CONTROL_ID As Integer
Public errormessage As String

40
app/DD_PM_WINDREAM/My Project/Resources.Designer.vb generated
View File

@ -210,6 +210,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Checked_outforEdit_Color_13297() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Checked-outforEdit_Color_13297", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -640,6 +650,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Settings() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Settings", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property shape_square_go() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("shape_square_go", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -700,6 +730,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property WorkItem_16xMD() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("WorkItem_16xMD", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

16
app/DD_PM_WINDREAM/My Project/Resources.resx
View File

@ -142,12 +142,18 @@
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ampel-rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="group_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\group_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_purple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_purple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="PM_mit_slogan1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\PM_mit_slogan.JPG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -157,6 +163,9 @@
<data name="zoom_in" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="application_form_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -292,6 +301,9 @@
<data name="ampel-gelb" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-gelb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="WorkItem_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WorkItem_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="user" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -319,7 +331,7 @@
<data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ampel-rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="shape_square_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
app/DD_PM_WINDREAM/Resources/Checked-outforEdit_Color_13297.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 216 B

BIN
app/DD_PM_WINDREAM/Resources/Settings.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.8 KiB

BIN
app/DD_PM_WINDREAM/Resources/WorkItem_16xMD.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 370 B

BIN
app/DD_PM_WINDREAM/Resources/shape_square_go.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 566 B

173
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -24,8 +24,6 @@ Partial Class frmMain
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Dim GridFormatRule1 As DevExpress.XtraGrid.GridFormatRule = New DevExpress.XtraGrid.GridFormatRule()
Dim FormatConditionRuleValue1 As DevExpress.XtraEditors.FormatConditionRuleValue = New DevExpress.XtraEditors.FormatConditionRuleValue()
Me.SplitContainerDashboard = New System.Windows.Forms.SplitContainer()
Me.SplitContainerTop = New System.Windows.Forms.SplitContainer()
Me.ChartTopLeft = New DevExpress.XtraCharts.ChartControl()
@ -58,6 +56,8 @@ Partial Class frmMain
Me.tsslblLastSysnc = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblmessage = New System.Windows.Forms.ToolStripStatusLabel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl()
Me.GridView_Docs = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.lblViewType = New System.Windows.Forms.Label()
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup()
@ -66,12 +66,11 @@ Partial Class frmMain
Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup()
Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem()
Me.NavBarItemDashboard = New DevExpress.XtraNavBar.NavBarItem()
Me.GridControlProfile = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem()
Me.CMFileStart = New System.Windows.Forms.ToolStripMenuItem()
Me.MarkierteDateienAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TabellenlayoutZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GridViewProfile = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.VWPM_PROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -104,11 +103,11 @@ Partial Class frmMain
Me.ToolStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsNavPane.SuspendLayout()
CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout()
CType(Me.GridViewProfile, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPM_PROFILE_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -122,12 +121,10 @@ Partial Class frmMain
'
'SplitContainerDashboard.Panel1
'
resources.ApplyResources(Me.SplitContainerDashboard.Panel1, "SplitContainerDashboard.Panel1")
Me.SplitContainerDashboard.Panel1.Controls.Add(Me.SplitContainerTop)
'
'SplitContainerDashboard.Panel2
'
resources.ApplyResources(Me.SplitContainerDashboard.Panel2, "SplitContainerDashboard.Panel2")
Me.SplitContainerDashboard.Panel2.Controls.Add(Me.SplitContainerBottom)
'
'SplitContainerTop
@ -137,13 +134,11 @@ Partial Class frmMain
'
'SplitContainerTop.Panel1
'
resources.ApplyResources(Me.SplitContainerTop.Panel1, "SplitContainerTop.Panel1")
Me.SplitContainerTop.Panel1.Controls.Add(Me.ChartTopLeft)
Me.SplitContainerTop.Panel1.Controls.Add(Me.ToolStripTopLeft)
'
'SplitContainerTop.Panel2
'
resources.ApplyResources(Me.SplitContainerTop.Panel2, "SplitContainerTop.Panel2")
Me.SplitContainerTop.Panel2.Controls.Add(Me.ChartTopRight)
Me.SplitContainerTop.Panel2.Controls.Add(Me.ToolStripTopRight)
'
@ -155,8 +150,8 @@ Partial Class frmMain
'
'ToolStripTopLeft
'
resources.ApplyResources(Me.ToolStripTopLeft, "ToolStripTopLeft")
Me.ToolStripTopLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
resources.ApplyResources(Me.ToolStripTopLeft, "ToolStripTopLeft")
Me.ToolStripTopLeft.Name = "ToolStripTopLeft"
'
'ChartTopRight
@ -167,8 +162,8 @@ Partial Class frmMain
'
'ToolStripTopRight
'
resources.ApplyResources(Me.ToolStripTopRight, "ToolStripTopRight")
Me.ToolStripTopRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
resources.ApplyResources(Me.ToolStripTopRight, "ToolStripTopRight")
Me.ToolStripTopRight.Name = "ToolStripTopRight"
'
'SplitContainerBottom
@ -178,13 +173,11 @@ Partial Class frmMain
'
'SplitContainerBottom.Panel1
'
resources.ApplyResources(Me.SplitContainerBottom.Panel1, "SplitContainerBottom.Panel1")
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ChartBottomLeft)
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripBottomLeft)
'
'SplitContainerBottom.Panel2
'
resources.ApplyResources(Me.SplitContainerBottom.Panel2, "SplitContainerBottom.Panel2")
Me.SplitContainerBottom.Panel2.Controls.Add(Me.ChartBottomRight)
Me.SplitContainerBottom.Panel2.Controls.Add(Me.ToolStripBottomRight)
'
@ -196,8 +189,8 @@ Partial Class frmMain
'
'ToolStripBottomLeft
'
resources.ApplyResources(Me.ToolStripBottomLeft, "ToolStripBottomLeft")
Me.ToolStripBottomLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
resources.ApplyResources(Me.ToolStripBottomLeft, "ToolStripBottomLeft")
Me.ToolStripBottomLeft.Name = "ToolStripBottomLeft"
'
'ChartBottomRight
@ -208,8 +201,8 @@ Partial Class frmMain
'
'ToolStripBottomRight
'
resources.ApplyResources(Me.ToolStripBottomRight, "ToolStripBottomRight")
Me.ToolStripBottomRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
resources.ApplyResources(Me.ToolStripBottomRight, "ToolStripBottomRight")
Me.ToolStripBottomRight.Name = "ToolStripBottomRight"
'
'ImageListProfile
@ -263,41 +256,41 @@ Partial Class frmMain
'
'ToolStripSeparator2
'
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
'
'ToolStripButton2
'
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.information
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
Me.ToolStripButton2.Name = "ToolStripButton2"
'
'ToolStripButton1
'
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Einstellungen6
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
Me.ToolStripButton1.Name = "ToolStripButton1"
'
'ToolStripSeparator1
'
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
Me.ToolStripSeparator1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'tstrpbtn_Config
'
resources.ApplyResources(Me.tstrpbtn_Config, "tstrpbtn_Config")
Me.tstrpbtn_Config.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tstrpbtn_Config.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2
resources.ApplyResources(Me.tstrpbtn_Config, "tstrpbtn_Config")
Me.tstrpbtn_Config.Name = "tstrpbtn_Config"
'
'tsbtnrefresh
'
resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh")
Me.tsbtnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh")
Me.tsbtnrefresh.Name = "tsbtnrefresh"
'
'StatusStrip1
@ -308,63 +301,83 @@ Partial Class frmMain
'
'tsstlblUser
'
resources.ApplyResources(Me.tsstlblUser, "tsstlblUser")
Me.tsstlblUser.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsstlblUser.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.user
Me.tsstlblUser.Name = "tsstlblUser"
resources.ApplyResources(Me.tsstlblUser, "tsstlblUser")
'
'tslblLicenses
'
resources.ApplyResources(Me.tslblLicenses, "tslblLicenses")
Me.tslblLicenses.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblLicenses.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key
Me.tslblLicenses.Name = "tslblLicenses"
resources.ApplyResources(Me.tslblLicenses, "tslblLicenses")
'
'tslblUserLoggedin
'
resources.ApplyResources(Me.tslblUserLoggedin, "tslblUserLoggedin")
Me.tslblUserLoggedin.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblUserLoggedin.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key
Me.tslblUserLoggedin.Name = "tslblUserLoggedin"
resources.ApplyResources(Me.tslblUserLoggedin, "tslblUserLoggedin")
'
'tslblVersion
'
resources.ApplyResources(Me.tslblVersion, "tslblVersion")
Me.tslblVersion.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblVersion.Name = "tslblVersion"
resources.ApplyResources(Me.tslblVersion, "tslblVersion")
'
'tsslblLastSysnc
'
resources.ApplyResources(Me.tsslblLastSysnc, "tsslblLastSysnc")
Me.tsslblLastSysnc.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
resources.ApplyResources(Me.tsslblLastSysnc, "tsslblLastSysnc")
Me.tsslblLastSysnc.Name = "tsslblLastSysnc"
'
'tslblmessage
'
resources.ApplyResources(Me.tslblmessage, "tslblmessage")
Me.tslblmessage.BackColor = System.Drawing.Color.Yellow
Me.tslblmessage.Name = "tslblmessage"
resources.ApplyResources(Me.tslblmessage, "tslblmessage")
'
'Panel1
'
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Controls.Add(Me.GridControl_Docs)
Me.Panel1.Controls.Add(Me.lblViewType)
Me.Panel1.Controls.Add(Me.NavBarControl1)
Me.Panel1.Controls.Add(Me.ToolStrip1)
Me.Panel1.Controls.Add(Me.GridControlProfile)
Me.Panel1.Controls.Add(Me.SplitContainerDashboard)
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1"
'
'GridControl_Docs
'
resources.ApplyResources(Me.GridControl_Docs, "GridControl_Docs")
Me.GridControl_Docs.ContextMenuStrip = Me.ContextMenuGrid
Me.GridControl_Docs.MainView = Me.GridView_Docs
Me.GridControl_Docs.Name = "GridControl_Docs"
Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Docs})
'
'GridView_Docs
'
Me.GridView_Docs.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView_Docs.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView_Docs.GridControl = Me.GridControl_Docs
Me.GridView_Docs.Name = "GridView_Docs"
Me.GridView_Docs.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView_Docs.OptionsBehavior.Editable = False
Me.GridView_Docs.OptionsSelection.MultiSelect = True
Me.GridView_Docs.OptionsView.ColumnAutoWidth = False
Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True
'
'lblViewType
'
resources.ApplyResources(Me.lblViewType, "lblViewType")
@ -373,13 +386,12 @@ Partial Class frmMain
'
'NavBarControl1
'
resources.ApplyResources(Me.NavBarControl1, "NavBarControl1")
Me.NavBarControl1.ActiveGroup = Me.NavBarGroupProfiles
Me.NavBarControl1.ContextMenuStrip = Me.cmsNavPane
resources.ApplyResources(Me.NavBarControl1, "NavBarControl1")
Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroupProfiles, Me.NavBarGroupMore})
Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview, Me.NavBarItemDashboard})
Me.NavBarControl1.Name = "NavBarControl1"
Me.NavBarControl1.OptionsNavPane.CollapsedWidth = CType(resources.GetObject("resource.CollapsedWidth"), Integer)
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = CType(resources.GetObject("resource.ExpandedWidth"), Integer)
Me.NavBarControl1.View = New DevExpress.XtraNavBar.ViewInfo.StandardSkinExplorerBarViewInfoRegistrator("DevExpress Style")
'
@ -391,15 +403,15 @@ Partial Class frmMain
'
'cmsNavPane
'
resources.ApplyResources(Me.cmsNavPane, "cmsNavPane")
Me.cmsNavPane.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiValidationProfil})
Me.cmsNavPane.Name = "cmsNavPane"
resources.ApplyResources(Me.cmsNavPane, "cmsNavPane")
'
'tsmiValidationProfil
'
resources.ApplyResources(Me.tsmiValidationProfil, "tsmiValidationProfil")
Me.tsmiValidationProfil.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1
Me.tsmiValidationProfil.Name = "tsmiValidationProfil"
resources.ApplyResources(Me.tsmiValidationProfil, "tsmiValidationProfil")
'
'NavBarGroupMore
'
@ -412,9 +424,6 @@ Partial Class frmMain
'NavBarItemOverview
'
Me.NavBarItemOverview.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
Me.NavBarItemOverview.Appearance.FontSizeDelta = CType(resources.GetObject("NavBarItemOverview.Appearance.FontSizeDelta"), Integer)
Me.NavBarItemOverview.Appearance.FontStyleDelta = CType(resources.GetObject("NavBarItemOverview.Appearance.FontStyleDelta"), System.Drawing.FontStyle)
Me.NavBarItemOverview.Appearance.GradientMode = CType(resources.GetObject("NavBarItemOverview.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.NavBarItemOverview.Appearance.Image = CType(resources.GetObject("NavBarItemOverview.Appearance.Image"), System.Drawing.Image)
Me.NavBarItemOverview.Appearance.Options.UseImage = True
resources.ApplyResources(Me.NavBarItemOverview, "NavBarItemOverview")
@ -425,91 +434,34 @@ Partial Class frmMain
resources.ApplyResources(Me.NavBarItemDashboard, "NavBarItemDashboard")
Me.NavBarItemDashboard.Name = "NavBarItemDashboard"
'
'GridControlProfile
'
resources.ApplyResources(Me.GridControlProfile, "GridControlProfile")
Me.GridControlProfile.ContextMenuStrip = Me.ContextMenuGrid
Me.GridControlProfile.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlProfile.EmbeddedNavigator.AccessibleDescription")
Me.GridControlProfile.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlProfile.EmbeddedNavigator.AccessibleName")
Me.GridControlProfile.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlProfile.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
Me.GridControlProfile.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlProfile.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
Me.GridControlProfile.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlProfile.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image)
Me.GridControlProfile.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlProfile.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
Me.GridControlProfile.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlProfile.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
Me.GridControlProfile.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlProfile.EmbeddedNavigator.MaximumSize"), System.Drawing.Size)
Me.GridControlProfile.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlProfile.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
Me.GridControlProfile.EmbeddedNavigator.ToolTip = resources.GetString("GridControlProfile.EmbeddedNavigator.ToolTip")
Me.GridControlProfile.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlProfile.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
Me.GridControlProfile.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlProfile.EmbeddedNavigator.ToolTipTitle")
Me.GridControlProfile.MainView = Me.GridViewProfile
Me.GridControlProfile.Name = "GridControlProfile"
Me.GridControlProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfile})
'
'ContextMenuGrid
'
resources.ApplyResources(Me.ContextMenuGrid, "ContextMenuGrid")
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.TabellenlayoutZurücksetzenToolStripMenuItem})
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.MarkierteDateienAbschliessenToolStripMenuItem, Me.TabellenlayoutZurücksetzenToolStripMenuItem})
Me.ContextMenuGrid.Name = "ContextMenuStrip1"
resources.ApplyResources(Me.ContextMenuGrid, "ContextMenuGrid")
'
'CMGroupStart
'
resources.ApplyResources(Me.CMGroupStart, "CMGroupStart")
Me.CMGroupStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go
Me.CMGroupStart.Name = "CMGroupStart"
resources.ApplyResources(Me.CMGroupStart, "CMGroupStart")
'
'CMFileStart
'
resources.ApplyResources(Me.CMFileStart, "CMFileStart")
Me.CMFileStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.email_go
Me.CMFileStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.shape_square_go
Me.CMFileStart.Name = "CMFileStart"
resources.ApplyResources(Me.CMFileStart, "CMFileStart")
'
'MarkierteDateienAbschliessenToolStripMenuItem
'
Me.MarkierteDateienAbschliessenToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Checked_outforEdit_Color_13297
Me.MarkierteDateienAbschliessenToolStripMenuItem.Name = "MarkierteDateienAbschliessenToolStripMenuItem"
resources.ApplyResources(Me.MarkierteDateienAbschliessenToolStripMenuItem, "MarkierteDateienAbschliessenToolStripMenuItem")
'
'TabellenlayoutZurücksetzenToolStripMenuItem
'
resources.ApplyResources(Me.TabellenlayoutZurücksetzenToolStripMenuItem, "TabellenlayoutZurücksetzenToolStripMenuItem")
Me.TabellenlayoutZurücksetzenToolStripMenuItem.Name = "TabellenlayoutZurücksetzenToolStripMenuItem"
'
'GridViewProfile
'
Me.GridViewProfile.Appearance.GroupPanel.BackColor = CType(resources.GetObject("GridViewProfile.Appearance.GroupPanel.BackColor"), System.Drawing.Color)
Me.GridViewProfile.Appearance.GroupPanel.Font = CType(resources.GetObject("GridViewProfile.Appearance.GroupPanel.Font"), System.Drawing.Font)
Me.GridViewProfile.Appearance.GroupPanel.FontSizeDelta = CType(resources.GetObject("GridViewProfile.Appearance.GroupPanel.FontSizeDelta"), Integer)
Me.GridViewProfile.Appearance.GroupPanel.FontStyleDelta = CType(resources.GetObject("GridViewProfile.Appearance.GroupPanel.FontStyleDelta"), System.Drawing.FontStyle)
Me.GridViewProfile.Appearance.GroupPanel.GradientMode = CType(resources.GetObject("GridViewProfile.Appearance.GroupPanel.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.GridViewProfile.Appearance.GroupPanel.Image = CType(resources.GetObject("GridViewProfile.Appearance.GroupPanel.Image"), System.Drawing.Image)
Me.GridViewProfile.Appearance.GroupPanel.Options.UseBackColor = True
Me.GridViewProfile.Appearance.GroupPanel.Options.UseFont = True
Me.GridViewProfile.Appearance.GroupRow.Font = CType(resources.GetObject("GridViewProfile.Appearance.GroupRow.Font"), System.Drawing.Font)
Me.GridViewProfile.Appearance.GroupRow.FontSizeDelta = CType(resources.GetObject("GridViewProfile.Appearance.GroupRow.FontSizeDelta"), Integer)
Me.GridViewProfile.Appearance.GroupRow.FontStyleDelta = CType(resources.GetObject("GridViewProfile.Appearance.GroupRow.FontStyleDelta"), System.Drawing.FontStyle)
Me.GridViewProfile.Appearance.GroupRow.GradientMode = CType(resources.GetObject("GridViewProfile.Appearance.GroupRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.GridViewProfile.Appearance.GroupRow.Image = CType(resources.GetObject("GridViewProfile.Appearance.GroupRow.Image"), System.Drawing.Image)
Me.GridViewProfile.Appearance.GroupRow.Options.UseFont = True
Me.GridViewProfile.Appearance.Row.Font = CType(resources.GetObject("GridViewProfile.Appearance.Row.Font"), System.Drawing.Font)
Me.GridViewProfile.Appearance.Row.FontSizeDelta = CType(resources.GetObject("GridViewProfile.Appearance.Row.FontSizeDelta"), Integer)
Me.GridViewProfile.Appearance.Row.FontStyleDelta = CType(resources.GetObject("GridViewProfile.Appearance.Row.FontStyleDelta"), System.Drawing.FontStyle)
Me.GridViewProfile.Appearance.Row.GradientMode = CType(resources.GetObject("GridViewProfile.Appearance.Row.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
Me.GridViewProfile.Appearance.Row.Image = CType(resources.GetObject("GridViewProfile.Appearance.Row.Image"), System.Drawing.Image)
Me.GridViewProfile.Appearance.Row.Options.UseFont = True
resources.ApplyResources(Me.GridViewProfile, "GridViewProfile")
GridFormatRule1.Name = "Format0"
GridFormatRule1.Rule = FormatConditionRuleValue1
Me.GridViewProfile.FormatRules.Add(GridFormatRule1)
Me.GridViewProfile.GridControl = Me.GridControlProfile
Me.GridViewProfile.Name = "GridViewProfile"
Me.GridViewProfile.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewProfile.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewProfile.OptionsBehavior.Editable = False
Me.GridViewProfile.OptionsBehavior.ReadOnly = True
Me.GridViewProfile.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewProfile.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewProfile.OptionsSelection.EnableAppearanceFocusedRow = False
Me.GridViewProfile.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewProfile.OptionsSelection.MultiSelect = True
Me.GridViewProfile.OptionsView.ColumnAutoWidth = False
Me.GridViewProfile.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewProfile.OptionsView.ShowAutoFilterRow = True
Me.GridViewProfile.OptionsView.ShowGroupPanel = False
Me.GridViewProfile.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
resources.ApplyResources(Me.TabellenlayoutZurücksetzenToolStripMenuItem, "TabellenlayoutZurücksetzenToolStripMenuItem")
'
'NotifyIcon1
'
@ -595,11 +547,11 @@ Partial Class frmMain
Me.StatusStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsNavPane.ResumeLayout(False)
CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuGrid.ResumeLayout(False)
CType(Me.GridViewProfile, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPM_PROFILE_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@ -637,8 +589,6 @@ Partial Class frmMain
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents tslblVersion As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents TimerReminder As System.Windows.Forms.Timer
Friend WithEvents GridControlProfile As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewProfile As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ContextMenuGrid As ContextMenuStrip
Friend WithEvents CMGroupStart As ToolStripMenuItem
Friend WithEvents CMFileStart As ToolStripMenuItem
@ -665,4 +615,7 @@ Partial Class frmMain
Friend WithEvents ToolStripBottomRight As ToolStrip
Friend WithEvents TabellenlayoutZurücksetzenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tslblmessage As ToolStripStatusLabel
Friend WithEvents MarkierteDateienAbschliessenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GridControl_Docs As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView_Docs As DevExpress.XtraGrid.Views.Grid.GridView
End Class

2880
app/DD_PM_WINDREAM/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

459
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -26,6 +26,7 @@ Public Class frmMain
Private GridCursorLocation As Point
Private GRID_LOAD_TYPE As String = "OVERVIEW"
Private GRID_INV_COL_REMOVED As Boolean = False
Private _windream As New ClassWindream_allgemein
Private Sub frmProfiles_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
@ -42,7 +43,7 @@ Public Class frmMain
My.Settings.frmMainSize = Me.Size
My.Settings.frmMainPosition = Me.Location
My.Settings.Save()
SaveLayout()
SaveGridLayout()
Catch ex As Exception
ClassLogger.Add("Error in Save FormLayout: " & ex.Message)
End Try
@ -183,29 +184,29 @@ Public Class frmMain
End Try
End Function
Private Function GetXML_LayoutName()
Dim Filename As String = String.Format("GridViewProfiles_UserLayout_{0}.xml", GRID_LOAD_TYPE)
Dim Filename As String = String.Format("GridView_Docs_UserLayout_{0}.xml", GRID_LOAD_TYPE)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
Private Sub SaveLayout()
Private Sub SaveGridLayout()
Try
Dim xml As String = GetXML_LayoutName()
Dim xmlDefault = xml & ".default"
If IO.File.Exists(xmlDefault) = False Then
GridViewProfile.SaveLayoutToXml(xmlDefault, OptionsLayoutBase.FullLayout)
GridView_Docs.SaveLayoutToXml(xmlDefault, OptionsLayoutBase.FullLayout)
End If
GridViewProfile.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
Catch ex As Exception
ClassLogger.Add("Error while saving layout: " & ex.Message)
ClassLogger.Add("Error while saving GridLayout: " & ex.Message)
End Try
End Sub
Private Sub RestoreLayout()
Try
Dim xml As String = GetXML_LayoutName()
GridViewProfile.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
GridView_Docs.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
Catch ex As Exception
ClassLogger.Add("Error while restoring layout: " & ex.Message)
End Try
@ -217,7 +218,7 @@ Public Class frmMain
Dim xmlDefault = xml & ".default"
IO.File.Delete(xml)
GridViewProfile.RestoreLayoutFromXml(xmlDefault, OptionsLayoutBase.FullLayout)
GridView_Docs.RestoreLayoutFromXml(xmlDefault, OptionsLayoutBase.FullLayout)
Catch ex As Exception
ClassLogger.Add("Error while resetting layout: " & ex.Message)
End Try
@ -262,7 +263,7 @@ Public Class frmMain
Private Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs)
' Das aktuelle Layout speichern, bevor das neue geladen wird
' und GRID_LOAD_TYPE gesetzt wird.
SaveLayout()
SaveGridLayout()
Dim _tag = e.Link.Item.Tag
If Not IsNothing(_tag) Then
@ -282,14 +283,6 @@ Public Class frmMain
End If
End Sub
Sub Item_LinkClicked(sender As Object, e As NavBarLinkEventArgs)
Try
Catch ex As Exception
ClassLogger.Add("Item_LinkClicked - Error: " & ex.Message)
MsgBox("Unexpected Error in Item_LinkClicked - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Load_Profiles_for_User()
Try
Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T, TBPM_PROFILE_USER T1, TBDD_USER T2 WHERE T.GUID = T1.PROFIL_ID AND T1.USER_ID = T2.GUID AND UPPER(T2.USERNAME) = UPPER('{0}')", Environment.UserName)
@ -299,18 +292,18 @@ Public Class frmMain
End Try
End Sub
Sub Layout_Single_Profile()
If GridControlProfile.Visible = False Then
GridControlProfile.Visible = True
If GridControl_Docs.Visible = False Then
GridControl_Docs.Visible = True
SplitContainerDashboard.Visible = False
End If
End Sub
Sub Layout_Dashboard()
Try
If GridControlProfile.Visible = True Then
If GridControl_Docs.Visible = True Then
GridControl_Docs.Visible = False
Dim groupCount As Integer
Dim charts As List(Of ChartControl)
GridControlProfile.Visible = False
SplitContainerDashboard.Visible = True
Dim DT_CHARTS As DataTable
Dim sql = "SELECT * FROM TBPM_CHART"
@ -434,7 +427,6 @@ Public Class frmMain
Return series
End Function
Private Function Select_Chart(index As Integer)
Select Case index
Case 0
@ -469,7 +461,6 @@ Public Class frmMain
End Sub
Sub Load_single_Profile()
Try
Load_Profiles_for_User()
Layout_Single_Profile()
@ -506,9 +497,9 @@ Public Class frmMain
End Sub
Sub Create_Basic_View()
GridControlProfile.DataSource = Nothing
GridControl_Docs.DataSource = Nothing
Try
GridViewProfile.Columns.Clear()
GridView_Docs.Columns.Clear()
Catch ex As Exception
End Try
@ -539,32 +530,30 @@ Public Class frmMain
End Select
Next
GridControlProfile.DataSource = CURR_DT_PROFILEGRID
'GridControlProfile.ForceInitialize()
GridControl_Docs.DataSource = CURR_DT_PROFILEGRID
'GridControlDocRow.ForceInitialize()
RestoreLayout()
GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
GridViewProfile.Columns.Item("GUID").Visible = False
GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
GridViewProfile.Columns.Item("DOC_ID").Visible = False
GridViewProfile.Columns.Item("TL_STATE").Visible = False
GridViewProfile.Columns.Item("ICON").MaxWidth = 24
GridViewProfile.Columns.Item("ICON").MinWidth = 24
GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridViewProfile.Columns.Item("ICON").Fixed = FixedStyle.Left
GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
GridView_Docs.Columns.Item("DOC_ID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
End Sub
Private Function GridView_CheckInvalidColumns() As Boolean
Dim Columns_Removed = False
GRID_INV_COL_REMOVED = False
Try
For Each grid_column As GridColumn In GridViewProfile.Columns
For Each grid_column As GridColumn In GridView_Docs.Columns
Dim GridDXCaption = grid_column.Caption
Dim GridDXTextCaption = grid_column.GetTextCaption
Dim GridDXColumnEditName = grid_column.ColumnEditName
@ -617,19 +606,19 @@ Public Class frmMain
Create_Basic_View()
Try
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For I = 0 To GridViewProfile.GroupCount - 1
Dim v = GridViewProfile.GroupedColumns(I).ToString
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For I = 0 To GridView_Docs.GroupCount - 1
Dim v = GridView_Docs.GroupedColumns(I).ToString
Dim ii = Nothing
GridViewProfile.GroupedColumns(I).Tag = GridViewProfile.Columns.Item("PROFILE_ID")
GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next
GridViewProfile.OptionsBehavior.AutoExpandAllGroups = True
GridViewProfile.OptionsView.ShowGroupedColumns = False
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsView.ShowGroupedColumns = False
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
End Try
@ -639,9 +628,9 @@ Public Class frmMain
Else
GridControlProfile.DataSource = Nothing
GridControl_Docs.DataSource = Nothing
Try
GridViewProfile.Columns.Clear()
GridView_Docs.Columns.Clear()
Catch ex As Exception
End Try
@ -665,10 +654,6 @@ Public Class frmMain
Return False
End Try
End Function
Private Sub ListViewProfile_DoubleClick(sender As System.Object, e As System.EventArgs)
End Sub
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
Try
@ -727,9 +712,7 @@ Public Class frmMain
Private Sub ToolStripButton2_Click_1(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click
Load_Profile_items()
Decide_Load()
End Sub
Private Sub ToolStripButton2_Click_2(sender As Object, e As EventArgs)
@ -764,9 +747,7 @@ Public Class frmMain
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
End Sub
Private Sub GridViewProfile_DoubleClick(sender As Object, e As EventArgs) Handles GridViewProfile.DoubleClick
Item_Scope()
End Sub
Sub Load_Profil_from_Grid(ID As Integer)
Try
Me.Visible = False
@ -785,87 +766,6 @@ Public Class frmMain
Decide_Load()
End Sub
Private Sub GridViewProfile_CustomDrawGroupRow(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewProfile.CustomDrawGroupRow
Try
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
Dim view As GridView = sender
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
info.GroupText = info.GroupValueText
Dim _color As String = "Grey"
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
_color = row.Item("PROFILE_GROUP_COLOR")
End If
Next
Select Case _color
Case "Red"
info.Appearance.BackColor = Color.LightSalmon
Case "Green"
info.Appearance.BackColor = Color.LightGreen
Case "Yellow"
info.Appearance.BackColor = Color.LightYellow
Case "Grey"
info.Appearance.BackColor = Color.LightGray
End Select
End If
Catch ex As Exception
End Try
End Sub
Private Sub GridViewProfile_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewProfile.RowStyle
Dim view As GridView = TryCast(sender, GridView)
Dim row As DataRow = view.GetDataRow(e.RowHandle)
If IsNothing(row) Then
Exit Sub
End If
Dim state = row.Item("TL_STATE")
e.HighPriority = True
Select Case state
Case 1
e.Appearance.BackColor = Color.LightSalmon
Case 2
e.Appearance.BackColor = Color.LightGoldenrodYellow
Case 3
e.Appearance.BackColor = Color.LightGreen
End Select
End Sub
Private Sub GridViewProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewProfile.MouseDown
Dim view As GridView = sender
Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
GridCursorLocation = e.Location
' wenn in eine Group Row Doppelt geklickt wurde..
If hi.InGroupRow Then
' Ein/Ausklappen verhindern
DXMouseEventArgs.GetMouseArgs(e).Handled = True
GridViewItem_Clicked = "GROUP"
'Dim info = hi.Column.FieldName
'Dim info1 = hi.ToString
Dim msg = ""
ElseIf hi.InDataRow Then
GridViewItem_Clicked = "ROW"
Else
GridViewItem_Clicked = Nothing
End If
End Sub
Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening
CMFileStart.Enabled = False
CMGroupStart.Enabled = False
@ -883,18 +783,18 @@ Public Class frmMain
Private Sub Item_Scope()
Try
CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridViewProfile.CalcHitInfo(GridCursorLocation)
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim groupRowText
Dim PROFIL_ID
If hitInfo.InGroupRow Then
GridViewItem_Clicked = "GROUP"
groupRowText = GridViewProfile.GetGroupRowDisplayText(hitInfo.RowHandle)
PROFIL_ID = GridViewProfile.GetRowCellValue(GridViewProfile.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewProfile.Columns("PROFILE_ID"))
groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
ElseIf hitInfo.InDataRow Then
GridViewItem_Clicked = "ROW"
If GRID_LOAD_TYPE = "OVERVIEW" Then
groupRowText = GridViewProfile.GetGroupRowDisplayText(GridViewProfile.GetParentRowHandle(hitInfo.RowHandle))
PROFIL_ID = GridViewProfile.GetRowCellValue(GridViewProfile.GetDataRowHandleByGroupRowHandle(GridViewProfile.GetParentRowHandle(hitInfo.RowHandle)), GridViewProfile.Columns("PROFILE_ID"))
groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle))
PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
Else
PROFIL_ID = CURRENT_CLICKED_PROFILE_ID
End If
@ -926,10 +826,10 @@ Public Class frmMain
Load_Profil_from_Grid(PROFIL_ID)
ElseIf hitInfo.InDataRow Then
Dim DOC_GUID = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("GUID"))
Dim DOC_ID = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("DOC_ID"))
Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID"))
If IsNothing(DOC_ID) Then Exit Sub
Dim DOC_PATH = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("FULL_FILE_PATH"))
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH"))
'Checking if table really contains one record with profile-id and docid
expression = expression & " AND DOC_ID = " & DOC_ID
Dim TEMP_TABLE = CURR_DT_PROFILEGRID
@ -957,6 +857,76 @@ Public Class frmMain
MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function Init_windream()
Try
_windream = New ClassWindream_allgemein
_windream.Init()
If LogErrorsOnly = False Then ClassLogger.Add(" >> windream initialized", False)
Return True
Catch ex As Exception
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
ClassLogger.Add(">> Unexpected error in Init_windream: " & ex.Message, True)
Return False
End Try
End Function
Private Sub MarkierteDateienAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkierteDateienAbschliessenToolStripMenuItem.Click
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
If Init_windream() = True Then
For Each rowhandle As Integer In selectedRows
Dim PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
If PROFILE_ID <> CURRENT_ProfilGUID Then
CURRENT_ProfilGUID = PROFILE_ID
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX")
End If
If CURRENT_PROFILE_VEKTOR_LOG = "" Then
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX")
End If
Dim DOC_ID = GridView_Docs.GetRowCellValue(rowhandle, "DOC_ID")
CURRENT_DOC_ID = DOC_ID
Dim DOC_PATH = GridView_Docs.GetRowCellValue(rowhandle, "FULL_FILE_PATH")
CURRENT_DOC_PATH = DOC_PATH
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
Dim WM_DOC = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, DOC_PATH.Substring(2))
If Not IsNothing(WM_DOC) Then
CURRENT_WMFILE = WM_DOC
If ClassFinalizeDoc.Write_Final_Metadata = True Then
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID)
ClassDatabase.Execute_non_Query(sql)
End If
End If
Next
End If
Load_Profile_items()
Decide_Load()
'Dim Row As DataRow
'Dim Rows() As DataRow
'Dim I As Integer
'ReDim Rows(GridView_Docs.SelectedRowsCount - 1)
'For I = 0 To GridView_Docs.SelectedRowsCount - 1
' Rows(I) = GridView_Docs.GetDataRow(GridView_Docs.GetSelectedRows(I))
'Next
'GridView_Docs.BeginSort()
'Try
' For Each Row In Rows
' Dim DOC_ID = GridView_Docs.GetRowCellValue(Row, GridView_Docs.Columns("DOC_ID")) ' GridView_Docs.GetRowCellValue(Row, "DOC_ID").ToString()
' Row.Delete()
' Next
'Finally
' GridView_Docs.EndSort()
'End Try
End Sub
Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
Item_Scope()
End Sub
@ -964,7 +934,7 @@ Public Class frmMain
Private Sub NavBarItemOverview_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemOverview.LinkClicked
' Das aktuelle Layout speichern, bevor das neue geladen wird
' und GRID_LOAD_TYPE gesetzt wird.
SaveLayout()
SaveGridLayout()
Load_Grid_Overview()
End Sub
Sub Load_Grid_Overview()
@ -1009,9 +979,9 @@ Public Class frmMain
If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
lblViewType.Text = "Aktuell keine Workflowdaten vorhanden!"
'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
GridControlProfile.DataSource = Nothing
GridControl_Docs.DataSource = Nothing
Try
GridViewProfile.Columns.Clear()
GridView_Docs.Columns.Clear()
Catch ex As Exception
End Try
@ -1044,42 +1014,43 @@ Public Class frmMain
End Select
Next
GridControlProfile.DataSource = CURR_DT_PROFILEGRID
'GridControlProfile.ForceInitialize()
GridControl_Docs.DataSource = CURR_DT_PROFILEGRID
'GridControlDocRow.ForceInitialize()
' GridControl1.DataSource = CURR_DT_PROFILEGRID
Dim Columns_Removed = GridView_CheckInvalidColumns()
RestoreLayout()
Try
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For I = 0 To GridViewProfile.GroupCount - 1
Dim v = GridViewProfile.GroupedColumns(I).ToString
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For I = 0 To GridView_Docs.GroupCount - 1
Dim v = GridView_Docs.GroupedColumns(I).ToString
Dim ii = Nothing
GridViewProfile.GroupedColumns(I).Tag = GridViewProfile.Columns.Item("PROFILE_ID")
GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next
GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
GridViewProfile.Columns.Item("GUID").Visible = False
GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
GridViewProfile.Columns.Item("DOC_ID").Visible = False
GridViewProfile.Columns.Item("TL_STATE").Visible = False
GridViewProfile.Columns.Item("ICON").MaxWidth = 24
GridViewProfile.Columns.Item("ICON").MinWidth = 24
GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridViewProfile.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False
GridView_Docs.Columns.Item("FULL_FILE_PATH").Visible = False
GridView_Docs.Columns.Item("DOC_ID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False
GridView_Docs.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridViewProfile.OptionsBehavior.AutoExpandAllGroups = True
GridViewProfile.OptionsView.ShowGroupedColumns = False
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsView.ShowGroupedColumns = False
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
End Try
Try
For Each grid_column As GridColumn In GridViewProfile.Columns
For Each grid_column As GridColumn In GridView_Docs.Columns
Dim GridDXCaption = grid_column.Caption
Dim GridDXTextCaption = grid_column.GetTextCaption
Dim GridDXColumnEditName = grid_column.ColumnEditName
@ -1112,12 +1083,12 @@ Public Class frmMain
'GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
SaveLayout()
'GridView_Docs.SaveLayoutToXml(GetXML_LayoutName())
SaveGridLayout()
Else
GridControlProfile.DataSource = Nothing
GridControl_Docs.DataSource = Nothing
Try
GridViewProfile.Columns.Clear()
GridView_Docs.Columns.Clear()
Catch ex As Exception
End Try
@ -1152,4 +1123,132 @@ Public Class frmMain
Private Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
ResetLayout()
End Sub
Private Sub GridView1_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs)
Try
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
Dim view As GridView = sender
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
info.GroupText = info.GroupValueText
Dim _color As String = "Grey"
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
_color = row.Item("PROFILE_GROUP_COLOR")
End If
Next
Select Case _color
Case "Red"
info.Appearance.BackColor = Color.LightSalmon
Case "Green"
info.Appearance.BackColor = Color.LightGreen
Case "Yellow"
info.Appearance.BackColor = Color.LightYellow
Case "Grey"
info.Appearance.BackColor = Color.LightGray
End Select
End If
Catch ex As Exception
End Try
End Sub
Private Sub GridView_Docs_RowClick(sender As Object, e As RowClickEventArgs) Handles GridView_Docs.RowClick
If (ModifierKeys = Keys.Control) Then
GridView_Docs.OptionsSelection.MultiSelect = True
Else
GridView_Docs.OptionsSelection.MultiSelect = False
End If
End Sub
Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
Item_Scope()
End Sub
Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow
Try
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
Dim view As GridView = sender
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
info.GroupText = info.GroupValueText
Dim _color As String = "Grey"
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
_color = row.Item("PROFILE_GROUP_COLOR")
End If
Next
Select Case _color
Case "Red"
info.Appearance.BackColor = Color.LightSalmon
Case "Green"
info.Appearance.BackColor = Color.LightGreen
Case "Yellow"
info.Appearance.BackColor = Color.LightYellow
Case "Grey"
info.Appearance.BackColor = Color.LightGray
End Select
End If
Catch ex As Exception
End Try
End Sub
Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown
Dim view As GridView = sender
Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
GridCursorLocation = e.Location
' wenn in eine Group Row Doppelt geklickt wurde..
If hi.InGroupRow Then
' Ein/Ausklappen verhindern
DXMouseEventArgs.GetMouseArgs(e).Handled = True
GridViewItem_Clicked = "GROUP"
'Dim info = hi.Column.FieldName
'Dim info1 = hi.ToString
Dim msg = ""
ElseIf hi.InDataRow Then
GridViewItem_Clicked = "ROW"
Else
GridViewItem_Clicked = Nothing
End If
End Sub
'Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle
' Dim view As GridView = TryCast(sender, GridView)
' Dim row As DataRow = view.GetDataRow(e.RowHandle)
' If IsNothing(row) Then
' Exit Sub
' End If
' Dim state = row.Item("TL_STATE")
' e.HighPriority = True
' Select Case state
' Case 1
' ' e.Appearance.BackColor = Color.LightSalmon
' Case 2
' ' e.Appearance.BackColor = Color.LightGoldenrodYellow
' Case 3
' ' e.Appearance.BackColor = Color.LightGreen
' End Select
'End Sub
End Class

7
app/DD_PM_WINDREAM/frmProfileDesigner.vb
View File

@ -110,6 +110,13 @@ Public Class frmProfileDesigner
Me.TBPM_TYPETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_TYPE)
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER)
If tabctrl_Profilkonfig.SelectedIndex = 1 Then
CURRENT_OBJECTTYPE = cmbObjekttypen.Text
If TabControl2.SelectedIndex = 1 Then
Refresh_Final_indexe()
End If
End If
Catch ex As Exception
MsgBox("Fehler bei Refresh_Profildaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try

1
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2052,6 +2052,7 @@ Public Class frmValidator
Next
End If
'Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
If _error = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Tabelle updaten und co", False)
'Das Dokument freigeben und als editiert markieren