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" />

51
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,6 +1179,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub Load_Tree_View(ConstructorId As Integer) Sub Load_Tree_View(ConstructorId As Integer)
Try
Dim sw As New SW("Load_Tree_View") Dim sw As New SW("Load_Tree_View")
TreeViewMain.Nodes.Clear() TreeViewMain.Nodes.Clear()
@@ -1192,6 +1193,7 @@ Public Class frmConstructor_Main
' 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
Dim NODE_CONFIG_ID
' For each row create a Node ' For each row create a Node
For i = 0 To foundRowsLevel0.GetUpperBound(0) For i = 0 To foundRowsLevel0.GetUpperBound(0)
Dim ID = foundRowsLevel0(i)("GUID") Dim ID = foundRowsLevel0(i)("GUID")
@@ -1200,6 +1202,7 @@ Public Class frmConstructor_Main
Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION") Dim nodetext = foundRowsLevel0(i)("NODE_CAPTION")
Dim Type_node = foundRowsLevel0(i)("TYPE_NODE") Dim Type_node = foundRowsLevel0(i)("TYPE_NODE")
Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID") Dim RECORD_ID = foundRowsLevel0(i)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel0(i)("NODE_CONFIG_ID")
Dim LEVEL0_NODE As TreeNode Dim LEVEL0_NODE As TreeNode
LEVEL0_NODE = New TreeNode(nodetext) LEVEL0_NODE = New TreeNode(nodetext)
If Not IsDBNull(RECORD_ID) Then If Not IsDBNull(RECORD_ID) Then
@@ -1210,7 +1213,7 @@ Public Class frmConstructor_Main
Dim index As Integer = 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_node.ToString & LevelEntity.ToString Then If img = NODE_CONFIG_ID & "#" & LevelEntity Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1220,7 +1223,7 @@ Public Class frmConstructor_Main
TreeViewMain.Nodes.Add(LEVEL0_NODE) TreeViewMain.Nodes.Add(LEVEL0_NODE)
'### LEVEL 1 laden ####### '### LEVEL 1 laden #######
Dim expressionLevel1 As String Dim expressionLevel1 As String
expressionLevel1 = "TYPE_NODE = 1 AND PARENT_GUID = " & ID 'Einschränkung auf Type 2 und Parent_Guid expressionLevel1 = "PARENT_GUID = " & ID 'TYPE_NODE = 1 AND Einschränkung auf Type 2 und Parent_Guid
Dim foundRowsLevel1() As DataRow Dim foundRowsLevel1() As DataRow
foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1) foundRowsLevel1 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel1)
Dim j As Integer Dim j As Integer
@@ -1231,6 +1234,7 @@ Public Class frmConstructor_Main
Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION") Dim nodetext1 = foundRowsLevel1(j)("NODE_CAPTION")
Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE") Dim Type_node1 = foundRowsLevel1(j)("TYPE_NODE")
RECORD_ID = foundRowsLevel1(j)("RECORD_ID") RECORD_ID = foundRowsLevel1(j)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel1(j)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL1_NODE As TreeNode Dim LEVEL1_NODE As TreeNode
LEVEL1_NODE = New TreeNode(nodetext1) LEVEL1_NODE = New TreeNode(nodetext1)
@@ -1242,7 +1246,7 @@ Public Class frmConstructor_Main
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", "") = Type_node1 & LevelEntity1.ToString Then If img = NODE_CONFIG_ID & "#" & LevelEntity1 Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1253,7 +1257,7 @@ Public Class frmConstructor_Main
LEVEL0_NODE.Nodes.Add(LEVEL1_NODE) LEVEL0_NODE.Nodes.Add(LEVEL1_NODE)
'### LEVEL 2 laden ####### '### LEVEL 2 laden #######
Dim expressionLevel2 As String Dim expressionLevel2 As String
expressionLevel2 = "TYPE_NODE = 2 AND PARENT_GUID = " & ID1 'Einschränkung auf Type und Parent_Guid expressionLevel2 = "PARENT_GUID = " & ID1 'TYPE_NODE = 2 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel2() As DataRow Dim foundRowsLevel2() As DataRow
foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2) foundRowsLevel2 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel2)
Dim k As Integer Dim k As Integer
@@ -1263,6 +1267,7 @@ Public Class frmConstructor_Main
Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID") Dim controlID2 = foundRowsLevel2(k)("CONTROL_ID")
Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION") Dim nodetext2 = foundRowsLevel2(k)("NODE_CAPTION")
RECORD_ID = foundRowsLevel2(k)("RECORD_ID") RECORD_ID = foundRowsLevel2(k)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel2(k)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL2_NODE As TreeNode Dim LEVEL2_NODE As TreeNode
LEVEL2_NODE = New TreeNode(nodetext2) LEVEL2_NODE = New TreeNode(nodetext2)
@@ -1274,7 +1279,7 @@ Public Class frmConstructor_Main
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 & "#" & LevelEntity2 Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1285,7 +1290,7 @@ Public Class frmConstructor_Main
LEVEL1_NODE.Nodes.Add(LEVEL2_NODE) LEVEL1_NODE.Nodes.Add(LEVEL2_NODE)
'### LEVEL 3 laden ####### '### LEVEL 3 laden #######
Dim expressionLevel3 As String Dim expressionLevel3 As String
expressionLevel3 = "TYPE_NODE = 3 AND PARENT_GUID = " & ID2 'Einschränkung auf Type und Parent_Guid expressionLevel3 = "PARENT_GUID = " & ID2 'TYPE_NODE = 3 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel3() As DataRow Dim foundRowsLevel3() As DataRow
foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3) foundRowsLevel3 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel3)
Dim l As Integer Dim l As Integer
@@ -1295,6 +1300,7 @@ Public Class frmConstructor_Main
Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID") Dim controlID3 = foundRowsLevel3(l)("CONTROL_ID")
Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION") Dim nodetext3 = foundRowsLevel3(l)("NODE_CAPTION")
RECORD_ID = foundRowsLevel3(l)("RECORD_ID") RECORD_ID = foundRowsLevel3(l)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel3(l)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL3_NODE As TreeNode Dim LEVEL3_NODE As TreeNode
LEVEL3_NODE = New TreeNode(nodetext3) LEVEL3_NODE = New TreeNode(nodetext3)
@@ -1306,7 +1312,7 @@ Public Class frmConstructor_Main
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 & "#" & LevelEntity3 Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1317,7 +1323,7 @@ Public Class frmConstructor_Main
LEVEL2_NODE.Nodes.Add(LEVEL3_NODE) LEVEL2_NODE.Nodes.Add(LEVEL3_NODE)
'### LEVEL 4 laden ####### '### LEVEL 4 laden #######
Dim expressionLevel4 As String Dim expressionLevel4 As String
expressionLevel4 = "TYPE_NODE = 4 AND PARENT_GUID = " & ID3 'Einschränkung auf Type und Parent_Guid expressionLevel4 = "PARENT_GUID = " & ID3 'TYPE_NODE = 4 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel4() As DataRow Dim foundRowsLevel4() As DataRow
foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4) foundRowsLevel4 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel4)
Dim m As Integer Dim m As Integer
@@ -1327,6 +1333,7 @@ Public Class frmConstructor_Main
Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID") Dim controlID5 = foundRowsLevel4(m)("CONTROL_ID")
Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION") Dim nodetext5 = foundRowsLevel4(m)("NODE_CAPTION")
RECORD_ID = foundRowsLevel4(m)("RECORD_ID") RECORD_ID = foundRowsLevel4(m)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel4(m)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL4_NODE As TreeNode Dim LEVEL4_NODE As TreeNode
LEVEL4_NODE = New TreeNode(nodetext5) LEVEL4_NODE = New TreeNode(nodetext5)
@@ -1338,7 +1345,7 @@ Public Class frmConstructor_Main
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 & "#" & LevelEntity5 Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1349,7 +1356,7 @@ Public Class frmConstructor_Main
LEVEL3_NODE.Nodes.Add(LEVEL4_NODE) LEVEL3_NODE.Nodes.Add(LEVEL4_NODE)
'### LEVEL 5 laden ####### '### LEVEL 5 laden #######
Dim expressionLevel5 As String Dim expressionLevel5 As String
expressionLevel5 = "TYPE_NODE = 5 AND PARENT_GUID = " & ID5 'Einschränkung auf Type und Parent_Guid expressionLevel5 = "PARENT_GUID = " & ID5 'TYPE_NODE = 5 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel5() As DataRow Dim foundRowsLevel5() As DataRow
foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5) foundRowsLevel5 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel5)
Dim n As Integer Dim n As Integer
@@ -1359,6 +1366,7 @@ Public Class frmConstructor_Main
Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID") Dim controlID6 = foundRowsLevel5(n)("CONTROL_ID")
Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION") Dim nodetext6 = foundRowsLevel5(n)("NODE_CAPTION")
RECORD_ID = foundRowsLevel5(n)("RECORD_ID") RECORD_ID = foundRowsLevel5(n)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel5(n)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL5_NODE As TreeNode Dim LEVEL5_NODE As TreeNode
LEVEL5_NODE = New TreeNode(nodetext6) LEVEL5_NODE = New TreeNode(nodetext6)
@@ -1370,7 +1378,7 @@ Public Class frmConstructor_Main
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 & "#" & LevelEntity6 Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1381,7 +1389,7 @@ Public Class frmConstructor_Main
LEVEL4_NODE.Nodes.Add(LEVEL5_NODE) LEVEL4_NODE.Nodes.Add(LEVEL5_NODE)
'### LEVEL 5 laden ####### '### LEVEL 5 laden #######
Dim expressionLevel6 As String Dim expressionLevel6 As String
expressionLevel6 = "TYPE_NODE = 6 AND PARENT_GUID = " & ID6 'Einschränkung auf Type und Parent_Guid expressionLevel6 = "PARENT_GUID = " & ID6 'TYPE_NODE = 6 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel6() As DataRow Dim foundRowsLevel6() As DataRow
foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6) foundRowsLevel6 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel6)
Dim o As Integer Dim o As Integer
@@ -1391,6 +1399,7 @@ Public Class frmConstructor_Main
Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID") Dim controlID7 = foundRowsLevel6(o)("CONTROL_ID")
Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION") Dim nodetext7 = foundRowsLevel6(o)("NODE_CAPTION")
RECORD_ID = foundRowsLevel6(o)("RECORD_ID") RECORD_ID = foundRowsLevel6(o)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel6(o)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL6_NODE As TreeNode Dim LEVEL6_NODE As TreeNode
LEVEL6_NODE = New TreeNode(nodetext7) LEVEL6_NODE = New TreeNode(nodetext7)
@@ -1402,7 +1411,7 @@ Public Class frmConstructor_Main
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 & "#" & LevelEntity7 Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1413,7 +1422,7 @@ Public Class frmConstructor_Main
LEVEL5_NODE.Nodes.Add(LEVEL6_NODE) LEVEL5_NODE.Nodes.Add(LEVEL6_NODE)
'### LEVEL 7 laden ####### '### LEVEL 7 laden #######
Dim expressionLevel7 As String Dim expressionLevel7 As String
expressionLevel7 = "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 foundRowsLevel7() As DataRow Dim foundRowsLevel7() As DataRow
foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7) foundRowsLevel7 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel7)
Dim p As Integer Dim p As Integer
@@ -1423,6 +1432,7 @@ Public Class frmConstructor_Main
Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID") Dim controlID8 = foundRowsLevel7(p)("CONTROL_ID")
Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION") Dim nodetext8 = foundRowsLevel7(p)("NODE_CAPTION")
RECORD_ID = foundRowsLevel7(p)("RECORD_ID") RECORD_ID = foundRowsLevel7(p)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel7(p)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL7_NODE As TreeNode Dim LEVEL7_NODE As TreeNode
LEVEL7_NODE = New TreeNode(nodetext8) LEVEL7_NODE = New TreeNode(nodetext8)
@@ -1434,7 +1444,7 @@ Public Class frmConstructor_Main
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 & "#" & LevelEntity8 Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1445,7 +1455,7 @@ Public Class frmConstructor_Main
LEVEL6_NODE.Nodes.Add(LEVEL7_NODE) LEVEL6_NODE.Nodes.Add(LEVEL7_NODE)
'### LEVEL 7 laden ####### '### LEVEL 7 laden #######
Dim expressionLevel8 As String Dim expressionLevel8 As String
expressionLevel8 = "TYPE_NODE = 7 AND PARENT_GUID = " & ID7 'Einschränkung auf Type und Parent_Guid expressionLevel8 = "PARENT_GUID = " & ID8 'TYPE_NODE = 7 AND Einschränkung auf Type und Parent_Guid
Dim foundRowsLevel8() As DataRow Dim foundRowsLevel8() As DataRow
foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8) foundRowsLevel8 = DT_TREEVIEW_PER_CONTROLS.Select(expressionLevel8)
Dim q As Integer Dim q As Integer
@@ -1455,6 +1465,7 @@ Public Class frmConstructor_Main
Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID") Dim controlID9 = foundRowsLevel8(q)("CONTROL_ID")
Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION") Dim nodetext9 = foundRowsLevel8(q)("NODE_CAPTION")
RECORD_ID = foundRowsLevel8(q)("RECORD_ID") RECORD_ID = foundRowsLevel8(q)("RECORD_ID")
NODE_CONFIG_ID = foundRowsLevel8(q)("NODE_CONFIG_ID")
' Node erstellen.. ' Node erstellen..
Dim LEVEL8_NODE As TreeNode Dim LEVEL8_NODE As TreeNode
LEVEL8_NODE = New TreeNode(nodetext9) LEVEL8_NODE = New TreeNode(nodetext9)
@@ -1466,7 +1477,7 @@ Public Class frmConstructor_Main
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 & "#" & LevelEntity9 Then
Exit For Exit For
End If End If
index += 1 index += 1
@@ -1565,6 +1576,10 @@ Public Class frmConstructor_Main
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)