Messpunkte integriert

app/TaskFlow/ClassControlCreator.vb

@@ -93,7 +93,7 @@ Public Class ClassControlCreator
         Public Attribute As String
         Public [ReadOnly] As Boolean = False
         Public BackColor As Color = Color.White
-
+        Public Property IsDirty As Boolean = False
     End Class
 
     Public Sub New(pLogConfig As LogConfig)

app/TaskFlow/ClassParamRefresh.vb

@@ -73,6 +73,8 @@ Public Class ClassParamRefresh
                 ElseIf oMode = "PM.DEBUG_LOG" Then
                     DEBUG = True
                     LOGCONFIG.Debug = True
+                ElseIf oMode = "PM.LOG_HOTSPOTS" Then
+                    LOG_HOTSPOTS = True
                 ElseIf oMode.StartsWith("OPERATION_MODE_FS") Then
                     OPERATION_MODE_FS = oMode.Replace("OPERATION_MODE_FS=", "")
                     If OPERATION_MODE_FS = ClassConstants.OpModeFS_IDBWM Then

app/TaskFlow/ModuleMySettings.vb

@@ -14,7 +14,7 @@
     Public Property NO_DETAIL_PROFILES As Boolean = False
     ' Debug Settings
     Public Property DEBUG As Boolean = False
-
+    Public Property LOG_HOTSPOTS As Boolean = False
     Public Property INDEX_DMS_ERSTELLT = "DMS erstellt"
     Public Property INDEX_DMS_ERSTELLT_ZEIT = "DMS erstellt (Zeit)"
 

app/TaskFlow/frmMain.vb

@@ -2544,10 +2544,10 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
 
         Handling_DEBUG_USER()
 
-        Dim oSQL = $"SELECT * FROM TBDD_NOTIFICATIONS_SYSTEM NOTE
-            INNER JOIN (SELECT * FROM TBDD_NOTIFICATIONS_SYSTEM WHERE LANG_CODE = '{USER_LANGUAGE}' OR LANG_CODE = 'ALL') LANG ON NOTE.GUID = LANG.GUID
+        Dim oSQL = $"SELECT * FROM TBDD_NOTIFICATIONS_SYSTEM NOTE WITH (NOLOCK) 
+            INNER JOIN (SELECT * FROM TBDD_NOTIFICATIONS_SYSTEM WITH (NOLOCK) WHERE LANG_CODE = '{USER_LANGUAGE}' OR LANG_CODE = 'ALL') LANG ON NOTE.GUID = LANG.GUID
                 where (CONVERT(DATE,GETDATE()) <= NOTE.DISPLAY_UNTIL or NOTE.DISPLAY_UNTIL IS NULL) AND NOTE.MODULE = 'PM' 
-            AND NOTE.GUID NOT IN (SELECT NOTIFY_ID FROM TBDD_NOTIFICATIONS_USER_HISTORY WHERE USR_ID = {USER_ID})"
+            AND NOTE.GUID NOT IN (SELECT NOTIFY_ID FROM TBDD_NOTIFICATIONS_USER_HISTORY WITH (NOLOCK) WHERE USR_ID = {USER_ID})"
         Dim oDT As DataTable = DatabaseFallback.GetDatatable("TBDD_NOTIFICATIONS_SYSTEM", New GetDatatableOptions(oSQL, DatabaseType.ECM))
 
         If Not IsNothing(oDT) Then