ms Globix

GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb

@@ -137,7 +137,9 @@ Public Class frmGlobix_Index
                 chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
 
             End If
-
+            If My.UIConfig.Globix.DeleteOriginalFile Then
+                SourceDeleteItem.Checked = True
+            End If
             ' Letzte Auswahl merken überschreibt die automatische selektion
             If My.UIConfig.Globix.ProfilePreselection Then
                 checkItemPreselection.Checked = True
@@ -788,7 +790,7 @@ Public Class frmGlobix_Index
 
         Catch ex As Exception
             Logger.Error(ex)
-            MsgBox("Indexierung fehlgeschlagen!", MsgBoxStyle.Critical, Text)
+            MsgBox("Ablage fehlgeschlagen!", MsgBoxStyle.Critical, Text)
             Return False
 
         Finally
@@ -809,12 +811,25 @@ Public Class frmGlobix_Index
         If oResult = True Then
             Dim oArgs = GetMessageBoxArgs()
             Dim oMessageResult = XtraMessageBox.Show(oArgs)
+            Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & My.Application.Globix.CurrentWorkfile.Id
+            My.DatabaseECM.ExecuteNonQuery(oDEL)
+
 
             DocumentViewer1.CloseDocument()
             DocumentViewer1.Done()
 
 
             CancelAttempts = MAX_CANCEL_ATTEMPTS
+
+            If My.Application.Globix.DeleteOriginalFile = True Or My.Application.Globix.CurrentWorkfile.HotfolderFile = True Then
+                Logger.Info("File [" & My.Application.Globix.CurrentWorkfile.FilePath & "] will be deleted...")
+                Try
+                    System.IO.File.Delete(My.Application.Globix.CurrentWorkfile.FilePath)
+                Catch ex As Exception
+                    Logger.Error(ex)
+                End Try
+                Logger.Info("File [" & My.Application.Globix.CurrentWorkfile.FilePath & "] has been deleted.")
+            End If
             Close()
         End If
     End Sub
@@ -855,4 +870,6 @@ Public Class frmGlobix_Index
     Private Sub MessageboxLoad(sender As Object, e As XtraMessageBoxLoadArgs)
         e.Visible = My.UIConfig.Globix.ShowSuccessMessageBox
     End Sub
+
+
 End Class