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

jj: add line control

Browse Source
This commit is contained in:
Jonathan Jenne
2018-04-04 13:26:06 +02:00
parent 7061728251
commit fd2dc4bf99
2 changed files with 48 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -42,6 +42,8 @@
Return 12
Case CurrentType.Contains("ListBoxControl".ToUpper)
Return 13
Case CurrentType.Contains("LineLabel")
Return 14
Case Else
Return -1
End Select
@@ -100,7 +102,14 @@
' 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 & ", '')"
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"