Vererbung Werte 1

app/TaskFlow/ClassParamRefresh.vb

@@ -219,6 +219,25 @@ Public Class ClassParamRefresh
                     Catch ex As Exception
                         TITLE_NOTIFICATIONS = ""
                     End Try
+                ElseIf oMode.StartsWith("TF.InheritanceMsgAmount") Then
+                    Dim oParam = oMode.Replace("TF.InheritanceMsgAmount=", "")
+                    Try
+                        InheritanceMsgAmount = oParam
+                    Catch ex As Exception
+
+                    End Try
+                ElseIf oMode.StartsWith("TF.InheritanceCalcReset") Then
+                    Dim oParam = oMode.Replace("TF.InheritanceCalcReset=", "")
+                    Try
+                        If CBool(oParam) = True Then
+                            LOGGER.Info("InheritanceMsgAmount wird auf 0 zurückgesetzt")
+
+                            CONFIG.Config.UserInheritance_ConfirmationByColumn = Nothing
+                            CONFIG.Save()
+                        End If
+                    Catch ex As Exception
+
+                    End Try
                 ElseIf oMode.StartsWith("PM.START_CW") Then
                     Dim oAfterReplace = oMode.Replace("PM.START_CW=", "")
                     Try