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

MS-Changes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-11-07 10:11:01 +01:00
parent 020bd7a390
commit fb6204abbc
5 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2123,6 +2123,13 @@ Public Class frmConstructor_Main
Sub DisableEditMode()
Dim REC = RECORD_ID
ClassRecordState.UnlockRecord(SELECTED_RECORD_ID)
Dim isinsert As Boolean
If IsNothing(CtrlCommandUI) Then
isinsert = 0
Else
isinsert = CtrlCommandUI.IsInsert
End If
ClassRecordCommands.CHECK_RECORD_FINAL(SELECTED_RECORD_ID, isinsert)
tsbtnRedo.Visible = False
Lock_RecordControls(True)
RECORD_ENABLED = False
@@ -5347,7 +5354,7 @@ Public Class frmConstructor_Main
Else ' Änderungen sollen nicht gespeichert werden
' Angelegten Record löschen
If CtrlCommandUI.IsInsert Then
ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "TrySave - UserdecidedNotToSave")
ClassHelper.DeleteRecord(SELECTED_RECORD_ID, "TrySave - UserdecidedNotToSave - ENTITY-ID: " & CURRENT_ENTITY_ID)
End If
' Änderungen sollen nicht gespeichert werden