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()