diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj
index b194a6de..b5f72f52 100644
--- a/GUIs.Common/Common.vbproj
+++ b/GUIs.Common/Common.vbproj
@@ -139,6 +139,18 @@
Form
+
+ frmFileFlow_Duplicate.vb
+
+
+ Form
+
+
+ frmFileFlow_Success.vb
+
+
+ Form
+
frmSQLEditor.vb
@@ -208,6 +220,9 @@
frmDocumentResultList.vb
Designer
+
+ frmFileFlow_Duplicate.vb
+
frmSQLEditor.vb
diff --git a/GUIs.Common/frmFileFlow_Duplicate.Designer.vb b/GUIs.Common/frmFileFlow_Duplicate.Designer.vb
new file mode 100644
index 00000000..ae867c4e
--- /dev/null
+++ b/GUIs.Common/frmFileFlow_Duplicate.Designer.vb
@@ -0,0 +1,208 @@
+
+Partial Class frmFileFlow_Duplicate
+ Inherits System.Windows.Forms.Form
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wird vom Windows Form-Designer benötigt.
+ Private components As System.ComponentModel.IContainer
+
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFileFlow_Duplicate))
+ Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()
+ Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
+ Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
+ Me.LabelControlMessage = New DevExpress.XtraEditors.LabelControl()
+ Me.PanelControl2 = New DevExpress.XtraEditors.PanelControl()
+ Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton()
+ Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton()
+ Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
+ Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
+ CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.PanelControl1.SuspendLayout()
+ CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.PanelControl2.SuspendLayout()
+ CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.SuspendLayout()
+ '
+ 'PanelControl1
+ '
+ Me.PanelControl1.Appearance.BackColor = System.Drawing.Color.DarkRed
+ Me.PanelControl1.Appearance.Options.UseBackColor = True
+ Me.PanelControl1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+ Me.PanelControl1.Controls.Add(Me.SimpleButton2)
+ Me.PanelControl1.Controls.Add(Me.SimpleButton1)
+ Me.PanelControl1.Controls.Add(Me.LabelControlMessage)
+ Me.PanelControl1.Controls.Add(Me.PictureEdit1)
+ Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Top
+ Me.PanelControl1.Location = New System.Drawing.Point(0, 0)
+ Me.PanelControl1.Name = "PanelControl1"
+ Me.PanelControl1.Size = New System.Drawing.Size(718, 133)
+ Me.PanelControl1.TabIndex = 0
+ '
+ 'SimpleButton2
+ '
+ Me.SimpleButton2.Appearance.BackColor = DevExpress.LookAndFeel.DXSkinColors.FillColors.Warning
+ Me.SimpleButton2.Appearance.BorderColor = System.Drawing.Color.Black
+ Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton2.Appearance.Options.UseBackColor = True
+ Me.SimpleButton2.Appearance.Options.UseBorderColor = True
+ Me.SimpleButton2.Appearance.Options.UseFont = True
+ Me.SimpleButton2.DialogResult = System.Windows.Forms.DialogResult.No
+ Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton2.Location = New System.Drawing.Point(563, 78)
+ Me.SimpleButton2.Name = "SimpleButton2"
+ Me.SimpleButton2.Size = New System.Drawing.Size(143, 40)
+ Me.SimpleButton2.TabIndex = 3
+ Me.SimpleButton2.Text = "Nein"
+ '
+ 'SimpleButton1
+ '
+ Me.SimpleButton1.Appearance.BackColor = DevExpress.LookAndFeel.DXSkinColors.FillColors.Success
+ Me.SimpleButton1.Appearance.BorderColor = System.Drawing.Color.Black
+ Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton1.Appearance.Options.UseBackColor = True
+ Me.SimpleButton1.Appearance.Options.UseBorderColor = True
+ Me.SimpleButton1.Appearance.Options.UseFont = True
+ Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.Yes
+ Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton1.Location = New System.Drawing.Point(127, 78)
+ Me.SimpleButton1.Name = "SimpleButton1"
+ Me.SimpleButton1.Size = New System.Drawing.Size(101, 40)
+ Me.SimpleButton1.TabIndex = 2
+ Me.SimpleButton1.Text = "Ja"
+ '
+ 'LabelControlMessage
+ '
+ Me.LabelControlMessage.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.LabelControlMessage.Appearance.ForeColor = System.Drawing.Color.White
+ Me.LabelControlMessage.Appearance.Options.UseFont = True
+ Me.LabelControlMessage.Appearance.Options.UseForeColor = True
+ Me.LabelControlMessage.Location = New System.Drawing.Point(127, 22)
+ Me.LabelControlMessage.Name = "LabelControlMessage"
+ Me.LabelControlMessage.Size = New System.Drawing.Size(291, 21)
+ Me.LabelControlMessage.TabIndex = 1
+ Me.LabelControlMessage.Text = "Diese Datei ist doppelt....Text aus New"
+ '
+ 'PanelControl2
+ '
+ Me.PanelControl2.Appearance.BackColor = System.Drawing.SystemColors.Info
+ Me.PanelControl2.Appearance.Options.UseBackColor = True
+ Me.PanelControl2.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
+ Me.PanelControl2.Controls.Add(Me.SimpleButton5)
+ Me.PanelControl2.Controls.Add(Me.SimpleButton4)
+ Me.PanelControl2.Controls.Add(Me.SimpleButton3)
+ Me.PanelControl2.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.PanelControl2.Location = New System.Drawing.Point(0, 133)
+ Me.PanelControl2.Name = "PanelControl2"
+ Me.PanelControl2.Size = New System.Drawing.Size(718, 154)
+ Me.PanelControl2.TabIndex = 1
+ '
+ 'SimpleButton5
+ '
+ Me.SimpleButton5.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.SimpleButton5.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton5.Appearance.ForeColor = System.Drawing.Color.Black
+ Me.SimpleButton5.Appearance.Options.UseBackColor = True
+ Me.SimpleButton5.Appearance.Options.UseFont = True
+ Me.SimpleButton5.Appearance.Options.UseForeColor = True
+ Me.SimpleButton5.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton5.Location = New System.Drawing.Point(424, 42)
+ Me.SimpleButton5.Name = "SimpleButton5"
+ Me.SimpleButton5.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
+ Me.SimpleButton5.Size = New System.Drawing.Size(143, 60)
+ Me.SimpleButton5.TabIndex = 3
+ Me.SimpleButton5.Text = "... und mir"
+ '
+ 'SimpleButton4
+ '
+ Me.SimpleButton4.Appearance.BackColor = System.Drawing.Color.Wheat
+ Me.SimpleButton4.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton4.Appearance.ForeColor = System.Drawing.Color.Black
+ Me.SimpleButton4.Appearance.Options.UseBackColor = True
+ Me.SimpleButton4.Appearance.Options.UseFont = True
+ Me.SimpleButton4.Appearance.Options.UseForeColor = True
+ Me.SimpleButton4.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton4.Location = New System.Drawing.Point(195, 42)
+ Me.SimpleButton4.Name = "SimpleButton4"
+ Me.SimpleButton4.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
+ Me.SimpleButton4.Size = New System.Drawing.Size(223, 60)
+ Me.SimpleButton4.TabIndex = 2
+ Me.SimpleButton4.Text = "Alle Dateien von heute"
+ '
+ 'SimpleButton3
+ '
+ Me.SimpleButton3.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black
+ Me.SimpleButton3.Appearance.Options.UseBackColor = True
+ Me.SimpleButton3.Appearance.Options.UseFont = True
+ Me.SimpleButton3.Appearance.Options.UseForeColor = True
+ Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton3.Location = New System.Drawing.Point(12, 47)
+ Me.SimpleButton3.Name = "SimpleButton3"
+ Me.SimpleButton3.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
+ Me.SimpleButton3.Size = New System.Drawing.Size(154, 49)
+ Me.SimpleButton3.TabIndex = 1
+ Me.SimpleButton3.Text = "Datei anzeigen"
+ '
+ 'PictureEdit1
+ '
+ Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
+ Me.PictureEdit1.Location = New System.Drawing.Point(12, 22)
+ Me.PictureEdit1.Name = "PictureEdit1"
+ Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.DarkRed
+ Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True
+ Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
+ Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
+ Me.PictureEdit1.Size = New System.Drawing.Size(100, 96)
+ Me.PictureEdit1.TabIndex = 0
+ '
+ 'frmFileFlow_Duplicate
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(718, 287)
+ Me.Controls.Add(Me.PanelControl2)
+ Me.Controls.Add(Me.PanelControl1)
+ Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+ Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+ Me.Name = "frmFileFlow_Duplicate"
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+ Me.Text = "Hinweis"
+ Me.TopMost = True
+ CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.PanelControl1.ResumeLayout(False)
+ Me.PanelControl1.PerformLayout()
+ CType(Me.PanelControl2, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.PanelControl2.ResumeLayout(False)
+ CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.ResumeLayout(False)
+
+ End Sub
+
+ Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl
+ Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents LabelControlMessage As DevExpress.XtraEditors.LabelControl
+ Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit
+ Friend WithEvents PanelControl2 As DevExpress.XtraEditors.PanelControl
+ Friend WithEvents SimpleButton5 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton
+End Class
diff --git a/GUIs.Common/frmFileFlow_Duplicate.resx b/GUIs.Common/frmFileFlow_Duplicate.resx
new file mode 100644
index 00000000..7ba1d9b2
--- /dev/null
+++ b/GUIs.Common/frmFileFlow_Duplicate.resx
@@ -0,0 +1,258 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANcBAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQo8L3N0
+ eWxlPg0KICA8cGF0aCBkPSJNMTYsMkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMs
+ MTQtMTRTMjMuNywyLDE2LDJ6IE0yMywyMGwtMywzbC00LTRsLTQsNGwtMy0zbDQtNGwtNC00bDMtM2w0
+ LDQgIGw0LTRsMywzbC00LDRMMjMsMjB6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALYDAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+ R3JlZW57ZmlsbDojMDM5QzIzO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTgsMTZWNkg1QzQuNCw2LDQs
+ Ni40LDQsN3YyMmMwLDAuNiwwLjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjE2SDh6IE04LDI2di02
+ aDE2djZIOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPHBhdGggZD0iTTE4LDZoLTh2OGg4VjZ6IE0xNCwx
+ MmgtMlY4aDJWMTJ6IiBjbGFzcz0iQmxhY2siIC8+DQogIDxwYXRoIGQ9Ik0yNiwyYy0zLjMsMC02LDIu
+ Ny02LDZzMi43LDYsNiw2czYtMi43LDYtNlMyOS4zLDIsMjYsMnogTTI2LDExLjhjLTAuNCwwLTAuNy0w
+ LjMtMC43LTAuNyAgYzAtMC40LDAuMy0wLjcsMC43LTAuN3MwLjcsMC4zLDAuNywwLjdDMjYuNywxMS41
+ LDI2LjQsMTEuOCwyNiwxMS44eiBNMjYuNyw5LjR2MC4zaC0xLjRWOS41YzAtMC4zLDAuMS0xLjEsMC42
+ LTEuNSAgYzAuMi0wLjIsMS40LTAuNiwxLjYtMS43YzAtMC4zLTAuMS0wLjUtMC4zLTAuN3MtMC41LTAu
+ My0wLjktMC4zYy0wLjksMC0xLjQsMS0xLjQsMS40aC0xLjRjMC0wLjgsMC4zLTEuNCwwLjgtMS45czEu
+ Mi0wLjcsMi0wLjcgIHMxLjUsMC4yLDEuOSwwLjZjMC41LDAuNCwwLjcsMC45LDAuNywxLjZDMjguNiw4
+ LjIsMjYuNyw4LjUsMjYuNyw5LjR6IiBjbGFzcz0iR3JlZW4iIC8+DQo8L3N2Zz4L
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAL8FAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+ MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+ bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iTWVldGluZyI+DQogICAgPHJlY3Qg
+ eD0iMTAiIHk9IjE0IiB3aWR0aD0iNCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJSZWQi
+ IC8+DQogICAgPGcgY2xhc3M9InN0MCI+DQogICAgICA8cGF0aCBkPSJNMTQsMjRoLTR2LTRoNFYyNHog
+ TTIwLDIwaC00djRoNFYyMHogTTI2LDhoLTR2NGg0Vjh6IE0yMCwxNGgtNHY0aDRWMTR6IE0yMCw4aC00
+ djRoNFY4eiBNMTQsOGgtNHY0aDRWOHogICAgIE04LDhINHY0aDRWOHogTTgsMTRINHY0aDRWMTR6IE04
+ LDIwSDR2NGg0VjIweiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTgu
+ NiwyNkgyVjZoMjZ2Ni40YzAuOSwwLjMsMS41LDAuOCwyLDEuM1YzYzAtMC42LTAuNC0xLTEtMUgxQzAu
+ NCwyLDAsMi40LDAsM3YyNGMwLDAuNiwwLjQsMSwxLDFoMTcuMSAgIEMxOC4xLDI3LjIsMTguMywyNi41
+ LDE4LjYsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTMyLDI5LjFWMzBIMjB2LTAu
+ OWMwLTQsMi4zLTMuMywzLjYtNC42YzAuNSwwLjgsMS4zLDEuNSwyLjQsMS41YzEuMSwwLDEuOS0wLjYs
+ Mi41LTEuNCAgIEMyOS44LDI1LjgsMzIsMjUuMSwzMiwyOS4xeiBNMjIuOSwyMC44djAuMWMwLjQsMS41
+ LDEuMywzLjEsMy4xLDMuMXMyLjgtMS42LDMuMi0zLjF2LTAuMWMwLjcsMCwwLjQtMC43LDAuNi0xczAu
+ My0wLjUsMC4yLTAuOSAgIGMtMC4xLTAuMy0wLjMtMC4yLTAuNC0wLjJjMS4yLTMuMS0wLjctMi45LTAu
+ Ny0yLjlTMjguNywxNCwyNS4yLDE0Yy0zLjIsMC0zLjYsMi41LTIuOSw0LjdjMCwwLjEtMC4yLDAuMS0w
+ LjMsMC4yICAgYy0wLjEsMC40LDAuMSwwLjYsMC4zLDAuOVMyMi4yLDIwLjgsMjIuOSwyMC44eiIgY2xh
+ c3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAP4DAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+ MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+ bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iVG9kYXkiPg0KICAgIDxwYXRoIGQ9
+ Ik0yOSwwSDFDMC41LDAsMCwwLjUsMCwxdjMwYzAsMC41LDAuNSwxLDEsMWgyOGMwLjUsMCwxLTAuNSwx
+ LTFWMUMzMCwwLjUsMjkuNSwwLDI5LDB6IE0yOCwzMEgyVjRoMjZWMzB6IiBjbGFzcz0iQmxhY2siIC8+
+ DQogICAgPGcgY2xhc3M9InN0MCI+DQogICAgICA8cGF0aCBkPSJNMTAsMTJINFY2aDZWMTJ6IE0xOCw2
+ aC02djZoNlY2eiBNMjYsNmgtNnY2aDZWNnogTTI2LDE0aC02djZoNlYxNHogTTEwLDIySDR2Nmg2VjIy
+ eiBNMTgsMjJoLTZ2Nmg2VjIyeiAgICAgTTI2LDIyaC02djZoNlYyMnogTTEwLDE0SDR2Nmg2VjE0eiIg
+ Y2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cmVjdCB4PSIxMiIgeT0iMTQiIHdpZHRoPSI2
+ IiBoZWlnaHQ9IjYiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
+ PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
+ MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
+ Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
+ aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
+ DQogIDwvZz4NCjwvc3ZnPgs=
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+ ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+ OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+ dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu
+ MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu
+ MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww
+ LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt
+ MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs
+ OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K
+ ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y
+ LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9
+ IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+
+
+
\ No newline at end of file
diff --git a/GUIs.Common/frmFileFlow_Duplicate.vb b/GUIs.Common/frmFileFlow_Duplicate.vb
new file mode 100644
index 00000000..008e7d52
--- /dev/null
+++ b/GUIs.Common/frmFileFlow_Duplicate.vb
@@ -0,0 +1,22 @@
+Public Class frmFileFlow_Duplicate
+ Dim omessagetext As String
+
+ Public Sub New(pLanguage As String, pFilename As String, pDate As String, pDocumentID As Long)
+
+ ' Dieser Aufruf ist für den Designer erforderlich.
+ InitializeComponent()
+
+ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+ If pLanguage = "de-DE" Then
+ omessagetext = $"Die Datei [{pFilename}] wurde bereits am [{pDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?"
+ Else
+ omessagetext = $"The file [{pFilename}] has already been processed at [{pDate}]. Do you want to process the same file again?"
+ End If
+
+ End Sub
+
+ Private Sub frmFileFlow_Duplicate_Load(sender As Object, e As EventArgs) Handles Me.Load
+ LabelControlMessage.Text = omessagetext
+ End Sub
+
+End Class
\ No newline at end of file
diff --git a/GUIs.Common/frmFileFlow_Success.Designer.vb b/GUIs.Common/frmFileFlow_Success.Designer.vb
new file mode 100644
index 00000000..7f38607f
--- /dev/null
+++ b/GUIs.Common/frmFileFlow_Success.Designer.vb
@@ -0,0 +1,30 @@
+ _
+Partial Class frmFileFlow_Success
+ Inherits System.Windows.Forms.Form
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wird vom Windows Form-Designer benötigt.
+ Private components As System.ComponentModel.IContainer
+
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ _
+ Private Sub InitializeComponent()
+ components = New System.ComponentModel.Container
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(800, 450)
+ Me.Text = "frmFileFlow_Success"
+ End Sub
+End Class
diff --git a/GUIs.Common/frmFileFlow_Success.vb b/GUIs.Common/frmFileFlow_Success.vb
new file mode 100644
index 00000000..ed8e0927
--- /dev/null
+++ b/GUIs.Common/frmFileFlow_Success.vb
@@ -0,0 +1,3 @@
+Public Class frmFileFlow_Success
+
+End Class
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb
index 6e745450..25ed3b82 100644
--- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb
+++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.Designer.vb
@@ -46,10 +46,8 @@ Partial Class frmAdmin_Globix
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageProfile = New DevExpress.XtraTab.XtraTabPage()
Me.LayoutControlProfile = New DevExpress.XtraLayout.LayoutControl()
- Me.GridLookUpEdit1 = New DevExpress.XtraEditors.GridLookUpEdit()
- Me.VWIDB_DOCTYPE_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
- Me.GridLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.IDB_DOCTYPE_IDComboBox = New System.Windows.Forms.ComboBox()
+ Me.VWIDB_DOCTYPE_LANGUAGEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit()
Me.IDB_OBJECT_STORE_IDComboBox = New System.Windows.Forms.ComboBox()
Me.VWIDB_OBJECT_STOREBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -80,7 +78,6 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem28 = New DevExpress.XtraLayout.LayoutControlItem()
Me.EmptySpaceItem12 = New DevExpress.XtraLayout.EmptySpaceItem()
Me.LayoutControlItem61 = New DevExpress.XtraLayout.LayoutControlItem()
- Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem()
Me.LayoutControlItem22 = New DevExpress.XtraLayout.LayoutControlItem()
Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl()
@@ -247,6 +244,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem38 = New DevExpress.XtraLayout.LayoutControlItem()
Me.TBGI_REGEX_DOCTYPETableAdapter = New DigitalData.GUIs.ZooFlow.GlobixDatasetTableAdapters.TBGI_REGEX_DOCTYPETableAdapter()
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter = New DigitalData.GUIs.ZooFlow.DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter()
+ Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
SEQUENCELabel = New System.Windows.Forms.Label()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -257,9 +255,7 @@ Partial Class frmAdmin_Globix
Me.XtraTabPageProfile.SuspendLayout()
CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).BeginInit()
Me.LayoutControlProfile.SuspendLayout()
- CType(Me.GridLookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.GridLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -288,7 +284,6 @@ Partial Class frmAdmin_Globix
CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.EmptySpaceItem12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem61, System.ComponentModel.ISupportInitialize).BeginInit()
- CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -498,7 +493,6 @@ Partial Class frmAdmin_Globix
'
'RibbonStatusBar1
'
- Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 752)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -577,7 +571,6 @@ Partial Class frmAdmin_Globix
'
'LayoutControlProfile
'
- Me.LayoutControlProfile.Controls.Add(Me.GridLookUpEdit1)
Me.LayoutControlProfile.Controls.Add(Me.IDB_DOCTYPE_IDComboBox)
Me.LayoutControlProfile.Controls.Add(Me.TextEdit1)
Me.LayoutControlProfile.Controls.Add(Me.IDB_OBJECT_STORE_IDComboBox)
@@ -600,33 +593,6 @@ Partial Class frmAdmin_Globix
Me.LayoutControlProfile.TabIndex = 0
Me.LayoutControlProfile.Text = "LayoutControl1"
'
- 'GridLookUpEdit1
- '
- Me.GridLookUpEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_DOCTYPE_ID", True))
- Me.GridLookUpEdit1.Location = New System.Drawing.Point(166, 76)
- Me.GridLookUpEdit1.MenuManager = Me.RibbonControl1
- Me.GridLookUpEdit1.Name = "GridLookUpEdit1"
- Me.GridLookUpEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
- Me.GridLookUpEdit1.Properties.DataSource = Me.VWIDB_DOCTYPE_LANGUAGEBindingSource
- Me.GridLookUpEdit1.Properties.DisplayMember = "Doctype"
- Me.GridLookUpEdit1.Properties.PopupView = Me.GridLookUpEdit1View
- Me.GridLookUpEdit1.Properties.ValueMember = "Doctype_ID"
- Me.GridLookUpEdit1.Size = New System.Drawing.Size(921, 20)
- Me.GridLookUpEdit1.StyleController = Me.LayoutControlProfile
- Me.GridLookUpEdit1.TabIndex = 61
- '
- 'VWIDB_DOCTYPE_LANGUAGEBindingSource
- '
- Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataMember = "VWIDB_DOCTYPE_LANGUAGE"
- Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten
- '
- 'GridLookUpEdit1View
- '
- Me.GridLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
- Me.GridLookUpEdit1View.Name = "GridLookUpEdit1View"
- Me.GridLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False
- Me.GridLookUpEdit1View.OptionsView.ShowGroupPanel = False
- '
'IDB_DOCTYPE_IDComboBox
'
Me.IDB_DOCTYPE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "IDB_DOCTYPE_ID", True))
@@ -635,17 +601,22 @@ Partial Class frmAdmin_Globix
Me.IDB_DOCTYPE_IDComboBox.FormattingEnabled = True
Me.IDB_DOCTYPE_IDComboBox.Location = New System.Drawing.Point(166, 45)
Me.IDB_DOCTYPE_IDComboBox.Name = "IDB_DOCTYPE_IDComboBox"
- Me.IDB_DOCTYPE_IDComboBox.Size = New System.Drawing.Size(380, 21)
+ Me.IDB_DOCTYPE_IDComboBox.Size = New System.Drawing.Size(388, 21)
Me.IDB_DOCTYPE_IDComboBox.TabIndex = 60
Me.IDB_DOCTYPE_IDComboBox.ValueMember = "Doctype_ID"
'
+ 'VWIDB_DOCTYPE_LANGUAGEBindingSource
+ '
+ Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataMember = "VWIDB_DOCTYPE_LANGUAGE"
+ Me.VWIDB_DOCTYPE_LANGUAGEBindingSource.DataSource = Me.DSIDB_Stammdaten
+ '
'TextEdit1
'
Me.TextEdit1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWANN", True))
- Me.TextEdit1.Location = New System.Drawing.Point(166, 257)
+ Me.TextEdit1.Location = New System.Drawing.Point(166, 227)
Me.TextEdit1.MenuManager = Me.RibbonControl1
Me.TextEdit1.Name = "TextEdit1"
- Me.TextEdit1.Size = New System.Drawing.Size(380, 20)
+ Me.TextEdit1.Size = New System.Drawing.Size(388, 20)
Me.TextEdit1.StyleController = Me.LayoutControlProfile
Me.TextEdit1.TabIndex = 59
'
@@ -656,9 +627,9 @@ Partial Class frmAdmin_Globix
Me.IDB_OBJECT_STORE_IDComboBox.DataSource = Me.VWIDB_OBJECT_STOREBindingSource
Me.IDB_OBJECT_STORE_IDComboBox.DisplayMember = "Objectstore"
Me.IDB_OBJECT_STORE_IDComboBox.FormattingEnabled = True
- Me.IDB_OBJECT_STORE_IDComboBox.Location = New System.Drawing.Point(166, 166)
+ Me.IDB_OBJECT_STORE_IDComboBox.Location = New System.Drawing.Point(166, 136)
Me.IDB_OBJECT_STORE_IDComboBox.Name = "IDB_OBJECT_STORE_IDComboBox"
- Me.IDB_OBJECT_STORE_IDComboBox.Size = New System.Drawing.Size(380, 21)
+ Me.IDB_OBJECT_STORE_IDComboBox.Size = New System.Drawing.Size(388, 21)
Me.IDB_OBJECT_STORE_IDComboBox.TabIndex = 57
Me.IDB_OBJECT_STORE_IDComboBox.ValueMember = "GUID"
'
@@ -670,10 +641,10 @@ Partial Class frmAdmin_Globix
'SEQUENCENumericUpDown
'
Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True))
- Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(395, 15)
+ Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(399, 15)
Me.SEQUENCENumericUpDown.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown"
- Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(34, 22)
+ Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(37, 22)
Me.SEQUENCENumericUpDown.TabIndex = 56
Me.SEQUENCENumericUpDown.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
@@ -685,50 +656,50 @@ Partial Class frmAdmin_Globix
'TextEditErstelltWer
'
Me.TextEditErstelltWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True))
- Me.TextEditErstelltWer.Location = New System.Drawing.Point(166, 227)
+ Me.TextEditErstelltWer.Location = New System.Drawing.Point(166, 197)
Me.TextEditErstelltWer.MenuManager = Me.RibbonControl1
Me.TextEditErstelltWer.Name = "TextEditErstelltWer"
- Me.TextEditErstelltWer.Size = New System.Drawing.Size(380, 20)
+ Me.TextEditErstelltWer.Size = New System.Drawing.Size(388, 20)
Me.TextEditErstelltWer.StyleController = Me.LayoutControlProfile
Me.TextEditErstelltWer.TabIndex = 44
'
'TextEditGeandertWer
'
Me.TextEditGeandertWer.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True))
- Me.TextEditGeandertWer.Location = New System.Drawing.Point(707, 227)
+ Me.TextEditGeandertWer.Location = New System.Drawing.Point(715, 197)
Me.TextEditGeandertWer.MenuManager = Me.RibbonControl1
Me.TextEditGeandertWer.Name = "TextEditGeandertWer"
- Me.TextEditGeandertWer.Size = New System.Drawing.Size(380, 20)
+ Me.TextEditGeandertWer.Size = New System.Drawing.Size(389, 20)
Me.TextEditGeandertWer.StyleController = Me.LayoutControlProfile
Me.TextEditGeandertWer.TabIndex = 45
'
'TextEditNamenkonvention
'
Me.TextEditNamenkonvention.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True))
- Me.TextEditNamenkonvention.Location = New System.Drawing.Point(166, 136)
+ Me.TextEditNamenkonvention.Location = New System.Drawing.Point(166, 106)
Me.TextEditNamenkonvention.MenuManager = Me.RibbonControl1
Me.TextEditNamenkonvention.Name = "TextEditNamenkonvention"
- Me.TextEditNamenkonvention.Size = New System.Drawing.Size(662, 20)
+ Me.TextEditNamenkonvention.Size = New System.Drawing.Size(675, 20)
Me.TextEditNamenkonvention.StyleController = Me.LayoutControlProfile
Me.TextEditNamenkonvention.TabIndex = 46
'
'TextEditBeschreibung
'
Me.TextEditBeschreibung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True))
- Me.TextEditBeschreibung.Location = New System.Drawing.Point(166, 197)
+ Me.TextEditBeschreibung.Location = New System.Drawing.Point(166, 167)
Me.TextEditBeschreibung.MenuManager = Me.RibbonControl1
Me.TextEditBeschreibung.Name = "TextEditBeschreibung"
- Me.TextEditBeschreibung.Size = New System.Drawing.Size(921, 20)
+ Me.TextEditBeschreibung.Size = New System.Drawing.Size(938, 20)
Me.TextEditBeschreibung.StyleController = Me.LayoutControlProfile
Me.TextEditBeschreibung.TabIndex = 48
'
'TextEditBezeichnung
'
Me.TextEditBezeichnung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True))
- Me.TextEditBezeichnung.Location = New System.Drawing.Point(707, 45)
+ Me.TextEditBezeichnung.Location = New System.Drawing.Point(715, 45)
Me.TextEditBezeichnung.MenuManager = Me.RibbonControl1
Me.TextEditBezeichnung.Name = "TextEditBezeichnung"
- Me.TextEditBezeichnung.Size = New System.Drawing.Size(380, 20)
+ Me.TextEditBezeichnung.Size = New System.Drawing.Size(389, 20)
Me.TextEditBezeichnung.StyleController = Me.LayoutControlProfile
Me.TextEditBezeichnung.TabIndex = 51
'
@@ -738,19 +709,19 @@ Partial Class frmAdmin_Globix
Me.TextEditDoctypeID.Location = New System.Drawing.Point(166, 15)
Me.TextEditDoctypeID.MenuManager = Me.RibbonControl1
Me.TextEditDoctypeID.Name = "TextEditDoctypeID"
- Me.TextEditDoctypeID.Size = New System.Drawing.Size(68, 20)
+ Me.TextEditDoctypeID.Size = New System.Drawing.Size(72, 20)
Me.TextEditDoctypeID.StyleController = Me.LayoutControlProfile
Me.TextEditDoctypeID.TabIndex = 52
'
'ComboBoxEditDupl_handling
'
Me.ComboBoxEditDupl_handling.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "DUPLICATE_HANDLING", True))
- Me.ComboBoxEditDupl_handling.Location = New System.Drawing.Point(166, 106)
+ Me.ComboBoxEditDupl_handling.Location = New System.Drawing.Point(166, 76)
Me.ComboBoxEditDupl_handling.MenuManager = Me.RibbonControl1
Me.ComboBoxEditDupl_handling.Name = "ComboBoxEditDupl_handling"
Me.ComboBoxEditDupl_handling.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
Me.ComboBoxEditDupl_handling.Properties.Items.AddRange(New Object() {"New version", "Default", "Question"})
- Me.ComboBoxEditDupl_handling.Size = New System.Drawing.Size(921, 20)
+ Me.ComboBoxEditDupl_handling.Size = New System.Drawing.Size(938, 20)
Me.ComboBoxEditDupl_handling.StyleController = Me.LayoutControlProfile
Me.ComboBoxEditDupl_handling.TabIndex = 54
'
@@ -758,9 +729,9 @@ Partial Class frmAdmin_Globix
'
Me.SimpleButtonNameconvention.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButtonNameconvention.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.SimpleButtonNameconvention.ImageOptions.SvgImageSize = New System.Drawing.Size(16, 16)
- Me.SimpleButtonNameconvention.Location = New System.Drawing.Point(835, 133)
+ Me.SimpleButtonNameconvention.Location = New System.Drawing.Point(848, 103)
Me.SimpleButtonNameconvention.Name = "SimpleButtonNameconvention"
- Me.SimpleButtonNameconvention.Size = New System.Drawing.Size(255, 22)
+ Me.SimpleButtonNameconvention.Size = New System.Drawing.Size(259, 22)
Me.SimpleButtonNameconvention.StyleController = Me.LayoutControlProfile
Me.SimpleButtonNameconvention.TabIndex = 58
Me.SimpleButtonNameconvention.Text = "Editor"
@@ -768,21 +739,21 @@ Partial Class frmAdmin_Globix
'CheckEdit1
'
Me.CheckEdit1.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True))
- Me.CheckEdit1.Location = New System.Drawing.Point(439, 15)
+ Me.CheckEdit1.Location = New System.Drawing.Point(446, 15)
Me.CheckEdit1.MenuManager = Me.RibbonControl1
Me.CheckEdit1.Name = "CheckEdit1"
Me.CheckEdit1.Properties.Caption = "Aktiv"
- Me.CheckEdit1.Size = New System.Drawing.Size(648, 20)
+ Me.CheckEdit1.Size = New System.Drawing.Size(658, 20)
Me.CheckEdit1.StyleController = Me.LayoutControlProfile
Me.CheckEdit1.TabIndex = 62
'
'TextEditGeaendertWann
'
Me.TextEditGeaendertWann.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True))
- Me.TextEditGeaendertWann.Location = New System.Drawing.Point(707, 257)
+ Me.TextEditGeaendertWann.Location = New System.Drawing.Point(715, 227)
Me.TextEditGeaendertWann.MenuManager = Me.RibbonControl1
Me.TextEditGeaendertWann.Name = "TextEditGeaendertWann"
- Me.TextEditGeaendertWann.Size = New System.Drawing.Size(380, 20)
+ Me.TextEditGeaendertWann.Size = New System.Drawing.Size(389, 20)
Me.TextEditGeaendertWann.StyleController = Me.LayoutControlProfile
Me.TextEditGeaendertWann.TabIndex = 63
'
@@ -790,18 +761,18 @@ Partial Class frmAdmin_Globix
'
Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
Me.Root.GroupBordersVisible = False
- Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem3, Me.LayoutControlItem30, Me.LayoutControlItem20, Me.LayoutControlItem4, Me.LayoutControlItem25, Me.EmptySpaceItem3, Me.LayoutControlItem26, Me.LayoutControlItem1, Me.LayoutControlItem32, Me.LayoutControlItem5, Me.LayoutControlItem28, Me.EmptySpaceItem12, Me.LayoutControlItem61, Me.LayoutControlItem12, Me.LayoutControlItem7, Me.LayoutControlItem22})
+ Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem10, Me.LayoutControlItem3, Me.LayoutControlItem30, Me.LayoutControlItem20, Me.LayoutControlItem4, Me.LayoutControlItem25, Me.EmptySpaceItem3, Me.LayoutControlItem26, Me.LayoutControlItem1, Me.LayoutControlItem32, Me.LayoutControlItem5, Me.LayoutControlItem28, Me.EmptySpaceItem12, Me.LayoutControlItem61, Me.LayoutControlItem7, Me.LayoutControlItem22})
Me.Root.Name = "Root"
- Me.Root.Size = New System.Drawing.Size(1102, 302)
+ Me.Root.Size = New System.Drawing.Size(1119, 280)
Me.Root.TextVisible = False
'
'LayoutControlItem10
'
Me.LayoutControlItem10.Control = Me.TextEditBezeichnung
- Me.LayoutControlItem10.Location = New System.Drawing.Point(541, 30)
+ Me.LayoutControlItem10.Location = New System.Drawing.Point(549, 30)
Me.LayoutControlItem10.Name = "LayoutControlItem10"
Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem10.Size = New System.Drawing.Size(541, 31)
+ Me.LayoutControlItem10.Size = New System.Drawing.Size(550, 31)
Me.LayoutControlItem10.Text = "Bezeichnung"
Me.LayoutControlItem10.TextSize = New System.Drawing.Size(139, 13)
'
@@ -811,20 +782,20 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem3.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem3.Control = Me.TextEditErstelltWer
Me.LayoutControlItem3.Enabled = False
- Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 212)
+ Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 182)
Me.LayoutControlItem3.Name = "LayoutControlItem3"
Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem3.Size = New System.Drawing.Size(541, 30)
+ Me.LayoutControlItem3.Size = New System.Drawing.Size(549, 30)
Me.LayoutControlItem3.Text = "Erstellt wer"
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(139, 13)
'
'LayoutControlItem30
'
Me.LayoutControlItem30.Control = Me.TextEditNamenkonvention
- Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 121)
+ Me.LayoutControlItem30.Location = New System.Drawing.Point(0, 91)
Me.LayoutControlItem30.Name = "LayoutControlItem30"
Me.LayoutControlItem30.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem30.Size = New System.Drawing.Size(823, 30)
+ Me.LayoutControlItem30.Size = New System.Drawing.Size(836, 30)
Me.LayoutControlItem30.Text = "Namenkonvention"
Me.LayoutControlItem30.TextSize = New System.Drawing.Size(139, 13)
'
@@ -832,10 +803,10 @@ Partial Class frmAdmin_Globix
'
Me.LayoutControlItem20.Control = Me.SEQUENCENumericUpDown
Me.LayoutControlItem20.CustomizationFormText = "SEQUENCE"
- Me.LayoutControlItem20.Location = New System.Drawing.Point(229, 0)
+ Me.LayoutControlItem20.Location = New System.Drawing.Point(233, 0)
Me.LayoutControlItem20.Name = "LayoutControlItem20"
Me.LayoutControlItem20.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem20.Size = New System.Drawing.Size(195, 30)
+ Me.LayoutControlItem20.Size = New System.Drawing.Size(198, 30)
Me.LayoutControlItem20.Text = "Reihenfolge"
Me.LayoutControlItem20.TextSize = New System.Drawing.Size(139, 13)
'
@@ -847,7 +818,7 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 0)
Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem4.Size = New System.Drawing.Size(229, 30)
+ Me.LayoutControlItem4.Size = New System.Drawing.Size(233, 30)
Me.LayoutControlItem4.Text = "ID"
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(139, 13)
'
@@ -856,37 +827,37 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem25.AppearanceItemCaption.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LayoutControlItem25.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem25.Control = Me.IDB_OBJECT_STORE_IDComboBox
- Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 151)
+ Me.LayoutControlItem25.Location = New System.Drawing.Point(0, 121)
Me.LayoutControlItem25.Name = "LayoutControlItem25"
Me.LayoutControlItem25.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem25.Size = New System.Drawing.Size(541, 31)
+ Me.LayoutControlItem25.Size = New System.Drawing.Size(549, 31)
Me.LayoutControlItem25.Text = "File-Store:"
Me.LayoutControlItem25.TextSize = New System.Drawing.Size(139, 13)
'
'EmptySpaceItem3
'
Me.EmptySpaceItem3.AllowHotTrack = False
- Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 272)
+ Me.EmptySpaceItem3.Location = New System.Drawing.Point(0, 242)
Me.EmptySpaceItem3.Name = "EmptySpaceItem3"
- Me.EmptySpaceItem3.Size = New System.Drawing.Size(1082, 10)
+ Me.EmptySpaceItem3.Size = New System.Drawing.Size(1099, 18)
Me.EmptySpaceItem3.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem26
'
Me.LayoutControlItem26.Control = Me.ComboBoxEditDupl_handling
- Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 91)
+ Me.LayoutControlItem26.Location = New System.Drawing.Point(0, 61)
Me.LayoutControlItem26.Name = "LayoutControlItem26"
Me.LayoutControlItem26.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem26.Size = New System.Drawing.Size(1082, 30)
+ Me.LayoutControlItem26.Size = New System.Drawing.Size(1099, 30)
Me.LayoutControlItem26.Text = "Verhalten Datei vorhanden"
Me.LayoutControlItem26.TextSize = New System.Drawing.Size(139, 13)
'
'LayoutControlItem1
'
Me.LayoutControlItem1.Control = Me.SimpleButtonNameconvention
- Me.LayoutControlItem1.Location = New System.Drawing.Point(823, 121)
+ Me.LayoutControlItem1.Location = New System.Drawing.Point(836, 91)
Me.LayoutControlItem1.Name = "LayoutControlItem1"
- Me.LayoutControlItem1.Size = New System.Drawing.Size(259, 30)
+ Me.LayoutControlItem1.Size = New System.Drawing.Size(263, 30)
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem1.TextVisible = False
'
@@ -896,10 +867,10 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem32.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem32.Control = Me.TextEdit1
Me.LayoutControlItem32.Enabled = False
- Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 242)
+ Me.LayoutControlItem32.Location = New System.Drawing.Point(0, 212)
Me.LayoutControlItem32.Name = "LayoutControlItem32"
Me.LayoutControlItem32.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem32.Size = New System.Drawing.Size(541, 30)
+ Me.LayoutControlItem32.Size = New System.Drawing.Size(549, 30)
Me.LayoutControlItem32.Text = "Erstellt wann"
Me.LayoutControlItem32.TextSize = New System.Drawing.Size(139, 13)
'
@@ -909,29 +880,29 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem5.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem5.Control = Me.TextEditGeandertWer
Me.LayoutControlItem5.Enabled = False
- Me.LayoutControlItem5.Location = New System.Drawing.Point(541, 212)
+ Me.LayoutControlItem5.Location = New System.Drawing.Point(549, 182)
Me.LayoutControlItem5.Name = "LayoutControlItem5"
Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem5.Size = New System.Drawing.Size(541, 30)
+ Me.LayoutControlItem5.Size = New System.Drawing.Size(550, 30)
Me.LayoutControlItem5.Text = "Geändert wer"
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(139, 13)
'
'LayoutControlItem28
'
Me.LayoutControlItem28.Control = Me.TextEditBeschreibung
- Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 182)
+ Me.LayoutControlItem28.Location = New System.Drawing.Point(0, 152)
Me.LayoutControlItem28.Name = "LayoutControlItem28"
Me.LayoutControlItem28.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem28.Size = New System.Drawing.Size(1082, 30)
+ Me.LayoutControlItem28.Size = New System.Drawing.Size(1099, 30)
Me.LayoutControlItem28.Text = "Beschreibung"
Me.LayoutControlItem28.TextSize = New System.Drawing.Size(139, 13)
'
'EmptySpaceItem12
'
Me.EmptySpaceItem12.AllowHotTrack = False
- Me.EmptySpaceItem12.Location = New System.Drawing.Point(541, 151)
+ Me.EmptySpaceItem12.Location = New System.Drawing.Point(549, 121)
Me.EmptySpaceItem12.Name = "EmptySpaceItem12"
- Me.EmptySpaceItem12.Size = New System.Drawing.Size(541, 31)
+ Me.EmptySpaceItem12.Size = New System.Drawing.Size(550, 31)
Me.EmptySpaceItem12.TextSize = New System.Drawing.Size(0, 0)
'
'LayoutControlItem61
@@ -940,26 +911,17 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem61.Location = New System.Drawing.Point(0, 30)
Me.LayoutControlItem61.Name = "LayoutControlItem61"
Me.LayoutControlItem61.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem61.Size = New System.Drawing.Size(541, 31)
+ Me.LayoutControlItem61.Size = New System.Drawing.Size(549, 31)
Me.LayoutControlItem61.Text = "Dokumentart"
Me.LayoutControlItem61.TextSize = New System.Drawing.Size(139, 13)
'
- 'LayoutControlItem12
- '
- Me.LayoutControlItem12.Control = Me.GridLookUpEdit1
- Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 61)
- Me.LayoutControlItem12.Name = "LayoutControlItem12"
- Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem12.Size = New System.Drawing.Size(1082, 30)
- Me.LayoutControlItem12.TextSize = New System.Drawing.Size(139, 13)
- '
'LayoutControlItem7
'
Me.LayoutControlItem7.Control = Me.CheckEdit1
- Me.LayoutControlItem7.Location = New System.Drawing.Point(424, 0)
+ Me.LayoutControlItem7.Location = New System.Drawing.Point(431, 0)
Me.LayoutControlItem7.Name = "LayoutControlItem7"
Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem7.Size = New System.Drawing.Size(658, 30)
+ Me.LayoutControlItem7.Size = New System.Drawing.Size(668, 30)
Me.LayoutControlItem7.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem7.TextVisible = False
'
@@ -969,10 +931,10 @@ Partial Class frmAdmin_Globix
Me.LayoutControlItem22.AppearanceItemCaption.Options.UseFont = True
Me.LayoutControlItem22.Control = Me.TextEditGeaendertWann
Me.LayoutControlItem22.Enabled = False
- Me.LayoutControlItem22.Location = New System.Drawing.Point(541, 242)
+ Me.LayoutControlItem22.Location = New System.Drawing.Point(549, 212)
Me.LayoutControlItem22.Name = "LayoutControlItem22"
Me.LayoutControlItem22.Padding = New DevExpress.XtraLayout.Utils.Padding(5, 5, 5, 5)
- Me.LayoutControlItem22.Size = New System.Drawing.Size(541, 30)
+ Me.LayoutControlItem22.Size = New System.Drawing.Size(550, 30)
Me.LayoutControlItem22.Text = "Geändert Wann"
Me.LayoutControlItem22.TextSize = New System.Drawing.Size(139, 13)
'
@@ -2703,6 +2665,11 @@ Partial Class frmAdmin_Globix
'
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.ClearBeforeFill = True
'
+ 'NotifyIcon1
+ '
+ Me.NotifyIcon1.Text = "NotifyIcon1"
+ Me.NotifyIcon1.Visible = True
+ '
'frmAdmin_Globix
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2725,9 +2692,7 @@ Partial Class frmAdmin_Globix
Me.XtraTabPageProfile.ResumeLayout(False)
CType(Me.LayoutControlProfile, System.ComponentModel.ISupportInitialize).EndInit()
Me.LayoutControlProfile.ResumeLayout(False)
- CType(Me.GridLookUpEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWIDB_DOCTYPE_LANGUAGEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.GridLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWIDB_OBJECT_STOREBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2756,7 +2721,6 @@ Partial Class frmAdmin_Globix
CType(Me.LayoutControlItem28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.EmptySpaceItem12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem61, System.ComponentModel.ISupportInitialize).EndInit()
- CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.LayoutControlItem22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3103,9 +3067,6 @@ Partial Class frmAdmin_Globix
Friend WithEvents LayoutControlItem61 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents VWIDB_DOCTYPE_LANGUAGEBindingSource As BindingSource
Friend WithEvents VWIDB_DOCTYPE_LANGUAGETableAdapter As DSIDB_StammdatenTableAdapters.VWIDB_DOCTYPE_LANGUAGETableAdapter
- Friend WithEvents GridLookUpEdit1 As DevExpress.XtraEditors.GridLookUpEdit
- Friend WithEvents GridLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView
- Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents ACTIVECheckBox2 As DevExpress.XtraEditors.CheckEdit
Friend WithEvents OPTIONALCheckBox2 As DevExpress.XtraEditors.CheckEdit
Friend WithEvents LayoutControlItem63 As DevExpress.XtraLayout.LayoutControlItem
@@ -3116,4 +3077,5 @@ Partial Class frmAdmin_Globix
Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem
Friend WithEvents TextEditGeaendertWann As DevExpress.XtraEditors.TextEdit
Friend WithEvents LayoutControlItem22 As DevExpress.XtraLayout.LayoutControlItem
+ Friend WithEvents NotifyIcon1 As NotifyIcon
End Class
diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx
index c3704ee2..4f2c6251 100644
--- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx
+++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.resx
@@ -519,6 +519,9 @@
311, 134
+
+ 599, 134
+
118
diff --git a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
index cdc2bd0a..8fdd6a1c 100644
--- a/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
+++ b/GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
@@ -96,8 +96,10 @@ Public Class frmAdmin_Globix
AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed
If IsInsert Then
TextEditErstelltWer.EditValue = My.Application.User.UserName
+ BarButtonNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Else
TextEditChangedWho_ManIndex.EditValue = My.Application.User.UserName
+ BarButtonNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If
Dim oDragDropManager As New ClassDragDrop(My.LogConfig)
oDragDropManager.AddGridView(viewAssignedGroups)
@@ -227,6 +229,7 @@ Public Class frmAdmin_Globix
End If
Return True
Catch ex As Exception
+ ShowBalloonTip(15000, "Error saving ManIndex", ex.Message, ToolTipIcon.Warning)
Return False
End Try
End Function
@@ -245,8 +248,12 @@ Public Class frmAdmin_Globix
Return True
Catch ex As Exception
Return False
+ ShowBalloonTip(15000, "Error saving AutoIndex", ex.Message, ToolTipIcon.Warning)
End Try
End Function
+ Sub ShowBalloonTip(pTime As Integer, tipTitle As String, tipText As String, tipIcon As ToolTipIcon)
+ NotifyIcon1.ShowBalloonTip(pTime, tipTitle, tipText, tipIcon)
+ End Sub
Private Function Save_AutoSelect(oPage As ClassDetailPageManager.DetailPage) As Boolean
Try
TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
@@ -268,10 +275,10 @@ Public Class frmAdmin_Globix
Try
Dim oIns = $"INSERT INTO [TBDD_DOKUMENTART] ([BEZEICHNUNG] ,[OBJEKTTYP] ,[EINGANGSART_ID] ,[IDB_DOCTYPE_ID] ,[ZIEL_PFAD] ,[BESCHREIBUNG]
,[WINDREAM_DIRECT] ,[FOLDER_FOR_INDEX] ,[DUPLICATE_HANDLING],[AKTIV],[LANGUAGE],
- [SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID) VALUES
+ [SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID,KURZNAME) VALUES
('{TextEditBezeichnung.Text}','IDB_DRIVEN',1,{IDB_DOCTYPE_IDComboBox.SelectedValue},'IDB_STORE','{TextEditBeschreibung.Text}'
,'False','{FOLDER_FOR_INDEXTextEdit.Text}','{ComboBoxEditDupl_handling.EditValue}' ,'{CheckEdit1.Checked}','{My.Application.User.Language}'
- , {SEQUENCENumericUpDown.Value},'{TextEditNamenkonvention.Text}','{My.Application.User.UserName}',{IDB_OBJECT_STORE_IDComboBox.SelectedValue})"
+ , {SEQUENCENumericUpDown.Value},'{TextEditNamenkonvention.Text}','{My.Application.User.UserName}',{IDB_OBJECT_STORE_IDComboBox.SelectedValue},'')"
If My.DatabaseECM.ExecuteNonQuery(oIns) = True Then
Dim oSQL = $"SELECT GUID FROM TBDD_DOKUMENTART WHERE BEZEICHNUNG = '{TextEditBezeichnung.Text}'"
PrimaryKey = My.DatabaseECM.GetScalarValue(oSQL)
@@ -291,9 +298,12 @@ Public Class frmAdmin_Globix
End Function
Private Function Update_Doctype() As Boolean
Try
- Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[IDB_DOCTYPE_ID] = {IDB_DOCTYPE_IDComboBox.SelectedValue} ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}'
- ,[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}',[AKTIV] = '{CheckEdit1.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value}
- ,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}', [FOLDER_FOR_INDEX] = '{FOLDER_FOR_INDEXTextEdit.Text}',[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue} WHERE GUID = {TextEditDoctypeID.Text}"
+ Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[IDB_DOCTYPE_ID] = {IDB_DOCTYPE_IDComboBox.SelectedValue}
+ ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}',[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}'
+ ,[AKTIV] = '{CheckEdit1.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value}
+ ,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}', [FOLDER_FOR_INDEX] = '{FOLDER_FOR_INDEXTextEdit.Text}'
+ ,[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue}
+ WHERE GUID = {TextEditDoctypeID.Text}"
Return My.DatabaseECM.ExecuteNonQuery(oUpd)
@@ -442,6 +452,7 @@ Public Class frmAdmin_Globix
'TBDD_INDEX_MANTableAdapter.Adapter.UpdateCommand.Parameters("@CONNECTION_ID").Value = oForm.ConnectionID
CHANGED_WHOTextEditAutoAttribut.Text = My.Application.User.UserName
End If
+ Else
End If
End Sub
diff --git a/GUIs.ZooFlow/Dialog1.Designer.vb b/GUIs.ZooFlow/Dialog1.Designer.vb
new file mode 100644
index 00000000..f9b62e33
--- /dev/null
+++ b/GUIs.ZooFlow/Dialog1.Designer.vb
@@ -0,0 +1,104 @@
+ _
+Partial Class Dialog1
+ Inherits DevExpress.XtraEditors.XtraForm
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wird vom Windows Form-Designer benötigt.
+ Private components As System.ComponentModel.IContainer
+
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ _
+ Private Sub InitializeComponent()
+ Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+ Me.OK_Button = New System.Windows.Forms.Button()
+ Me.Cancel_Button = New System.Windows.Forms.Button()
+ Me.lblMeldung = New DevExpress.XtraEditors.LabelControl()
+ Me.TableLayoutPanel1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'TableLayoutPanel1
+ '
+ Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TableLayoutPanel1.ColumnCount = 2
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+ Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+ Me.TableLayoutPanel1.Location = New System.Drawing.Point(207, 81)
+ Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+ Me.TableLayoutPanel1.RowCount = 1
+ Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+ Me.TableLayoutPanel1.Size = New System.Drawing.Size(216, 41)
+ Me.TableLayoutPanel1.TabIndex = 0
+ '
+ 'OK_Button
+ '
+ Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.OK_Button.DialogResult = System.Windows.Forms.DialogResult.Yes
+ Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.OK_Button.Location = New System.Drawing.Point(10, 4)
+ Me.OK_Button.Name = "OK_Button"
+ Me.OK_Button.Size = New System.Drawing.Size(87, 32)
+ Me.OK_Button.TabIndex = 0
+ Me.OK_Button.Text = "OK"
+ '
+ 'Cancel_Button
+ '
+ Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+ Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.No
+ Me.Cancel_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Cancel_Button.Location = New System.Drawing.Point(114, 4)
+ Me.Cancel_Button.Name = "Cancel_Button"
+ Me.Cancel_Button.Size = New System.Drawing.Size(95, 32)
+ Me.Cancel_Button.TabIndex = 1
+ Me.Cancel_Button.Text = "Abbrechen"
+ '
+ 'lblMeldung
+ '
+ Me.lblMeldung.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblMeldung.Appearance.Options.UseFont = True
+ Me.lblMeldung.Location = New System.Drawing.Point(12, 1)
+ Me.lblMeldung.Name = "lblMeldung"
+ Me.lblMeldung.Size = New System.Drawing.Size(98, 21)
+ Me.lblMeldung.TabIndex = 1
+ Me.lblMeldung.Text = "LabelControl1"
+ '
+ 'Dialog1
+ '
+ Me.AcceptButton = Me.OK_Button
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.CancelButton = Me.Cancel_Button
+ Me.ClientSize = New System.Drawing.Size(435, 134)
+ Me.Controls.Add(Me.lblMeldung)
+ Me.Controls.Add(Me.TableLayoutPanel1)
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+ Me.MaximizeBox = False
+ Me.MinimizeBox = False
+ Me.Name = "Dialog1"
+ Me.ShowInTaskbar = False
+ Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+ Me.Text = "Dialog1"
+ Me.TableLayoutPanel1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+ Friend WithEvents OK_Button As System.Windows.Forms.Button
+ Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+ Friend WithEvents lblMeldung As DevExpress.XtraEditors.LabelControl
+End Class
diff --git a/GUIs.ZooFlow/Dialog1.resx b/GUIs.ZooFlow/Dialog1.resx
new file mode 100644
index 00000000..1af7de15
--- /dev/null
+++ b/GUIs.ZooFlow/Dialog1.resx
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Dialog1.vb b/GUIs.ZooFlow/Dialog1.vb
new file mode 100644
index 00000000..90cf3fa1
--- /dev/null
+++ b/GUIs.ZooFlow/Dialog1.vb
@@ -0,0 +1,24 @@
+Imports System.Windows.Forms
+
+Public Class Dialog1
+ Public Sub New(messagetext As String, otitle As String)
+
+ ' Dieser Aufruf ist für den Designer erforderlich.
+ InitializeComponent()
+
+ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+ Me.lblMeldung.Text = messagetext
+ Me.Text = otitle
+ End Sub
+
+ Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+ Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+ Me.Close()
+ End Sub
+
+End Class
diff --git a/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb b/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb
index 0c6edc59..4c7363c7 100644
--- a/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb
+++ b/GUIs.ZooFlow/Modules/Globix/ClassFilehandle.vb
@@ -46,18 +46,21 @@ Public Class ClassFilehandle
If oFileExists.Equals(Date.MinValue) Then
Return True
Else
- Dim oResult As DialogResult
+ 'Dim oResult As DialogResult
Dim oDate As String = oFileExists.ToString("d")
- Dim oBoxTitle = $"GLOBIX - {ModuleTitle}"
- Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
+ ' Dim oBoxTitle = $"GLOBIX - {ModuleTitle}"
- If My.Application.User.Language = "de-DE" Then
- oResult = MsgBox($"Die Datei [{oFilename}] wurde bereits am [{oDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?", oBoxOptions, oBoxTitle)
- Else
- oResult = MsgBox($"The file [{oFilename}] has already been processed at [{oDate}]. Do you want to process the same file again?", oBoxOptions, oBoxTitle)
- End If
+ Dim ofrmDuplicate As New frmFileflow_Duplicate(oFilename, oDate)
- If oResult = DialogResult.Yes Then
+ 'Dim oBoxOptions = MsgBoxStyle.Question Or MsgBoxStyle.YesNo
+ ofrmDuplicate.ShowDialog()
+ 'If My.Application.User.Language = "de-DE" Then
+ ' oResult = MsgBox($"Die Datei [{oFilename}] wurde bereits am [{oDate}] verarbeitet. Wollen Sie die gleiche Datei noch einmal verarbeiten?", oBoxOptions, oBoxTitle)
+ 'Else
+ ' oResult = MsgBox($"The file [{oFilename}] has already been processed at [{oDate}]. Do you want to process the same file again?", oBoxOptions, oBoxTitle)
+ 'End If
+
+ If ofrmDuplicate.DialogResult = DialogResult.Yes Then
Return True
End If
End If
diff --git a/GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb b/GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb
index dfb33110..a97510d3 100644
--- a/GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb
+++ b/GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb
@@ -41,6 +41,7 @@ Public Class ClassUserFiles
Dim oFilesystem As New DigitalData.Modules.Filesystem.File(My.LogConfig)
Try
+ My.Application.Globix.DOCUMENT_ID = 0
If Filename.Contains("'") Then
Filename = Filename.Replace("'", "''")
End If
@@ -70,10 +71,12 @@ Public Class ClassUserFiles
Return Nothing
Else
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
+ My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("IDB_OBJ_ID")
Return oFirstRow.Item("ADDED_WHEN")
End If
Else
Dim oFirstRow As DataRow = oResult.Rows.Item(0)
+ My.Application.Globix.DOCUMENT_ID = oFirstRow.Item("DocID")
Return oFirstRow.Item("ADDED_WHEN")
End If
Catch ex As Exception
diff --git a/GUIs.ZooFlow/Modules/Globix/State.vb b/GUIs.ZooFlow/Modules/Globix/State.vb
index a14cdf20..b55341ce 100644
--- a/GUIs.ZooFlow/Modules/Globix/State.vb
+++ b/GUIs.ZooFlow/Modules/Globix/State.vb
@@ -19,6 +19,7 @@ Namespace Globix
Public Property Folderwatchstarted As Boolean = False
Public Property ScanFolderwatchstarted As Boolean = False
Public Property DTEXCLUDE_FILES As DataTable
+ Public Property DOCUMENT_ID As Long
End Class
End Namespace
diff --git a/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb
new file mode 100644
index 00000000..d86007a9
--- /dev/null
+++ b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.Designer.vb
@@ -0,0 +1,187 @@
+ _
+Partial Class frmFileflow_Duplicate
+ Inherits System.Windows.Forms.Form
+
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Wird vom Windows Form-Designer benötigt.
+ Private components As System.ComponentModel.IContainer
+
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ _
+ Private Sub InitializeComponent()
+ Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFileflow_Duplicate))
+ Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton()
+ Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton()
+ Me.LabelControlMessage = New DevExpress.XtraEditors.LabelControl()
+ Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
+ Me.SimpleButton5 = New DevExpress.XtraEditors.SimpleButton()
+ Me.SimpleButton4 = New DevExpress.XtraEditors.SimpleButton()
+ Me.SimpleButton3 = New DevExpress.XtraEditors.SimpleButton()
+ Me.GroupControl1 = New DevExpress.XtraEditors.GroupControl()
+ CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+ Me.GroupControl1.SuspendLayout()
+ Me.SuspendLayout()
+ '
+ 'SimpleButton2
+ '
+ Me.SimpleButton2.Appearance.BackColor = System.Drawing.SystemColors.Control
+ Me.SimpleButton2.Appearance.BorderColor = System.Drawing.Color.Black
+ Me.SimpleButton2.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton2.Appearance.Options.UseBackColor = True
+ Me.SimpleButton2.Appearance.Options.UseBorderColor = True
+ Me.SimpleButton2.Appearance.Options.UseFont = True
+ Me.SimpleButton2.DialogResult = System.Windows.Forms.DialogResult.No
+ Me.SimpleButton2.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton2.Location = New System.Drawing.Point(228, 87)
+ Me.SimpleButton2.Name = "SimpleButton2"
+ Me.SimpleButton2.Size = New System.Drawing.Size(143, 40)
+ Me.SimpleButton2.TabIndex = 3
+ Me.SimpleButton2.Text = "Nein"
+ '
+ 'SimpleButton1
+ '
+ Me.SimpleButton1.Appearance.BackColor = System.Drawing.SystemColors.Control
+ Me.SimpleButton1.Appearance.BorderColor = System.Drawing.Color.Black
+ Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton1.Appearance.Options.UseBackColor = True
+ Me.SimpleButton1.Appearance.Options.UseBorderColor = True
+ Me.SimpleButton1.Appearance.Options.UseFont = True
+ Me.SimpleButton1.DialogResult = System.Windows.Forms.DialogResult.Yes
+ Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton1.Location = New System.Drawing.Point(118, 87)
+ Me.SimpleButton1.Name = "SimpleButton1"
+ Me.SimpleButton1.Size = New System.Drawing.Size(101, 40)
+ Me.SimpleButton1.TabIndex = 2
+ Me.SimpleButton1.Text = "Ja"
+ '
+ 'LabelControlMessage
+ '
+ Me.LabelControlMessage.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.LabelControlMessage.Appearance.ForeColor = System.Drawing.Color.Firebrick
+ Me.LabelControlMessage.Appearance.Options.UseFont = True
+ Me.LabelControlMessage.Appearance.Options.UseForeColor = True
+ Me.LabelControlMessage.LineVisible = True
+ Me.LabelControlMessage.Location = New System.Drawing.Point(118, 31)
+ Me.LabelControlMessage.Name = "LabelControlMessage"
+ Me.LabelControlMessage.Size = New System.Drawing.Size(152, 21)
+ Me.LabelControlMessage.TabIndex = 1
+ Me.LabelControlMessage.Text = "msgfrom_LoadForm"
+ '
+ 'PictureEdit1
+ '
+ Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
+ Me.PictureEdit1.Location = New System.Drawing.Point(12, 31)
+ Me.PictureEdit1.Name = "PictureEdit1"
+ Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.Color.Transparent
+ Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True
+ Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
+ Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
+ Me.PictureEdit1.Size = New System.Drawing.Size(100, 96)
+ Me.PictureEdit1.TabIndex = 0
+ '
+ 'SimpleButton5
+ '
+ Me.SimpleButton5.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.SimpleButton5.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton5.Appearance.ForeColor = System.Drawing.Color.Black
+ Me.SimpleButton5.Appearance.Options.UseBackColor = True
+ Me.SimpleButton5.Appearance.Options.UseFont = True
+ Me.SimpleButton5.Appearance.Options.UseForeColor = True
+ Me.SimpleButton5.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton5.Location = New System.Drawing.Point(249, 85)
+ Me.SimpleButton5.Name = "SimpleButton5"
+ Me.SimpleButton5.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
+ Me.SimpleButton5.Size = New System.Drawing.Size(143, 42)
+ Me.SimpleButton5.TabIndex = 6
+ Me.SimpleButton5.Text = "... nur von mir"
+ '
+ 'SimpleButton4
+ '
+ Me.SimpleButton4.Appearance.BackColor = System.Drawing.Color.Wheat
+ Me.SimpleButton4.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton4.Appearance.ForeColor = System.Drawing.Color.Black
+ Me.SimpleButton4.Appearance.Options.UseBackColor = True
+ Me.SimpleButton4.Appearance.Options.UseFont = True
+ Me.SimpleButton4.Appearance.Options.UseForeColor = True
+ Me.SimpleButton4.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton4.Location = New System.Drawing.Point(20, 85)
+ Me.SimpleButton4.Name = "SimpleButton4"
+ Me.SimpleButton4.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
+ Me.SimpleButton4.Size = New System.Drawing.Size(223, 42)
+ Me.SimpleButton4.TabIndex = 5
+ Me.SimpleButton4.Text = "Alle Dateien von heute"
+ '
+ 'SimpleButton3
+ '
+ Me.SimpleButton3.Appearance.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.SimpleButton3.Appearance.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.SimpleButton3.Appearance.ForeColor = System.Drawing.Color.Black
+ Me.SimpleButton3.Appearance.Options.UseBackColor = True
+ Me.SimpleButton3.Appearance.Options.UseFont = True
+ Me.SimpleButton3.Appearance.Options.UseForeColor = True
+ Me.SimpleButton3.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.SimpleButton3.Location = New System.Drawing.Point(20, 37)
+ Me.SimpleButton3.Name = "SimpleButton3"
+ Me.SimpleButton3.PaintStyle = DevExpress.XtraEditors.Controls.PaintStyles.Light
+ Me.SimpleButton3.Size = New System.Drawing.Size(154, 42)
+ Me.SimpleButton3.TabIndex = 4
+ Me.SimpleButton3.Text = "Datei anzeigen"
+ '
+ 'GroupControl1
+ '
+ Me.GroupControl1.Controls.Add(Me.SimpleButton3)
+ Me.GroupControl1.Controls.Add(Me.SimpleButton5)
+ Me.GroupControl1.Controls.Add(Me.SimpleButton4)
+ Me.GroupControl1.Location = New System.Drawing.Point(12, 151)
+ Me.GroupControl1.Name = "GroupControl1"
+ Me.GroupControl1.Size = New System.Drawing.Size(401, 141)
+ Me.GroupControl1.TabIndex = 7
+ Me.GroupControl1.Text = "Dateisuchen"
+ '
+ 'frmFileflow_Duplicate
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.ClientSize = New System.Drawing.Size(686, 304)
+ Me.Controls.Add(Me.GroupControl1)
+ Me.Controls.Add(Me.SimpleButton2)
+ Me.Controls.Add(Me.PictureEdit1)
+ Me.Controls.Add(Me.LabelControlMessage)
+ Me.Controls.Add(Me.SimpleButton1)
+ Me.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+ Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+ Me.Name = "frmFileflow_Duplicate"
+ Me.Text = "frmGlobix_Duplicate"
+ Me.TopMost = True
+ CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.GroupControl1, System.ComponentModel.ISupportInitialize).EndInit()
+ Me.GroupControl1.ResumeLayout(False)
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+ Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents LabelControlMessage As DevExpress.XtraEditors.LabelControl
+ Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit
+ Friend WithEvents SimpleButton5 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents SimpleButton4 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents SimpleButton3 As DevExpress.XtraEditors.SimpleButton
+ Friend WithEvents GroupControl1 As DevExpress.XtraEditors.GroupControl
+End Class
diff --git a/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx
new file mode 100644
index 00000000..d749fb75
--- /dev/null
+++ b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.resx
@@ -0,0 +1,258 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANcBAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQo8L3N0
+ eWxlPg0KICA8cGF0aCBkPSJNMTYsMkM4LjMsMiwyLDguMywyLDE2czYuMywxNCwxNCwxNHMxNC02LjMs
+ MTQtMTRTMjMuNywyLDE2LDJ6IE0yMywyMGwtMywzbC00LTRsLTQsNGwtMy0zbDQtNGwtNC00bDMtM2w0
+ LDQgIGw0LTRsMywzbC00LDRMMjMsMjB6IiBjbGFzcz0iUmVkIiAvPg0KPC9zdmc+Cw==
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALYDAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+ R3JlZW57ZmlsbDojMDM5QzIzO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTgsMTZWNkg1QzQuNCw2LDQs
+ Ni40LDQsN3YyMmMwLDAuNiwwLjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjE2SDh6IE04LDI2di02
+ aDE2djZIOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPHBhdGggZD0iTTE4LDZoLTh2OGg4VjZ6IE0xNCwx
+ MmgtMlY4aDJWMTJ6IiBjbGFzcz0iQmxhY2siIC8+DQogIDxwYXRoIGQ9Ik0yNiwyYy0zLjMsMC02LDIu
+ Ny02LDZzMi43LDYsNiw2czYtMi43LDYtNlMyOS4zLDIsMjYsMnogTTI2LDExLjhjLTAuNCwwLTAuNy0w
+ LjMtMC43LTAuNyAgYzAtMC40LDAuMy0wLjcsMC43LTAuN3MwLjcsMC4zLDAuNywwLjdDMjYuNywxMS41
+ LDI2LjQsMTEuOCwyNiwxMS44eiBNMjYuNyw5LjR2MC4zaC0xLjRWOS41YzAtMC4zLDAuMS0xLjEsMC42
+ LTEuNSAgYzAuMi0wLjIsMS40LTAuNiwxLjYtMS43YzAtMC4zLTAuMS0wLjUtMC4zLTAuN3MtMC41LTAu
+ My0wLjktMC4zYy0wLjksMC0xLjQsMS0xLjQsMS40aC0xLjRjMC0wLjgsMC4zLTEuNCwwLjgtMS45czEu
+ Mi0wLjcsMi0wLjcgIHMxLjUsMC4yLDEuOSwwLjZjMC41LDAuNCwwLjcsMC45LDAuNywxLjZDMjguNiw4
+ LjIsMjYuNyw4LjUsMjYuNyw5LjR6IiBjbGFzcz0iR3JlZW4iIC8+DQo8L3N2Zz4L
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKEDAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+ ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+ OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+ dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlVzZXIiPg0KICAgIDxwYXRoIGQ9Ik0xMCw5LjljLTAu
+ MSwwLjUsMC4yLDAuOSwwLjQsMS40YzAuMiwwLjUtMC4xLDEuNywwLjksMS42YzAsMCwwLDAuMSwwLDAu
+ MmMwLjYsMi4zLDIsNC45LDQuNyw0LjkgICBjMi43LDAsNC4yLTIuNiw0LjctNC45YzAsMCwwLTAuMSww
+ LTAuMWMxLDAuMSwwLjYtMS4xLDAuOS0xLjZjMC4yLTAuNSwwLjQtMC45LDAuMy0xLjRjLTAuMS0wLjQt
+ MC40LTAuNC0wLjUtMC4zICAgYzEuOC00LjktMS4xLTQuNy0xLjEtNC43UzIwLDIsMTQuOCwyQzEwLDIs
+ OS40LDYsMTAuNSw5LjZDMTAuNCw5LjYsMTAuMSw5LjcsMTAsOS45eiIgY2xhc3M9IkJsYWNrIiAvPg0K
+ ICAgIDxwYXRoIGQ9Ik0yMCwxOGMtMC44LDEuNS0yLjEsNC00LDRjLTEuOSwwLTMuMi0yLjUtNC00Yy0y
+ LjMsMy41LTgsMS04LDguNVYzMGgyNHYtMy41QzI4LDE5LjEsMjIuMywyMS40LDIwLDE4eiIgY2xhc3M9
+ IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAL8FAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+ MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+ bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iTWVldGluZyI+DQogICAgPHJlY3Qg
+ eD0iMTAiIHk9IjE0IiB3aWR0aD0iNCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJSZWQi
+ IC8+DQogICAgPGcgY2xhc3M9InN0MCI+DQogICAgICA8cGF0aCBkPSJNMTQsMjRoLTR2LTRoNFYyNHog
+ TTIwLDIwaC00djRoNFYyMHogTTI2LDhoLTR2NGg0Vjh6IE0yMCwxNGgtNHY0aDRWMTR6IE0yMCw4aC00
+ djRoNFY4eiBNMTQsOGgtNHY0aDRWOHogICAgIE04LDhINHY0aDRWOHogTTgsMTRINHY0aDRWMTR6IE04
+ LDIwSDR2NGg0VjIweiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cGF0aCBkPSJNMTgu
+ NiwyNkgyVjZoMjZ2Ni40YzAuOSwwLjMsMS41LDAuOCwyLDEuM1YzYzAtMC42LTAuNC0xLTEtMUgxQzAu
+ NCwyLDAsMi40LDAsM3YyNGMwLDAuNiwwLjQsMSwxLDFoMTcuMSAgIEMxOC4xLDI3LjIsMTguMywyNi41
+ LDE4LjYsMjZ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBhdGggZD0iTTMyLDI5LjFWMzBIMjB2LTAu
+ OWMwLTQsMi4zLTMuMywzLjYtNC42YzAuNSwwLjgsMS4zLDEuNSwyLjQsMS41YzEuMSwwLDEuOS0wLjYs
+ Mi41LTEuNCAgIEMyOS44LDI1LjgsMzIsMjUuMSwzMiwyOS4xeiBNMjIuOSwyMC44djAuMWMwLjQsMS41
+ LDEuMywzLjEsMy4xLDMuMXMyLjgtMS42LDMuMi0zLjF2LTAuMWMwLjcsMCwwLjQtMC43LDAuNi0xczAu
+ My0wLjUsMC4yLTAuOSAgIGMtMC4xLTAuMy0wLjMtMC4yLTAuNC0wLjJjMS4yLTMuMS0wLjctMi45LTAu
+ Ny0yLjlTMjguNywxNCwyNS4yLDE0Yy0zLjIsMC0zLjYsMi41LTIuOSw0LjdjMCwwLjEtMC4yLDAuMS0w
+ LjMsMC4yICAgYy0wLjEsMC40LDAuMSwwLjYsMC4zLDAuOVMyMi4yLDIwLjgsMjIuOSwyMC44eiIgY2xh
+ c3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAP4DAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjU7fQoJLnN0MXtkaXNwbGF5Om5vbmU7fQoJLnN0MntkaXNwbGF5OmlubGluZTtmaWxsOiMw
+ MzlDMjM7fQoJLnN0M3tkaXNwbGF5OmlubGluZTtmaWxsOiNEMTFDMUM7fQoJLnN0NHtkaXNwbGF5Omlu
+ bGluZTtmaWxsOiM3MjcyNzI7fQo8L3N0eWxlPg0KICA8ZyBpZD0iVG9kYXkiPg0KICAgIDxwYXRoIGQ9
+ Ik0yOSwwSDFDMC41LDAsMCwwLjUsMCwxdjMwYzAsMC41LDAuNSwxLDEsMWgyOGMwLjUsMCwxLTAuNSwx
+ LTFWMUMzMCwwLjUsMjkuNSwwLDI5LDB6IE0yOCwzMEgyVjRoMjZWMzB6IiBjbGFzcz0iQmxhY2siIC8+
+ DQogICAgPGcgY2xhc3M9InN0MCI+DQogICAgICA8cGF0aCBkPSJNMTAsMTJINFY2aDZWMTJ6IE0xOCw2
+ aC02djZoNlY2eiBNMjYsNmgtNnY2aDZWNnogTTI2LDE0aC02djZoNlYxNHogTTEwLDIySDR2Nmg2VjIy
+ eiBNMTgsMjJoLTZ2Nmg2VjIyeiAgICAgTTI2LDIyaC02djZoNlYyMnogTTEwLDE0SDR2Nmg2VjE0eiIg
+ Y2xhc3M9IkJsYWNrIiAvPg0KICAgIDwvZz4NCiAgICA8cmVjdCB4PSIxMiIgeT0iMTQiIHdpZHRoPSI2
+ IiBoZWlnaHQ9IjYiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkdyZWVuIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOMCAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+ MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+ LlJlZHtmaWxsOiNEMTFDMUM7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD
+ MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+ Y2l0eTowLjc1O30KPC9zdHlsZT4NCiAgPGcgaWQ9IlNpbmdsZVBhZ2VWaWV3Ij4NCiAgICA8cGF0aCBk
+ PSJNMjcsMEgzQzIuNCwwLDIsMC40LDIsMXYyOGMwLDAuNiwwLjQsMSwxLDFoMjRjMC42LDAsMS0wLjQs
+ MS0xVjFDMjgsMC40LDI3LjYsMCwyNywweiBNMjYsMjhINFYyaDIyVjI4eiIgY2xhc3M9IkJsYWNrIiAv
+ Pg0KICAgIDxwYXRoIGQ9Ik0yMiw4SDhWNmgxNFY4eiBNMjIsMTBIOHYyaDE0VjEweiBNMjIsMTRIOHYy
+ aDE0VjE0eiBNMjIsMThIOHYyaDE0VjE4eiBNMjIsMjJIOHYyaDE0VjIyeiIgY2xhc3M9IkJsdWUiIC8+
+ DQogIDwvZz4NCjwvc3ZnPgs=
+
+
+
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb
new file mode 100644
index 00000000..322519a0
--- /dev/null
+++ b/GUIs.ZooFlow/Modules/Globix/frmFileflow_Duplicate.vb
@@ -0,0 +1,64 @@
+Imports System.Threading.Tasks
+Imports DigitalData.Modules.ZooFlow
+Public Class frmFileflow_Duplicate
+ Dim omessagetext As String
+ Private Search As SearchRunner
+ Private Property Environment As Environment
+ Public Sub New(pFilename As String, pDate As String)
+
+ ' Dieser Aufruf ist für den Designer erforderlich.
+ InitializeComponent()
+
+ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+ If My.Application.User.Language = "de-DE" Then
+ omessagetext = $"Die Datei [{pFilename}] wurde bereits" & vbNewLine & "am [{pDate}] verarbeitet." & vbNewLine & "Wollen Sie die gleiche Datei noch einmal verarbeiten?"
+ Else
+ omessagetext = $"The file [{pFilename}] has already been processed at [{pDate}]. Do you want to process the same file again?"
+ End If
+ Environment = My.Application.GetEnvironment()
+
+ Search = New SearchRunner(My.LogConfig, Environment, "FlowSearch") With {
+ .BaseSearchSQL = DocResultBaseSearch
+ }
+ End Sub
+
+ Private Async Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
+ Await GetResult("DOCID")
+
+ End Sub
+ Private Async Function GetResult(oVariant As String) As Task
+ Dim oSql As String
+ Try
+ If oVariant = "DOCID" Then
+ oSql = My.Queries.Common.DOCRESULT_DocID(My.Application.Globix.DOCUMENT_ID)
+ ElseIf oVariant = "TODAY" Then
+ oSql = My.Queries.Common.DOCRESULT_TODAY
+ ElseIf oVariant = "TODAY_ME" Then
+ oSql = My.Queries.Common.DOCRESULT_TODAY_ME
+ End If
+ If oSql IsNot Nothing Then
+ Dim oResultDT = Await My.Database.GetDatatableIDBAsync(oSql)
+ If Not IsNothing(oResultDT) Then
+ Search.Run(oResultDT, "FileFlow Duplicate File")
+ End If
+
+ End If
+
+ Catch ex As Exception
+ MsgBox("Unexpected error in getResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+ End Try
+ End Function
+
+ Private Async Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
+ Await GetResult("TODAY")
+ End Sub
+
+ Private Async Sub SimpleButton5_Click(sender As Object, e As EventArgs) Handles SimpleButton5.Click
+ Await GetResult("TODAY_ME")
+ End Sub
+
+ Private Sub frmFileflow_Duplicate_Load(sender As Object, e As EventArgs) Handles Me.Load
+ LabelControlMessage.Text = omessagetext
+ End Sub
+End Class
\ No newline at end of file
diff --git a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb
index bc5af4cb..990a5259 100644
--- a/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb
+++ b/GUIs.ZooFlow/Modules/Globix/frmGlobix_Index.vb
@@ -41,6 +41,7 @@ Public Class frmGlobix_Index
Private Property Patterns2 As Patterns2
Private Property OverlayHandle As IOverlaySplashScreenHandle
+ Public Property oSuccess As Boolean = False
'Public Class ControlMeta
' Public Property IndexName As String
@@ -667,7 +668,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Dim containsfw_file As Boolean = False
Try
My.Application.Globix.ABORT_INDEXING = True
- Dim sql As String = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('{My.Application.User.UserName}')"
+ Dim sql As String = $"SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '{My.Application.User.UserName}'"
Dim DT As DataTable = My.Database.GetDatatableECM(sql)
Dim anz = DT.Rows.Count
@@ -687,7 +688,7 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
End If
Next
'Zuerst die Daten des Ablaufs löschen
- If My.Database.ExecuteNonQueryECM($"DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('{My.Application.User.UserName}')") = True Then
+ If My.Database.ExecuteNonQueryECM($"DELETE FROM TBGI_FILES_USER WHERE USER@WORK = '{My.Application.User.UserName}'") = True Then
If containsfw_file = True Then
If My.Application.User.Language = "de-DE" Then
MsgBox("Der Indexierungsprozess beinhaltete (auch) Dateien per Folderwatch!" & vbNewLine & "Diese Dateien wurden nicht gelöscht und verbleiben im Folderwatch-Verzeichnis!" & vbNewLine & "Bitte verschieben Sie die Dateien ggfls.", MsgBoxStyle.Information, "Achtung - Hinweis:")
@@ -810,8 +811,9 @@ INNER JOIN IDB.dbo.VWIDB_DOCTYPE_LANGUAGE DL ON DT.IDB_DOCTYPE_ID = DL.Doctype_I
Logger.Info("Importing file with DocumentType [{0}]", oDokart.Name)
Dim oResult = Await GlobixFlowNew(oDokart)
If oResult = True Then
- Dim oArgs = GetMessageBoxArgs()
- Dim oMessageResult = XtraMessageBox.Show(oArgs)
+ oSuccess = True
+ ' 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)
diff --git a/GUIs.ZooFlow/Queries/ClassCommonQueries.vb b/GUIs.ZooFlow/Queries/ClassCommonQueries.vb
index b710e69e..0cb55852 100644
--- a/GUIs.ZooFlow/Queries/ClassCommonQueries.vb
+++ b/GUIs.ZooFlow/Queries/ClassCommonQueries.vb
@@ -13,4 +13,13 @@
Public Function IDB_CATALOG() As String
Return String.Format("SELECT * FROM TBIDB_CATALOG")
End Function
+ Public Function DOCRESULT_TODAY() As String
+ Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE CONVERT(DATE,[Added when]) = CONVERT(DATE,GetDate())"
+ End Function
+ Public Function DOCRESULT_DocID(DocID As Long) As String
+ Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE DocID = {DocID}"
+ End Function
+ Public Function DOCRESULT_TODAY_ME() As String
+ Return $"SELECT * FROM VWIDB_DOCRESULT_{IIf(My.Application.User.Language = "de-DE", "DE", "EN")} WHERE CONVERT(DATE,[Added when]) = CONVERT(DATE,GetDate()) AND [Added who] = '{My.Application.User.UserName}'"
+ End Function
End Class
diff --git a/GUIs.ZooFlow/ZooFlow.vbproj b/GUIs.ZooFlow/ZooFlow.vbproj
index c970d706..cb74ffa9 100644
--- a/GUIs.ZooFlow/ZooFlow.vbproj
+++ b/GUIs.ZooFlow/ZooFlow.vbproj
@@ -252,6 +252,12 @@
Form
+
+ Dialog1.vb
+
+
+ Form
+
frmWaitForm.vb
@@ -307,6 +313,12 @@
Form
+
+ frmFileflow_Duplicate.vb
+
+
+ Form
+
@@ -500,6 +512,9 @@
frmAdmin_UserGroupRelations.vb
+
+ Dialog1.vb
+
frmWaitForm.vb
@@ -521,6 +536,9 @@
frmGlobixNameconvention.vb
+
+ frmFileflow_Duplicate.vb
+
frmFlowSearch.vb
diff --git a/GUIs.ZooFlow/frmFlowForm.Designer.vb b/GUIs.ZooFlow/frmFlowForm.Designer.vb
index fbbfba0a..594a3b51 100644
--- a/GUIs.ZooFlow/frmFlowForm.Designer.vb
+++ b/GUIs.ZooFlow/frmFlowForm.Designer.vb
@@ -67,7 +67,7 @@ Partial Class frmFlowForm
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureEdit2 = New DevExpress.XtraEditors.PictureEdit()
Me.Panel2 = New System.Windows.Forms.Panel()
- Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+ Me.GridControlRecentFiles = New DevExpress.XtraGrid.GridControl()
Me.RecentFilesView = New DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView()
Me.GridBand1 = New DevExpress.XtraGrid.Views.BandedGrid.GridBand()
Me.colPrimary = New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn()
@@ -87,7 +87,7 @@ Partial Class frmFlowForm
Me.Panel1.SuspendLayout()
CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
- CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.GridControlRecentFiles, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RecentFilesView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -413,7 +413,7 @@ Partial Class frmFlowForm
'
'Panel2
'
- Me.Panel2.Controls.Add(Me.GridControl1)
+ Me.Panel2.Controls.Add(Me.GridControlRecentFiles)
Me.Panel2.Controls.Add(Me.PictureBoxPM)
Me.Panel2.Controls.Add(Me.LabelControl1)
Me.Panel2.Controls.Add(Me.Panel3)
@@ -425,16 +425,16 @@ Partial Class frmFlowForm
Me.Panel2.Size = New System.Drawing.Size(202, 572)
Me.Panel2.TabIndex = 17
'
- 'GridControl1
+ 'GridControlRecentFiles
'
- Me.GridControl1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
- Me.GridControl1.Location = New System.Drawing.Point(21, 246)
- Me.GridControl1.MainView = Me.RecentFilesView
- Me.GridControl1.MenuManager = Me.BarManager1
- Me.GridControl1.Name = "GridControl1"
- Me.GridControl1.Size = New System.Drawing.Size(158, 182)
- Me.GridControl1.TabIndex = 18
- Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.RecentFilesView})
+ Me.GridControlRecentFiles.Anchor = System.Windows.Forms.AnchorStyles.Bottom
+ Me.GridControlRecentFiles.Location = New System.Drawing.Point(21, 246)
+ Me.GridControlRecentFiles.MainView = Me.RecentFilesView
+ Me.GridControlRecentFiles.MenuManager = Me.BarManager1
+ Me.GridControlRecentFiles.Name = "GridControlRecentFiles"
+ Me.GridControlRecentFiles.Size = New System.Drawing.Size(158, 182)
+ Me.GridControlRecentFiles.TabIndex = 18
+ Me.GridControlRecentFiles.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.RecentFilesView})
'
'RecentFilesView
'
@@ -442,7 +442,7 @@ Partial Class frmFlowForm
Me.RecentFilesView.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Simple
Me.RecentFilesView.Columns.AddRange(New DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn() {Me.colPrimary, Me.colSecondary})
Me.RecentFilesView.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.None
- Me.RecentFilesView.GridControl = Me.GridControl1
+ Me.RecentFilesView.GridControl = Me.GridControlRecentFiles
Me.RecentFilesView.Name = "RecentFilesView"
Me.RecentFilesView.OptionsBehavior.Editable = False
Me.RecentFilesView.OptionsBehavior.ReadOnly = True
@@ -513,7 +513,7 @@ Partial Class frmFlowForm
'PMTaskBadgeIndividual
'
Me.PMTaskBadgeIndividual.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
- Me.PMTaskBadgeIndividual.Appearance.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.PMTaskBadgeIndividual.Appearance.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold)
Me.PMTaskBadgeIndividual.Appearance.ForeColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
Me.PMTaskBadgeIndividual.Appearance.Options.UseBackColor = True
Me.PMTaskBadgeIndividual.Appearance.Options.UseFont = True
@@ -560,7 +560,7 @@ Partial Class frmFlowForm
Me.Panel1.ResumeLayout(False)
CType(Me.PictureEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
- CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.GridControlRecentFiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RecentFilesView, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AdornerUIManager1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@@ -607,7 +607,7 @@ Partial Class frmFlowForm
Friend WithEvents bbtnitmAusblenden As DevExpress.XtraBars.BarButtonItem
Friend WithEvents EinblendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SucheEntwurfToolStripMenuItem As ToolStripMenuItem
- Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
+ Friend WithEvents GridControlRecentFiles As DevExpress.XtraGrid.GridControl
Friend WithEvents RecentFilesView As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView
Friend WithEvents colSecondary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
Friend WithEvents colPrimary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn
diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb
index 152c5c87..2b7fe906 100644
--- a/GUIs.ZooFlow/frmFlowForm.vb
+++ b/GUIs.ZooFlow/frmFlowForm.vb
@@ -361,7 +361,7 @@ Public Class frmFlowForm
Dim oSql = $"SELECT TOP 10 * FROM VWIDB_DOCRESULT_DE WHERE [Changed who] = '{My.Application.User.UserName}' ORDER BY [Changed when] DESC"
Dim AccessedFilesTable = Await My.Database.GetDatatableIDBAsync(oSql)
- GridControl1.DataSource = AccessedFilesTable
+ GridControlRecentFiles.DataSource = AccessedFilesTable
colPrimary.FieldName = "DisplayFileName"
colSecondary.FieldName = "Changed when"
Catch ex As Exception
@@ -498,11 +498,18 @@ Public Class frmFlowForm
End Sub
Sub ExitZooflow()
- Dim oMsgBox As New MsgBoxEx("Are you sure you want to close ZooFlow?", "Exit Zooflow", MessageBoxIcon.Question)
- oMsgBox.SetButtons("Yes", "No")
+ Dim omessage = "Wollen sie ZooFlow wirklich beenden?"
+ If My.Application.User.Language <> "de-DE" Then
+ omessage = "Are you sure you want to close ZooFlow?"
+ End If
+ Dim oTitle = "Zooflow beenden"
+ If My.Application.User.Language <> "de-DE" Then
+ oTitle = "Exit Zooflow"
+ End If
+ Dim oMsgBox As New Dialog1(omessage, oTitle)
oMsgBox.ShowDialog()
- If oMsgBox.Result = MsgBoxEx.DialogBoxResult.Button1 Then
+ If oMsgBox.DialogResult = DialogResult.OK Then
Close()
Else
ESCHitCount = 0
@@ -723,6 +730,13 @@ Public Class frmFlowForm
NotifyIconReset()
AddHandler IndexForm.FormClosed, AddressOf GlobixClosed
IndexForm.ShowDialog()
+ If IndexForm.oSuccess = True Then
+ Dim oMessage As String = "Datei erfolgreich importiert!"
+ If My.Application.User.Language <> "de-DE" Then
+ oMessage = "File successfully imported!"
+ End If
+ NotifyIcon.ShowBalloonTip(15000, "FileFlow", oMessage, ToolTipIcon.Info)
+ End If
Cursor = Cursors.Default
Catch ex As Exception
ShowErrorMessage(ex)
@@ -1253,7 +1267,7 @@ Public Class frmFlowForm
Dim oRow As DataRow = oFile.Row
Dim oObjectId As Long = oRow.Item("DocId")
- Dim oDataSource As DataTable = GridControl1.DataSource
+ Dim oDataSource As DataTable = GridControlRecentFiles.DataSource
Dim oResult = oDataSource.AsEnumerable().
Where(Function(row) row.Item("DocId") = oObjectId).
CopyToDataTable()