This commit is contained in:
SchreiberM
2016-12-09 10:23:42 +01:00
parent 481e767a99
commit 30a6c6b9fb
35 changed files with 1449 additions and 3454 deletions

View File

@@ -760,7 +760,7 @@ Public Class ClassControlValues
Dim vorgabe = defaultValue
'Wenn der Default Wert über einen Select kommt
If vorgabe.ToString.ToLower.StartsWith("select") Then
vorgabe = defaultValue.Replace("@FORM_ID", CURRENT_FORM_ID)
vorgabe = defaultValue.Replace("@FORM_ID", CURRENT_ENTITY_ID)
vorgabe = vorgabe.Replace("@RECORD_ID", CURRENT_RECORD_ID)
vorgabe = vorgabe.Replace("@RECORDID", CURRENT_RECORD_ID)
vorgabe = vorgabe.Replace("@PARENTRECORD_ID", CURRENT_PARENT_RECORD_ID)