This commit is contained in:
SchreiberM
2016-08-24 15:54:10 +02:00
parent dc020c2c2e
commit cf2fa721de
7 changed files with 109 additions and 93 deletions

View File

@@ -920,6 +920,7 @@ Public Class frmConstructor_Main
'Check_Record_Changed()
DisableEditMode()
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
@@ -2135,7 +2136,8 @@ Public Class frmConstructor_Main
Next
End Select
End If
CtrlCommandUI.IsInsert = False
CtrlCommandUI.IsEdit = False
'Jetzt den Record nochmal laden
' Show_Selected_Record_Data(SELECTED_RECORD_ID)
Update_Status_Label(True, "Record saved - " & Now, EditState.Update)
@@ -2299,7 +2301,7 @@ Public Class frmConstructor_Main
End If
CURRENT_RECORD_ID = RECORD_ID
CtrlCommandUI.IsEdit = True
' Abhängige Listen laden
CtrlBuilder.WatchRecordChanges = False
'ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID)
@@ -2320,7 +2322,12 @@ Public Class frmConstructor_Main
Lock_RecordControls(True)
RECORD_ENABLED = False
CURRENT_RECORD_ENABLED = False
' Me.pnlDetails.Enabled = False
If Not IsNothing(CtrlCommandUI) Then
CtrlCommandUI.IsEdit = False
CtrlCommandUI.IsInsert = False
End If
Me.tsButtonDelete.Enabled = False
Me.tsButtonAdd.Enabled = True
Me.tsButtonSave.Enabled = False