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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-10-10 08:36:55 +02:00
parent 6b4a3cc78e
commit 5ea4bedfa1
3 changed files with 33 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/slnx.sqlite
View File

Binary file not shown.

2
app/DD-Record-Organizer/ClassRecordCommands.vb
View File

@ -4,7 +4,7 @@
Return ClassDatabase.Execute_non_Query(SQL) = True Return ClassDatabase.Execute_non_Query(SQL) = True
End Function End Function
Public Shared Function GetLastRecord() Public Shared Function GetLastRecord()
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND ADDED_WHO = '" & USER_USERNAME & "'" Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & CURRENT_ENTITY_ID & " AND UPPER(ADDED_WHO) = '" & USER_USERNAME & "'"
Return ClassDatabase.Execute_Scalar(SQL) Return ClassDatabase.Execute_Scalar(SQL)
End Function End Function

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

@ -1751,9 +1751,9 @@ Public Class frmConstructor_Main
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
' Den Record anlegen, damit wir eine RECORD_ID bekommen ' Den Record anlegen, damit wir eine RECORD_ID bekommen
ClassRecordCommands.CreateRecord(ENTITY_ID) If ClassRecordCommands.CreateRecord(ENTITY_ID) = True Then
' Die RECORD_ID auslesen und setzen ' Die RECORD_ID auslesen und setzen
NEW_RECORD_ID = ClassRecordCommands.GetLastRecord() NEW_RECORD_ID = ClassRecordCommands.GetLastRecord(ENTITY_ID)
CURRENT_RECORD_ID = NEW_RECORD_ID CURRENT_RECORD_ID = NEW_RECORD_ID
RECORD_ID = NEW_RECORD_ID RECORD_ID = NEW_RECORD_ID
SELECTED_RECORD_ID = NEW_RECORD_ID SELECTED_RECORD_ID = NEW_RECORD_ID
@ -1785,6 +1785,8 @@ Public Class frmConstructor_Main
tslblFileslocked.Visible = False tslblFileslocked.Visible = False
tsButtonAdd.Enabled = False tsButtonAdd.Enabled = False
End If End If
End If
Catch ex As Exception Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace) ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace)
Finally Finally