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

MSKW37

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-09-19 12:52:35 +02:00
parent 96c08ada63
commit 3a175d04e5
19 changed files with 3463 additions and 3039 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD-Record-Organizer/ClassControlCommands.vb
View File

@@ -101,12 +101,11 @@
' SQL Befehl für CONTROL TABELLE
' SQL_COMMAND_1 auf leeren String setzen
SQL = "INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES (" & CURRENT_ENTITY_ID & ", " & CONTROL_TYPE_ID & ", '', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')"
'If LogErrorsOnly = False Then ClassLogger.Add(SQL, True)
If ClassDatabase.Execute_non_Query(SQL) = True Then
SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
Dim GUID = ClassDatabase.Execute_Scalar(SQL)
Return InsertControlScreen(GUID, control, CURRENT_ENTITY_ID)
Else
Throw New Exception()