AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS 2.3.0.4

Browse Source
This commit is contained in:
SchreiberM
2022-03-16 15:48:18 +01:00
parent 6c4fac05e8
commit 3ea6171c4f
28 changed files with 445 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/ClassFinalizeDoc.vb
View File

@@ -7,8 +7,8 @@ Public Class ClassFinalizeDoc
Dim _error As Boolean = False
If CURRENT_DT_FINAL_INDEXING Is Nothing Then
Dim oSQL = String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID)
'CURRENT_DT_FINAL_INDEXING = Database_ECM.GetDatatable(oSQL) ', "Write_Final_Metadata")
CURRENT_DT_FINAL_INDEXING = Database.GetDatatable("TBPM_PROFILE_FINAL_INDEXING", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
'CURRENT_DT_FINAL_INDEXING = DatabaseFallback.GetDatatableECM(oSQL) ', "Write_Final_Metadata")
CURRENT_DT_FINAL_INDEXING = DatabaseFallback.GetDatatable("TBPM_PROFILE_FINAL_INDEXING", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
.FilterExpression = $"PROFIL_ID = {CURRENT_ProfilGUID}"
})
@@ -50,7 +50,7 @@ Public Class ClassFinalizeDoc
sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject, True)
LOGGER.Debug("sql after ReplaceAllValues: " & sql_Statement)
Dim oDynamic_value = Database.GetScalarValueECM(sql_Statement) ', CONNECTION_STRING_ECM, "Write_Final_Metadata/dynamic_value")
Dim oDynamic_value = DatabaseFallback.GetScalarValueECM(sql_Statement) ', CONNECTION_STRING_ECM, "Write_Final_Metadata/dynamic_value")
If Not IsNothing(oDynamic_value) Then
value = oDynamic_value
Else