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

MS_11.12.2015

Browse Source
This commit is contained in:
SchreiberM
2015-12-11 11:16:57 +01:00
parent 1354113330
commit 16ae3d142f
16 changed files with 660 additions and 332 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -189,11 +189,11 @@ Public Class frmConstructorDesigner
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)
If DT.Rows.Count = 1 Then
TreeView1.Nodes.Clear()
If DT.Rows.Count >= 1 Then
TreeViewDetails.Nodes.Clear()
For Each rowEbene0 As DataRow In DT.Rows
Dim Node As TreeNode
Node = TreeView1.Nodes.Add("E1: " & rowEbene0.Item("FORM_TITLE").ToString)
Node = TreeViewDetails.Nodes.Add("E1: " & rowEbene0.Item("FORM_TITLE").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") & _
@@ -218,8 +218,8 @@ Public Class frmConstructorDesigner
End If
Next
TreeView1.ExpandAll()
TreeView1.Nodes(0).EnsureVisible()
TreeViewDetails.ExpandAll()
TreeViewDetails.Nodes(0).EnsureVisible()
Else
MsgBox("Achtung Konfigurationsfehler: Mehrere oder keine Level 0 Entität gefunden!" & "Korrigieren Sie bitte Ihre Eingaben", MsgBoxStyle.Exclamation)
End If
@@ -241,10 +241,10 @@ Public Class frmConstructorDesigner
End If
End Sub
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewDetails.AfterSelect
Try
If Not TreeView1.SelectedNode Is Nothing Then
Dim construct_id As Integer = Integer.Parse(TreeView1.SelectedNode.Tag)
If Not TreeViewDetails.SelectedNode Is Nothing Then
Dim construct_id As Integer = Integer.Parse(TreeViewDetails.SelectedNode.Tag)
SELECTED_CONSTRUCTOR_DETAIL_ID = construct_id
Me.tslblSaveDetail.Visible = False
Load_Detail(construct_id)