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

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

@@ -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,55 +1080,55 @@ 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

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>

438
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,10 +811,12 @@ 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 RECID = 0 Then
If _FormClosing = True Then 'Or SaveRoutine_Active = True If _FormClosing = True Then 'Or SaveRoutine_Active = True
Exit Sub Exit Sub
End If End If
@@ -828,10 +834,14 @@ Public Class frmConstructor_Main
If Grid_RecordID = 0 Then If Grid_RecordID = 0 Then
Console.WriteLine("Grid_RecordID = 0") Console.WriteLine("Grid_RecordID = 0")
Else Else
If Grid_RecordID = RECORD_ID And ENTITY_RECORD_COUNT > 1 Then RECID = Grid_RecordID
End If
End If
End If
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 Then
Exit Sub Exit Sub
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & Grid_RecordID.ToString & " - " & Now, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & RECID.ToString & " - " & Now, False)
'Hier jetzt erst das Anzeigen für einen selektierten Datensatz 'Hier jetzt erst das Anzeigen für einen selektierten Datensatz
If GRID_TYPE = GridType.Grid Then If GRID_TYPE = GridType.Grid Then
If IsTopFirstRow Then If IsTopFirstRow Then
@@ -867,9 +877,9 @@ Public Class frmConstructor_Main
' muss vor show selected record data kommen, ' muss vor show selected record data kommen,
' sodass die datasource für die angehakten werte existiert (checked list box) ' sodass die datasource für die angehakten werte existiert (checked list box)
CtrlBuilder.WatchRecordChanges = False CtrlBuilder.WatchRecordChanges = False
ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, Grid_RecordID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID) ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECID, PARENT_RECORDID, CtrlBuilder.AllControls, ENTITY_ID)
CtrlBuilder.WatchRecordChanges = True CtrlBuilder.WatchRecordChanges = True
Show_Selected_Record_Data(Grid_RecordID, False) Show_Selected_Record_Data(RECID, False)
Dim sw1 As New Stopwatch Dim sw1 As New Stopwatch
sw1.Start() sw1.Start()
Check_Rights() Check_Rights()
@@ -891,11 +901,11 @@ Public Class frmConstructor_Main
If RIGHT_ONLY_READ = False Then If RIGHT_ONLY_READ = False Then
tsButtonEdit.Enabled = True tsButtonEdit.Enabled = True
End If End If
If CONTROL_NAVIGATION = False Then
Get_RecordCounts_Nodes() Get_RecordCounts_Nodes()
End If End If
End If
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,17 +1066,77 @@ 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()
If CONTROL_NAVIGATION = False Then
SetSelectedNodeStyle(TreeViewMain.Nodes) 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 CONTROL_NAVIGATION = False Then
If grvwGrid.Columns.Count > 0 Then If grvwGrid.Columns.Count > 0 Then
Save_Grid_Layout() Save_Grid_Layout()
End If 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 End Sub
Sub Load_Tree_View(ConstructorId As Integer) Sub Load_Tree_View(ConstructorId As Integer)
@@ -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)
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 LEVEL0_NODE.Tag = LevelEntity & "CONTROL-ID" & controlID.ToString & "#" & ID
LEVEL0_NODE.ImageIndex = 0 End If
LEVEL0_NODE.SelectedImageIndex = 0
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,62 +1186,202 @@ 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)
'### 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
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 Next
Next
'### Level 2 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)
@@ -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,6 +1522,18 @@ 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 result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
Select form
Where form.Item("FORM_ID") = ENTITY_ID).Single()
CONSTRUCTOR_DETAIL_ID = result.Item("GUID")
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) Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode)
ACT_EBENE = 2 ACT_EBENE = 2
@@ -1276,42 +1549,22 @@ Public Class frmConstructor_Main
CURRENT_ACT_LEVEL = 1 CURRENT_ACT_LEVEL = 1
End If End If
Dim result = (From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() End If
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
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)
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() 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,6 +3071,7 @@ Public Class frmConstructor_Main
End If End If
HideColumns() HideColumns()
If CONTROL_NAVIGATION = False Then
Dim selnode As TreeNode = TreeViewMain.SelectedNode Dim selnode As TreeNode = TreeViewMain.SelectedNode
Dim origtext As String = selnode.Text Dim origtext As String = selnode.Text
If origtext.Contains(" (") Then If origtext.Contains(" (") Then
@@ -2821,6 +3080,7 @@ Public Class frmConstructor_Main
Else Else
selnode.Text = String.Format("{0} ({1})", selnode.Text, Get_Grid_Row_Count()) 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)
Return False Return False
@@ -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