This commit is contained in:
SchreiberM
2016-09-12 10:44:27 +02:00
parent ba5e88b91b
commit 89853759cb
27 changed files with 571 additions and 431 deletions

View File

@@ -21,9 +21,6 @@
Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId, entity_ID)
If ControlId = 272 Then
Console.WriteLine("272")
End If
If SQL = "" Or IsDBNull(SQL) Then
Return Nothing
@@ -454,7 +451,7 @@
End If
End While
Next
If CtrlCommandUI.IsEdit Then
If CtrlCommandUI.IsEdit Or CtrlCommandUI.IsInsert Then
CURRENT_RECORD_ENABLED = True
End If