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

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

Browse Source
This commit is contained in:
SchreiberM
2016-05-11 17:19:20 +02:00
parent d37acafcd9 028183d9b7
commit e6265cd227
4 changed files with 46 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -1320,6 +1320,8 @@ Public Class frmConstructor_Main
RECORD_ID = 0
Lock_RecordControls(False)
tsButtonShowWorkflowTasks.Enabled = True
tsButtonCancel.Visible = True
CURRENT_PARENT_ID = PARENT_ID
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID)
' Den Record anlegen, damit wir eine RECORD_ID bekommen
@@ -1504,6 +1506,7 @@ Public Class frmConstructor_Main
If CtrlCommandUI.IsInsert Then
tsButtonSave.Enabled = False
tsButtonCancel.Visible = False
Else
' DisableEditMode()
End If
@@ -5057,4 +5060,14 @@ Public Class frmConstructor_Main
tslblFileslocked.Text = msg
End If
End Sub
Private Sub tsButtonCancel_Click(sender As Object, e As EventArgs) Handles tsButtonCancel.Click
If CtrlCommandUI.IsInsert = True Then
Dim del = "EXEC [dbo].[PRPMO_DELETE_RECORD] " & SELECTED_RECORD_ID
ClassDatabase.Execute_non_Query(del, True)
End If
tsButtonCancel.Visible = False
CtrlCommandUI.IsInsert = False
RECORD_CHANGED = False
End Sub
End Class