MS IDBData

app/DD_PM_WINDREAM/frmMassValidator.vb

@@ -1186,7 +1186,7 @@ Public Class frmMassValidator
                 If CreateWMObject() = True Then
                     If ClassFinalizeDoc.Write_Final_Metadata(CURRENT_WMFILE) = True Then
                         Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
-                        If Database_ECM.ExecuteNonQuery(sql) = True Then
+                        If Database.ExecuteNonQueryECM(sql) = True Then
                             workedFiles += 1
                         End If
                     End If
@@ -1279,7 +1279,7 @@ Public Class frmMassValidator
                             WORK_HISTORY_ENTRY = ""
                         End If
                         Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
-                        Database_ECM.ExecuteNonQuery(ins)
+                        Database.ExecuteNonQueryECM(ins)
 
                         '####### ANNOTIEREN WENN KONFIGURIERT #######
                         If docrow.Item("FULL_PATH").ToString.ToLower.EndsWith(".pdf") Then