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

MS

Browse Source
This commit is contained in:
SchreiberM
2023-04-06 16:50:34 +02:00
parent 9a9fe72b4f
commit aa7c68a4ce
34 changed files with 21393 additions and 804 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
app/DD-Record-Organizer/ModuleHelperMethods.vb
View File

@@ -289,33 +289,42 @@ Module ModuleHelperMethods
If NodeNav Then
Dim frmNN As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID)
frmNN.Tag = id
Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild
If activeChild1 IsNot Nothing Then
activeChild1.WindowState = FormWindowState.Normal
If My.Settings.EntFormsChild = True Then
Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild
If activeChild1 IsNot Nothing Then
activeChild1.WindowState = FormWindowState.Normal
End If
End If
If recordId <> -1 Then
' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen
JUMP_RECORD_ID = recordId
End If
If My.Settings.EntFormsChild = True Then
frmNN.MdiParent = MAIN_FORM
End If
frmNN.MdiParent = MAIN_FORM
frmNN.Show()
Else
Dim frm As New frmConstructor_Main()
frm.Tag = id
Dim activeChild As Form = MAIN_FORM.ActiveMdiChild
If activeChild IsNot Nothing Then
activeChild.WindowState = FormWindowState.Normal
If My.Settings.EntFormsChild = True Then
Dim activeChild As Form = MAIN_FORM.ActiveMdiChild
If activeChild IsNot Nothing Then
activeChild.WindowState = FormWindowState.Normal
End If
End If
If recordId <> -1 Then
' Wenn JUMP_RECORD_ID gesetzt wurde, wird zu diesem Record gesprungen
JUMP_RECORD_ID = recordId
End If
If My.Settings.EntFormsChild = True Then
frm.MdiParent = MAIN_FORM
End If
frm.MdiParent = MAIN_FORM
frm.Show()
End If