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

MS_05072016

Browse Source
This commit is contained in:
SchreiberM
2016-07-05 16:47:27 +02:00
parent 96bf81b88c
commit b9388d045a
6 changed files with 543 additions and 267 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -31,9 +31,8 @@ Public Class ClassControlCommandsUI
Dim sw As New SW("LoadControls") 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) Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
For Each dr As DataRow In DT.Rows For Each dr As DataRow In DT.Rows

18
app/DD-Record-Organiser/Class_DOC_SEARCH.vb
View File

@@ -11,18 +11,25 @@ Public Class Class_DOC_SEARCH
If Type = "ENTITY" Then If Type = "ENTITY" Then
SQL_DOC_SEARCH = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH WHERE [ENTITY_ID] = {0}", ENTITY_ID) SQL_DOC_SEARCH = String.Format("SELECT * FROM VWPMO_WD_DOC_SEARCH WHERE [ENTITY_ID] = {0}", ENTITY_ID)
Else Else
Dim OPTION1 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION1_CTRL") Dim OPTION1
Dim OPTION2 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION2_CTRL") Dim OPTION2
Dim OPTION3 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION3_CTRL") Dim OPTION3
Dim OPTION4 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION4_CTRL") Dim OPTION4
Dim OPTION5 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION5_CTRL") Dim OPTION5
If DT_RESULTLIST_OPTIONS.Rows.Count = 0 Then If DT_RESULTLIST_OPTIONS.Rows.Count = 0 Then
OPTION1 = 0 OPTION1 = 0
OPTION2 = 0 OPTION2 = 0
OPTION3 = 0 OPTION3 = 0
OPTION4 = 0 OPTION4 = 0
OPTION5 = 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 End If
SQL_DOC_SEARCH = String.Format("SELECT * ," & _ SQL_DOC_SEARCH = String.Format("SELECT * ," & _
"(CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}) " & _ "(CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}) " & _
"WHEN {1} THEN " & _ "WHEN {1} THEN " & _
@@ -44,6 +51,7 @@ Public Class Class_DOC_SEARCH
End If End If
Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1) Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True)
Return Nothing Return Nothing
End Try End Try
End Function End Function

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

@@ -81,8 +81,8 @@ Partial Class frmConstructor_Main
Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage() Me.TabFollowUp = New DevExpress.XtraTab.XtraTabPage()
Me.ListViewFollowUps = New System.Windows.Forms.ListView() Me.ListViewFollowUps = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = 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.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader)
Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox() Me.grpbxFU_Profile = New System.Windows.Forms.GroupBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button() Me.btnRemoveUser_FollowUp = New System.Windows.Forms.Button()
@@ -971,11 +971,18 @@ Partial Class frmConstructor_Main
' '
'tsslblStatus '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" Me.tsslblStatus.Name = "tsslblStatus"
resources.ApplyResources(Me.tsslblStatus, "tsslblStatus") resources.ApplyResources(Me.tsslblStatus, "tsslblStatus")
' '
'tsslblRecord '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" Me.tsslblRecord.Name = "tsslblRecord"
resources.ApplyResources(Me.tsslblRecord, "tsslblRecord") resources.ApplyResources(Me.tsslblRecord, "tsslblRecord")
' '
@@ -1034,6 +1041,7 @@ Partial Class frmConstructor_Main
Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_STRUCTURE_NODES_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing
@@ -1072,57 +1080,57 @@ Partial Class frmConstructor_Main
Me.Controls.Add(Me.StatusStrip_Main) Me.Controls.Add(Me.StatusStrip_Main)
Me.Controls.Add(Me.NavPane) Me.Controls.Add(Me.NavPane)
Me.Name = "frmConstructor_Main" Me.Name = "frmConstructor_Main"
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainerMain.ResumeLayout(False) Me.SplitContainerMain.ResumeLayout(false)
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainerTop.ResumeLayout(False) Me.SplitContainerTop.ResumeLayout(false)
Me.CMSEntity.ResumeLayout(False) Me.CMSEntity.ResumeLayout(false)
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).EndInit
Me.ContextMenuGrid.ResumeLayout(False) Me.ContextMenuGrid.ResumeLayout(false)
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).EndInit
Me.TCDetails.ResumeLayout(False) Me.TCDetails.ResumeLayout(false)
Me.TabDetails.ResumeLayout(False) Me.TabDetails.ResumeLayout(false)
Me.TabWindream.ResumeLayout(False) Me.TabWindream.ResumeLayout(false)
Me.TabWindream.PerformLayout() Me.TabWindream.PerformLayout
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).EndInit
Me.ContextMenuStripResultFiles.ResumeLayout(False) Me.ContextMenuStripResultFiles.ResumeLayout(false)
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).EndInit
Me.ToolStripDokumente.ResumeLayout(False) Me.ToolStripDokumente.ResumeLayout(false)
Me.ToolStripDokumente.PerformLayout() Me.ToolStripDokumente.PerformLayout
Me.TabFollowUp.ResumeLayout(False) Me.TabFollowUp.ResumeLayout(false)
Me.TabFollowUp.PerformLayout() Me.TabFollowUp.PerformLayout
Me.grpbxFU_Profile.ResumeLayout(False) Me.grpbxFU_Profile.ResumeLayout(false)
Me.grpbxFU_Profile.PerformLayout() Me.grpbxFU_Profile.PerformLayout
Me.GroupBox4.ResumeLayout(False) Me.GroupBox4.ResumeLayout(false)
Me.GroupBox4.PerformLayout() Me.GroupBox4.PerformLayout
Me.TabPos.ResumeLayout(False) Me.TabPos.ResumeLayout(false)
Me.TabPos.PerformLayout() Me.TabPos.PerformLayout
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(false)
CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).EndInit
Me.BindingNavigatorPOS.ResumeLayout(False) Me.BindingNavigatorPOS.ResumeLayout(false)
Me.BindingNavigatorPOS.PerformLayout() Me.BindingNavigatorPOS.PerformLayout
Me.ToolStripEdit.ResumeLayout(False) Me.ToolStripEdit.ResumeLayout(false)
Me.ToolStripEdit.PerformLayout() Me.ToolStripEdit.PerformLayout
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(false)
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingSource_Entity,System.ComponentModel.ISupportInitialize).EndInit
Me.StatusStrip_Main.ResumeLayout(False) Me.StatusStrip_Main.ResumeLayout(false)
Me.StatusStrip_Main.PerformLayout() Me.StatusStrip_Main.PerformLayout
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.DD_DMSDataSet, 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_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPMO_FILES_USERBindingSource,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(False) Me.ResumeLayout(false)
Me.PerformLayout() Me.PerformLayout
End Sub End Sub
Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip

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

@@ -319,7 +319,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>788, 237</value> <value>795, 237</value>
</data> </data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -388,7 +388,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 345</value> <value>1077, 347</value>
</data> </data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -406,7 +406,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 345</value> <value>1077, 347</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value> <value>Detailansicht</value>
@@ -424,7 +424,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1083, 373</value> <value>1083, 378</value>
</data> </data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib"> <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@@ -505,7 +505,7 @@
<value>192, 255, 192</value> <value>192, 255, 192</value>
</data> </data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 320</value> <value>1077, 322</value>
</data> </data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value> <value>7</value>
@@ -566,7 +566,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 25</value> <value>1077, 25</value>
</data> </data>
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -587,7 +587,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 345</value> <value>1077, 347</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>windream-Dateien</value> <value>windream-Dateien</value>
@@ -1018,7 +1018,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 345</value> <value>1077, 349</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value> <value>Wiedervorlage</value>
@@ -1045,7 +1045,7 @@
<value>Cyan</value> <value>Cyan</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 320</value> <value>1077, 324</value>
</data> </data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -1069,7 +1069,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 320</value> <value>1077, 324</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -1244,7 +1244,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing"> <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 25</value> <value>1077, 25</value>
</data> </data>
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib"> <data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@@ -1273,7 +1273,7 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1081, 345</value> <value>1077, 349</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value> <value>Positionen</value>
@@ -1521,7 +1521,7 @@
<value>Panel2</value> <value>Panel2</value>
</data> </data>
<data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1083, 647</value> <value>1083, 645</value>
</data> </data>
<data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainerMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -1554,7 +1554,7 @@
<value>Panel2</value> <value>Panel2</value>
</data> </data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>1083, 647</value> <value>1083, 645</value>
</data> </data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
@@ -1635,19 +1635,19 @@
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<data name="tsslblStatus.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsslblStatus.Size" type="System.Drawing.Size, System.Drawing">
<value>53, 17</value> <value>57, 19</value>
</data> </data>
<data name="tsslblStatus.Text" xml:space="preserve"> <data name="tsslblStatus.Text" xml:space="preserve">
<value>tssStatus</value> <value>tssStatus</value>
</data> </data>
<data name="tsslblRecord.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsslblRecord.Size" type="System.Drawing.Size, System.Drawing">
<value>58, 17</value> <value>62, 19</value>
</data> </data>
<data name="tsslblRecord.Text" xml:space="preserve"> <data name="tsslblRecord.Text" xml:space="preserve">
<value>tssRecord</value> <value>tssRecord</value>
</data> </data>
<data name="tsslblWorkflowstate.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsslblWorkflowstate.Size" type="System.Drawing.Size, System.Drawing">
<value>137, 17</value> <value>137, 19</value>
</data> </data>
<data name="tsslblWorkflowstate.Text" xml:space="preserve"> <data name="tsslblWorkflowstate.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value> <value>ToolStripStatusLabel1</value>
@@ -1656,10 +1656,10 @@
<value>False</value> <value>False</value>
</data> </data>
<data name="StatusStrip_Main.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip_Main.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 687</value> <value>0, 685</value>
</data> </data>
<data name="StatusStrip_Main.Size" type="System.Drawing.Size, System.Drawing"> <data name="StatusStrip_Main.Size" type="System.Drawing.Size, System.Drawing">
<value>1083, 22</value> <value>1083, 24</value>
</data> </data>
<data name="StatusStrip_Main.TabIndex" type="System.Int32, mscorlib"> <data name="StatusStrip_Main.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>

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

@@ -52,6 +52,8 @@ Public Class frmConstructor_Main
Private DT_TREEVIEW_CONFIGURATION As DataTable Private DT_TREEVIEW_CONFIGURATION As DataTable
Private TREEVIEW_IMAGELIST As ImageList Private TREEVIEW_IMAGELIST As ImageList
Private CONTROL_NAVIGATION As Boolean = False Private CONTROL_NAVIGATION As Boolean = False
Private CONTROL_NAVIGATION_LOADED As Boolean = False
Private EBENE2_PARENT_ID As Integer Private EBENE2_PARENT_ID As Integer
Private EBENE3_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") Dim bimage() As Byte = row.Item("NODE_IMAGE")
If Not IsDBNull(bimage) Then If Not IsDBNull(bimage) Then
Dim Node_image = ByteArrayToBitmap(bimage) 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 End If
Next Next
TreeViewMain.ImageList = TREEVIEW_IMAGELIST TreeViewMain.ImageList = TREEVIEW_IMAGELIST
Catch ex As Exception Catch ex As Exception
@@ -458,6 +459,9 @@ Public Class frmConstructor_Main
End Function End Function
Private Function Get_Grid_Layout_Filename() Private Function Get_Grid_Layout_Filename()
Dim EntityRegex As New RegularExpressions.Regex("\s+\(\d+\)") 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 EntityName As String = EntityRegex.Replace(ACT_EBENE_STRING, "")
Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CONSTRUCTORID) Dim Filename As String = String.Format("{0}-{1}-{2}-UserLayout.xml", grvwGrid.Name, GetSafeFilename(EntityName), CONSTRUCTORID)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename) Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
@@ -720,22 +724,22 @@ Public Class frmConstructor_Main
End If End If
End Function End Function
Public Function Get_Grid_Row_Handle(value As String) 'Public Function Get_Grid_Row_Handle(value As String)
Try ' Try
Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(value)) ' Dim rowHandle As Integer = DT_SELECTION.Rows.IndexOf(DT_SELECTION.Rows.Find(value))
If rowHandle > 0 Then ' If rowHandle > 0 Then
If GRID_TYPE = GridType.Grid Then ' If GRID_TYPE = GridType.Grid Then
grvwGrid.FocusedRowHandle = rowHandle ' grvwGrid.FocusedRowHandle = rowHandle
ElseIf GRID_TYPE = GridType.Tiles Then ' ElseIf GRID_TYPE = GridType.Tiles Then
grvwTiles.FocusedRowHandle = rowHandle ' grvwTiles.FocusedRowHandle = rowHandle
Else ' Else
grvwCarousel.FocusedRowHandle = rowHandle ' grvwCarousel.FocusedRowHandle = rowHandle
End If ' End If
End If ' End If
Catch ex As Exception ' Catch ex As Exception
ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False) ' ClassLogger.Add("Error in Search_RowHandle: " & ex.Message, False)
End Try ' End Try
End Function 'End Function
Public Function Get_Grid_Column_Count() As Integer Public Function Get_Grid_Column_Count() As Integer
If GRID_TYPE = GridType.Grid Then If GRID_TYPE = GridType.Grid Then
Return grvwGrid.Columns.Count Return grvwGrid.Columns.Count
@@ -807,95 +811,101 @@ Public Class frmConstructor_Main
e.Info.ImageIndex = -1 e.Info.ImageIndex = -1
End If End If
End Sub 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 Dim sw As New Stopwatch
sw.Start() sw.Start()
Dim elapsed As Double Dim elapsed As Double
If _FormClosing = True Then 'Or SaveRoutine_Active = True If RECID = 0 Then
Exit Sub If _FormClosing = True Then 'Or SaveRoutine_Active = True
End If Exit Sub
'Aussteigen, wenng erade die Entität gewechselt wird End If
If ENTITY_LOADED = False Then 'Aussteigen, wenng erade die Entität gewechselt wird
Exit Sub If ENTITY_LOADED = False Then
End If Exit Sub
If RightMouse_Clicked Then End If
Exit Sub If RightMouse_Clicked Then
End If Exit Sub
Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID") End If
If IsNothing(Grid_RecordID) Then Dim Grid_RecordID = Get_Focused_Row_Cell_Value("Record-ID")
Console.WriteLine("No Record ID selectable") If IsNothing(Grid_RecordID) Then
Else Console.WriteLine("No Record ID selectable")
If Grid_RecordID = 0 Then
Console.WriteLine("Grid_RecordID = 0")
Else Else
If Grid_RecordID = RECORD_ID And ENTITY_RECORD_COUNT > 1 Then If Grid_RecordID = 0 Then
Exit Sub Console.WriteLine("Grid_RecordID = 0")
End If Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & Grid_RecordID.ToString & " - " & Now, False) RECID = Grid_RecordID
'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()
End If End If
End If 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 'Liste der geänderten Control Values leeren
CtrlBuilder.ControlsChanged.Clear() CtrlBuilder.ControlsChanged.Clear()
@@ -904,6 +914,9 @@ Public Class frmConstructor_Main
Console.WriteLine("Column_Row_Handler took {0}ms to load", sw.ElapsedMilliseconds) Console.WriteLine("Column_Row_Handler took {0}ms to load", sw.ElapsedMilliseconds)
sw.Reset() sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >>>> Column/Row Change took " & Format(elapsed, "0.000000000") & " seconds", False) 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 End Sub
Sub Check_Rights() Sub Check_Rights()
@@ -913,6 +926,8 @@ Public Class frmConstructor_Main
tsmi_RecordDelete.Enabled = True tsmi_RecordDelete.Enabled = True
MassenänderungToolStripMenuItem.Enabled = True MassenänderungToolStripMenuItem.Enabled = True
DeleteToolStripMenuItem.Enabled = True DeleteToolStripMenuItem.Enabled = True
UmbenennenToolStripMenuItem.Enabled = True
DateiMitDatensatzVerknüpfenToolStripMenuItem.Enabled = True
CopyToolStripMenuItem.Enabled = True CopyToolStripMenuItem.Enabled = True
RecordKopierenToolStripMenuItem.Enabled = True RecordKopierenToolStripMenuItem.Enabled = True
PropertiesToolStripMenuItem.Enabled = True PropertiesToolStripMenuItem.Enabled = True
@@ -964,6 +979,8 @@ Public Class frmConstructor_Main
tsButtonDelete.Enabled = False tsButtonDelete.Enabled = False
tsmi_RecordDelete.Enabled = False tsmi_RecordDelete.Enabled = False
MassenänderungToolStripMenuItem.Enabled = False MassenänderungToolStripMenuItem.Enabled = False
UmbenennenToolStripMenuItem.Enabled = False
DateiMitDatensatzVerknüpfenToolStripMenuItem.Enabled = False
PropertiesToolStripMenuItem.Enabled = False PropertiesToolStripMenuItem.Enabled = False
CopyToolStripMenuItem.Enabled = False CopyToolStripMenuItem.Enabled = False
DeleteToolStripMenuItem.Enabled = False DeleteToolStripMenuItem.Enabled = False
@@ -1049,16 +1066,76 @@ Public Class frmConstructor_Main
Next Next
TreeViewMain.Refresh() TreeViewMain.Refresh()
End Sub 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 Private Sub TreeViewMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
DisableEditMode() 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() 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 End Sub
Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect Private Sub TreeViewMain_BeforeSelect(sender As Object, e As TreeViewCancelEventArgs) Handles TreeViewMain.BeforeSelect
If grvwGrid.Columns.Count > 0 Then If CONTROL_NAVIGATION = False Then
Save_Grid_Layout() 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 If
End Sub End Sub
@@ -1083,11 +1160,24 @@ Public Class frmConstructor_Main
Dim controlID = foundRowsLevel0(i)("CONTROL_ID") Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
Dim nodetext = foundRowsLevel0(i)("ID2") Dim nodetext = foundRowsLevel0(i)("ID2")
Dim Type_node = foundRowsLevel0(i)("TYPE_NODE") Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
Dim LEVEL0_NODE As TreeNode Dim LEVEL0_NODE As TreeNode
LEVEL0_NODE = New TreeNode(nodetext) LEVEL0_NODE = New TreeNode(nodetext)
LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID If Not IsDBNull(RECORD_ID) Then
LEVEL0_NODE.ImageIndex = 0 LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString
LEVEL0_NODE.SelectedImageIndex = 0 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) TreeViewMain.Nodes.Add(LEVEL0_NODE)
'### LEVEL 1 laden ####### '### LEVEL 1 laden #######
Dim expressionLevel1 As String Dim expressionLevel1 As String
@@ -1096,63 +1186,203 @@ Public Class frmConstructor_Main
foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1) foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1)
Dim j As Integer Dim j As Integer
For j = 0 To foundRowsLevel1.GetUpperBound(0) For j = 0 To foundRowsLevel1.GetUpperBound(0)
Dim ID2 = foundRowsLevel1(j)("GUID") Dim ID1 = foundRowsLevel1(j)("GUID")
Dim LevelEntity2 = foundRowsLevel1(j)("ENTITY_ID") Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
Dim controlID2 = foundRowsLevel1(j)("CONTROL_ID") Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
Dim nodetext2 = foundRowsLevel1(j)("ID2") Dim nodetext1 = foundRowsLevel1(j)("ID2")
Dim Type_node1 = foundRowsLevel1(i)("TYPE_NODE")
RECORD_ID = foundRowsLevel1(i)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL1_NODE As TreeNode Dim LEVEL1_NODE As TreeNode
LEVEL1_NODE = New TreeNode(nodetext2) LEVEL1_NODE = New TreeNode(nodetext1)
LEVEL1_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2 If Not IsDBNull(RECORD_ID) Then
LEVEL1_NODE.ImageIndex = 1 LEVEL1_NODE.Tag = LevelEntity1 & "CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString
LEVEL1_NODE.SelectedImageIndex = 1 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 ' ..und einfügen
LEVEL0_NODE.Nodes.Add(LEVEL1_NODE) LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
'### LEVEL 2 laden ####### '### LEVEL 2 laden #######
Dim expressionLevel2 As String 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 Dim foundRowsLevel2() As DataRow
foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2) foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2)
Dim k As Integer Dim k As Integer
For k = 0 To foundRowsLevel2.GetUpperBound(0) For k = 0 To foundRowsLevel2.GetUpperBound(0)
Dim ID3 = foundRowsLevel2(k)("GUID") Dim ID2 = foundRowsLevel2(k)("GUID")
Dim LevelEntity3 = foundRowsLevel2(k)("ENTITY_ID") Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
Dim controlID3 = foundRowsLevel2(k)("CONTROL_ID") Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
Dim nodetext3 = foundRowsLevel2(k)("ID2") Dim nodetext2 = foundRowsLevel2(k)("ID2")
RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL2_NODE As TreeNode Dim LEVEL2_NODE As TreeNode
LEVEL2_NODE = New TreeNode(nodetext3) LEVEL2_NODE = New TreeNode(nodetext2)
LEVEL2_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3 If Not IsDBNull(RECORD_ID) Then
LEVEL2_NODE.ImageIndex = 2 LEVEL2_NODE.Tag = LevelEntity2 & "CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString
LEVEL2_NODE.SelectedImageIndex = 2 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 ' ..und einfügen
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
'### LEVEL 3 laden ####### '### LEVEL 3 laden #######
Dim expressionLevel3 As String 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 Dim foundRowsLevel3() As DataRow
foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3) foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3)
Dim l As Integer Dim l As Integer
For l = 0 To foundRowsLevel3.GetUpperBound(0) For l = 0 To foundRowsLevel3.GetUpperBound(0)
Dim ID4 = foundRowsLevel3(k)("GUID") Dim ID3 = foundRowsLevel3(l)("GUID")
Dim LevelEntity4 = foundRowsLevel3(k)("ENTITY_ID") Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
Dim controlID4 = foundRowsLevel3(k)("CONTROL_ID") Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
Dim nodetext4 = foundRowsLevel3(k)("ID2") Dim nodetext3 = foundRowsLevel3(l)("ID2")
RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL3_NODE As TreeNode Dim LEVEL3_NODE As TreeNode
LEVEL3_NODE = New TreeNode(nodetext4) LEVEL3_NODE = New TreeNode(nodetext3)
LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID4.ToString & "#" & ID4 If Not IsDBNull(RECORD_ID) Then
LEVEL3_NODE.ImageIndex = 3 LEVEL3_NODE.Tag = LevelEntity3 & "CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString
LEVEL3_NODE.SelectedImageIndex = 3 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 ' ..und einfügen
LEVEL2_NODE.Nodes.Add(LEVEL3_NODE) 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 index = 0
'### Level 2 Ende ######## For Each img As String In TREEVIEW_IMAGELIST.Images.Keys
Next 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 Next
Else Else
MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical) MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical)
Me.Close() Me.Close()
@@ -1251,8 +1481,39 @@ Public Class frmConstructor_Main
End If End If
End If End If
End Function 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() Sub Load_Tree_View_Data()
Try 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 Dim sw As New Stopwatch
sw.Start() sw.Start()
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode) Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
@@ -1261,57 +1522,49 @@ Public Class frmConstructor_Main
ENTITY_LOADED = False ENTITY_LOADED = False
ENTITY_ID = Return_ENTITY_FOR_TAG(SelectedNode.Tag) ENTITY_ID = Return_ENTITY_FOR_TAG(SelectedNode.Tag)
CURRENT_FORM_ID = ENTITY_ID 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() Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single() Where form.Item("FORM_ID") = ENTITY_ID).Single()
CONSTRUCTOR_DETAIL_ID = result.Item("GUID") CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
'DT_WINDREAM_RESULTLIST = DT_WINDREAM_RESULTLIST_DEF If CONTROL_NAVIGATION = True Then
'Dim sql_ResultList = "select * from TBPMO_USER_WINDREAM_RESULTLIST_CONFIG where USER_ID = " & USER_GUID & " AND CONSTRUCTOR_DETAIL_ID = " & CONSTRUCTOR_DETAIL_ID If SelectedNode.Tag.ToString.Contains("RECORD_ID") Then
'Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET USER_RESULTLIST KONFIG") Console.WriteLine("Record beinhaltet")
'If DT.Rows.Count = 1 Then End If
' USER_RESULTLIST_CONFIG_GUID = DT.Rows(0).Item(0) Console.WriteLine("CONTROL Navigacion")
' DT_WINDREAM_RESULTLIST = Nothing Else
' DT_WINDREAM_RESULTLIST = DT Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
'Else
' USER_RESULTLIST_CONFIG_GUID = 0 ACT_EBENE = 2
'If USER_LANGUAGE <> "de-DE" Then CURRENT_ACT_LEVEL = 2
' 'Grid wird in englisch dargestellt! If parentNode IsNot Nothing Then
' gridGUID = 3 Dim grandParentNode As TreeNode = TryCast(parentNode.Parent, TreeNode)
'End If If grandParentNode IsNot Nothing Then
'Dim filteredDatatable = DT_WINDREAM_RESULTLIST_DEF.Copy() ACT_EBENE = 3
'For Each row As DataRow In filteredDatatable.Rows CURRENT_ACT_LEVEL = 3
' If row.Item(0) <> gridGUID Then End If
' row.Delete() Else
' End If ACT_EBENE = 1
'Next CURRENT_ACT_LEVEL = 1
'filteredDatatable.AcceptChanges() End If
'If filteredDatatable.Rows.Count = 1 Then
'DT_WINDREAM_RESULTLIST = Nothing End If
'DT_WINDREAM_RESULTLIST = filteredDatatable
'End If
'End If
Dim elapsed As Double Dim elapsed As Double
elapsed = sw.Elapsed.TotalSeconds elapsed = sw.Elapsed.TotalSeconds
If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Tree_View_Data1 took " & Format(elapsed, "0.000000000") & " seconds", False) 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) Load_Entity_Data(ACT_EBENE)
sw.Stop() sw.Stop()
@@ -1327,6 +1580,9 @@ Public Class frmConstructor_Main
Sub Get_RecordCounts_Nodes() Sub Get_RecordCounts_Nodes()
Try Try
If CONTROL_NAVIGATION = True Then
Exit Sub
End If
Dim selnode As TreeNode = TreeViewMain.SelectedNode Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim a As Integer = 0 Dim a As Integer = 0
For Each childNodeLevel1 As TreeNode In selnode.Nodes For Each childNodeLevel1 As TreeNode In selnode.Nodes
@@ -1752,7 +2008,8 @@ Public Class frmConstructor_Main
If EDIT_STATE = EditState.Insert Then If EDIT_STATE = EditState.Insert Then
'Die Daten neu laden 'Die Daten neu laden
Load_Entity_Data_Only() Load_Entity_Data_Only()
Get_Grid_Row_Handle(NEW_RECORD_ID) LocateRecordById(RECORD_ID)
'Get_Grid_Row_Handle(NEW_RECORD_ID)
Else Else
'Die Daten neu laden 'Die Daten neu laden
Load_Entity_Data_Only() Load_Entity_Data_Only()
@@ -1763,6 +2020,7 @@ Public Class frmConstructor_Main
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden! ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False RECORD_CHANGED = False
End If End If
End If End If
End If End If
@@ -2813,13 +3071,15 @@ Public Class frmConstructor_Main
End If End If
HideColumns() HideColumns()
Dim selnode As TreeNode = TreeViewMain.SelectedNode If CONTROL_NAVIGATION = False Then
Dim origtext As String = selnode.Text Dim selnode As TreeNode = TreeViewMain.SelectedNode
If origtext.Contains(" (") Then Dim origtext As String = selnode.Text
Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1) If origtext.Contains(" (") Then
selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count()) Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
Else selnode.Text = String.Format("{0} ({1})", existingstring, Get_Grid_Row_Count())
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count()) Else
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count())
End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in LoadGrid_Selection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -3304,7 +3564,6 @@ Public Class frmConstructor_Main
#Region "WindreamSuche" #Region "WindreamSuche"
Private Sub Check_windream_Show(FORM_VIEW_ID As Integer) Private Sub Check_windream_Show(FORM_VIEW_ID As Integer)
Try Try
'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID 'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql) 'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("WINDREAM_SEARCH") Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("WINDREAM_SEARCH")
@@ -5365,6 +5624,7 @@ Public Class frmConstructor_Main
' Rename file. ' Rename file.
My.Computer.FileSystem.RenameFile(OldName, NewName) My.Computer.FileSystem.RenameFile(OldName, NewName)
RUN_WDSEARCH_GRID("RECORD") RUN_WDSEARCH_GRID("RECORD")
ContextMenuStripResultFiles.Close()
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Renaming files: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Renaming files: " & ex.Message, MsgBoxStyle.Critical)

1
app/DD-Record-Organiser/frmLicense.vb
View File

@@ -95,6 +95,7 @@ Public Class frmLicense
Me.lblPW.Visible = True Me.lblPW.Visible = True
Me.txtPW.Visible = True Me.txtPW.Visible = True
Me.btnPW_check.Visible = True Me.btnPW_check.Visible = True
Me.txtPW.Text = ""
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:")
End Try End Try