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

Merge branch 'master' of http://172.24.11.74:90/scm/git/RecordOrganizer

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-07-13 10:30:39 +02:00
commit c77608c5e5
3 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -266,7 +266,12 @@ Module ModuleHelperMethods
Public Sub OpenFormConstructor(id As Integer, Optional recordId As Integer = -1)
Try
If CURRENT_OPEN_CONSTRUCTOR_FORMS.Contains(id) Then
Exit Sub
End If
CURRENT_CONSTRUCTOR_ID = id
CURRENT_OPEN_CONSTRUCTOR_FORMS.Add(id)
Dim frm As New frmConstructor_Main()
' frm = frmForm_Constructor.Instance()

2
app/DD-Record-Organizer/ModuleRuntimeVariables.vb
View File

@ -47,7 +47,7 @@
Public CURRENT_DOKARTID As Integer
Public CURRENT_DOKARTSTRING As String
Public CURRENT_OPEN_CONSTRUCTOR_FORMS As New List(Of Integer)
Public CURRENT_CONSTRUCTOR_ID As Integer = 1
Public CURRENT_CONSTRUCTOR_DETAIL_ID As Integer
Public CURRENT_FILEID As Integer

2
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -230,6 +230,8 @@ Public Class frmConstructor_Main
End If
ClassWindowLocation.SaveFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
CURRENT_OPEN_CONSTRUCTOR_FORMS.Remove(CONSTRUCTORID)
' Verhindert, das noch geöffnete Records für immer gelockt sind
If Not IsNothing(CURRENT_DOCVIEW) Then
Try