MS Release 2.3.3

app/DD_PM_WINDREAM/frmValidator.vb

@@ -4177,10 +4177,16 @@ Public Class frmValidator
 
                     'Den Indexnamen auslesen
                     Dim oIndexName As String = oControlRow.Item("INDEX_NAME")
-
+                    Dim oDBControlName = oControlRow.Item("CTRL_NAME").ToString
                     Dim oIsRequired As Boolean = CBool(oControlRow.Item("VALIDATION"))
                     Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG"))
                     Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY"))
+                    If oDBControlName = "txtString00" And oControl.Name = "txtString00" Then
+                        MsgBox("txtString00")
+                    End If
+                    If oIsReadOnly = True Then
+                        Continue For
+                    End If
                     Dim oControlType As String = oControlRow.Item("CTRL_TYPE")
                     Dim oIDBTyp As Integer
                     If IDB_ACTIVE Then
@@ -4193,8 +4199,8 @@ Public Class frmValidator
                     oControlName = oControlRow.Item("CTRL_NAME")
                     Dim oOVERWRITE_DATA = oControlRow.Item("OVERWRITE_DATA")
 
-                    'Nur wenn der Name der Zeile entspricht    und der Index READ_ONLY FALSE ist
-                    If oControlRow.Item("CTRL_NAME") = oControl.Name And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then '(oIsReadOnly = False Or oSQLCheckCommand <> "") And
+                    'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist
+                    If oDBControlName = oControl.Name And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then ' oSQLCheckCommand <> "") And
                         LOGGER.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'")
                         If oIndexName = "" Then
                             LOGGER.Info(" >> Indexname is unexpected empty.")
@@ -5410,6 +5416,7 @@ Public Class frmValidator
             End If
             If Check_UpdateIndexe() = True Then
                 SetStatusLabel($"Data saved", "LimeGreen")
+                LOGGER.Info("Workflowdata saved manually!")
                 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, "Manual Save via button")
                 Database_ECM.ExecuteNonQuery(ins)
             Else