ZooFlow: Move Globix forms
This commit is contained in:
Jonathan Jenne
parent
761b3a19d1
commit
b050ce7e2d
217
GUIs.ZooFlow/Globix/frmGlobix_Index.vb
Normal file
217
GUIs.ZooFlow/Globix/frmGlobix_Index.vb
Normal file
@ -0,0 +1,217 @@
|
|||||||
|
Imports DigitalData.Modules.Logging
|
||||||
|
|
||||||
|
|
||||||
|
Public Class frmGlobix_Index
|
||||||
|
#Region "+++++ Variablen ++++++"
|
||||||
|
Public vPathFile As String
|
||||||
|
Private MULTIFILES As Integer
|
||||||
|
Private akttxtbox As TextBox
|
||||||
|
Dim DT_INDEXEMAN As DataTable
|
||||||
|
Dim DT_DOKART As DataTable
|
||||||
|
Public FormLoaded As Boolean = False
|
||||||
|
Dim DropType As String
|
||||||
|
Private Shared WDDirect As Boolean = False
|
||||||
|
|
||||||
|
Dim sql_history_INSERT_INTO As String
|
||||||
|
Dim sql_history_Index_Values As String
|
||||||
|
|
||||||
|
Private NewFileString As String
|
||||||
|
Private CancelAttempts As Integer = 0
|
||||||
|
Private Const MaxCancelAttempts = 2
|
||||||
|
|
||||||
|
Private Property ViewerString As String
|
||||||
|
|
||||||
|
Private Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!"
|
||||||
|
Private _LogConfig As LogConfig
|
||||||
|
Private _Logger As Logger
|
||||||
|
|
||||||
|
Private clswindowLocation As ClassWindowLocation
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
Public Sub New(LogConfig As LogConfig)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
_Logger = LogConfig.GetLogger()
|
||||||
|
_LogConfig = LogConfig
|
||||||
|
clswindowLocation = New ClassWindowLocation(_LogConfig)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmGlobix_Index_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
|
' Abbruchzähler zurücksetzen
|
||||||
|
CancelAttempts = 0
|
||||||
|
|
||||||
|
My.Application.Globix.INDEXING_ACTIVE = True
|
||||||
|
|
||||||
|
Try
|
||||||
|
My.Application.Globix.CURRENT_ISATTACHMENT = False
|
||||||
|
DropType = My.Database.GetScalarValue("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & My.Application.Globix.CURRENT_WORKFILE_GUID).ToString
|
||||||
|
|
||||||
|
My.Application.Globix.CURR_DELETE_ORIGIN = My.UIConfig.Globix.DeleteOriginalFile
|
||||||
|
SourceDeleteItem.Enabled = True
|
||||||
|
SourceDeleteItem.Checked = My.UIConfig.Globix.DeleteOriginalFile
|
||||||
|
|
||||||
|
My.Application.GDPictureLicense = My.Database.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'")
|
||||||
|
|
||||||
|
DocumentViewer1.Init(_LogConfig, My.Application.GDPictureLicense)
|
||||||
|
|
||||||
|
If DropType Is Nothing Then
|
||||||
|
_Logger.Debug("File with Id [{0}] was not found in TBGI_FILES_USER. Exiting.", My.Application.Globix.CURRENT_WORKFILE_GUID)
|
||||||
|
CancelAttempts = MaxCancelAttempts
|
||||||
|
Close()
|
||||||
|
Else
|
||||||
|
My.Application.Globix.CURRENT_DROPTYPE = DropType.Replace("|", "")
|
||||||
|
|
||||||
|
If DropType.StartsWith("|FW") Then
|
||||||
|
' Eine Datei aus FolderWatch wird IMMER gelöscht, egal wie die Einstellung in der Config lautet
|
||||||
|
My.Application.Globix.CURR_DELETE_ORIGIN = True
|
||||||
|
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||||
|
ElseIf DropType.Contains("|OUTLOOK_MESSAGE|") Then
|
||||||
|
' Eine (DragDrop)-Outlook Nachricht wird NIE gelöscht, egal wie die Einstellung in der Config lautet
|
||||||
|
My.Application.Globix.CURR_DELETE_ORIGIN = False
|
||||||
|
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||||
|
Else
|
||||||
|
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||||
|
End If
|
||||||
|
|
||||||
|
If DropType = "|DROPFROMFSYSTEM|" Then
|
||||||
|
If My.Application.User.Language <> "de-DE" Then
|
||||||
|
Me.Text = "Indexing of dropped file"
|
||||||
|
Else
|
||||||
|
Me.Text = "Indexierung der gedroppten Datei"
|
||||||
|
End If
|
||||||
|
ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then
|
||||||
|
Select Case DropType
|
||||||
|
Case "|FW_MSGONLY|"
|
||||||
|
_Logger.Info(".msg-file from folderwatch")
|
||||||
|
If My.Application.User.Language <> "de-DE" Then
|
||||||
|
Me.Text = "Indexing of msg-File (without Attachments) - from Folderwatch"
|
||||||
|
Else
|
||||||
|
Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch"
|
||||||
|
End If
|
||||||
|
Case "|OUTLOOK_MESSAGE|"
|
||||||
|
_Logger.Info(".msg-file through dragdrop")
|
||||||
|
If My.Application.User.Language <> "de-DE" Then
|
||||||
|
Me.Text = "Indexing of msg-File (without Attachments)"
|
||||||
|
Else
|
||||||
|
Me.Text = "Indexierung der msg-Datei (ohne Anhang)"
|
||||||
|
End If
|
||||||
|
End Select
|
||||||
|
|
||||||
|
ElseIf DropType = "|MSGONLY|" Then
|
||||||
|
If My.Application.User.Language = "de-DE" Then
|
||||||
|
Me.Text = "Indexierung der msg-Datei (ohne Anhang)"
|
||||||
|
Else
|
||||||
|
Me.Text = "Indexing of msg-File (without Attachments)"
|
||||||
|
End If
|
||||||
|
ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
|
||||||
|
My.Application.Globix.CURRENT_ISATTACHMENT = True
|
||||||
|
|
||||||
|
If My.Application.User.Language = "de-DE" Then
|
||||||
|
Me.Text = "Indexierung eines Email-Attachments"
|
||||||
|
Else
|
||||||
|
Me.Text = "Indexing of email-Attachment"
|
||||||
|
End If
|
||||||
|
ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
|
||||||
|
|
||||||
|
If My.Application.User.Language = "de-DE" Then
|
||||||
|
Me.Text = "Indexierung einer Folderwatch-Datei"
|
||||||
|
Else
|
||||||
|
Me.Text = "Indexing of Folderwatch-File"
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
labelFilePath.Caption = My.Application.Globix.CURRENT_WORKFILE
|
||||||
|
|
||||||
|
clswindowLocation.LoadFormLocationSize(Me)
|
||||||
|
|
||||||
|
SetFilePreview(My.UIConfig.Globix.FilePreview)
|
||||||
|
|
||||||
|
SplitContainerControl1.SplitterPosition = My.UIConfig.Globix.SplitterDistanceViewer
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
My.Application.Globix.DTTBGI_REGEX_DOCTYPE = My.Database.GetDatatable("SELECT DISTINCT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID")
|
||||||
|
MULTIFILES = My.Database.GetScalarValue("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & My.Application.Globix.CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
|
||||||
|
My.Application.Globix.MULTIINDEXING_ACTIVE = False
|
||||||
|
If MULTIFILES > 0 Then
|
||||||
|
If My.Application.User.Language = "de-DE" Then
|
||||||
|
RibbonPageGroupMultiIndex.Text = "Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
|
||||||
|
Else
|
||||||
|
RibbonPageGroupMultiIndex.Text = "All following files (" & MULTIFILES & ") will be indexed identically"
|
||||||
|
End If
|
||||||
|
|
||||||
|
chkMultiindexing.Checked = False
|
||||||
|
chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||||
|
|
||||||
|
Else
|
||||||
|
|
||||||
|
chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||||
|
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
_Logger.Warn(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message)
|
||||||
|
_Logger.Error(ex.Message)
|
||||||
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Öffnen des Formulares:")
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
Private Sub SetFilePreview(ShowPreview As Boolean)
|
||||||
|
If ShowPreview Then
|
||||||
|
SplitContainerControl1.Collapsed = False
|
||||||
|
PreviewFile()
|
||||||
|
PreviewItem.Checked = True
|
||||||
|
Else
|
||||||
|
SplitContainerControl1.Collapsed = True
|
||||||
|
PreviewItem.Checked = False
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Sub PreviewFile()
|
||||||
|
Try
|
||||||
|
DocumentViewer1.LoadFile(My.Application.Globix.CURRENT_WORKFILE)
|
||||||
|
Catch ex As Exception
|
||||||
|
_Logger.Error(ex)
|
||||||
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in PreviewFile:")
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SourceDeleteItem.ItemClick
|
||||||
|
If SourceDeleteItem.Visibility <> DevExpress.XtraBars.BarItemVisibility.Never Then
|
||||||
|
My.Application.Globix.CURR_DELETE_ORIGIN = SourceDeleteItem.Checked
|
||||||
|
My.UIConfig.Globix.DeleteOriginalFile = SourceDeleteItem.Checked
|
||||||
|
My.SystemConfigManager.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BarCheckItem5_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles PreviewItem.CheckedChanged
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub SourceDeleteItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SourceDeleteItem.CheckedChanged
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub SaveProfileItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SaveProfileItem.CheckedChanged
|
||||||
|
My.UIConfig.Globix.ProfilePreselection = SaveProfileItem.Checked
|
||||||
|
My.SystemConfigManager.Save()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub SkipItem_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SkipItem.ItemClick
|
||||||
|
My.Database.ExecuteNonQuery($"DELETE FROM TBGI_FILES_USER WHERE GUID = {My.Application.Globix.CURRENT_WORKFILE_GUID}")
|
||||||
|
CancelAttempts = 2
|
||||||
|
Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BarCheckItem3_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkMultiindexing.CheckedChanged
|
||||||
|
If chkMultiindexing.Checked Then
|
||||||
|
chkMultiindexing.Caption = "Active"
|
||||||
|
Else
|
||||||
|
chkMultiindexing.Caption = "Inactive"
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
@ -1,5 +1,5 @@
|
|||||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
Partial Class frmGlobixIndexFileList
|
Partial Class frmGlobix_IndexFileList
|
||||||
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
|
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
|
||||||
|
|
||||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
@ -22,7 +22,7 @@ Partial Class frmGlobixIndexFileList
|
|||||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
<System.Diagnostics.DebuggerStepThrough()> _
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
Private Sub InitializeComponent()
|
Private Sub InitializeComponent()
|
||||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobixIndexFileList))
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGlobix_IndexFileList))
|
||||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||||
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
|
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
|
||||||
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
|
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
|
||||||
@ -121,7 +121,7 @@ Partial Class frmGlobixIndexFileList
|
|||||||
Me.CheckedListBox1.Size = New System.Drawing.Size(617, 216)
|
Me.CheckedListBox1.Size = New System.Drawing.Size(617, 216)
|
||||||
Me.CheckedListBox1.TabIndex = 2
|
Me.CheckedListBox1.TabIndex = 2
|
||||||
'
|
'
|
||||||
'frmGlobixIndexFileList
|
'frmGlobix_IndexFileList
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
@ -129,9 +129,10 @@ Partial Class frmGlobixIndexFileList
|
|||||||
Me.Controls.Add(Me.CheckedListBox1)
|
Me.Controls.Add(Me.CheckedListBox1)
|
||||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||||
Me.Controls.Add(Me.RibbonControl1)
|
Me.Controls.Add(Me.RibbonControl1)
|
||||||
|
Me.IconOptions.SvgImage = CType(resources.GetObject("frmGlobix_IndexFileList.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||||
Me.MaximizeBox = False
|
Me.MaximizeBox = False
|
||||||
Me.MinimizeBox = False
|
Me.MinimizeBox = False
|
||||||
Me.Name = "frmGlobixIndexFileList"
|
Me.Name = "frmGlobix_IndexFileList"
|
||||||
Me.Ribbon = Me.RibbonControl1
|
Me.Ribbon = Me.RibbonControl1
|
||||||
Me.StatusBar = Me.RibbonStatusBar1
|
Me.StatusBar = Me.RibbonStatusBar1
|
||||||
Me.Text = "Zu indexierende Dateien:"
|
Me.Text = "Zu indexierende Dateien:"
|
||||||
@ -201,6 +201,51 @@
|
|||||||
MC40LTAuNCwxLTAuNCwxLjQsMEwxNiwxNGw1LjctNS43YzAuNC0wLjQsMS0wLjQsMS40LDBsMC42LDAu
|
MC40LTAuNCwxLTAuNCwxLjQsMEwxNiwxNGw1LjctNS43YzAuNC0wLjQsMS0wLjQsMS40LDBsMC42LDAu
|
||||||
NmMwLjQsMC40LDAuNCwxLDAsMS40TDE4LDE2TDIzLjcsMjEuN3oiIGNsYXNzPSJSZWQiIC8+DQogIDwv
|
NmMwLjQsMC40LDAuNCwxLDAsMS40TDE4LDE2TDIzLjcsMjEuN3oiIGNsYXNzPSJSZWQiIC8+DQogIDwv
|
||||||
Zz4NCjwvc3ZnPgs=
|
Zz4NCjwvc3ZnPgs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="frmGlobix_IndexFileList.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||||
|
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||||
|
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANYIAAAC77u/
|
||||||
|
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||||
|
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||||
|
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||||
|
Y2U9InByZXNlcnZlIiBpZD0iTGlzdE51bWJlcnMiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcg
|
||||||
|
MCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDojRDExQzFDO30K
|
||||||
|
CS5CbGFja3tmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8cGF0aCBkPSJNMzAsOEgxMlY2aDE4Vjh6
|
||||||
|
IE0zMCwxOEgxMnYtMmgxOFYxOHogTTMwLDI4SDEydi0yaDE4VjI4eiIgY2xhc3M9IkJsYWNrIiAvPg0K
|
||||||
|
ICA8cGF0aCBkPSJNNiwydjhINFY1LjNsLTIsMFYzLjdsMC4yLDBjMC4yLDAsMC41LDAsMC43LTAuMWMw
|
||||||
|
LjMsMCwwLjUtMC4xLDAuNy0wLjNjMC4yLTAuMSwwLjQtMC4zLDAuNS0wLjUgIGMwLjEtMC4yLDAuMi0w
|
||||||
|
LjQsMC4zLTAuN2wwLTAuMUg2eiBNOCwyMHYtMS42SDQuNkM0LjcsMTguMiw0LjksMTguMSw1LDE4YzAu
|
||||||
|
Mi0wLjIsMC41LTAuNCwwLjctMC41YzAuMy0wLjIsMC41LTAuMywwLjgtMC41ICBjMC4zLTAuMiwwLjUt
|
||||||
|
MC40LDAuNy0wLjZjMC4yLTAuMiwwLjQtMC41LDAuNS0wLjhjMC4xLTAuMywwLjItMC42LDAuMi0xYzAt
|
||||||
|
MC40LTAuMS0wLjctMC4yLTEuMWMtMC4xLTAuMy0wLjQtMC42LTAuNi0wLjggIGMtMC4zLTAuMi0wLjUt
|
||||||
|
MC40LTAuOS0wLjVjLTAuMy0wLjEtMC43LTAuMi0xLTAuMmMtMC41LDAtMC45LDAuMS0xLjMsMC4yYy0w
|
||||||
|
LjQsMC4yLTAuNywwLjQtMC45LDAuN2MtMC4yLDAuMy0wLjQsMC42LTAuNSwxICBjLTAuMSwwLjQtMC4y
|
||||||
|
LDAuOC0wLjIsMS4zbDAsMC4xaDEuOHYtMC4xYzAtMC4yLDAtMC40LDAuMS0wLjZjMC0wLjIsMC4xLTAu
|
||||||
|
NCwwLjItMC41YzAuMS0wLjEsMC4yLTAuMywwLjMtMC40ICBjMC4xLTAuMSwwLjMtMC4xLDAuNS0wLjFj
|
||||||
|
MC4zLDAsMC41LDAuMSwwLjcsMC4zYzAuMiwwLjIsMC4zLDAuNCwwLjMsMC44YzAsMC4yLDAsMC40LTAu
|
||||||
|
MSwwLjVjLTAuMSwwLjItMC4yLDAuMy0wLjQsMC41ICBjLTAuMSwwLjEtMC4zLDAuMy0wLjUsMC40Yy0w
|
||||||
|
LjIsMC4xLTAuNCwwLjItMC41LDAuNEM0LjMsMTYuNiw0LDE2LjgsMy43LDE3Yy0wLjMsMC4yLTAuNiww
|
||||||
|
LjUtMC44LDAuN2MtMC4yLDAuMy0wLjQsMC42LTAuNSwwLjkgIGMtMC4xLDAuMy0wLjIsMC43LTAuMiwx
|
||||||
|
LjJWMjBIOHogTTYuMSwyOS44YzAuMy0wLjEsMC43LTAuMywwLjktMC41YzAuMy0wLjIsMC41LTAuNSww
|
||||||
|
LjYtMC44QzcuOSwyOC4yLDgsMjcuOCw4LDI3LjQgIGMwLTAuNS0wLjEtMC45LTAuNC0xLjJjLTAuMi0w
|
||||||
|
LjItMC40LTAuNC0wLjctMC41YzAuMi0wLjEsMC40LTAuMywwLjUtMC41YzAuMi0wLjMsMC4zLTAuNiww
|
||||||
|
LjMtMWMwLTAuNC0wLjEtMC43LTAuMi0xICBjLTAuMi0wLjMtMC40LTAuNS0wLjYtMC43Yy0wLjItMC4y
|
||||||
|
LTAuNS0wLjMtMC44LTAuNEM1LjcsMjIsNS40LDIyLDUuMSwyMmMtMC40LDAtMC44LDAuMS0xLjEsMC4y
|
||||||
|
Yy0wLjMsMC4xLTAuNiwwLjMtMC45LDAuNiAgYy0wLjIsMC4yLTAuNCwwLjUtMC42LDAuOWMtMC4xLDAu
|
||||||
|
My0wLjIsMC43LTAuMiwxLjFsMCwwLjFoMS43bDAtMC4xYzAtMC4zLDAuMS0wLjYsMC4zLTAuOWMwLjIt
|
||||||
|
MC4yLDAuNC0wLjMsMC44LTAuMyAgYzAuMiwwLDAuNSwwLjEsMC42LDAuMkM1LjksMjMuOSw2LDI0LjEs
|
||||||
|
NiwyNC40YzAsMC4yLDAsMC4zLTAuMSwwLjRDNS44LDI0LjksNS42LDI1LDUuNSwyNWMtMC4xLDAuMS0w
|
||||||
|
LjMsMC4xLTAuNSwwLjEgIGMtMC4xLDAtMC4yLDAtMC4zLDBjLTAuMSwwLTAuMiwwLTAuMiwwbC0wLjIs
|
||||||
|
MHYxLjRoMC4xYzAuMiwwLDAuNCwwLDAuNiwwYzAuMiwwLDAuNCwwLDAuNSwwLjFjMC4xLDAuMSwwLjMs
|
||||||
|
MC4xLDAuNCwwLjMgIGMwLjEsMC4xLDAuMSwwLjMsMC4xLDAuNmMwLDAuMy0wLjEsMC42LTAuMywwLjdj
|
||||||
|
LTAuMiwwLjItMC41LDAuMy0wLjgsMC4zYy0wLjIsMC0wLjQsMC0wLjUtMC4xYy0wLjEtMC4xLTAuMy0w
|
||||||
|
LjItMC40LTAuMyAgQzQuMSwyOCw0LDI3LjgsNCwyNy43Yy0wLjEtMC4yLTAuMS0wLjMtMC4xLTAuNWww
|
||||||
|
LTAuMUgyLjJsMCwwLjFjMCwwLjQsMC4xLDAuOSwwLjIsMS4yYzAuMSwwLjQsMC4zLDAuNywwLjYsMC45
|
||||||
|
ICBjMC4zLDAuMiwwLjYsMC40LDAuOSwwLjZDNC4yLDI5LjksNC42LDMwLDUuMSwzMEM1LjQsMzAsNS44
|
||||||
|
LDI5LjksNi4xLDI5Ljh6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
|
||||||
</value>
|
</value>
|
||||||
</data>
|
</data>
|
||||||
</root>
|
</root>
|
||||||
@ -1,4 +1,4 @@
|
|||||||
Public Class frmGlobixIndexFileList
|
Public Class frmGlobix_IndexFileList
|
||||||
Private Sub frmGlobixIndexFileList_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Private Sub frmGlobixIndexFileList_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
Try
|
Try
|
||||||
Dim oSQL = $"Select * From TBGI_FILES_USER Where WORKED = 0 And (UPPER([USER@WORK]) = UPPER('{My.Application.User.UserName}'))"
|
Dim oSQL = $"Select * From TBGI_FILES_USER Where WORKED = 0 And (UPPER([USER@WORK]) = UPPER('{My.Application.User.UserName}'))"
|
||||||
@ -14,3 +14,4 @@
|
|||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
@ -133,16 +133,16 @@
|
|||||||
<Compile Include="frmFlowForm.vb">
|
<Compile Include="frmFlowForm.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmGlobixIndexFileList.Designer.vb">
|
<Compile Include="Globix\frmGlobix_IndexFileList.Designer.vb">
|
||||||
<DependentUpon>frmGlobixIndexFileList.vb</DependentUpon>
|
<DependentUpon>frmGlobix_IndexFileList.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmGlobixIndexFileList.vb">
|
<Compile Include="Globix\frmGlobix_IndexFileList.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmGlobix_Index.Designer.vb">
|
<Compile Include="Globix\frmGlobix_Index.Designer.vb">
|
||||||
<DependentUpon>frmGlobix_Index.vb</DependentUpon>
|
<DependentUpon>frmGlobix_Index.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmGlobix_Index.vb">
|
<Compile Include="Globix\frmGlobix_Index.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmSearchPredefined.Designer.vb">
|
<Compile Include="frmSearchPredefined.Designer.vb">
|
||||||
@ -204,10 +204,10 @@
|
|||||||
<EmbeddedResource Include="frmFlowForm.resx">
|
<EmbeddedResource Include="frmFlowForm.resx">
|
||||||
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
<DependentUpon>frmFlowForm.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmGlobixIndexFileList.resx">
|
<EmbeddedResource Include="Globix\frmGlobix_IndexFileList.resx">
|
||||||
<DependentUpon>frmGlobixIndexFileList.vb</DependentUpon>
|
<DependentUpon>frmGlobix_IndexFileList.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmGlobix_Index.resx">
|
<EmbeddedResource Include="Globix\frmGlobix_Index.resx">
|
||||||
<DependentUpon>frmGlobix_Index.vb</DependentUpon>
|
<DependentUpon>frmGlobix_Index.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmSearchPredefined.resx">
|
<EmbeddedResource Include="frmSearchPredefined.resx">
|
||||||
|
|||||||
@ -338,7 +338,7 @@ Public Class frmFlowForm
|
|||||||
Next
|
Next
|
||||||
|
|
||||||
If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 1 And oOnlyFilesFromFilesystem = False Then
|
If My.Application.Globix.DTACTUAL_FILES.Rows.Count > 1 And oOnlyFilesFromFilesystem = False Then
|
||||||
frmGlobixIndexFileList.ShowDialog()
|
frmGlobix_IndexFileList.ShowDialog()
|
||||||
My.Application.Globix.DTACTUAL_FILES = Nothing
|
My.Application.Globix.DTACTUAL_FILES = Nothing
|
||||||
My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatable(sql)
|
My.Application.Globix.DTACTUAL_FILES = My.Database.GetDatatable(sql)
|
||||||
End If
|
End If
|
||||||
|
|||||||
@ -1,216 +0,0 @@
|
|||||||
Imports DigitalData.Modules.Logging
|
|
||||||
|
|
||||||
Public Class frmGlobix_Index
|
|
||||||
#Region "+++++ Variablen ++++++"
|
|
||||||
Public vPathFile As String
|
|
||||||
Private MULTIFILES As Integer
|
|
||||||
Private akttxtbox As TextBox
|
|
||||||
Dim DT_INDEXEMAN As DataTable
|
|
||||||
Dim DT_DOKART As DataTable
|
|
||||||
Public FormLoaded As Boolean = False
|
|
||||||
Dim DropType As String
|
|
||||||
Private Shared WDDirect As Boolean = False
|
|
||||||
|
|
||||||
Dim sql_history_INSERT_INTO As String
|
|
||||||
Dim sql_history_Index_Values As String
|
|
||||||
|
|
||||||
Private NewFileString As String
|
|
||||||
Private CancelAttempts As Integer = 0
|
|
||||||
Private Const MaxCancelAttempts = 2
|
|
||||||
|
|
||||||
Private Property ViewerString As String
|
|
||||||
|
|
||||||
Private Const TEXT_MISSING_INPUT = "Bitte vervollständigen Sie die Eingaben!"
|
|
||||||
Private _LogConfig As LogConfig
|
|
||||||
Private _Logger As Logger
|
|
||||||
|
|
||||||
Private clswindowLocation As ClassWindowLocation
|
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
Public Sub New(LogConfig As LogConfig)
|
|
||||||
|
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
|
||||||
InitializeComponent()
|
|
||||||
|
|
||||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
||||||
_Logger = LogConfig.GetLogger()
|
|
||||||
_LogConfig = LogConfig
|
|
||||||
clswindowLocation = New ClassWindowLocation(_LogConfig)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmGlobix_Index_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
||||||
' Abbruchzähler zurücksetzen
|
|
||||||
CancelAttempts = 0
|
|
||||||
|
|
||||||
My.Application.Globix.INDEXING_ACTIVE = True
|
|
||||||
|
|
||||||
Try
|
|
||||||
My.Application.Globix.CURRENT_ISATTACHMENT = False
|
|
||||||
DropType = My.Database.GetScalarValue("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & My.Application.Globix.CURRENT_WORKFILE_GUID).ToString
|
|
||||||
|
|
||||||
My.Application.Globix.CURR_DELETE_ORIGIN = My.UIConfig.Globix.DeleteOriginalFile
|
|
||||||
SourceDeleteItem.Enabled = True
|
|
||||||
SourceDeleteItem.Checked = My.UIConfig.Globix.DeleteOriginalFile
|
|
||||||
|
|
||||||
My.Application.GDPictureLicense = My.Database.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'")
|
|
||||||
|
|
||||||
DocumentViewer1.Init(_LogConfig, My.Application.GDPictureLicense)
|
|
||||||
|
|
||||||
If DropType Is Nothing Then
|
|
||||||
_Logger.Debug("File with Id [{0}] was not found in TBGI_FILES_USER. Exiting.", My.Application.Globix.CURRENT_WORKFILE_GUID)
|
|
||||||
CancelAttempts = MaxCancelAttempts
|
|
||||||
Close()
|
|
||||||
Else
|
|
||||||
My.Application.Globix.CURRENT_DROPTYPE = DropType.Replace("|", "")
|
|
||||||
|
|
||||||
If DropType.StartsWith("|FW") Then
|
|
||||||
' Eine Datei aus FolderWatch wird IMMER gelöscht, egal wie die Einstellung in der Config lautet
|
|
||||||
My.Application.Globix.CURR_DELETE_ORIGIN = True
|
|
||||||
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
|
||||||
ElseIf DropType.Contains("|OUTLOOK_MESSAGE|") Then
|
|
||||||
' Eine (DragDrop)-Outlook Nachricht wird NIE gelöscht, egal wie die Einstellung in der Config lautet
|
|
||||||
My.Application.Globix.CURR_DELETE_ORIGIN = False
|
|
||||||
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
|
||||||
Else
|
|
||||||
SourceDeleteItem.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
|
||||||
End If
|
|
||||||
|
|
||||||
If DropType = "|DROPFROMFSYSTEM|" Then
|
|
||||||
If My.Application.User.Language <> "de-DE" Then
|
|
||||||
Me.Text = "Indexing of dropped file"
|
|
||||||
Else
|
|
||||||
Me.Text = "Indexierung der gedroppten Datei"
|
|
||||||
End If
|
|
||||||
ElseIf DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Then
|
|
||||||
Select Case DropType
|
|
||||||
Case "|FW_MSGONLY|"
|
|
||||||
_Logger.Info(".msg-file from folderwatch")
|
|
||||||
If My.Application.User.Language <> "de-DE" Then
|
|
||||||
Me.Text = "Indexing of msg-File (without Attachments) - from Folderwatch"
|
|
||||||
Else
|
|
||||||
Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch"
|
|
||||||
End If
|
|
||||||
Case "|OUTLOOK_MESSAGE|"
|
|
||||||
_Logger.Info(".msg-file through dragdrop")
|
|
||||||
If My.Application.User.Language <> "de-DE" Then
|
|
||||||
Me.Text = "Indexing of msg-File (without Attachments)"
|
|
||||||
Else
|
|
||||||
Me.Text = "Indexierung der msg-Datei (ohne Anhang)"
|
|
||||||
End If
|
|
||||||
End Select
|
|
||||||
|
|
||||||
ElseIf DropType = "|MSGONLY|" Then
|
|
||||||
If My.Application.User.Language = "de-DE" Then
|
|
||||||
Me.Text = "Indexierung der msg-Datei (ohne Anhang)"
|
|
||||||
Else
|
|
||||||
Me.Text = "Indexing of msg-File (without Attachments)"
|
|
||||||
End If
|
|
||||||
ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
|
|
||||||
My.Application.Globix.CURRENT_ISATTACHMENT = True
|
|
||||||
|
|
||||||
If My.Application.User.Language = "de-DE" Then
|
|
||||||
Me.Text = "Indexierung eines Email-Attachments"
|
|
||||||
Else
|
|
||||||
Me.Text = "Indexing of email-Attachment"
|
|
||||||
End If
|
|
||||||
ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
|
|
||||||
|
|
||||||
If My.Application.User.Language = "de-DE" Then
|
|
||||||
Me.Text = "Indexierung einer Folderwatch-Datei"
|
|
||||||
Else
|
|
||||||
Me.Text = "Indexing of Folderwatch-File"
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
labelFilePath.Caption = My.Application.Globix.CURRENT_WORKFILE
|
|
||||||
|
|
||||||
clswindowLocation.LoadFormLocationSize(Me)
|
|
||||||
|
|
||||||
SetFilePreview(My.UIConfig.Globix.FilePreview)
|
|
||||||
|
|
||||||
SplitContainerControl1.SplitterPosition = My.UIConfig.Globix.SplitterDistanceViewer
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
My.Application.Globix.DTTBGI_REGEX_DOCTYPE = My.Database.GetDatatable("SELECT DISTINCT T1.DOCTYPE as DocType, T.* FROM TBGI_REGEX_DOCTYPE T, VWGI_DOCTYPE T1 WHERE T.DOCTYPE_ID = T1.DOCTYPE_ID")
|
|
||||||
MULTIFILES = My.Database.GetScalarValue("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & My.Application.Globix.CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
|
|
||||||
My.Application.Globix.MULTIINDEXING_ACTIVE = False
|
|
||||||
If MULTIFILES > 0 Then
|
|
||||||
If My.Application.User.Language = "de-DE" Then
|
|
||||||
RibbonPageGroupMultiIndex.Text = "Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
|
|
||||||
Else
|
|
||||||
RibbonPageGroupMultiIndex.Text = "All following files (" & MULTIFILES & ") will be indexed identically"
|
|
||||||
End If
|
|
||||||
|
|
||||||
chkMultiindexing.Checked = False
|
|
||||||
chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
|
||||||
|
|
||||||
Else
|
|
||||||
|
|
||||||
chkMultiindexing.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
|
||||||
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
Catch ex As Exception
|
|
||||||
_Logger.Warn(" - Unexpected error in Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message)
|
|
||||||
_Logger.Error(ex.Message)
|
|
||||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Öffnen des Formulares:")
|
|
||||||
End Try
|
|
||||||
End Sub
|
|
||||||
Private Sub SetFilePreview(ShowPreview As Boolean)
|
|
||||||
If ShowPreview Then
|
|
||||||
SplitContainerControl1.Collapsed = False
|
|
||||||
PreviewFile()
|
|
||||||
PreviewItem.Checked = True
|
|
||||||
Else
|
|
||||||
SplitContainerControl1.Collapsed = True
|
|
||||||
PreviewItem.Checked = False
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
Sub PreviewFile()
|
|
||||||
Try
|
|
||||||
DocumentViewer1.LoadFile(My.Application.Globix.CURRENT_WORKFILE)
|
|
||||||
Catch ex As Exception
|
|
||||||
_Logger.Error(ex)
|
|
||||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in PreviewFile:")
|
|
||||||
End Try
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SourceDeleteItem.ItemClick
|
|
||||||
If SourceDeleteItem.Visibility <> DevExpress.XtraBars.BarItemVisibility.Never Then
|
|
||||||
My.Application.Globix.CURR_DELETE_ORIGIN = SourceDeleteItem.Checked
|
|
||||||
My.UIConfig.Globix.DeleteOriginalFile = SourceDeleteItem.Checked
|
|
||||||
My.SystemConfigManager.Save()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub BarCheckItem5_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles PreviewItem.CheckedChanged
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub SourceDeleteItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SourceDeleteItem.CheckedChanged
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub SaveProfileItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SaveProfileItem.CheckedChanged
|
|
||||||
My.UIConfig.Globix.ProfilePreselection = SaveProfileItem.Checked
|
|
||||||
My.SystemConfigManager.Save()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub SkipItem_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SkipItem.ItemClick
|
|
||||||
My.Database.ExecuteNonQuery($"DELETE FROM TBGI_FILES_USER WHERE GUID = {My.Application.Globix.CURRENT_WORKFILE_GUID}")
|
|
||||||
CancelAttempts = 2
|
|
||||||
Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub BarCheckItem3_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles chkMultiindexing.CheckedChanged
|
|
||||||
If chkMultiindexing.Checked Then
|
|
||||||
chkMultiindexing.Caption = "Active"
|
|
||||||
Else
|
|
||||||
chkMultiindexing.Caption = "Inactive"
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
End Class
|
|
||||||
Loading…
x
Reference in New Issue
Block a user