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

MS18.10.2017

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-10-18 11:40:17 +02:00
parent 76796df71f
commit ccdac594d1
12 changed files with 1077 additions and 974 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1743,8 +1743,8 @@ Public Class frmConstructor_Main
End If
End If
Me.Cursor = Cursors.WaitCursor
Try
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
' Try
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
SELECTED_RECORD_ID = 0
Lock_RecordControls(False)
tsButtonCancel.Visible = True
@@ -1752,9 +1752,9 @@ Public Class frmConstructor_Main
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
' Den Record anlegen, damit wir eine RECORD_ID bekommen
If ClassRecordCommands.CreateRecord(ENTITY_ID) = True Then
' Die RECORD_ID auslesen und setzen
NEW_RECORD_ID = ClassRecordCommands.GetLastRecord(ENTITY_ID)
CURRENT_RECORD_ID = NEW_RECORD_ID
' Die RECORD_ID auslesen und setzen
NEW_RECORD_ID = ClassRecordCommands.GetLastRecord()
CURRENT_RECORD_ID = NEW_RECORD_ID
RECORD_ID = NEW_RECORD_ID
SELECTED_RECORD_ID = NEW_RECORD_ID
ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
@@ -1787,11 +1787,11 @@ Public Class frmConstructor_Main
End If
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace)
Finally
Me.Cursor = Cursors.Default
End Try
' Catch ex As Exception
'ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace)
' Finally
'Me.Cursor = Cursors.Default
' End Try
End Sub
Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
@@ -2837,8 +2837,6 @@ Public Class frmConstructor_Main
If CtrlCommandUI.IsInsert = True Then
EDIT_STATE = EditState.None
Lock_RecordControls(True)
'Me.pnlDetails.Enabled = False
'CtrlCommandUI.IsInsert = False
End If
Try
Dim ResultMessage = Update_Record_OnChange()
@@ -6400,7 +6398,7 @@ Public Class frmConstructor_Main
If RECORD_CREATE = True Then
ClassRecordCommands.CreateRecord(ENTITY_ID)
Try
NEWRECORD = ClassRecordCommands.GetLastRecord(ENTITY_ID)
NEWRECORD = ClassRecordCommands.GetLastRecord()
Catch ex As Exception
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND ADDED_WHO = '" & USER_USERNAME & "'"
NEWRECORD = ClassDatabase.Execute_Scalar(SQL)