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

MS_29012016

Browse Source
This commit is contained in:
SchreiberM
2016-01-29 14:46:32 +01:00
parent 3cc10569ad
commit 66b70f44b9
28 changed files with 3998 additions and 1981 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
app/DD-Record-Organiser/frmConstructorDesigner.vb
View File

@@ -188,28 +188,36 @@ Public Class frmConstructorDesigner
Sub Load_TreeViewEbene()
Try
Dim CONSTR_ID As Integer = CONSTRUCTOR_IDTextBox.Text
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0 AND FORM_TYPE_ID = 1 AND CONSTRUCT_ID = " & CONSTR_ID)
Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel_sql)
If DT.Rows.Count >= 1 Then
TreeViewDetails.Nodes.Clear()
For Each rowEbene0 As DataRow In DT.Rows
Dim Node As TreeNode
Node = TreeViewDetails.Nodes.Add("E1: " & rowEbene0.Item("FORM_TITLE").ToString)
Node = TreeViewDetails.Nodes.Add("E1: " & rowEbene0.Item("CAPTION").ToString)
Node.Tag = rowEbene0.Item("GUID")
'Jetzt die Ebene1Knoten einhängen
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, CONSTRUCT_ID, FORM_ID, FORM_TITLE FROM VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = " & rowEbene0.Item("FORM_ID") & _
" AND FORM_TYPE_ID in (2,5) AND CONSTRUCT_ID = " & CONSTR_ID & " ORDER BY SEQUENCE")
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID in (2,5) AND PARENT_ID = {2} AND CONSTRUCT_ID = {3} AND SCREEN_ID = {4} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, rowEbene0.Item("FORM_ID"), CONSTR_ID, CURRENT_SCREEN_ID)
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(sel_sql)
If dtEbene1.Rows.Count > 0 Then
For Each rowEbene1 As DataRow In dtEbene1.Rows
Dim Node1 As TreeNode
Node1 = Node.Nodes.Add("E2: " & rowEbene1.Item("FORM_TITLE").ToString)
Node1 = Node.Nodes.Add("E2: " & rowEbene1.Item("CAPTION").ToString)
Node1.Tag = rowEbene1.Item("GUID")
'Jetzt die Ebene2 Knoten einhängen
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable("SELECT GUID, CONSTRUCT_ID, FORM_ID, FORM_TITLE FROM VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = " & rowEbene1.Item("FORM_ID") & _
" AND FORM_TYPE_ID in (3,5) AND CONSTRUCT_ID = " & CONSTR_ID & " ORDER BY SEQUENCE")
sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = {2} AND CONSTRUCT_ID = {3} AND SCREEN_ID = {4} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, rowEbene1.Item("FORM_ID"), CONSTR_ID, CURRENT_SCREEN_ID)
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(sel_sql)
If dtEbene2.Rows.Count > 0 Then
For Each rowEbene2 As DataRow In dtEbene2.Rows
Dim Node2 As TreeNode
Node2 = Node1.Nodes.Add("E3: " & rowEbene2.Item("FORM_TITLE").ToString)
Node2 = Node1.Nodes.Add("E3: " & rowEbene2.Item("CAPTION").ToString)
Node2.Tag = rowEbene2.Item("GUID")
Next
End If