MS_05072016
This commit is contained in:
SchreiberM
parent
96bf81b88c
commit
b9388d045a
@ -31,9 +31,8 @@ Public Class ClassControlCommandsUI
|
||||
|
||||
Dim sw As New SW("LoadControls")
|
||||
|
||||
Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE SCREEN_ID = {0} AND FORM_ID = {1}", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
|
||||
Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE SCREEN_ID = {0} AND FORM_ID = {1} AND CONTROL_VISIBLE = 1", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID)
|
||||
|
||||
' "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
|
||||
|
||||
For Each dr As DataRow In DT.Rows
|
||||
|
||||
@ -11,18 +11,25 @@ Public Class Class_DOC_SEARCH
|
||||
If Type = "ENTITY" Then
|
||||
SQL_DOC_SEARCH = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH WHERE [ENTITY_ID] = {0}", ENTITY_ID)
|
||||
Else
|
||||
Dim OPTION1 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION1_CTRL")
|
||||
Dim OPTION2 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION2_CTRL")
|
||||
Dim OPTION3 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION3_CTRL")
|
||||
Dim OPTION4 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION4_CTRL")
|
||||
Dim OPTION5 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION5_CTRL")
|
||||
Dim OPTION1
|
||||
Dim OPTION2
|
||||
Dim OPTION3
|
||||
Dim OPTION4
|
||||
Dim OPTION5
|
||||
If DT_RESULTLIST_OPTIONS.Rows.Count = 0 Then
|
||||
OPTION1 = 0
|
||||
OPTION2 = 0
|
||||
OPTION3 = 0
|
||||
OPTION4 = 0
|
||||
OPTION5 = 0
|
||||
Else
|
||||
OPTION1 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION1_CTRL")
|
||||
OPTION2 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION2_CTRL")
|
||||
OPTION3 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION3_CTRL")
|
||||
OPTION4 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION4_CTRL")
|
||||
OPTION5 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION5_CTRL")
|
||||
End If
|
||||
|
||||
SQL_DOC_SEARCH = String.Format("SELECT * ," & _
|
||||
"(CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}) " & _
|
||||
"WHEN {1} THEN " & _
|
||||
@ -44,6 +51,7 @@ Public Class Class_DOC_SEARCH
|
||||
End If
|
||||
Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
|
||||
112
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
generated
112
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
generated
@ -81,8 +81,8 @@ Partial Class frmConstructor_Main
|
||||
Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
|
||||
Me.ListViewFollowUps = New System.Windows.Forms.ListView()
|
||||
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
|
||||
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
|
||||
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
|
||||
Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button()
|
||||
@ -971,11 +971,18 @@ Partial Class frmConstructor_Main
|
||||
'
|
||||
'tsslblStatus
|
||||
'
|
||||
Me.tsslblStatus.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.tsslblStatus.BorderStyle = System.Windows.Forms.Border3DStyle.Etched
|
||||
Me.tsslblStatus.Name = "tsslblStatus"
|
||||
resources.ApplyResources(Me.tsslblStatus, "tsslblStatus")
|
||||
'
|
||||
'tsslblRecord
|
||||
'
|
||||
Me.tsslblRecord.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.tsslblRecord.Name = "tsslblRecord"
|
||||
resources.ApplyResources(Me.tsslblRecord, "tsslblRecord")
|
||||
'
|
||||
@ -1034,6 +1041,7 @@ Partial Class frmConstructor_Main
|
||||
Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
|
||||
Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
|
||||
Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing
|
||||
Me.TableAdapterManager.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = Nothing
|
||||
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
|
||||
Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing
|
||||
Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing
|
||||
@ -1072,57 +1080,57 @@ Partial Class frmConstructor_Main
|
||||
Me.Controls.Add(Me.StatusStrip_Main)
|
||||
Me.Controls.Add(Me.NavPane)
|
||||
Me.Name = "frmConstructor_Main"
|
||||
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainerMain.ResumeLayout(False)
|
||||
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainerTop.ResumeLayout(False)
|
||||
Me.CMSEntity.ResumeLayout(False)
|
||||
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuGrid.ResumeLayout(False)
|
||||
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TCDetails.ResumeLayout(False)
|
||||
Me.TabDetails.ResumeLayout(False)
|
||||
Me.TabWindream.ResumeLayout(False)
|
||||
Me.TabWindream.PerformLayout()
|
||||
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStripResultFiles.ResumeLayout(False)
|
||||
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ToolStripDokumente.ResumeLayout(False)
|
||||
Me.ToolStripDokumente.PerformLayout()
|
||||
Me.TabFollowUp.ResumeLayout(False)
|
||||
Me.TabFollowUp.PerformLayout()
|
||||
Me.grpbxFU_Profile.ResumeLayout(False)
|
||||
Me.grpbxFU_Profile.PerformLayout()
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.GroupBox4.PerformLayout()
|
||||
Me.TabPos.ResumeLayout(False)
|
||||
Me.TabPos.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.BindingNavigatorPOS.ResumeLayout(False)
|
||||
Me.BindingNavigatorPOS.PerformLayout()
|
||||
Me.ToolStripEdit.ResumeLayout(False)
|
||||
Me.ToolStripEdit.PerformLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.StatusStrip_Main.ResumeLayout(False)
|
||||
Me.StatusStrip_Main.PerformLayout()
|
||||
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.SplitContainerMain.ResumeLayout(false)
|
||||
CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.SplitContainerTop.ResumeLayout(false)
|
||||
Me.CMSEntity.ResumeLayout(false)
|
||||
CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.ContextMenuGrid.ResumeLayout(false)
|
||||
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.TCDetails.ResumeLayout(false)
|
||||
Me.TabDetails.ResumeLayout(false)
|
||||
Me.TabWindream.ResumeLayout(false)
|
||||
Me.TabWindream.PerformLayout
|
||||
CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.ContextMenuStripResultFiles.ResumeLayout(false)
|
||||
CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.ToolStripDokumente.ResumeLayout(false)
|
||||
Me.ToolStripDokumente.PerformLayout
|
||||
Me.TabFollowUp.ResumeLayout(false)
|
||||
Me.TabFollowUp.PerformLayout
|
||||
Me.grpbxFU_Profile.ResumeLayout(false)
|
||||
Me.grpbxFU_Profile.PerformLayout
|
||||
Me.GroupBox4.ResumeLayout(false)
|
||||
Me.GroupBox4.PerformLayout
|
||||
Me.TabPos.ResumeLayout(false)
|
||||
Me.TabPos.PerformLayout
|
||||
Me.Panel1.ResumeLayout(false)
|
||||
CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.BindingNavigatorPOS.ResumeLayout(false)
|
||||
Me.BindingNavigatorPOS.PerformLayout
|
||||
Me.ToolStripEdit.ResumeLayout(false)
|
||||
Me.ToolStripEdit.PerformLayout
|
||||
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.SplitContainer1.ResumeLayout(false)
|
||||
CType(Me.BindingSource_Entity,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.StatusStrip_Main.ResumeLayout(false)
|
||||
Me.StatusStrip_Main.PerformLayout
|
||||
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
|
||||
CType(Me.TBPMO_FILES_USERBindingSource,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.ResumeLayout(false)
|
||||
Me.PerformLayout
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane
|
||||
Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton
|
||||
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
|
||||
|
||||
@ -319,7 +319,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>788, 237</value>
|
||||
<value>795, 237</value>
|
||||
</data>
|
||||
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@ -388,7 +388,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 345</value>
|
||||
<value>1077, 347</value>
|
||||
</data>
|
||||
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@ -406,7 +406,7 @@
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 345</value>
|
||||
<value>1077, 347</value>
|
||||
</data>
|
||||
<data name="TabDetails.Text" xml:space="preserve">
|
||||
<value>Detailansicht</value>
|
||||
@ -424,7 +424,7 @@
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1083, 373</value>
|
||||
<value>1083, 378</value>
|
||||
</data>
|
||||
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
@ -505,7 +505,7 @@
|
||||
<value>192, 255, 192</value>
|
||||
</data>
|
||||
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 320</value>
|
||||
<value>1077, 322</value>
|
||||
</data>
|
||||
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>7</value>
|
||||
@ -566,7 +566,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 25</value>
|
||||
<value>1077, 25</value>
|
||||
</data>
|
||||
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>2</value>
|
||||
@ -587,7 +587,7 @@
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 345</value>
|
||||
<value>1077, 347</value>
|
||||
</data>
|
||||
<data name="TabWindream.Text" xml:space="preserve">
|
||||
<value>windream-Dateien</value>
|
||||
@ -1018,7 +1018,7 @@
|
||||
<value>2</value>
|
||||
</data>
|
||||
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 345</value>
|
||||
<value>1077, 349</value>
|
||||
</data>
|
||||
<data name="TabFollowUp.Text" xml:space="preserve">
|
||||
<value>Wiedervorlage</value>
|
||||
@ -1045,7 +1045,7 @@
|
||||
<value>Cyan</value>
|
||||
</data>
|
||||
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 320</value>
|
||||
<value>1077, 324</value>
|
||||
</data>
|
||||
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>0</value>
|
||||
@ -1069,7 +1069,7 @@
|
||||
<value>0, 25</value>
|
||||
</data>
|
||||
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 320</value>
|
||||
<value>1077, 324</value>
|
||||
</data>
|
||||
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>2</value>
|
||||
@ -1244,7 +1244,7 @@
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 25</value>
|
||||
<value>1077, 25</value>
|
||||
</data>
|
||||
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
@ -1273,7 +1273,7 @@
|
||||
</value>
|
||||
</data>
|
||||
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1081, 345</value>
|
||||
<value>1077, 349</value>
|
||||
</data>
|
||||
<data name="TabPos.Text" xml:space="preserve">
|
||||
<value>Positionen</value>
|
||||
@ -1521,7 +1521,7 @@
|
||||
<value>Panel2</value>
|
||||
</data>
|
||||
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1083, 647</value>
|
||||
<value>1083, 645</value>
|
||||
</data>
|
||||
<data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>2</value>
|
||||
@ -1554,7 +1554,7 @@
|
||||
<value>Panel2</value>
|
||||
</data>
|
||||
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1083, 647</value>
|
||||
<value>1083, 645</value>
|
||||
</data>
|
||||
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>4</value>
|
||||
@ -1635,19 +1635,19 @@
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<data name="tsslblStatus.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>53, 17</value>
|
||||
<value>57, 19</value>
|
||||
</data>
|
||||
<data name="tsslblStatus.Text" xml:space="preserve">
|
||||
<value>tssStatus</value>
|
||||
</data>
|
||||
<data name="tsslblRecord.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>58, 17</value>
|
||||
<value>62, 19</value>
|
||||
</data>
|
||||
<data name="tsslblRecord.Text" xml:space="preserve">
|
||||
<value>tssRecord</value>
|
||||
</data>
|
||||
<data name="tsslblWorkflowstate.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>137, 17</value>
|
||||
<value>137, 19</value>
|
||||
</data>
|
||||
<data name="tsslblWorkflowstate.Text" xml:space="preserve">
|
||||
<value>ToolStripStatusLabel1</value>
|
||||
@ -1656,10 +1656,10 @@
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="StatusStrip_Main.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 687</value>
|
||||
<value>0, 685</value>
|
||||
</data>
|
||||
<data name="StatusStrip_Main.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1083, 22</value>
|
||||
<value>1083, 24</value>
|
||||
</data>
|
||||
<data name="StatusStrip_Main.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>1</value>
|
||||
|
||||
@ -52,6 +52,8 @@ Public Class frmConstructor_Main
|
||||
Private DT_TREEVIEW_CONFIGURATION As DataTable
|
||||
Private TREEVIEW_IMAGELIST As ImageList
|
||||
Private CONTROL_NAVIGATION As Boolean = False
|
||||
Private CONTROL_NAVIGATION_LOADED As Boolean = False
|
||||
|
||||
|
||||
Private EBENE2_PARENT_ID As Integer
|
||||
Private EBENE3_PARENT_ID As Integer
|
||||
@ -261,9 +263,8 @@ Public Class frmConstructor_Main
|
||||
Dim bimage() As Byte = row.Item("NODE_IMAGE")
|
||||
If Not IsDBNull(bimage) Then
|
||||
Dim Node_image = ByteArrayToBitmap(bimage)
|
||||
TREEVIEW_IMAGELIST.Images.Add(row.Item("TYPE_NODE"), Node_image)
|
||||
TREEVIEW_IMAGELIST.Images.Add("LEVEL#ENTITY" & row.Item("TYPE_NODE").ToString & row.Item("ENTITY_ID"), Node_image)
|
||||
End If
|
||||
|
||||
Next
|
||||
TreeViewMain.ImageList = TREEVIEW_IMAGELIST
|
||||
Catch ex As Exception
|
||||
@ -458,6 +459,9 @@ Public Class frmConstructor_Main
|
||||
End Function
|
||||
Private Function Get_Grid_Layout_Filename()
|
||||
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)")
|
||||
If CONTROL_NAVIGATION = True Then
|
||||
ACT_EBENE_STRING = "NODE_NAVIGATION"
|
||||
End If
|
||||
Dim EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
|
||||
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
|
||||
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
|
||||
@ -720,22 +724,22 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function Get_Grid_Row_Handle(value As String)
|
||||
Try
|
||||
Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(value))
|
||||
If rowHandle > 0 Then
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
grvwGrid.FocusedRowHandle = rowHandle
|
||||
ElseIf GRID_TYPE = GridType.Tiles Then
|
||||
grvwTiles.FocusedRowHandle = rowHandle
|
||||
Else
|
||||
grvwCarousel.FocusedRowHandle = rowHandle
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False)
|
||||
End Try
|
||||
End Function
|
||||
'Public Function Get_Grid_Row_Handle(value As String)
|
||||
' Try
|
||||
' Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(value))
|
||||
' If rowHandle > 0 Then
|
||||
' If GRID_TYPE = GridType.Grid Then
|
||||
' grvwGrid.FocusedRowHandle = rowHandle
|
||||
' ElseIf GRID_TYPE = GridType.Tiles Then
|
||||
' grvwTiles.FocusedRowHandle = rowHandle
|
||||
' Else
|
||||
' grvwCarousel.FocusedRowHandle = rowHandle
|
||||
' End If
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False)
|
||||
' End Try
|
||||
'End Function
|
||||
Public Function Get_Grid_Column_Count() As Integer
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
Return grvwGrid.Columns.Count
|
||||
@ -807,95 +811,101 @@ Public Class frmConstructor_Main
|
||||
e.Info.ImageIndex = -1
|
||||
End If
|
||||
End Sub
|
||||
Sub Column_Row_Handler()
|
||||
Sub Column_Row_Handler(Optional RECID As Integer = 0, Optional _navload As Boolean = False)
|
||||
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
Dim elapsed As Double
|
||||
If _FormClosing = True Then 'Or SaveRoutine_Active = True
|
||||
Exit Sub
|
||||
End If
|
||||
'Aussteigen, wenng erade die Entität gewechselt wird
|
||||
If ENTITY_LOADED = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
If RightMouse_Clicked Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
|
||||
If IsNothing(Grid_RecordID) Then
|
||||
Console.WriteLine("No Record ID selectable")
|
||||
Else
|
||||
If Grid_RecordID = 0 Then
|
||||
Console.WriteLine("Grid_RecordID = 0")
|
||||
If RECID = 0 Then
|
||||
If _FormClosing = True Then 'Or SaveRoutine_Active = True
|
||||
Exit Sub
|
||||
End If
|
||||
'Aussteigen, wenng erade die Entität gewechselt wird
|
||||
If ENTITY_LOADED = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
If RightMouse_Clicked Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
|
||||
If IsNothing(Grid_RecordID) Then
|
||||
Console.WriteLine("No Record ID selectable")
|
||||
Else
|
||||
If Grid_RecordID = RECORD_ID And ENTITY_RECORD_COUNT > 1 Then
|
||||
Exit Sub
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & Grid_RecordID.ToString & " - " & Now, False)
|
||||
'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
If IsTopFirstRow Then
|
||||
IsTopFirstRow = False
|
||||
'grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
|
||||
'grvwGrid.OptionsBehavior.Editable = Not IsTopFirstRow
|
||||
'grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = Not IsTopFirstRow
|
||||
'grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = Not IsTopFirstRow
|
||||
'grvwGrid.OptionsSelection.EnableAppearanceHideSelection = Not IsTopFirstRow
|
||||
End If
|
||||
ElseIf GRID_TYPE = GridType.Carousel Then
|
||||
If IsTopFirstRow Then
|
||||
IsTopFirstRow = False
|
||||
grvwCarousel.OptionsBehavior.Editable = Not IsTopFirstRow
|
||||
End If
|
||||
ElseIf GRID_TYPE = GridType.Tiles Then
|
||||
If IsTopFirstRow Then
|
||||
IsTopFirstRow = False
|
||||
grvwTiles.OptionsBehavior.Editable = Not IsTopFirstRow
|
||||
End If
|
||||
End If
|
||||
|
||||
'Wird jetzt bei BeforeRowChange überprüft
|
||||
'Check_Record_Changed()
|
||||
|
||||
DisableEditMode()
|
||||
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
|
||||
elapsed = sw.Elapsed.TotalSeconds
|
||||
sw.Stop()
|
||||
sw.Reset()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Precheck Row took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
sw.Start()
|
||||
' muss vor show selected record data kommen,
|
||||
' sodass die datasource für die angehakten werte existiert (checked list box)
|
||||
CtrlBuilder.WatchRecordChanges = False
|
||||
ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
|
||||
CtrlBuilder.WatchRecordChanges = True
|
||||
Show_Selected_Record_Data(Grid_RecordID, False)
|
||||
Dim sw1 As New Stopwatch
|
||||
sw1.Start()
|
||||
Check_Rights()
|
||||
elapsed = sw1.Elapsed.TotalSeconds
|
||||
sw1.Stop()
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Rights took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
If TCDetails.SelectedTabPage Is Nothing Then
|
||||
Exit Sub
|
||||
End If
|
||||
If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then
|
||||
Clear_GridPos_View()
|
||||
Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
|
||||
Load_Pos_Data()
|
||||
Load_POSGrid_Layout()
|
||||
End If
|
||||
|
||||
If RECORD_ID > 0 Then
|
||||
If RIGHT_ONLY_READ = False Then
|
||||
tsButtonEdit.Enabled = True
|
||||
End If
|
||||
Get_RecordCounts_Nodes()
|
||||
If Grid_RecordID = 0 Then
|
||||
Console.WriteLine("Grid_RecordID = 0")
|
||||
Else
|
||||
RECID = Grid_RecordID
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 Then
|
||||
Exit Sub
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & RECID.ToString & " - " & Now, False)
|
||||
'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
|
||||
If GRID_TYPE = GridType.Grid Then
|
||||
If IsTopFirstRow Then
|
||||
IsTopFirstRow = False
|
||||
'grvwGrid.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
|
||||
'grvwGrid.OptionsBehavior.Editable = Not IsTopFirstRow
|
||||
'grvwGrid.OptionsSelection.EnableAppearanceFocusedCell = Not IsTopFirstRow
|
||||
'grvwGrid.OptionsSelection.EnableAppearanceFocusedRow = Not IsTopFirstRow
|
||||
'grvwGrid.OptionsSelection.EnableAppearanceHideSelection = Not IsTopFirstRow
|
||||
End If
|
||||
ElseIf GRID_TYPE = GridType.Carousel Then
|
||||
If IsTopFirstRow Then
|
||||
IsTopFirstRow = False
|
||||
grvwCarousel.OptionsBehavior.Editable = Not IsTopFirstRow
|
||||
End If
|
||||
ElseIf GRID_TYPE = GridType.Tiles Then
|
||||
If IsTopFirstRow Then
|
||||
IsTopFirstRow = False
|
||||
grvwTiles.OptionsBehavior.Editable = Not IsTopFirstRow
|
||||
End If
|
||||
End If
|
||||
|
||||
'Wird jetzt bei BeforeRowChange überprüft
|
||||
'Check_Record_Changed()
|
||||
|
||||
DisableEditMode()
|
||||
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
|
||||
elapsed = sw.Elapsed.TotalSeconds
|
||||
sw.Stop()
|
||||
sw.Reset()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Precheck Row took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
sw.Start()
|
||||
' muss vor show selected record data kommen,
|
||||
' sodass die datasource für die angehakten werte existiert (checked list box)
|
||||
CtrlBuilder.WatchRecordChanges = False
|
||||
ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
|
||||
CtrlBuilder.WatchRecordChanges = True
|
||||
Show_Selected_Record_Data(RECID, False)
|
||||
Dim sw1 As New Stopwatch
|
||||
sw1.Start()
|
||||
Check_Rights()
|
||||
elapsed = sw1.Elapsed.TotalSeconds
|
||||
sw1.Stop()
|
||||
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Rights took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
If TCDetails.SelectedTabPage Is Nothing Then
|
||||
Exit Sub
|
||||
End If
|
||||
If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then
|
||||
Clear_GridPos_View()
|
||||
Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID")
|
||||
Load_Pos_Data()
|
||||
Load_POSGrid_Layout()
|
||||
End If
|
||||
|
||||
If RECORD_ID > 0 Then
|
||||
If RIGHT_ONLY_READ = False Then
|
||||
tsButtonEdit.Enabled = True
|
||||
End If
|
||||
If CONTROL_NAVIGATION = False Then
|
||||
Get_RecordCounts_Nodes()
|
||||
End If
|
||||
|
||||
End If
|
||||
'Liste der geänderten Control Values leeren
|
||||
CtrlBuilder.ControlsChanged.Clear()
|
||||
|
||||
@ -904,6 +914,9 @@ Public Class frmConstructor_Main
|
||||
Console.WriteLine("Column_Row_Handler took {0}ms to load", sw.ElapsedMilliseconds)
|
||||
sw.Reset()
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >>>> Column/Row Change took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
If CONTROL_NAVIGATION = True And _navload = False Then
|
||||
SearchNode(TreeViewMain.Nodes, RECORD_ID)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Check_Rights()
|
||||
@ -913,6 +926,8 @@ Public Class frmConstructor_Main
|
||||
tsmi_RecordDelete.Enabled = True
|
||||
MassenänderungToolStripMenuItem.Enabled = True
|
||||
DeleteToolStripMenuItem.Enabled = True
|
||||
UmbenennenToolStripMenuItem.Enabled = True
|
||||
DateiMitDatensatzVerknüpfenToolStripMenuItem.Enabled = True
|
||||
CopyToolStripMenuItem.Enabled = True
|
||||
RecordKopierenToolStripMenuItem.Enabled = True
|
||||
PropertiesToolStripMenuItem.Enabled = True
|
||||
@ -964,6 +979,8 @@ Public Class frmConstructor_Main
|
||||
tsButtonDelete.Enabled = False
|
||||
tsmi_RecordDelete.Enabled = False
|
||||
MassenänderungToolStripMenuItem.Enabled = False
|
||||
UmbenennenToolStripMenuItem.Enabled = False
|
||||
DateiMitDatensatzVerknüpfenToolStripMenuItem.Enabled = False
|
||||
PropertiesToolStripMenuItem.Enabled = False
|
||||
CopyToolStripMenuItem.Enabled = False
|
||||
DeleteToolStripMenuItem.Enabled = False
|
||||
@ -1049,16 +1066,76 @@ Public Class frmConstructor_Main
|
||||
Next
|
||||
TreeViewMain.Refresh()
|
||||
End Sub
|
||||
Private Sub NodeRecursive(ByVal n As TreeNode, searchRecord As Integer)
|
||||
Dim aNode As TreeNode
|
||||
For Each aNode In n.Nodes
|
||||
If Not IsNothing(aNode.Tag) Then
|
||||
If aNode.Tag.ToString.Contains("RECORD-ID") Then
|
||||
Dim Record = Return_RECORD_forTag(aNode.Tag)
|
||||
If IsNumeric(Record) And Record <> 0 And searchRecord = Record Then
|
||||
TreeViewMain.SelectedNode = aNode
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
NodeRecursive(aNode, searchRecord)
|
||||
Next
|
||||
End Sub
|
||||
Public Sub SearchNode(tncoll As TreeNodeCollection, searchRecord As Integer)
|
||||
Try
|
||||
Dim n As TreeNode
|
||||
For Each n In TreeViewMain.Nodes
|
||||
NodeRecursive(n, searchRecord)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Error in SearchNode: " & ex.Message, True)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub TreeViewMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
|
||||
DisableEditMode()
|
||||
SetSelectedNodeStyle(TreeViewMain.Nodes)
|
||||
If CONTROL_NAVIGATION = False Then
|
||||
SetSelectedNodeStyle(TreeViewMain.Nodes)
|
||||
|
||||
Else
|
||||
ACT_EBENE_STRING = "NODE_NAVIGATION"
|
||||
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
|
||||
If SelectedNode IsNot Nothing Then
|
||||
SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Bold)
|
||||
SelectedNode.Text = SelectedNode.Text
|
||||
End If
|
||||
End If
|
||||
|
||||
Load_Tree_View_Data()
|
||||
If CONTROL_NAVIGATION = True Then
|
||||
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
|
||||
If SelectedNode IsNot Nothing Then
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> NodeTag: " & SelectedNode.Tag.ToString, False)
|
||||
If SelectedNode.Tag.ToString.Contains("RECORD-ID") Then
|
||||
Dim Record = Return_RECORD_forTag(SelectedNode.Tag)
|
||||
If Record <> 0 Then
|
||||
Column_Row_Handler(Record, True)
|
||||
LocateRecordById(RECORD_ID)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
|
||||
If grvwGrid.Columns.Count > 0 Then
|
||||
Save_Grid_Layout()
|
||||
If CONTROL_NAVIGATION = False Then
|
||||
If grvwGrid.Columns.Count > 0 Then
|
||||
Save_Grid_Layout()
|
||||
End If
|
||||
Else
|
||||
If Not IsNothing(TreeViewMain.SelectedNode) Then
|
||||
TreeViewMain.SelectedNode.NodeFont = New Font(TreeViewMain.Font.FontFamily, TreeViewMain.Font.Size, FontStyle.Regular)
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@ -1083,11 +1160,24 @@ Public Class frmConstructor_Main
|
||||
Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
|
||||
Dim nodetext = foundRowsLevel0(i)("ID2")
|
||||
Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
|
||||
Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
|
||||
Dim LEVEL0_NODE As TreeNode
|
||||
LEVEL0_NODE = New TreeNode(nodetext)
|
||||
LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID
|
||||
LEVEL0_NODE.ImageIndex = 0
|
||||
LEVEL0_NODE.SelectedImageIndex = 0
|
||||
If Not IsDBNull(RECORD_ID) Then
|
||||
LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
|
||||
Else
|
||||
LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID
|
||||
End If
|
||||
|
||||
Dim index As Integer = 0
|
||||
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
|
||||
If img.Replace("LEVEL#ENTITY", "") = Type_node.ToString & LevelEntity.ToString Then
|
||||
Exit For
|
||||
End If
|
||||
index += 1
|
||||
Next
|
||||
LEVEL0_NODE.ImageIndex = index
|
||||
LEVEL0_NODE.SelectedImageIndex = index
|
||||
TreeViewMain.Nodes.Add(LEVEL0_NODE)
|
||||
'### LEVEL 1 laden #######
|
||||
Dim expressionLevel1 As String
|
||||
@ -1096,63 +1186,203 @@ Public Class frmConstructor_Main
|
||||
foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1)
|
||||
Dim j As Integer
|
||||
For j = 0 To foundRowsLevel1.GetUpperBound(0)
|
||||
Dim ID2 = foundRowsLevel1(j)("GUID")
|
||||
Dim LevelEntity2 = foundRowsLevel1(j)("ENTITY_ID")
|
||||
Dim controlID2 = foundRowsLevel1(j)("CONTROL_ID")
|
||||
Dim nodetext2 = foundRowsLevel1(j)("ID2")
|
||||
Dim ID1 = foundRowsLevel1(j)("GUID")
|
||||
Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
|
||||
Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
|
||||
Dim nodetext1 = foundRowsLevel1(j)("ID2")
|
||||
Dim Type_node1 = foundRowsLevel1(i)("TYPE_NODE")
|
||||
RECORD_ID = foundRowsLevel1(i)("RECORD_ID")
|
||||
' Node erstellen..
|
||||
Dim LEVEL1_NODE As TreeNode
|
||||
LEVEL1_NODE = New TreeNode(nodetext2)
|
||||
LEVEL1_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2
|
||||
LEVEL1_NODE.ImageIndex = 1
|
||||
LEVEL1_NODE.SelectedImageIndex = 1
|
||||
LEVEL1_NODE = New TreeNode(nodetext1)
|
||||
If Not IsDBNull(RECORD_ID) Then
|
||||
LEVEL1_NODE.Tag = LevelEntity1 & "CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString
|
||||
Else
|
||||
LEVEL1_NODE.Tag = LevelEntity1 & "CONTROL-ID" & controlID1.ToString & "#" & ID1
|
||||
End If
|
||||
|
||||
index = 0
|
||||
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
|
||||
If img.Replace("LEVEL#ENTITY", "") = Type_node1 & LevelEntity1.ToString Then
|
||||
Exit For
|
||||
End If
|
||||
index += 1
|
||||
Next
|
||||
LEVEL1_NODE.ImageIndex = index
|
||||
LEVEL1_NODE.SelectedImageIndex = index
|
||||
' ..und einfügen
|
||||
LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
|
||||
'### LEVEL 2 laden #######
|
||||
Dim expressionLevel2 As String
|
||||
expressionLevel2 = "TYPE_NODE = 2 AND PARENT_GUID = " & ID2 'Einschränkung auf Type und Parent_Guid
|
||||
expressionLevel2 = "TYPE_NODE = 2 AND PARENT_GUID = " & ID1 'Einschränkung auf Type und Parent_Guid
|
||||
Dim foundRowsLevel2() As DataRow
|
||||
foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2)
|
||||
Dim k As Integer
|
||||
For k = 0 To foundRowsLevel2.GetUpperBound(0)
|
||||
Dim ID3 = foundRowsLevel2(k)("GUID")
|
||||
Dim LevelEntity3 = foundRowsLevel2(k)("ENTITY_ID")
|
||||
Dim controlID3 = foundRowsLevel2(k)("CONTROL_ID")
|
||||
Dim nodetext3 = foundRowsLevel2(k)("ID2")
|
||||
Dim ID2 = foundRowsLevel2(k)("GUID")
|
||||
Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
|
||||
Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
|
||||
Dim nodetext2 = foundRowsLevel2(k)("ID2")
|
||||
RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
|
||||
' Node erstellen..
|
||||
Dim LEVEL2_NODE As TreeNode
|
||||
LEVEL2_NODE = New TreeNode(nodetext3)
|
||||
LEVEL2_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3
|
||||
LEVEL2_NODE.ImageIndex = 2
|
||||
LEVEL2_NODE.SelectedImageIndex = 2
|
||||
LEVEL2_NODE = New TreeNode(nodetext2)
|
||||
If Not IsDBNull(RECORD_ID) Then
|
||||
LEVEL2_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString
|
||||
Else
|
||||
LEVEL2_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2
|
||||
End If
|
||||
|
||||
index = 0
|
||||
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
|
||||
If img.Replace("LEVEL#ENTITY", "") = "2" & LevelEntity2.ToString Then
|
||||
Exit For
|
||||
End If
|
||||
index += 1
|
||||
Next
|
||||
LEVEL2_NODE.ImageIndex = index
|
||||
LEVEL2_NODE.SelectedImageIndex = index
|
||||
' ..und einfügen
|
||||
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
|
||||
'### LEVEL 3 laden #######
|
||||
Dim expressionLevel3 As String
|
||||
expressionLevel3 = "TYPE_NODE = 3 AND PARENT_GUID = " & ID3 'Einschränkung auf Type und Parent_Guid
|
||||
expressionLevel3 = "TYPE_NODE = 3 AND PARENT_GUID = " & ID2 'Einschränkung auf Type und Parent_Guid
|
||||
Dim foundRowsLevel3() As DataRow
|
||||
foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3)
|
||||
Dim l As Integer
|
||||
For l = 0 To foundRowsLevel3.GetUpperBound(0)
|
||||
Dim ID4 = foundRowsLevel3(k)("GUID")
|
||||
Dim LevelEntity4 = foundRowsLevel3(k)("ENTITY_ID")
|
||||
Dim controlID4 = foundRowsLevel3(k)("CONTROL_ID")
|
||||
Dim nodetext4 = foundRowsLevel3(k)("ID2")
|
||||
Dim ID3 = foundRowsLevel3(l)("GUID")
|
||||
Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
|
||||
Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
|
||||
Dim nodetext3 = foundRowsLevel3(l)("ID2")
|
||||
RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
|
||||
' Node erstellen..
|
||||
Dim LEVEL3_NODE As TreeNode
|
||||
LEVEL3_NODE = New TreeNode(nodetext4)
|
||||
LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID4.ToString & "#" & ID4
|
||||
LEVEL3_NODE.ImageIndex = 3
|
||||
LEVEL3_NODE.SelectedImageIndex = 3
|
||||
LEVEL3_NODE = New TreeNode(nodetext3)
|
||||
If Not IsDBNull(RECORD_ID) Then
|
||||
LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString
|
||||
Else
|
||||
LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3
|
||||
End If
|
||||
|
||||
index = 0
|
||||
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
|
||||
If img.Replace("LEVEL#ENTITY", "") = "3" & LevelEntity3.ToString Then
|
||||
Exit For
|
||||
End If
|
||||
index += 1
|
||||
Next
|
||||
LEVEL3_NODE.ImageIndex = index
|
||||
LEVEL3_NODE.SelectedImageIndex = index
|
||||
' ..und einfügen
|
||||
LEVEL2_NODE.Nodes.Add(LEVEL3_NODE)
|
||||
Next
|
||||
'### LEVEL 4 laden #######
|
||||
Dim expressionLevel4 As String
|
||||
expressionLevel4 = "TYPE_NODE = 4 AND PARENT_GUID = " & ID3 'Einschränkung auf Type und Parent_Guid
|
||||
Dim foundRowsLevel4() As DataRow
|
||||
foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4)
|
||||
Dim m As Integer
|
||||
For m = 0 To foundRowsLevel4.GetUpperBound(0)
|
||||
Dim ID5 = foundRowsLevel4(m)("GUID")
|
||||
Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID")
|
||||
Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
|
||||
Dim nodetext5 = foundRowsLevel4(m)("ID2")
|
||||
RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
|
||||
' Node erstellen..
|
||||
Dim LEVEL4_NODE As TreeNode
|
||||
LEVEL4_NODE = New TreeNode(nodetext5)
|
||||
If Not IsDBNull(RECORD_ID) Then
|
||||
LEVEL4_NODE.Tag = LevelEntity5 & "CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString
|
||||
Else
|
||||
LEVEL4_NODE.Tag = LevelEntity5 & "CONTROL-ID" & controlID5.ToString & "#" & ID5
|
||||
End If
|
||||
|
||||
Next
|
||||
'### Level 2 Ende ########
|
||||
Next
|
||||
index = 0
|
||||
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
|
||||
If img.Replace("LEVEL#ENTITY", "") = "4" & LevelEntity5.ToString Then
|
||||
Exit For
|
||||
End If
|
||||
index += 1
|
||||
Next
|
||||
LEVEL4_NODE.ImageIndex = index
|
||||
LEVEL4_NODE.SelectedImageIndex = index
|
||||
' ..und einfügen
|
||||
LEVEL3_NODE.Nodes.Add(LEVEL4_NODE)
|
||||
'### LEVEL 5 laden #######
|
||||
Dim expressionLevel5 As String
|
||||
expressionLevel5 = "TYPE_NODE = 5 AND PARENT_GUID = " & ID5 'Einschränkung auf Type und Parent_Guid
|
||||
Dim foundRowsLevel5() As DataRow
|
||||
foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5)
|
||||
Dim n As Integer
|
||||
For n = 0 To foundRowsLevel5.GetUpperBound(0)
|
||||
Dim ID6 = foundRowsLevel5(n)("GUID")
|
||||
Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID")
|
||||
Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
|
||||
Dim nodetext6 = foundRowsLevel5(n)("ID2")
|
||||
RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
|
||||
' Node erstellen..
|
||||
Dim LEVEL5_NODE As TreeNode
|
||||
LEVEL5_NODE = New TreeNode(nodetext6)
|
||||
If Not IsDBNull(RECORD_ID) Then
|
||||
LEVEL5_NODE.Tag = LevelEntity6 & "CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString
|
||||
Else
|
||||
LEVEL5_NODE.Tag = LevelEntity6 & "CONTROL-ID" & controlID6.ToString & "#" & ID6
|
||||
End If
|
||||
|
||||
index = 0
|
||||
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
|
||||
If img.Replace("LEVEL#ENTITY", "") = "5" & LevelEntity6.ToString Then
|
||||
Exit For
|
||||
End If
|
||||
index += 1
|
||||
Next
|
||||
LEVEL5_NODE.ImageIndex = index
|
||||
LEVEL5_NODE.SelectedImageIndex = index
|
||||
' ..und einfügen
|
||||
LEVEL4_NODE.Nodes.Add(LEVEL5_NODE)
|
||||
'#####
|
||||
'### LEVEL 5 laden #######
|
||||
Dim expressionLevel6 As String
|
||||
expressionLevel6 = "TYPE_NODE = 6 AND PARENT_GUID = " & ID6 'Einschränkung auf Type und Parent_Guid
|
||||
Dim foundRowsLevel6() As DataRow
|
||||
foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6)
|
||||
Dim o As Integer
|
||||
For o = 0 To foundRowsLevel6.GetUpperBound(0)
|
||||
Dim ID7 = foundRowsLevel6(o)("GUID")
|
||||
Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID")
|
||||
Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
|
||||
Dim nodetext7 = foundRowsLevel6(o)("ID2")
|
||||
RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
|
||||
' Node erstellen..
|
||||
Dim LEVEL6_NODE As TreeNode
|
||||
LEVEL6_NODE = New TreeNode(nodetext7)
|
||||
If Not IsDBNull(RECORD_ID) Then
|
||||
LEVEL6_NODE.Tag = LevelEntity7 & "CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString
|
||||
Else
|
||||
LEVEL6_NODE.Tag = LevelEntity7 & "CONTROL-ID" & controlID7.ToString & "#" & ID7
|
||||
End If
|
||||
|
||||
index = 0
|
||||
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
|
||||
If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity7.ToString Then
|
||||
Exit For
|
||||
End If
|
||||
index += 1
|
||||
Next
|
||||
LEVEL6_NODE.ImageIndex = index
|
||||
LEVEL6_NODE.SelectedImageIndex = index
|
||||
' ..und einfügen
|
||||
LEVEL5_NODE.Nodes.Add(LEVEL6_NODE)
|
||||
'#####
|
||||
Next
|
||||
Next ' Level 5 Ende
|
||||
Next 'Level 4 Ende
|
||||
Next 'Level 3 Ende
|
||||
Next ' Level 2 Ende
|
||||
Next 'Level 1 Ende
|
||||
Next
|
||||
|
||||
|
||||
|
||||
Else
|
||||
MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical)
|
||||
Me.Close()
|
||||
@ -1251,8 +1481,39 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
End If
|
||||
End Function
|
||||
Private Function Return_RECORD_forTag(NodeString As String)
|
||||
If IsNumeric(NodeString) Then
|
||||
Return NodeString
|
||||
Else
|
||||
Dim staticListItems = NodeString.Split("#")
|
||||
If staticListItems(2).Contains("RECORD-ID") Then
|
||||
Try
|
||||
Dim _RECORD = staticListItems(2).ToString.Replace("RECORD-ID", "")
|
||||
If IsNumeric(_RECORD) Then
|
||||
Return _RECORD
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in Return_RECORD_forTag ('" & NodeString & "'): " & ex.Message, True)
|
||||
Return 0
|
||||
End Try
|
||||
Else
|
||||
Return 0
|
||||
End If
|
||||
|
||||
End If
|
||||
End Function
|
||||
Sub Load_Tree_View_Data()
|
||||
Try
|
||||
If CONTROL_NAVIGATION = True Then
|
||||
If CONTROL_NAVIGATION_LOADED = True Then
|
||||
Exit Sub
|
||||
Else
|
||||
CONTROL_NAVIGATION_LOADED = True
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
|
||||
@ -1261,57 +1522,49 @@ Public Class frmConstructor_Main
|
||||
ENTITY_LOADED = False
|
||||
ENTITY_ID = Return_ENTITY_FOR_TAG(SelectedNode.Tag)
|
||||
CURRENT_FORM_ID = ENTITY_ID
|
||||
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
|
||||
|
||||
ACT_EBENE = 2
|
||||
CURRENT_ACT_LEVEL = 2
|
||||
If parentNode IsNot Nothing Then
|
||||
Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
|
||||
If grandParentNode IsNot Nothing Then
|
||||
ACT_EBENE = 3
|
||||
CURRENT_ACT_LEVEL = 3
|
||||
End If
|
||||
Else
|
||||
ACT_EBENE = 1
|
||||
CURRENT_ACT_LEVEL = 1
|
||||
End If
|
||||
|
||||
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
|
||||
Select form
|
||||
Where form.Item("FORM_ID") = ENTITY_ID).Single()
|
||||
|
||||
Select form
|
||||
Where form.Item("FORM_ID") = ENTITY_ID).Single()
|
||||
CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
|
||||
|
||||
'DT_WINDREAM_RESULTLIST = DT_WINDREAM_RESULTLIST_DEF
|
||||
'Dim sql_ResultList = "select * from TBPMO_USER_WINDREAM_RESULTLIST_CONFIG where USER_ID = " & USER_GUID & " AND CONSTRUCTOR_DETAIL_ID = " & CONSTRUCTOR_DETAIL_ID
|
||||
'Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET USER_RESULTLIST KONFIG")
|
||||
'If DT.Rows.Count = 1 Then
|
||||
' USER_RESULTLIST_CONFIG_GUID = DT.Rows(0).Item(0)
|
||||
' DT_WINDREAM_RESULTLIST = Nothing
|
||||
' DT_WINDREAM_RESULTLIST = DT
|
||||
'Else
|
||||
' USER_RESULTLIST_CONFIG_GUID = 0
|
||||
'If USER_LANGUAGE <> "de-DE" Then
|
||||
' 'Grid wird in englisch dargestellt!
|
||||
' gridGUID = 3
|
||||
'End If
|
||||
'Dim filteredDatatable = DT_WINDREAM_RESULTLIST_DEF.Copy()
|
||||
'For Each row As DataRow In filteredDatatable.Rows
|
||||
' If row.Item(0) <> gridGUID Then
|
||||
' row.Delete()
|
||||
' End If
|
||||
'Next
|
||||
'filteredDatatable.AcceptChanges()
|
||||
'If filteredDatatable.Rows.Count = 1 Then
|
||||
'DT_WINDREAM_RESULTLIST = Nothing
|
||||
'DT_WINDREAM_RESULTLIST = filteredDatatable
|
||||
'End If
|
||||
'End If
|
||||
If CONTROL_NAVIGATION = True Then
|
||||
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
|
||||
Console.WriteLine("Record beinhaltet")
|
||||
End If
|
||||
Console.WriteLine("CONTROL Navigacion")
|
||||
Else
|
||||
Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
|
||||
|
||||
ACT_EBENE = 2
|
||||
CURRENT_ACT_LEVEL = 2
|
||||
If parentNode IsNot Nothing Then
|
||||
Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
|
||||
If grandParentNode IsNot Nothing Then
|
||||
ACT_EBENE = 3
|
||||
CURRENT_ACT_LEVEL = 3
|
||||
End If
|
||||
Else
|
||||
ACT_EBENE = 1
|
||||
CURRENT_ACT_LEVEL = 1
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Dim elapsed As Double
|
||||
elapsed = sw.Elapsed.TotalSeconds
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Tree_View_Data1 took " & Format(elapsed, "0.000000000") & " seconds", False)
|
||||
Get_RecordCounts_Nodes()
|
||||
|
||||
If CONTROL_NAVIGATION = True Then
|
||||
If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
|
||||
Console.WriteLine("Record beinhaltet")
|
||||
End If
|
||||
Console.WriteLine("CONTROL Navigacion")
|
||||
Else
|
||||
Get_RecordCounts_Nodes()
|
||||
End If
|
||||
Load_Entity_Data(ACT_EBENE)
|
||||
|
||||
sw.Stop()
|
||||
@ -1327,6 +1580,9 @@ Public Class frmConstructor_Main
|
||||
|
||||
Sub Get_RecordCounts_Nodes()
|
||||
Try
|
||||
If CONTROL_NAVIGATION = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim selnode As TreeNode = TreeViewMain.SelectedNode
|
||||
Dim a As Integer = 0
|
||||
For Each childNodeLevel1 As TreeNode In selnode.Nodes
|
||||
@ -1752,7 +2008,8 @@ Public Class frmConstructor_Main
|
||||
If EDIT_STATE = EditState.Insert Then
|
||||
'Die Daten neu laden
|
||||
Load_Entity_Data_Only()
|
||||
Get_Grid_Row_Handle(NEW_RECORD_ID)
|
||||
LocateRecordById(RECORD_ID)
|
||||
'Get_Grid_Row_Handle(NEW_RECORD_ID)
|
||||
Else
|
||||
'Die Daten neu laden
|
||||
Load_Entity_Data_Only()
|
||||
@ -1763,6 +2020,7 @@ Public Class frmConstructor_Main
|
||||
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
|
||||
RECORD_CHANGED = False
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@ -2813,13 +3071,15 @@ Public Class frmConstructor_Main
|
||||
End If
|
||||
|
||||
HideColumns()
|
||||
Dim selnode As TreeNode = TreeViewMain.SelectedNode
|
||||
Dim origtext As String = selnode.Text
|
||||
If origtext.Contains(" (") Then
|
||||
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
|
||||
selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count())
|
||||
Else
|
||||
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
|
||||
If CONTROL_NAVIGATION = False Then
|
||||
Dim selnode As TreeNode = TreeViewMain.SelectedNode
|
||||
Dim origtext As String = selnode.Text
|
||||
If origtext.Contains(" (") Then
|
||||
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
|
||||
selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count())
|
||||
Else
|
||||
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@ -3304,7 +3564,6 @@ Public Class frmConstructor_Main
|
||||
#Region "WindreamSuche"
|
||||
Private Sub Check_windream_Show(FORM_VIEW_ID As Integer)
|
||||
Try
|
||||
|
||||
'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
|
||||
'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("WINDREAM_SEARCH")
|
||||
@ -5365,6 +5624,7 @@ Public Class frmConstructor_Main
|
||||
' Rename file.
|
||||
My.Computer.FileSystem.RenameFile(OldName, NewName)
|
||||
RUN_WDSEARCH_GRID("RECORD")
|
||||
ContextMenuStripResultFiles.Close()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Renaming files: " & ex.Message, MsgBoxStyle.Critical)
|
||||
|
||||
@ -95,6 +95,7 @@ Public Class frmLicense
|
||||
Me.lblPW.Visible = True
|
||||
Me.txtPW.Visible = True
|
||||
Me.btnPW_check.Visible = True
|
||||
Me.txtPW.Text = ""
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:")
|
||||
End Try
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user