MS

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -1571,6 +1571,10 @@ Public Class frmConstructor_Main
 #Region "DetailView - Toolstrip"
 
     Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
+        If USER_PERSONIFIED_TEST = True Then
+            ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDi in personified mode! Adding records is not allowed!")
+            Exit Sub
+        End If
         ' Vor dem Hinzufügen muss der EditMode auf jeden Fall ausgeschaltet werden!!
         DisableEditMode()
         tsButtonEdit.Enabled = False
@@ -1840,6 +1844,10 @@ Public Class frmConstructor_Main
     End Function
     Sub Delete_Record()
         RECORD_ID = SELECTED_RECORD_ID
+        If USER_PERSONIFIED_TEST = True Then
+            ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Deleting records is not allowed!")
+            Exit Sub
+        End If
         Dim msg As String
         If RIGHT_RECORD_AND_FILE_READ_ONLY = False Then
             msg = "Sind Sie sicher, dass Sie diesen Record/Datensatz '" & SELECTED_RECORD_ID.ToString & "' löschen wollen?"
@@ -3360,7 +3368,7 @@ Public Class frmConstructor_Main
                     sw.Start()
                     Dim elapsed As Double
 
-                    If ClassWindream.Init() = True Then
+                    If clsWindream.Create_Session = True Then
                         windream_inited = True
                     End If
                     elapsed = sw.Elapsed.TotalSeconds
@@ -3421,7 +3429,7 @@ Public Class frmConstructor_Main
                                         End If
                                         MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
                                     Else
-                                        If ClassWindream.Delete_WDFile(path) Then
+                                        If clsWD_SET.Delete_WDFile(path) Then
                                             ClassHelper.InsertEssential_Log(DOC_ID, "DOC-ID", "FILE DELETED BY USER")
                                         End If
                                     End If
@@ -4035,6 +4043,10 @@ Public Class frmConstructor_Main
         If ClassDragDrop.Drop_File(e) = False Then
             Exit Sub
         End If
+        If USER_PERSONIFIED_TEST = True Then
+            ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDi in personified mode! Adding files is not allowed!")
+            Exit Sub
+        End If
         If clsWindream.SESSION_CREATED = False Then
             ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
             Exit Sub
@@ -4081,7 +4093,13 @@ Public Class frmConstructor_Main
                         CURRENT_FILEID = split(1)
                         CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
                         CURRENT_FORMVIEW_ID = FORMVIEW_ID
-                        frmWD_IndexFile.ShowDialog()
+                        ClassHelper.Create_USER_FILE_TABLE()
+                        If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then
+                            If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
+                                frmWD_IndexFile.ShowDialog()
+                            End If
+                        End If
+
                         'RUN_WD_SEARCH(WD_Suche, "RECORD")
                     End If
                 ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
@@ -4103,6 +4121,7 @@ Public Class frmConstructor_Main
             If NEW_FILES_ADDED = True Then
                 Me.Cursor = Cursors.WaitCursor
                 RUN_WDSEARCH_GRID()
+                TimerClearResultfiles.Start()
             Else
                 If LogErrorsOnly = False Then ClassLogger.Add(" >> No new files were added or windream tab is not focused!", False)
             End If
@@ -4157,9 +4176,7 @@ Public Class frmConstructor_Main
                     Exit Sub
                 End If
             End If
-
-            sql = String.Format("SELECT * FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME)
-            CURRENT_TBPMO_FILES_USER = ClassDatabase.Return_Datatable(sql, True)
+            ClassHelper.Create_USER_FILE_TABLE()
             If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then
                 If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
                     For Each Filerow As DataRow In CURRENT_TBPMO_FILES_USER.Rows
@@ -4999,9 +5016,9 @@ Public Class frmConstructor_Main
                         If Not IsNothing(DT_INDICES) Then
                             If DT_INDICES.Rows.Count = 1 Then
                                 'Record-Links entfernen
-                                If ClassWindream.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
+                                If clsWD_SET.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
                                     'ENTITY-Links entfernen
-                                    If ClassWindream.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then
+                                    If clsWD_SET.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then
                                         If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 0) = True Then
                                             ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
                                             Cursor = Cursors.WaitCursor
@@ -5615,7 +5632,7 @@ Public Class frmConstructor_Main
             End If
             'Create Session um Fehler bei windows Session icht zu erzeugen
             FAU_AD_USER = ""
-            ClassWindream.Create_Session()
+            clsWindream.Create_Session()
         Next
         Cursor = Cursors.Default
         If err = False Then
@@ -5696,7 +5713,7 @@ Public Class frmConstructor_Main
                                     RECORD_ID = 0
                                 End If
                                 If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 1) = True Then
-                                    If ClassWindream.Delete_WDFile(row.Item("DOC_PATH")) = True Then
+                                    If clsWD_SET.Delete_WDFile(row.Item("DOC_PATH")) = True Then
                                         ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER")
                                     End If
 
@@ -5778,7 +5795,7 @@ Public Class frmConstructor_Main
                                 Dim DT_DOCS As DataTable = ClassDatabase.Return_Datatable(sql, True)
                                 For Each doc As DataRow In DT_DOCS.Rows
                                     Dim DT_INDICES As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '" & doc.Item("OBJECTTYPE") & "'", True)
-                                    ClassWindream.REMOVE_VEKTOR_LINK(doc.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID)
+                                    clsWD_SET.REMOVE_VEKTOR_LINK(doc.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID)
                                 Next
 
                                 sql = String.Format("select ORIGIN_CTRL_ID,LINKED_CTRL_ID from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " & _
@@ -6544,4 +6561,28 @@ Public Class frmConstructor_Main
     '    End Try
 
     'End Sub
+
+    Private Sub TimerClearResultfiles_Tick(sender As Object, e As EventArgs) Handles TimerClearResultfiles.Tick
+        Try
+            For Each row As DataRow In CURRENT_TBPMO_FILES_USER.Rows
+                If row.Item("WORKED") = True Then
+                    If row.Item("DELETE_FILE") = True Then
+                        If File.Exists(row.Item("FILENAME2WORK")) Then
+                            File.Delete(row.Item("FILENAME2WORK"))
+                            ClassHelper.DELETE_PMO_FILE_USER(row.Item("GUID"))
+                            row.Delete()
+                        End If
+                    Else
+                        ClassHelper.DELETE_PMO_FILE_USER(row.Item("GUID"))
+                        row.Delete()
+                    End If
+                End If
+            Next
+            CURRENT_TBPMO_FILES_USER.AcceptChanges()
+        Catch ex As Exception
+            ClassHelper.MSGBOX_Handler("ERROR", "", "Unexpected Error in clearing User-Files: " & ex.Message, ex.StackTrace)
+        Finally
+            TimerClearResultfiles.Stop()
+        End Try
+    End Sub
 End Class