MS_18052016

This commit is contained in:
SchreiberM
2016-05-18 11:21:23 +02:00
parent 1530b63838
commit 41f2760a88
19 changed files with 4026 additions and 3465 deletions

View File

@@ -695,9 +695,6 @@ Public Class ClassControlValues
Exit Sub
End If
If SQL_AUTOVALUE.ToUpper.StartsWith("select RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE".ToUpper) Then
SQL_AUTOVALUE = "SELECT MAX(RECORD_ENTITY_ID) + 1 FROM TBPMO_RECORD WHERE FORM_ID = " & entity_ID
End If
If Not IsNothing(CONNID) Then
autoValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, SQL_AUTOVALUE)
Else