MS_31052016

This commit is contained in:
SchreiberM
2016-05-31 15:18:02 +02:00
parent ecb4161e6a
commit b70a105827
26 changed files with 441 additions and 432 deletions

View File

@@ -1395,7 +1395,6 @@ Public Class frmConstructor_Main
Next
End Sub
Function Save_Record()
Try
Me.Cursor = Cursors.WaitCursor
@@ -1468,9 +1467,8 @@ Public Class frmConstructor_Main
'Show_Verknuepfungen()
End If
End Select
Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
ClassDatabase.Execute_non_Query_withConn(exec, 1)
'Dim exec = String.Format("EXEC PRPMO_CLIENT_AFTER_RECORD_INSERT {0}", CURRENT_RECORD_ID)
'ClassDatabase.Execute_non_Query_withConn(exec, 1)
ElseIf EDIT_STATE = EditState.Update Then
'Weil es ein Insert war müssen noch die Daten gespeichert/erneuert werden
Select Case ACT_EBENE