MS_22042016

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -621,8 +621,6 @@ Public Class frmConstructor_Main
         Me.Cursor = Cursors.WaitCursor
         Column_Row_Handler()
         Me.Cursor = Cursors.Default
-        Me.Refresh()
-        ' pnlDetails.Invoke(sender, e)
         'If dataloaded = True Then
         '    If LogErrorsOnly = False Then ClassLogger.Add(" >> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False)
         '    Dim selRecID = GetSelected_RecordID()
@@ -722,7 +720,8 @@ Public Class frmConstructor_Main
                             RIGHT_ONLY_READ = False
                         End Try
                         If RIGHT_ONLY_READ = True Then
-                            tsButtonAdd.Enabled = False
+                            ' Hinzufügen sollte auch bei RIGHT_ONLY_READ verfügbar sein
+                            tsButtonAdd.Enabled = True
                             tsButtonEdit.Enabled = False
                             tsButtonSave.Enabled = False
                             tsButtonDelete.Enabled = False
@@ -1154,9 +1153,11 @@ Public Class frmConstructor_Main
                 Lock_RecordControls(False)
                 tsButtonShowWorkflowTasks.Enabled = True
                 CURRENT_PARENT_ID = PARENT_ID
-                ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
+                ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls, CURRENT_PARENT_ID, ENTITY_ID)
                 ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
                 tsButtonSave.Enabled = True
+                ' Muss aktiviert werden, sonst funktionieren die Combobox Abhängigkeits Events nicht
+                CURRENT_RECORD_ENABLED = True
                 EDIT_STATE = EditState.Insert
                 RECORD_CHANGED = True
                 tsslblRecord.Text = "Adding record ......"
@@ -1333,7 +1334,7 @@ Public Class frmConstructor_Main
                     msg = "The record and all dependencies for '" & SELECTED_RECORD_ID & "' were deleted - " & Now
                 End If
                 Update_Status_Label(True, msg, EditState.Update)
-             
+
                 msg = "Wollen Sie die zugehörigen windream-Dateien ebenfalls löschen?"
                 If USER_LANGUAGE <> "de-DE" Then
                     msg = "Do You want to delete the related windream-documents?"
@@ -1992,14 +1993,6 @@ Public Class frmConstructor_Main
                 Case GetType(Windows.Forms.TextBox)
                     Dim txt As TextBox = CType(Control, TextBox)
                     txt.ReadOnly = state
-                Case GetType(DevExpress.XtraEditors.CheckedListBoxControl)
-                    'Dim chlb As DevExpress.XtraEditors.CheckedListBoxControl = CType(Control, DevExpress.XtraEditors.CheckedListBoxControl)
-                    'If state = True Then
-                    '    chlb.Enabled = False
-                    'Else
-                    '    chlb.Enabled = True
-                    'End If
-
                 Case Else
                     Control.Enabled = Not state
 
@@ -3197,6 +3190,7 @@ Public Class frmConstructor_Main
             If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
             If windreamSucheErgebnisse.Count > 0 Then
                 Dim files_deleted As Integer = 0
+
                 For Each dok As WMObject In windreamSucheErgebnisse
                     Dim filename = "W:" & dok.aPath
                     Try
@@ -3212,7 +3206,7 @@ Public Class frmConstructor_Main
                     MsgBox(msg, MsgBoxStyle.Information)
                 Next
             Else
-                Dim msg = "Es wurden keine Dateien für diesen Datensatz gefunden!"
+                Dim msg = "Es wurden keine Dateien für diesen Datensatz gefunden!"
                 If USER_LANGUAGE <> "de-DE" Then
                     msg = "No files found for record!"
                 End If
@@ -3530,9 +3524,13 @@ Public Class frmConstructor_Main
                             CURRENT_RECORD_ID = RECORD_ID
                             CURRENT_FORM_ID = ENTITY_ID
                             CURRENT_FORMVIEW_ID = FORMVIEW_ID
-                            frmWD_Index_Dokart.ShowDialog()
-                            RUN_WD_SEARCH(WD_Suche, "RECORD")
+                            If ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_FILES_USER WHERE GUID = " & CURRENT_FILEID & " AND WORKED = 0") = 1 Then
+                                frmWD_Index_Dokart.ShowDialog()
+                            Else
+                                If LogErrorsOnly = False Then ClassLogger.Add(" >> File was deleted or worked meanwhile!")
+                            End If
                         Next
+                        RUN_WD_SEARCH(WD_Suche, "RECORD")
                     End If
                 End If
             Else
@@ -4302,11 +4300,21 @@ Public Class frmConstructor_Main
         Console.WriteLine("Filter changed: " & Now)
     End Sub
     Public Sub New()
-
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
 
+    Private Sub AxObjectListControl_CausesValidationChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.CausesValidationChanged
+        Console.WriteLine("CausesValidationChanged")
+    End Sub
+
+    Private Sub AxObjectListControl_SettingFlagChanged(sender As Object, e As EventArgs) Handles AxObjectListControl.SettingFlagChanged
+        Console.WriteLine("SettingFlagChanged")
+    End Sub
+
+    Private Sub AxObjectListControl_Validated(sender As Object, e As EventArgs) Handles AxObjectListControl.Validated
+        Console.WriteLine("Validated")
     End Sub
 End Class