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

MS clswindream entfernt Umstieg auf Modulwindream

Browse Source
This commit is contained in:
Developer01
2024-11-21 18:02:41 +01:00
parent b5ab9c5e1f
commit f05f6d46f8
85 changed files with 416997 additions and 1790 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -285,8 +285,8 @@ Module ModuleHelperMethods
CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
If NodeNav Then
Dim frmNN As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID)
frmNN.Tag = id
Dim frmNodeNav As New frmNodeNavigation(EntityID, CURRENT_CONSTRUCTOR_ID)
frmNodeNav.Tag = id
If My.Settings.EntFormsChild = True Then
Dim activeChild1 As Form = MAIN_FORM.ActiveMdiChild
If activeChild1 IsNot Nothing Then
@@ -300,10 +300,10 @@ Module ModuleHelperMethods
JUMP_RECORD_ID = recordId
End If
If My.Settings.EntFormsChild = True Then
frmNN.MdiParent = MAIN_FORM
frmNodeNav.MdiParent = MAIN_FORM
End If
frmNN.Show()
frmNodeNav.Show()
Else
Dim frm As New frmConstructor_Main()
frm.Tag = id
@@ -427,17 +427,7 @@ Module ModuleHelperMethods
End Try
End Sub
Public Sub OpenWindream_Files()
Dim frm As New frmWM_Import_Doc_Record
frm.MdiParent = MAIN_FORM
Dim activeChild As Form = MAIN_FORM.ActiveMdiChild
If activeChild IsNot Nothing Then
activeChild.WindowState = FormWindowState.Normal
End If
frm.Show()
End Sub
Public Sub OpenWiedervorlage()
Dim frm As New frmFollowUp
frm.MdiParent = MAIN_FORM