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

MS1108_1

Browse Source
This commit is contained in:
SchreiberM
2016-08-11 12:00:03 +02:00
parent 3a8c24e2a3
commit 7512e479f5
10 changed files with 1370 additions and 562 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/ClassImport_Windream.vb
View File

@@ -566,6 +566,7 @@ Public Class ClassImport_Windream
End Select End Select
FolderConvention = FolderConvention.Replace(element.ToString, folder_temp) FolderConvention = FolderConvention.Replace(element.ToString, folder_temp)
Case "C" Case "C"
'Füllen mit Controlwert
Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#") Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#")
Dim APattern = element.Value.Substring(3, element.Value.Length - 4) Dim APattern = element.Value.Substring(3, element.Value.Length - 4)
Dim split() As String = elmt Dim split() As String = elmt
@@ -629,6 +630,17 @@ Public Class ClassImport_Windream
End If End If
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 Case Else
ClassLogger.Add(" -Undefined pattern found in folderconvention" & vbNewLine & "Elementname: " & element.Value.ToUpper) 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:") 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:")

40
app/DD-Record-Organiser/ClassNodes.vb Normal file
View File

@@ -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

1
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@@ -250,6 +250,7 @@
<Compile Include="ClassFolderWatcher.vb" /> <Compile Include="ClassFolderWatcher.vb" />
<Compile Include="ClassJumpRecord.vb" /> <Compile Include="ClassJumpRecord.vb" />
<Compile Include="ClassLicence.vb" /> <Compile Include="ClassLicence.vb" />
<Compile Include="ClassNodes.vb" />
<Compile Include="ClassRecordState.vb" /> <Compile Include="ClassRecordState.vb" />
<Compile Include="ClassRecordView.vb" /> <Compile Include="ClassRecordView.vb" />
<Compile Include="ClassSAP.vb" /> <Compile Include="ClassSAP.vb" />

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

@@ -281,7 +281,7 @@ Public Class frmConstructor_Main
Dim bimage = row.Item("NODE_IMAGE") Dim bimage = 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("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 End If
Catch ex As Exception Catch ex As Exception
@@ -1179,392 +1179,407 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub Load_Tree_View(ConstructorId As Integer) 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() TreeViewMain.Nodes.Clear()
If NODE_NAVIGATION = True Then If NODE_NAVIGATION = True Then
' Rootnode erstellen und taggen ' Rootnode erstellen und taggen
If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then If DT_TREEVIEW_PER_CONTROLS.Rows.Count > 1 Then
' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE. ' Presuming the DataTable has a column named ENTITY_ID and TYPE_NODE.
Dim expression As String Dim expression As String
expression = "TYPE_NODE = 0" expression = "TYPE_NODE = 0"
Dim foundRowsLevel0() As DataRow Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter. ' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression) foundRowsLevel0 = DT_TREEVIEW_PER_CONTROLS.Select(expression)
Dim i As Integer Dim i As Integer
' For each row create a Node Dim NODE_CONFIG_ID
For i = 0 To foundRowsLevel0.GetUpperBound(0) ' For each row create a Node
Dim ID = foundRowsLevel0(i)("GUID") For i = 0 To foundRowsLevel0.GetUpperBound(0)
Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID") Dim ID = foundRowsLevel0(i)("GUID")
Dim controlID = foundRowsLevel0(i)("CONTROL_ID") Dim LevelEntity = foundRowsLevel0(i)("ENTITY_ID")
Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION") Dim controlID = foundRowsLevel0(i)("CONTROL_ID")
Dim Type_node = foundRowsLevel0(i)("TYPE_NODE") Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION")
Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID") Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
Dim LEVEL0_NODE As TreeNode Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
LEVEL0_NODE = New TreeNode(nodetext) NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID")
If Not IsDBNull(RECORD_ID) Then Dim LEVEL0_NODE As TreeNode
LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID & "#RECORD-ID" & RECORD_ID.ToString LEVEL0_NODE = New TreeNode(nodetext)
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)
If Not IsDBNull(RECORD_ID) Then 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 Else
LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1 LEVEL0_NODE.Tag = LevelEntity & " - CONTROL-ID" & controlID.ToString & "#" & ID
End If End If
index = 0 Dim index As Integer = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys 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 Exit For
End If End If
index += 1 index += 1
Next Next
LEVEL1_NODE.ImageIndex = index LEVEL0_NODE.ImageIndex = index
LEVEL1_NODE.SelectedImageIndex = index LEVEL0_NODE.SelectedImageIndex = index
' ..und einfügen TreeViewMain.Nodes.Add(LEVEL0_NODE)
LEVEL0_NODE.Nodes.Add(LEVEL1_NODE) '### LEVEL 1 laden #######
'### LEVEL 2 laden ####### Dim expressionLevel1 As String
Dim expressionLevel2 As String expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND Einschränkung auf Type 2 und Parent_Guid
expressionLevel2 = "TYPE_NODE = 2 AND PARENT_GUID = " & ID1 'Einschränkung auf Type und Parent_Guid Dim foundRowsLevel1() As DataRow
Dim foundRowsLevel2() As DataRow foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1)
foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2) Dim j As Integer
Dim k As Integer For j = 0 To foundRowsLevel1.GetUpperBound(0)
For k = 0 To foundRowsLevel2.GetUpperBound(0) Dim ID1 = foundRowsLevel1(j)("GUID")
Dim ID2 = foundRowsLevel2(k)("GUID") Dim LevelEntity1 = foundRowsLevel1(j)("ENTITY_ID")
Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID") Dim controlID1 = foundRowsLevel1(j)("CONTROL_ID")
Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID") Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION")
Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION") Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE")
RECORD_ID = foundRowsLevel2(k)("RECORD_ID") RECORD_ID = foundRowsLevel1(j)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel1(j)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL2_NODE As TreeNode Dim LEVEL1_NODE As TreeNode
LEVEL2_NODE = New TreeNode(nodetext2) LEVEL1_NODE = New TreeNode(nodetext1)
If Not IsDBNull(RECORD_ID) Then 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 Else
LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2 LEVEL1_NODE.Tag = LevelEntity1 & "-CONTROL-ID" & controlID1.ToString & "#" & ID1
End If End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys 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 Exit For
End If End If
index += 1 index += 1
Next Next
LEVEL2_NODE.ImageIndex = index LEVEL1_NODE.ImageIndex = index
LEVEL2_NODE.SelectedImageIndex = index LEVEL1_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
'### LEVEL 3 laden ####### '### LEVEL 2 laden #######
Dim expressionLevel3 As String Dim expressionLevel2 As String
expressionLevel3 = "TYPE_NODE = 3 AND PARENT_GUID = " & ID2 'Einschränkung auf Type und Parent_Guid expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel3() As DataRow Dim foundRowsLevel2() As DataRow
foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3) foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2)
Dim l As Integer Dim k As Integer
For l = 0 To foundRowsLevel3.GetUpperBound(0) For k = 0 To foundRowsLevel2.GetUpperBound(0)
Dim ID3 = foundRowsLevel3(l)("GUID") Dim ID2 = foundRowsLevel2(k)("GUID")
Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID") Dim LevelEntity2 = foundRowsLevel2(k)("ENTITY_ID")
Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID") Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION") Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION")
RECORD_ID = foundRowsLevel3(l)("RECORD_ID") RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel2(k)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL3_NODE As TreeNode Dim LEVEL2_NODE As TreeNode
LEVEL3_NODE = New TreeNode(nodetext3) LEVEL2_NODE = New TreeNode(nodetext2)
If Not IsDBNull(RECORD_ID) Then 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 Else
LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3 LEVEL2_NODE.Tag = LevelEntity2 & "-CONTROL-ID" & controlID2.ToString & "#" & ID2
End If End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys 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 Exit For
End If End If
index += 1 index += 1
Next Next
LEVEL3_NODE.ImageIndex = index LEVEL2_NODE.ImageIndex = index
LEVEL3_NODE.SelectedImageIndex = index LEVEL2_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL2_NODE.Nodes.Add(LEVEL3_NODE) LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
'### LEVEL 4 laden ####### '### LEVEL 3 laden #######
Dim expressionLevel4 As String Dim expressionLevel3 As String
expressionLevel4 = "TYPE_NODE = 4 AND PARENT_GUID = " & ID3 'Einschränkung auf Type und Parent_Guid expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel4() As DataRow Dim foundRowsLevel3() As DataRow
foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4) foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3)
Dim m As Integer Dim l As Integer
For m = 0 To foundRowsLevel4.GetUpperBound(0) For l = 0 To foundRowsLevel3.GetUpperBound(0)
Dim ID5 = foundRowsLevel4(m)("GUID") Dim ID3 = foundRowsLevel3(l)("GUID")
Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID") Dim LevelEntity3 = foundRowsLevel3(l)("ENTITY_ID")
Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID") Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION") Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION")
RECORD_ID = foundRowsLevel4(m)("RECORD_ID") RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel3(l)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL4_NODE As TreeNode Dim LEVEL3_NODE As TreeNode
LEVEL4_NODE = New TreeNode(nodetext5) LEVEL3_NODE = New TreeNode(nodetext3)
If Not IsDBNull(RECORD_ID) Then 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 Else
LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5 LEVEL3_NODE.Tag = LevelEntity3 & "-CONTROL-ID" & controlID3.ToString & "#" & ID3
End If End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys 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 Exit For
End If End If
index += 1 index += 1
Next Next
LEVEL4_NODE.ImageIndex = index LEVEL3_NODE.ImageIndex = index
LEVEL4_NODE.SelectedImageIndex = index LEVEL3_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL3_NODE.Nodes.Add(LEVEL4_NODE) LEVEL2_NODE.Nodes.Add(LEVEL3_NODE)
'### LEVEL 5 laden ####### '### LEVEL 4 laden #######
Dim expressionLevel5 As String Dim expressionLevel4 As String
expressionLevel5 = "TYPE_NODE = 5 AND PARENT_GUID = " & ID5 'Einschränkung auf Type und Parent_Guid expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel5() As DataRow Dim foundRowsLevel4() As DataRow
foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5) foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4)
Dim n As Integer Dim m As Integer
For n = 0 To foundRowsLevel5.GetUpperBound(0) For m = 0 To foundRowsLevel4.GetUpperBound(0)
Dim ID6 = foundRowsLevel5(n)("GUID") Dim ID5 = foundRowsLevel4(m)("GUID")
Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID") Dim LevelEntity5 = foundRowsLevel4(m)("ENTITY_ID")
Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID") Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION") Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION")
RECORD_ID = foundRowsLevel5(n)("RECORD_ID") RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel4(m)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL5_NODE As TreeNode Dim LEVEL4_NODE As TreeNode
LEVEL5_NODE = New TreeNode(nodetext6) LEVEL4_NODE = New TreeNode(nodetext5)
If Not IsDBNull(RECORD_ID) Then 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 Else
LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6 LEVEL4_NODE.Tag = LevelEntity5 & "-CONTROL-ID" & controlID5.ToString & "#" & ID5
End If End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys 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 Exit For
End If End If
index += 1 index += 1
Next Next
LEVEL5_NODE.ImageIndex = index LEVEL4_NODE.ImageIndex = index
LEVEL5_NODE.SelectedImageIndex = index LEVEL4_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL4_NODE.Nodes.Add(LEVEL5_NODE) LEVEL3_NODE.Nodes.Add(LEVEL4_NODE)
'### LEVEL 5 laden ####### '### LEVEL 5 laden #######
Dim expressionLevel6 As String Dim expressionLevel5 As String
expressionLevel6 = "TYPE_NODE = 6 AND PARENT_GUID = " & ID6 'Einschränkung auf Type und Parent_Guid expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel6() As DataRow Dim foundRowsLevel5() As DataRow
foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6) foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5)
Dim o As Integer Dim n As Integer
For o = 0 To foundRowsLevel6.GetUpperBound(0) For n = 0 To foundRowsLevel5.GetUpperBound(0)
Dim ID7 = foundRowsLevel6(o)("GUID") Dim ID6 = foundRowsLevel5(n)("GUID")
Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID") Dim LevelEntity6 = foundRowsLevel5(n)("ENTITY_ID")
Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID") Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION") Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION")
RECORD_ID = foundRowsLevel6(o)("RECORD_ID") RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel5(n)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL6_NODE As TreeNode Dim LEVEL5_NODE As TreeNode
LEVEL6_NODE = New TreeNode(nodetext7) LEVEL5_NODE = New TreeNode(nodetext6)
If Not IsDBNull(RECORD_ID) Then 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 Else
LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7 LEVEL5_NODE.Tag = LevelEntity6 & "-CONTROL-ID" & controlID6.ToString & "#" & ID6
End If End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys 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 Exit For
End If End If
index += 1 index += 1
Next Next
LEVEL6_NODE.ImageIndex = index LEVEL5_NODE.ImageIndex = index
LEVEL6_NODE.SelectedImageIndex = index LEVEL5_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL5_NODE.Nodes.Add(LEVEL6_NODE) LEVEL4_NODE.Nodes.Add(LEVEL5_NODE)
'### LEVEL 7 laden ####### '### LEVEL 5 laden #######
Dim expressionLevel7 As String Dim expressionLevel6 As String
expressionLevel7 = "TYPE_NODE = 7 AND PARENT_GUID = " & ID7 'Einschränkung auf Type und Parent_Guid expressionLevel6 = "PARENT_GUID = " & ID6 'TYPE_NODE = 6 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel7() As DataRow Dim foundRowsLevel6() As DataRow
foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7) foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6)
Dim p As Integer Dim o As Integer
For p = 0 To foundRowsLevel7.GetUpperBound(0) For o = 0 To foundRowsLevel6.GetUpperBound(0)
Dim ID8 = foundRowsLevel7(p)("GUID") Dim ID7 = foundRowsLevel6(o)("GUID")
Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID") Dim LevelEntity7 = foundRowsLevel6(o)("ENTITY_ID")
Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID") Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION") Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION")
RECORD_ID = foundRowsLevel7(p)("RECORD_ID") RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel6(o)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL7_NODE As TreeNode Dim LEVEL6_NODE As TreeNode
LEVEL7_NODE = New TreeNode(nodetext8) LEVEL6_NODE = New TreeNode(nodetext7)
If Not IsDBNull(RECORD_ID) Then 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 Else
LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8 LEVEL6_NODE.Tag = LevelEntity7 & "-CONTROL-ID" & controlID7.ToString & "#" & ID7
End If End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys 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 Exit For
End If End If
index += 1 index += 1
Next Next
LEVEL7_NODE.ImageIndex = index LEVEL6_NODE.ImageIndex = index
LEVEL7_NODE.SelectedImageIndex = index LEVEL6_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL6_NODE.Nodes.Add(LEVEL7_NODE) LEVEL5_NODE.Nodes.Add(LEVEL6_NODE)
'### LEVEL 7 laden ####### '### LEVEL 7 laden #######
Dim expressionLevel8 As String Dim expressionLevel7 As String
expressionLevel8 = "TYPE_NODE = 7 AND PARENT_GUID = " & ID7 'Einschränkung auf Type und Parent_Guid expressionLevel7 = "PARENT_GUID = " & ID7 'TYPE_NODE = 7 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel8() As DataRow Dim foundRowsLevel7() As DataRow
foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8) foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7)
Dim q As Integer Dim p As Integer
For q = 0 To foundRowsLevel8.GetUpperBound(0) For p = 0 To foundRowsLevel7.GetUpperBound(0)
Dim ID9 = foundRowsLevel8(q)("GUID") Dim ID8 = foundRowsLevel7(p)("GUID")
Dim LevelEntity9 = foundRowsLevel8(q)("ENTITY_ID") Dim LevelEntity8 = foundRowsLevel7(p)("ENTITY_ID")
Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID") Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID")
Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION") Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION")
RECORD_ID = foundRowsLevel8(q)("RECORD_ID") RECORD_ID = foundRowsLevel7(p)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel7(p)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL8_NODE As TreeNode Dim LEVEL7_NODE As TreeNode
LEVEL8_NODE = New TreeNode(nodetext9) LEVEL7_NODE = New TreeNode(nodetext8)
If Not IsDBNull(RECORD_ID) Then 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 Else
LEVEL8_NODE.Tag = LevelEntity9 & "-CONTROL-ID" & controlID9.ToString & "#" & ID9 LEVEL7_NODE.Tag = LevelEntity8 & "-CONTROL-ID" & controlID8.ToString & "#" & ID8
End If End If
index = 0 index = 0
For Each img As String In TREEVIEW_IMAGELIST.Images.Keys 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 Exit For
End If End If
index += 1 index += 1
Next Next
LEVEL8_NODE.ImageIndex = index LEVEL7_NODE.ImageIndex = index
LEVEL8_NODE.SelectedImageIndex = index LEVEL7_NODE.SelectedImageIndex = index
' ..und einfügen ' ..und einfügen
LEVEL7_NODE.Nodes.Add(LEVEL8_NODE) LEVEL6_NODE.Nodes.Add(LEVEL7_NODE)
'### LEVEL 8 laden ####### '### 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 7 Ende Next ' Level 6 Ende
Next ' Level 6 Ende Next ' Level 5 Ende
Next ' Level 5 Ende Next 'Level 4 Ende
Next 'Level 4 Ende Next 'Level 3 Ende
Next 'Level 3 Ende Next ' Level 2 Ende
Next ' Level 2 Ende Next 'Level 1 Ende
Next 'Level 1 Ende Next
Next
Else
MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical)
Me.Close()
End If
Else Else
MsgBox("Check the Control Navigation Option or inform Digital Data!", MsgBoxStyle.Critical) ' LINQ für Zugriff auf DT_VWPMO_CONSTRUCTOR_FORMS
Me.Close() Dim query1 = From form In DT_VWPMO_CONSTRUCTOR_FORMS.AsEnumerable()
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()
Select form Select form
Order By form.Item("SEQUENCE") Order By form.Item("SEQUENCE")
Where form.Item("PARENT_ID") = NODE1_ENTITY_ID Where form.Item("PARENT_ID") = 0
Dim Rows2 = query2.ToList() Dim Rows1 = query1.ToList()
For Each Row2 In Rows2
Dim LEVEL2_TITLE As String = Row2.Item("CAPTION").ToString For Each LEVEL1ROW In Rows1
Dim LEVEL2_ID As Integer = Row2.Item("FORM_ID") Dim LEVEL0_NODE As TreeNode
Dim LEVEL2_PARENT_ID As Integer = Row2.Item("PARENT_ID")
' Node erstellen.. Dim LEVEL2_NODE As TreeNode
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 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") '################## LEVEL 2 wird geladen #########
Dim LEVEL3_ID As Integer = Row3.Item("FORM_ID") 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.. ' Node erstellen..
LEVEL2_NODE = New TreeNode(LEVEL3_TITLE) LEVEL1_NODE = New TreeNode(LEVEL2_TITLE)
LEVEL2_NODE.Tag = LEVEL3_ID LEVEL1_NODE.Tag = LEVEL2_ID
' ..und einfügen ' ..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 Next
Next End If
End If If NODE_NAVIGATION = False Then
If NODE_NAVIGATION = False Then TreeViewMain.ExpandAll()
TreeViewMain.ExpandAll() End If
End If TreeViewMain.Nodes(0).EnsureVisible()
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 End Sub
Sub Create_variable_node() Sub Create_variable_node()

16
app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb generated
View File

@@ -42,7 +42,7 @@ Partial Class frmWD_Dokumentart_Konfig
Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim OBJEKTTYPLabel 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.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) 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.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.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter()
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
Me.lblpathsaved = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
BEZEICHNUNGLabel = New System.Windows.Forms.Label() BEZEICHNUNGLabel = New System.Windows.Forms.Label()
KURZNAMELabel = 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_IMPORT_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete 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.AllowUserToAddRows = False
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua DataGridViewCellStyle3.BackColor = System.Drawing.Color.Aqua
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
resources.ApplyResources(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView, "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView") resources.ApplyResources(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView, "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView")
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AutoGenerateColumns = False Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AutoGenerateColumns = False
Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -1282,6 +1284,7 @@ Partial Class frmWD_Dokumentart_Konfig
' '
'XtraTabPage4 'XtraTabPage4
' '
Me.XtraTabPage4.Controls.Add(Me.lblpathsaved)
Me.XtraTabPage4.Controls.Add(Me.Button3) Me.XtraTabPage4.Controls.Add(Me.Button3)
Me.XtraTabPage4.Controls.Add(Me.FOLDER_FOR_INDEXTextBox) Me.XtraTabPage4.Controls.Add(Me.FOLDER_FOR_INDEXTextBox)
Me.XtraTabPage4.Controls.Add(Me.grbxFolderforIndex) Me.XtraTabPage4.Controls.Add(Me.grbxFolderforIndex)
@@ -1372,6 +1375,12 @@ Partial Class frmWD_Dokumentart_Konfig
' '
Me.TBWH_DOKART_MODULETableAdapter.ClearBeforeFill = True 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 'frmWD_Dokumentart_Konfig
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@@ -1568,4 +1577,5 @@ Partial Class frmWD_Dokumentart_Konfig
Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents cmbIndex_Controls As System.Windows.Forms.ComboBox Friend WithEvents cmbIndex_Controls As System.Windows.Forms.ComboBox
Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents lblpathsaved As System.Windows.Forms.Label
End Class End Class

1270
app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx
View File

File diff suppressed because it is too large Load Diff

22
app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb
View File

@@ -257,6 +257,7 @@
End Select End Select
End Sub End Sub
Sub Load_Variable_Folder() Sub Load_Variable_Folder()
lblpathsaved.Visible = False
Try Try
If GUIDTextBox.Text <> "" Then If GUIDTextBox.Text <> "" Then
FOLDER_FOR_INDEXTextBox.Enabled = True 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] " & _ 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 " & _ "WHERE CTRLTYPE_ID in (2,3,4) and FORM_ID = {0} UNION ALL " & _
"SELECT [CONTROL_ID] , [CTRLSCR_CAPTION] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _ "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) "ORDER BY DISPLAY", GUIDTextBox.Text)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql, "LoadControlsForEntity - NameConvention") Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql, "LoadControlsForEntity - NameConvention")
If DT1.Rows.Count >= 1 Then If DT1.Rows.Count >= 1 Then
@@ -486,8 +488,18 @@
cmbCrFolderDate.SelectedIndex = -1 cmbCrFolderDate.SelectedIndex = -1
Changes = True Changes = True
ElseIf cmbIndex_Controls.SelectedIndex <> -1 Then ElseIf cmbIndex_Controls.SelectedIndex <> -1 Then
Dim value = Me.cmbIndex_Controls.Text.ToString.ToUpper Dim value
Dim text As String = "[%CTRL" & value & "#" & cmbIndex_Controls.SelectedValue & "]" 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("##", "#") text = text.Replace("##", "#")
Me.FOLDER_FOR_INDEXTextBox.Text = str & text Me.FOLDER_FOR_INDEXTextBox.Text = str & text
cmbIndex_Controls.SelectedIndex = -1 cmbIndex_Controls.SelectedIndex = -1
@@ -517,7 +529,9 @@
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "Data saved - " & Now.ToString msg = "Data saved - " & Now.ToString
End If End If
MsgBox(msg, MsgBoxStyle.Information) lblpathsaved.Text = msg
lblpathsaved.Visible = True
End If End If
Catch ex As Exception Catch ex As Exception

1
app/DD-Record-Organiser/frmWD_IndexFile.Designer.vb generated
View File

@@ -161,6 +161,7 @@ Partial Class frmWD_IndexFile
Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing
Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete

10
app/DD-Record-Organiser/frmWD_IndexFile.resx
View File

@@ -1191,19 +1191,19 @@
<value>DD_DMSDataSet</value> <value>DD_DMSDataSet</value>
</data> </data>
<data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve"> <data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
<value>DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;VWPMO_DOKUMENTTYPESTableAdapter.Name" xml:space="preserve"> <data name="&gt;&gt;VWPMO_DOKUMENTTYPESTableAdapter.Name" xml:space="preserve">
<value>VWPMO_DOKUMENTTYPESTableAdapter</value> <value>VWPMO_DOKUMENTTYPESTableAdapter</value>
</data> </data>
<data name="&gt;&gt;VWPMO_DOKUMENTTYPESTableAdapter.Type" xml:space="preserve"> <data name="&gt;&gt;VWPMO_DOKUMENTTYPESTableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_DOKUMENTTYPESTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
<value>TableAdapterManager</value> <value>TableAdapterManager</value>
</data> </data>
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;ColumnHeader1.Name" xml:space="preserve"> <data name="&gt;&gt;ColumnHeader1.Name" xml:space="preserve">
<value>ColumnHeader1</value> <value>ColumnHeader1</value>
@@ -1233,7 +1233,7 @@
<value>TBPMO_FILES_USERTableAdapter</value> <value>TBPMO_FILES_USERTableAdapter</value>
</data> </data>
<data name="&gt;&gt;TBPMO_FILES_USERTableAdapter.Type" xml:space="preserve"> <data name="&gt;&gt;TBPMO_FILES_USERTableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;VWDDINDEX_AUTOMBindingSource.Name" xml:space="preserve"> <data name="&gt;&gt;VWDDINDEX_AUTOMBindingSource.Name" xml:space="preserve">
<value>VWDDINDEX_AUTOMBindingSource</value> <value>VWDDINDEX_AUTOMBindingSource</value>
@@ -1245,7 +1245,7 @@
<value>VWDDINDEX_AUTOMTableAdapter</value> <value>VWDDINDEX_AUTOMTableAdapter</value>
</data> </data>
<data name="&gt;&gt;VWDDINDEX_AUTOMTableAdapter.Type" xml:space="preserve"> <data name="&gt;&gt;VWDDINDEX_AUTOMTableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmWD_IndexFile</value> <value>frmWD_IndexFile</value>

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

@@ -319,6 +319,7 @@ Public Class frmWD_IndexFile
End If End If
End If End If
If cmbDokumentart.SelectedIndex <> -1 Then If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save() My.Settings.Save()
Indexing_File(cmbDokumentart.SelectedValue) Indexing_File(cmbDokumentart.SelectedValue)