diff --git a/app/DD-Record-Organiser/ClassImport_Windream.vb b/app/DD-Record-Organiser/ClassImport_Windream.vb index 73bfd23..32591a5 100644 --- a/app/DD-Record-Organiser/ClassImport_Windream.vb +++ b/app/DD-Record-Organiser/ClassImport_Windream.vb @@ -566,6 +566,7 @@ Public Class ClassImport_Windream End Select FolderConvention = FolderConvention.Replace(element.ToString, folder_temp) Case "C" + 'Füllen mit Controlwert Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#") Dim APattern = element.Value.Substring(3, element.Value.Length - 4) Dim split() As String = elmt @@ -629,6 +630,17 @@ Public Class ClassImport_Windream End If End If + Case "V" + Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#") + Dim split() As String = elmt + If split.Length = 2 Then + Dim VARTYPE = split(0) + Select Case VARTYPE + Case "Doctype" + FolderConvention = FolderConvention.Replace(element.ToString, CURRENT_DOKARTSTRING) + End Select + End If + Case Else ClassLogger.Add(" -Undefined pattern found in folderconvention" & vbNewLine & "Elementname: " & element.Value.ToUpper) MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:") diff --git a/app/DD-Record-Organiser/ClassNodes.vb b/app/DD-Record-Organiser/ClassNodes.vb new file mode 100644 index 0000000..bcdc40c --- /dev/null +++ b/app/DD-Record-Organiser/ClassNodes.vb @@ -0,0 +1,40 @@ + +Public Class ClassNodes + Public Shared MyTreeView As TreeView + Public Shared Datatable_Nodes As DataTable + Public Shared TREEVIEW_IMAGELIST As ImageList + Public Shared Function Return_Node(PARENT_ID As Integer, ParentNode As TreeNode) + Dim expression As String + expression = "PARENT_GUID = " & PARENT_ID 'Einschränkung auf Type und Parent_Guid + Dim foundRows() As DataRow + foundRows = Datatable_Nodes.Select(expression) + Dim q As Integer + For q = 0 To foundRows.GetUpperBound(0) + Dim ID9 = foundRows(q)("GUID") + Dim LevelEntity9 = foundRows(q)("ENTITY_ID") + Dim controlID9 = foundRows(q)("CONTROL_ID") + Dim nodetext9 = foundRows(q)("NODE_CAPTION") + Dim RECORD_ID = foundRows(q)("RECORD_ID") + ' Node erstellen.. + Dim NEW_NODE As TreeNode + NEW_NODE = New TreeNode(nodetext9) + If Not IsDBNull(RECORD_ID) Then + NEW_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString + Else + NEW_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 + End If + + Dim index = 0 + For Each img As String In TREEVIEW_IMAGELIST.Images.Keys + If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then + Exit For + End If + index += 1 + Next + NEW_NODE.ImageIndex = index + NEW_NODE.SelectedImageIndex = index + ' ..und einfügen + ParentNode.Nodes.Add(NEW_NODE) + Next ' + End Function +End Class diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj index 05e376c..2987bc2 100644 --- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj +++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj @@ -250,6 +250,7 @@ + diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 372eecb..e5ab7f3 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -281,7 +281,7 @@ Public Class frmConstructor_Main Dim bimage = row.Item("NODE_IMAGE") If Not IsDBNull(bimage) Then Dim Node_image = ByteArrayToBitmap(bimage) - TREEVIEW_IMAGELIST.Images.Add("LEVEL#ENTITY" & row.Item("TYPE_NODE").ToString & row.Item("ENTITY_ID"), Node_image) + TREEVIEW_IMAGELIST.Images.Add(row.Item("GUID").ToString & "#" & row.Item("ENTITY_ID"), Node_image) End If Catch ex As Exception @@ -1179,392 +1179,407 @@ Public Class frmConstructor_Main End Sub Sub Load_Tree_View(ConstructorId As Integer) - Dim sw As New SW("Load_Tree_View") + Try + Dim sw As New SW("Load_Tree_View") - TreeViewMain.Nodes.Clear() - If NODE_NAVIGATION = True Then - ' Rootnode erstellen und taggen - If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then - ' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE. - Dim expression As String - expression = "TYPE_NODE = 0" - Dim foundRowsLevel0() As DataRow - ' Use the Select method to find all rows matching the filter. - foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression) - Dim i As Integer - ' For each row create a Node - For i = 0 To foundRowsLevel0.GetUpperBound(0) - Dim ID = foundRowsLevel0(i)("GUID") - Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID") - Dim controlID = foundRowsLevel0(i)("CONTROL_ID") - Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION") - Dim Type_node = foundRowsLevel0(i)("TYPE_NODE") - Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID") - Dim LEVEL0_NODE As TreeNode - 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 - End If - - Dim index As Integer = 0 - For Each img As String In TREEVIEW_IMAGELIST.Images.Keys - If img.Replace("LEVEL#ENTITY", "") = Type_node.ToString & LevelEntity.ToString Then - Exit For - End If - index += 1 - Next - LEVEL0_NODE.ImageIndex = index - LEVEL0_NODE.SelectedImageIndex = index - TreeViewMain.Nodes.Add(LEVEL0_NODE) - '### LEVEL 1 laden ####### - Dim expressionLevel1 As String - expressionLevel1 = "TYPE_NODE = 1 AND PARENT_GUID = " & ID 'Einschränkung auf Type 2 und Parent_Guid - Dim foundRowsLevel1() As DataRow - foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1) - Dim j As Integer - For j = 0 To foundRowsLevel1.GetUpperBound(0) - Dim ID1 = foundRowsLevel1(j)("GUID") - Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID") - Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID") - Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION") - Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE") - RECORD_ID = foundRowsLevel1(j)("RECORD_ID") - ' Node erstellen.. - Dim LEVEL1_NODE As TreeNode - LEVEL1_NODE = New TreeNode(nodetext1) + TreeViewMain.Nodes.Clear() + If NODE_NAVIGATION = True Then + ' Rootnode erstellen und taggen + If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then + ' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE. + Dim expression As String + expression = "TYPE_NODE = 0" + Dim foundRowsLevel0() As DataRow + ' Use the Select method to find all rows matching the filter. + foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression) + Dim i As Integer + Dim NODE_CONFIG_ID + ' For each row create a Node + For i = 0 To foundRowsLevel0.GetUpperBound(0) + Dim ID = foundRowsLevel0(i)("GUID") + Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID") + Dim controlID = foundRowsLevel0(i)("CONTROL_ID") + Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION") + Dim Type_node = foundRowsLevel0(i)("TYPE_NODE") + Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID") + Dim LEVEL0_NODE As TreeNode + LEVEL0_NODE = New TreeNode(nodetext) If Not IsDBNull(RECORD_ID) Then - LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString + LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString Else - LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 + LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID End If - index = 0 + Dim index As Integer = 0 For Each img As String In TREEVIEW_IMAGELIST.Images.Keys - If img.Replace("LEVEL#ENTITY", "") = Type_node1 & LevelEntity1.ToString Then + If img = NODE_CONFIG_ID & "#" & LevelEntity Then Exit For End If index += 1 Next - LEVEL1_NODE.ImageIndex = index - LEVEL1_NODE.SelectedImageIndex = index - ' ..und einfügen - LEVEL0_NODE.Nodes.Add(LEVEL1_NODE) - '### LEVEL 2 laden ####### - Dim expressionLevel2 As String - expressionLevel2 = "TYPE_NODE = 2 AND PARENT_GUID = " & ID1 'Einschränkung auf Type und Parent_Guid - Dim foundRowsLevel2() As DataRow - foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2) - Dim k As Integer - For k = 0 To foundRowsLevel2.GetUpperBound(0) - Dim ID2 = foundRowsLevel2(k)("GUID") - Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID") - Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID") - Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION") - RECORD_ID = foundRowsLevel2(k)("RECORD_ID") + LEVEL0_NODE.ImageIndex = index + LEVEL0_NODE.SelectedImageIndex = index + TreeViewMain.Nodes.Add(LEVEL0_NODE) + '### LEVEL 1 laden ####### + Dim expressionLevel1 As String + expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND Einschränkung auf Type 2 und Parent_Guid + Dim foundRowsLevel1() As DataRow + foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1) + Dim j As Integer + For j = 0 To foundRowsLevel1.GetUpperBound(0) + Dim ID1 = foundRowsLevel1(j)("GUID") + Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID") + Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID") + Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION") + Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE") + RECORD_ID = foundRowsLevel1(j)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel1(j)("NODE_CONFIG_ID") ' Node erstellen.. - Dim LEVEL2_NODE As TreeNode - LEVEL2_NODE = New TreeNode(nodetext2) + Dim LEVEL1_NODE As TreeNode + LEVEL1_NODE = New TreeNode(nodetext1) If Not IsDBNull(RECORD_ID) Then - LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString + LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 & "#RECORD-ID" & RECORD_ID.ToString Else - LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 + 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", "") = "2" & LevelEntity2.ToString Then + If img = NODE_CONFIG_ID & "#" & LevelEntity1 Then Exit For End If index += 1 Next - LEVEL2_NODE.ImageIndex = index - LEVEL2_NODE.SelectedImageIndex = index + LEVEL1_NODE.ImageIndex = index + LEVEL1_NODE.SelectedImageIndex = index ' ..und einfügen - LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) - '### LEVEL 3 laden ####### - Dim expressionLevel3 As String - expressionLevel3 = "TYPE_NODE = 3 AND PARENT_GUID = " & ID2 'Einschränkung auf Type und Parent_Guid - Dim foundRowsLevel3() As DataRow - foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3) - Dim l As Integer - For l = 0 To foundRowsLevel3.GetUpperBound(0) - Dim ID3 = foundRowsLevel3(l)("GUID") - Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID") - Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID") - Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION") - RECORD_ID = foundRowsLevel3(l)("RECORD_ID") + LEVEL0_NODE.Nodes.Add(LEVEL1_NODE) + '### LEVEL 2 laden ####### + Dim expressionLevel2 As String + expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type und Parent_Guid + Dim foundRowsLevel2() As DataRow + foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2) + Dim k As Integer + For k = 0 To foundRowsLevel2.GetUpperBound(0) + Dim ID2 = foundRowsLevel2(k)("GUID") + Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID") + Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID") + Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION") + RECORD_ID = foundRowsLevel2(k)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel2(k)("NODE_CONFIG_ID") ' Node erstellen.. - Dim LEVEL3_NODE As TreeNode - LEVEL3_NODE = New TreeNode(nodetext3) + Dim LEVEL2_NODE As TreeNode + LEVEL2_NODE = New TreeNode(nodetext2) If Not IsDBNull(RECORD_ID) Then - LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString + LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 & "#RECORD-ID" & RECORD_ID.ToString Else - LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 + 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", "") = "3" & LevelEntity3.ToString Then + If img = NODE_CONFIG_ID & "#" & LevelEntity2 Then Exit For End If index += 1 Next - LEVEL3_NODE.ImageIndex = index - LEVEL3_NODE.SelectedImageIndex = index + LEVEL2_NODE.ImageIndex = index + LEVEL2_NODE.SelectedImageIndex = index ' ..und einfügen - 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)("NODE_CAPTION") - RECORD_ID = foundRowsLevel4(m)("RECORD_ID") + LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) + '### LEVEL 3 laden ####### + Dim expressionLevel3 As String + expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND Einschränkung auf Type und Parent_Guid + Dim foundRowsLevel3() As DataRow + foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3) + Dim l As Integer + For l = 0 To foundRowsLevel3.GetUpperBound(0) + Dim ID3 = foundRowsLevel3(l)("GUID") + Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID") + Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID") + Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION") + RECORD_ID = foundRowsLevel3(l)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel3(l)("NODE_CONFIG_ID") ' Node erstellen.. - Dim LEVEL4_NODE As TreeNode - LEVEL4_NODE = New TreeNode(nodetext5) + Dim LEVEL3_NODE As TreeNode + LEVEL3_NODE = New TreeNode(nodetext3) If Not IsDBNull(RECORD_ID) Then - LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString + LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 & "#RECORD-ID" & RECORD_ID.ToString Else - LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 + 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", "") = "4" & LevelEntity5.ToString Then + If img = NODE_CONFIG_ID & "#" & LevelEntity3 Then Exit For End If index += 1 Next - LEVEL4_NODE.ImageIndex = index - LEVEL4_NODE.SelectedImageIndex = index + LEVEL3_NODE.ImageIndex = index + LEVEL3_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)("NODE_CAPTION") - RECORD_ID = foundRowsLevel5(n)("RECORD_ID") + LEVEL2_NODE.Nodes.Add(LEVEL3_NODE) + '### LEVEL 4 laden ####### + Dim expressionLevel4 As String + expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND 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)("NODE_CAPTION") + RECORD_ID = foundRowsLevel4(m)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel4(m)("NODE_CONFIG_ID") ' Node erstellen.. - Dim LEVEL5_NODE As TreeNode - LEVEL5_NODE = New TreeNode(nodetext6) + Dim LEVEL4_NODE As TreeNode + LEVEL4_NODE = New TreeNode(nodetext5) If Not IsDBNull(RECORD_ID) Then - LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString + LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 & "#RECORD-ID" & RECORD_ID.ToString Else - LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 + 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", "") = "5" & LevelEntity6.ToString Then + If img = NODE_CONFIG_ID & "#" & LevelEntity5 Then Exit For End If index += 1 Next - LEVEL5_NODE.ImageIndex = index - LEVEL5_NODE.SelectedImageIndex = index + LEVEL4_NODE.ImageIndex = index + LEVEL4_NODE.SelectedImageIndex = index ' ..und einfügen - LEVEL4_NODE.Nodes.Add(LEVEL5_NODE) + LEVEL3_NODE.Nodes.Add(LEVEL4_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)("NODE_CAPTION") - RECORD_ID = foundRowsLevel6(o)("RECORD_ID") + Dim expressionLevel5 As String + expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND 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)("NODE_CAPTION") + RECORD_ID = foundRowsLevel5(n)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel5(n)("NODE_CONFIG_ID") ' Node erstellen.. - Dim LEVEL6_NODE As TreeNode - LEVEL6_NODE = New TreeNode(nodetext7) + Dim LEVEL5_NODE As TreeNode + LEVEL5_NODE = New TreeNode(nodetext6) If Not IsDBNull(RECORD_ID) Then - LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString + LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 & "#RECORD-ID" & RECORD_ID.ToString Else - LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 + 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", "") = "6" & LevelEntity7.ToString Then + If img = NODE_CONFIG_ID & "#" & LevelEntity6 Then Exit For End If index += 1 Next - LEVEL6_NODE.ImageIndex = index - LEVEL6_NODE.SelectedImageIndex = index + LEVEL5_NODE.ImageIndex = index + LEVEL5_NODE.SelectedImageIndex = index ' ..und einfügen - LEVEL5_NODE.Nodes.Add(LEVEL6_NODE) - '### LEVEL 7 laden ####### - Dim expressionLevel7 As String - expressionLevel7 = "TYPE_NODE = 7 AND PARENT_GUID = " & ID7 'Einschränkung auf Type und Parent_Guid - Dim foundRowsLevel7() As DataRow - foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7) - Dim p As Integer - For p = 0 To foundRowsLevel7.GetUpperBound(0) - Dim ID8 = foundRowsLevel7(p)("GUID") - Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID") - Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID") - Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION") - RECORD_ID = foundRowsLevel7(p)("RECORD_ID") + LEVEL4_NODE.Nodes.Add(LEVEL5_NODE) + '### LEVEL 5 laden ####### + Dim expressionLevel6 As String + expressionLevel6 = "PARENT_GUID = " & ID6 'TYPE_NODE = 6 AND 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)("NODE_CAPTION") + RECORD_ID = foundRowsLevel6(o)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel6(o)("NODE_CONFIG_ID") ' Node erstellen.. - Dim LEVEL7_NODE As TreeNode - LEVEL7_NODE = New TreeNode(nodetext8) + Dim LEVEL6_NODE As TreeNode + LEVEL6_NODE = New TreeNode(nodetext7) If Not IsDBNull(RECORD_ID) Then - LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 & "#RECORD-ID" & RECORD_ID.ToString + LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 & "#RECORD-ID" & RECORD_ID.ToString Else - LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 + 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" & LevelEntity8.ToString Then + If img = NODE_CONFIG_ID & "#" & LevelEntity7 Then Exit For End If index += 1 Next - LEVEL7_NODE.ImageIndex = index - LEVEL7_NODE.SelectedImageIndex = index + LEVEL6_NODE.ImageIndex = index + LEVEL6_NODE.SelectedImageIndex = index ' ..und einfügen - LEVEL6_NODE.Nodes.Add(LEVEL7_NODE) + LEVEL5_NODE.Nodes.Add(LEVEL6_NODE) '### LEVEL 7 laden ####### - Dim expressionLevel8 As String - expressionLevel8 = "TYPE_NODE = 7 AND PARENT_GUID = " & ID7 'Einschränkung auf Type und Parent_Guid - Dim foundRowsLevel8() As DataRow - foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8) - Dim q As Integer - For q = 0 To foundRowsLevel8.GetUpperBound(0) - Dim ID9 = foundRowsLevel8(q)("GUID") - Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID") - Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID") - Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION") - RECORD_ID = foundRowsLevel8(q)("RECORD_ID") + Dim expressionLevel7 As String + expressionLevel7 = "PARENT_GUID = " & ID7 'TYPE_NODE = 7 AND Einschränkung auf Type und Parent_Guid + Dim foundRowsLevel7() As DataRow + foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7) + Dim p As Integer + For p = 0 To foundRowsLevel7.GetUpperBound(0) + Dim ID8 = foundRowsLevel7(p)("GUID") + Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID") + Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID") + Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION") + RECORD_ID = foundRowsLevel7(p)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel7(p)("NODE_CONFIG_ID") ' Node erstellen.. - Dim LEVEL8_NODE As TreeNode - LEVEL8_NODE = New TreeNode(nodetext9) + Dim LEVEL7_NODE As TreeNode + LEVEL7_NODE = New TreeNode(nodetext8) If Not IsDBNull(RECORD_ID) Then - LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString + LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 & "#RECORD-ID" & RECORD_ID.ToString Else - LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 + LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 End If index = 0 For Each img As String In TREEVIEW_IMAGELIST.Images.Keys - If img.Replace("LEVEL#ENTITY", "") = "6" & LevelEntity9.ToString Then + If img = NODE_CONFIG_ID & "#" & LevelEntity8 Then Exit For End If index += 1 Next - LEVEL8_NODE.ImageIndex = index - LEVEL8_NODE.SelectedImageIndex = index + LEVEL7_NODE.ImageIndex = index + LEVEL7_NODE.SelectedImageIndex = index ' ..und einfügen - LEVEL7_NODE.Nodes.Add(LEVEL8_NODE) - '### LEVEL 8 laden ####### + LEVEL6_NODE.Nodes.Add(LEVEL7_NODE) + '### LEVEL 7 laden ####### + Dim expressionLevel8 As String + expressionLevel8 = "PARENT_GUID = " & ID8 'TYPE_NODE = 7 AND Einschränkung auf Type und Parent_Guid + Dim foundRowsLevel8() As DataRow + foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8) + Dim q As Integer + For q = 0 To foundRowsLevel8.GetUpperBound(0) + Dim ID9 = foundRowsLevel8(q)("GUID") + Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID") + Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID") + Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION") + RECORD_ID = foundRowsLevel8(q)("RECORD_ID") + NODE_CONFIG_ID = foundRowsLevel8(q)("NODE_CONFIG_ID") + ' Node erstellen.. + Dim LEVEL8_NODE As TreeNode + LEVEL8_NODE = New TreeNode(nodetext9) + If Not IsDBNull(RECORD_ID) Then + LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 & "#RECORD-ID" & RECORD_ID.ToString + Else + LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 + End If + + index = 0 + For Each img As String In TREEVIEW_IMAGELIST.Images.Keys + If img = NODE_CONFIG_ID & "#" & LevelEntity9 Then + Exit For + End If + index += 1 + Next + LEVEL8_NODE.ImageIndex = index + LEVEL8_NODE.SelectedImageIndex = index + ' ..und einfügen + LEVEL7_NODE.Nodes.Add(LEVEL8_NODE) + '### LEVEL 8 laden ####### + Next ' Level 7 Ende Next ' Level 7 Ende - Next ' Level 7 Ende - Next ' Level 6 Ende - Next ' Level 5 Ende - Next 'Level 4 Ende - Next 'Level 3 Ende - Next ' Level 2 Ende - Next 'Level 1 Ende - Next + Next ' Level 6 Ende + Next ' Level 5 Ende + Next 'Level 4 Ende + Next 'Level 3 Ende + Next ' Level 2 Ende + Next 'Level 1 Ende + Next + Else + MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical) + Me.Close() + End If Else - MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical) - Me.Close() - End If - Else - ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS - Dim query1 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() - Select form - Order By form.Item("SEQUENCE") - Where form.Item("PARENT_ID") = 0 - - Dim Rows1 = query1.ToList() - - For Each LEVEL1ROW In Rows1 - Dim LEVEL0_NODE As TreeNode - - Dim LEVEL2_NODE As TreeNode - - '################## LEVEL 1 wird geladen ########################### - Dim LEVEL1_TITLE = LEVEL1ROW.Item("CAPTION").ToString - Dim NODE1_ENTITY_ID = LEVEL1ROW.Item("FORM_ID").ToString - Dim ENTITY_ID = LEVEL1ROW.Item("FORM_ID") - - ' Rootnode erstellen und taggen - LEVEL0_NODE = New TreeNode(LEVEL1_TITLE) - LEVEL0_NODE.Tag = NODE1_ENTITY_ID - ' TreeView Rootnode einfügen - TreeViewMain.Nodes.Add(LEVEL0_NODE) - - '################## LEVEL 2 wird geladen ######### - Dim LEVEL1_NODE As TreeNode - - Dim query2 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() + ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS + Dim query1 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() Select form Order By form.Item("SEQUENCE") - Where form.Item("PARENT_ID") = NODE1_ENTITY_ID + Where form.Item("PARENT_ID") = 0 - Dim Rows2 = query2.ToList() - For Each Row2 In Rows2 + Dim Rows1 = query1.ToList() - Dim LEVEL2_TITLE As String = Row2.Item("CAPTION").ToString - Dim LEVEL2_ID As Integer = Row2.Item("FORM_ID") - Dim LEVEL2_PARENT_ID As Integer = Row2.Item("PARENT_ID") + For Each LEVEL1ROW In Rows1 + Dim LEVEL0_NODE As TreeNode - ' Node erstellen.. - LEVEL1_NODE = New TreeNode(LEVEL2_TITLE) - LEVEL1_NODE.Tag = LEVEL2_ID - ' ..und einfügen - LEVEL0_NODE.Nodes.Add(LEVEL1_NODE) - '##### LEVEL 3 wird geladen ######### - Dim query3 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() - Select form - Order By form.Item("SEQUENCE") - Where form.Item("PARENT_ID") = LEVEL2_ID + Dim LEVEL2_NODE As TreeNode - Dim Rows3 = query3.ToList() + '################## LEVEL 1 wird geladen ########################### + Dim LEVEL1_TITLE = LEVEL1ROW.Item("CAPTION").ToString + Dim NODE1_ENTITY_ID = LEVEL1ROW.Item("FORM_ID").ToString + Dim ENTITY_ID = LEVEL1ROW.Item("FORM_ID") - For Each Row3 In Rows3 + ' Rootnode erstellen und taggen + LEVEL0_NODE = New TreeNode(LEVEL1_TITLE) + LEVEL0_NODE.Tag = NODE1_ENTITY_ID + ' TreeView Rootnode einfügen + TreeViewMain.Nodes.Add(LEVEL0_NODE) - Dim LEVEL3_TITLE As String = Row3.Item("CAPTION") - Dim LEVEL3_ID As Integer = Row3.Item("FORM_ID") + '################## LEVEL 2 wird geladen ######### + Dim LEVEL1_NODE As TreeNode + + Dim query2 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() + Select form + Order By form.Item("SEQUENCE") + Where form.Item("PARENT_ID") = NODE1_ENTITY_ID + + Dim Rows2 = query2.ToList() + For Each Row2 In Rows2 + + Dim LEVEL2_TITLE As String = Row2.Item("CAPTION").ToString + Dim LEVEL2_ID As Integer = Row2.Item("FORM_ID") + Dim LEVEL2_PARENT_ID As Integer = Row2.Item("PARENT_ID") ' Node erstellen.. - LEVEL2_NODE = New TreeNode(LEVEL3_TITLE) - LEVEL2_NODE.Tag = LEVEL3_ID + LEVEL1_NODE = New TreeNode(LEVEL2_TITLE) + LEVEL1_NODE.Tag = LEVEL2_ID ' ..und einfügen - LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) + LEVEL0_NODE.Nodes.Add(LEVEL1_NODE) + '##### LEVEL 3 wird geladen ######### + Dim query3 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable() + Select form + Order By form.Item("SEQUENCE") + Where form.Item("PARENT_ID") = LEVEL2_ID + Dim Rows3 = query3.ToList() + + For Each Row3 In Rows3 + + Dim LEVEL3_TITLE As String = Row3.Item("CAPTION") + Dim LEVEL3_ID As Integer = Row3.Item("FORM_ID") + + ' Node erstellen.. + LEVEL2_NODE = New TreeNode(LEVEL3_TITLE) + LEVEL2_NODE.Tag = LEVEL3_ID + ' ..und einfügen + LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) + + Next Next Next - Next - End If - If NODE_NAVIGATION = False Then - TreeViewMain.ExpandAll() - End If - TreeViewMain.Nodes(0).EnsureVisible() + End If + If NODE_NAVIGATION = False Then + TreeViewMain.ExpandAll() + End If + TreeViewMain.Nodes(0).EnsureVisible() - sw.Done() + sw.Done() + Catch ex As Exception + MsgBox("Unexpected Error in Load TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub Sub Create_variable_node() diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb index 1115dfb..4f97284 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb @@ -42,7 +42,7 @@ Partial Class frmWD_Dokumentart_Konfig Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim OBJEKTTYPLabel As System.Windows.Forms.Label - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -187,6 +187,7 @@ Partial Class frmWD_Dokumentart_Konfig Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter() Me.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter() Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) + Me.lblpathsaved = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label() BEZEICHNUNGLabel = New System.Windows.Forms.Label() KURZNAMELabel = New System.Windows.Forms.Label() @@ -677,6 +678,7 @@ Partial Class frmWD_Dokumentart_Konfig Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -1106,8 +1108,8 @@ Partial Class frmWD_Dokumentart_Konfig ' Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToAddRows = False Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua - Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.Aqua + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 resources.ApplyResources(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView, "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView") Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AutoGenerateColumns = False Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize @@ -1282,6 +1284,7 @@ Partial Class frmWD_Dokumentart_Konfig ' 'XtraTabPage4 ' + Me.XtraTabPage4.Controls.Add(Me.lblpathsaved) Me.XtraTabPage4.Controls.Add(Me.Button3) Me.XtraTabPage4.Controls.Add(Me.FOLDER_FOR_INDEXTextBox) Me.XtraTabPage4.Controls.Add(Me.grbxFolderforIndex) @@ -1372,6 +1375,12 @@ Partial Class frmWD_Dokumentart_Konfig ' Me.TBWH_DOKART_MODULETableAdapter.ClearBeforeFill = True ' + 'lblpathsaved + ' + Me.lblpathsaved.BackColor = System.Drawing.Color.Yellow + resources.ApplyResources(Me.lblpathsaved, "lblpathsaved") + Me.lblpathsaved.Name = "lblpathsaved" + ' 'frmWD_Dokumentart_Konfig ' resources.ApplyResources(Me, "$this") @@ -1568,4 +1577,5 @@ Partial Class frmWD_Dokumentart_Konfig Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents cmbIndex_Controls As System.Windows.Forms.ComboBox Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents lblpathsaved As System.Windows.Forms.Label End Class diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx index 3742df8..ee1b489 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx @@ -904,6 +904,256 @@ 28 + + 17, 17 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GroupBox1 + + + 0 + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 2 + + + ListBox3 + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 3 + + + lblSaveDokart + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 4 + + + btnNamenkonvention + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 5 + + + OBJEKTTYPComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 6 + + + btnZielpfad + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 8 + + + GUIDTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 10 + + + BEZEICHNUNGTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 12 + + + KURZNAMETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 14 + + + ZIEL_PFADTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 16 + + + BESCHREIBUNGTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 18 + + + AKTIVCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 19 + + + ERSTELLTWERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 21 + + + ERSTELLTWANNTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 23 + + + GEANDERTWERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 25 + + + GEAENDERTWANNTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 27 + + + + Top + + + Segoe UI, 9pt, style=Bold + + + 0, 0 + + + 1312, 314 + + + 1 + + + Dokumentarten + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + 3, 59 @@ -955,7 +1205,6 @@ 0 - Top, Right @@ -1013,12 +1262,12 @@ 2 - - Top, Right - 339, 95 + + Top, Right + Segoe UI, 9pt, style=Italic @@ -1046,6 +1295,9 @@ 3 + + 339, 95 + True @@ -1406,36 +1658,6 @@ 27 - - Top - - - Segoe UI, 9pt, style=Bold - - - 0, 0 - - - 1312, 314 - - - 1 - - - Dokumentarten - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 - 160, 17 @@ -1460,12 +1682,6 @@ 403, 56 - - 121, 17 - - - ToolStripStatusLabel1 - 0, 581 @@ -1490,15 +1706,630 @@ 1 + + 121, 17 + + + ToolStripStatusLabel1 + Top, Bottom, Left, Right 3, 304 + + 520, 56 + True + + chkEntityData + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 0 + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 1 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 2 + + + lblSaveIndex + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 3 + + + CHANGED_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 5 + + + CHANGED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 7 + + + ADDED_WHENTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 9 + + + ADDED_WHOTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 11 + + + ACTIVECheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 12 + + + COMMENTTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 14 + + + VALUEComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 15 + + + INDEXNAMEComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 17 + + + GUIDTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 20 + + + ListBox2 + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 21 + + + TBDD_INDEX_AUTOMBindingNavigator + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 22 + + + 1261, 249 + + + Automatische Indexe + + + XtraTabPage1 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 0 + + + 1267, 277 + + + 2 + + + 1029, 95 + + + ListBox1 + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + + 0 + + + BindingNavigator2 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage3 + + + 1 + + + 1261, 249 + + + Manuelle Indexe + + + XtraTabPage3 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 1 + + + 786, 56 + + + True + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 0 + + + TBPMO_WD_FORMVIEW_DOKTYPESDataGridView + + + System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 1 + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 2 + + + btnAddDokart_Entity + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 3 + + + cmbEntity_Doctype + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 4 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 5 + + + 1261, 249 + + + Zurodnung Dokumentart - Entität + + + XtraTabPage2 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 2 + + + Tahoma, 8.25pt, style=Bold, Italic + + + 497, 9 + + + No + + + 298, 13 + + + 18 + + + Label8 + + + MiddleRight + + + False + + + lblpathsaved + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 0 + + + MiddleLeft + + + 714, 26 + + + 81, 24 + + + 17 + + + Speichern + + + MiddleRight + + + Button3 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 1 + + + Segoe UI, 9.75pt + + + 11, 25 + + + 697, 25 + + + 16 + + + FOLDER_FOR_INDEXTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 2 + + + Label7 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxFolderforIndex + + + 0 + + + cmbIndex_Controls + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxFolderforIndex + + + 1 + + + cmbCrFolderDate + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxFolderforIndex + + + 2 + + + Label20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxFolderforIndex + + + 3 + + + btnaddcrFolderParameter + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxFolderforIndex + + + 4 + + + Label18 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxFolderforIndex + + + 5 + + + cmbCrFolderIndex + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxFolderforIndex + + + 6 + + + False + + + 11, 56 + + + 573, 119 + + + 13 + + + Neuer Unterordner: + + + grbxFolderforIndex + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 3 + + + True + + + NoControl + + + 8, 9 + + + 108, 13 + + + 12 + + + Variabler Ordnerpfad + + + Label17 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 4 + + + 1261, 249 + + + Variabler Ordnerpfad + + + XtraTabPage4 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 3 + + + XtraTabControl1 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 0 + True @@ -1526,6 +2357,114 @@ 0 + + VALUETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 0 + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 1 + + + cmbControlsEntity + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 2 + + + btnAddIndexA + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 3 + + + Label5 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 4 + + + cmbEntity + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 5 + + + Label6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 6 + + + False + + + 868, 63 + + + 479, 143 + + + 80 + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage1 + + + 1 + 9, 110 @@ -1718,30 +2657,6 @@ 6 - - False - - - 868, 63 - - - 479, 143 - - - 80 - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 1 - True @@ -2016,7 +2931,7 @@ 0, 25 - 305, 207 + 305, 224 2 @@ -2204,7 +3119,7 @@ 0, 0 - 1347, 25 + 1261, 25 1 @@ -2224,30 +3139,6 @@ 22 - - 1261, 249 - - - Automatische Indexe - - - XtraTabPage1 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 0 - - - 1267, 277 - - - 2 - Left @@ -2469,27 +3360,6 @@ 1 - - 1261, 249 - - - Manuelle Indexe - - - XtraTabPage3 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 1 - - - True - True @@ -2649,6 +3519,9 @@ 4 + + 940, 56 + 786, 56 @@ -2828,78 +3701,6 @@ 5 - - 1261, 249 - - - Zurodnung Dokumentart - Entität - - - XtraTabPage2 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 2 - - - MiddleLeft - - - 714, 26 - - - 81, 24 - - - 17 - - - Speichern - - - MiddleRight - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage4 - - - 0 - - - Segoe UI, 9.75pt - - - 11, 25 - - - 697, 25 - - - 16 - - - FOLDER_FOR_INDEXTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage4 - - - 1 - True @@ -3119,93 +3920,6 @@ 6 - - False - - - 11, 56 - - - 573, 119 - - - 13 - - - Neuer Unterordner: - - - grbxFolderforIndex - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage4 - - - 2 - - - True - - - NoControl - - - 8, 9 - - - 108, 13 - - - 12 - - - Variabler Ordnerpfad - - - Label17 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage4 - - - 3 - - - 1261, 249 - - - Variabler Ordnerpfad - - - XtraTabPage4 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 3 - - - XtraTabControl1 - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - $this - - - 0 - 1184, 56 @@ -3280,7 +3994,7 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null BindingNavigatorCountItem @@ -3394,25 +4108,25 @@ TBDD_EINGANGSARTENTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_EINGANGSARTENTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_DOKUMENTARTTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_DOKUMENTARTTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_INDEX_AUTOMTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBDD_INDEX_AUTOMBindingSource @@ -3706,19 +4420,19 @@ TBPMO_FORM_VIEWTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TBWH_DOKART_MODULETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ToolTipController1 diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb index ebea277..78eca40 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb @@ -257,6 +257,7 @@ End Select End Sub Sub Load_Variable_Folder() + lblpathsaved.Visible = False Try If GUIDTextBox.Text <> "" Then FOLDER_FOR_INDEXTextBox.Enabled = True @@ -281,7 +282,8 @@ Dim sql = String.Format("SELECT [CONTROL_ID] , [CONTROL_COL_NAME]AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _ "WHERE CTRLTYPE_ID in (2,3,4) and FORM_ID = {0} UNION ALL " & _ "SELECT [CONTROL_ID] , [CTRLSCR_CAPTION] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _ - "WHERE CTRLTYPE_ID = 1 AND [CONTROL_SQLCOMMAND_1] <> '' and FORM_ID = {0} " & _ + "WHERE CTRLTYPE_ID = 1 AND [CONTROL_SQLCOMMAND_1] <> '' and FORM_ID = {0} UNION ALL " & _ + "SELECT '999', 'Doctype' AS DISPLAY " & _ "ORDER BY DISPLAY", GUIDTextBox.Text) Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql, "LoadControlsForEntity - NameConvention") If DT1.Rows.Count >= 1 Then @@ -486,8 +488,18 @@ cmbCrFolderDate.SelectedIndex = -1 Changes = True ElseIf cmbIndex_Controls.SelectedIndex <> -1 Then - Dim value = Me.cmbIndex_Controls.Text.ToString.ToUpper - Dim text As String = "[%CTRL" & value & "#" & cmbIndex_Controls.SelectedValue & "]" + Dim value + Dim praefix + Dim text As String + Select Case cmbIndex_Controls.SelectedValue + Case 999 + value = "Doctype" + praefix = "[%VAR" + Case Else + value = Me.cmbIndex_Controls.Text.ToString.ToUpper + praefix = "[%CTRL" + End Select + text = praefix & value & "#" & cmbIndex_Controls.SelectedValue & "]" text = text.Replace("##", "#") Me.FOLDER_FOR_INDEXTextBox.Text = str & text cmbIndex_Controls.SelectedIndex = -1 @@ -517,7 +529,9 @@ If USER_LANGUAGE <> "de-DE" Then msg = "Data saved - " & Now.ToString End If - MsgBox(msg, MsgBoxStyle.Information) + lblpathsaved.Text = msg + lblpathsaved.Visible = True + End If Catch ex As Exception diff --git a/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb b/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb index bffe825..62442f0 100644 --- a/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb @@ -161,6 +161,7 @@ Partial Class frmWD_IndexFile Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmWD_IndexFile.resx b/app/DD-Record-Organiser/frmWD_IndexFile.resx index 7654d43..cba5cd0 100644 --- a/app/DD-Record-Organiser/frmWD_IndexFile.resx +++ b/app/DD-Record-Organiser/frmWD_IndexFile.resx @@ -1191,19 +1191,19 @@ DD_DMSDataSet - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null VWPMO_DOKUMENTTYPESTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null ColumnHeader1 @@ -1233,7 +1233,7 @@ TBPMO_FILES_USERTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null VWDDINDEX_AUTOMBindingSource @@ -1245,7 +1245,7 @@ VWDDINDEX_AUTOMTableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null frmWD_IndexFile diff --git a/app/DD-Record-Organiser/frmWD_IndexFile.vb b/app/DD-Record-Organiser/frmWD_IndexFile.vb index cb855a6..131970c 100644 --- a/app/DD-Record-Organiser/frmWD_IndexFile.vb +++ b/app/DD-Record-Organiser/frmWD_IndexFile.vb @@ -319,6 +319,7 @@ Public Class frmWD_IndexFile End If End If If cmbDokumentart.SelectedIndex <> -1 Then + My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text My.Settings.Save() Indexing_File(cmbDokumentart.SelectedValue)