diff --git a/ZooFlow/Modules/frmFolderImport.Designer.vb b/ZooFlow/Modules/frmFolderImport.Designer.vb new file mode 100644 index 0000000..1e4d768 --- /dev/null +++ b/ZooFlow/Modules/frmFolderImport.Designer.vb @@ -0,0 +1,644 @@ + _ +Partial Class frmFolderImport + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + '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(frmFolderImport)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem() + Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar() + Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.txtFolderbrowser = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() + Me.cmbDoctype = New System.Windows.Forms.ComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtRegex = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.btnMoveTo = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtMoveTo = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.NumSplitIndex = New System.Windows.Forms.NumericUpDown() + Me.txtSplitCharacter = New System.Windows.Forms.TextBox() + Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl() + Me.cmbAttribute = New System.Windows.Forms.ComboBox() + Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl() + Me.NumericUpDownLimit = New System.Windows.Forms.NumericUpDown() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtTitle = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.cmbProfile = New System.Windows.Forms.ComboBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtAddedWho = New System.Windows.Forms.TextBox() + Me.txtAddedWhen = New System.Windows.Forms.TextBox() + Me.txtChangedWho = New System.Windows.Forms.TextBox() + Me.txtChangedWhen = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.txtProfilID = New System.Windows.Forms.TextBox() + Me.GridControlSplit = New DevExpress.XtraGrid.GridControl() + Me.GridViewSplit = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPageSplit = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + CType(Me.NumSplitIndex, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NumericUpDownLimit, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlSplit, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewSplit, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPageSplit.SuspendLayout() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarEditItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 8 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(894, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Importiere Dateien" + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + Me.BarButtonItem2.Caption = "Verarbeitung" + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'BarEditItem1 + ' + Me.BarEditItem1.Caption = "Fortschritt Import" + Me.BarEditItem1.Edit = Me.RepositoryItemProgressBar1 + Me.BarEditItem1.EditWidth = 130 + Me.BarEditItem1.Id = 3 + Me.BarEditItem1.Name = "BarEditItem1" + Me.BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'RepositoryItemProgressBar1 + ' + Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1" + Me.RepositoryItemProgressBar1.Step = 1 + ' + 'BarButtonItem3 + ' + Me.BarButtonItem3.Caption = "Speichern" + Me.BarButtonItem3.Id = 4 + Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem3.Name = "BarButtonItem3" + ' + 'BarButtonItem4 + ' + Me.BarButtonItem4.Caption = "Hinzufügen" + Me.BarButtonItem4.Id = 5 + Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem4.Name = "BarButtonItem4" + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "Start" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Verarbeiten" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "Prüfen..." + ' + 'RibbonPageGroup3 + ' + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem3) + Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem4) + Me.RibbonPageGroup3.Name = "RibbonPageGroup3" + Me.RibbonPageGroup3.Text = "Aktionen" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.BarEditItem1) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 660) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(894, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'txtFolderbrowser + ' + Me.txtFolderbrowser.Location = New System.Drawing.Point(15, 285) + Me.txtFolderbrowser.Name = "txtFolderbrowser" + Me.txtFolderbrowser.Size = New System.Drawing.Size(729, 22) + Me.txtFolderbrowser.TabIndex = 2 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 269) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(95, 13) + Me.Label1.TabIndex = 3 + Me.Label1.Text = "Pfad mit Dateien:" + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(750, 284) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(38, 23) + Me.Button1.TabIndex = 4 + Me.Button1.Text = "..." + Me.Button1.UseVisualStyleBackColor = True + ' + 'cmbDoctype + ' + Me.cmbDoctype.FormattingEnabled = True + Me.cmbDoctype.Location = New System.Drawing.Point(382, 244) + Me.cmbDoctype.Name = "cmbDoctype" + Me.cmbDoctype.Size = New System.Drawing.Size(278, 21) + Me.cmbDoctype.TabIndex = 7 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(379, 228) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(75, 13) + Me.Label2.TabIndex = 8 + Me.Label2.Text = "Dokumentart" + ' + 'txtRegex + ' + Me.txtRegex.Location = New System.Drawing.Point(15, 367) + Me.txtRegex.Name = "txtRegex" + Me.txtRegex.Size = New System.Drawing.Size(281, 22) + Me.txtRegex.TabIndex = 9 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(12, 351) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(106, 13) + Me.Label3.TabIndex = 10 + Me.Label3.Text = "Regex Dateinamen:" + ' + 'btnMoveTo + ' + Me.btnMoveTo.Location = New System.Drawing.Point(750, 324) + Me.btnMoveTo.Name = "btnMoveTo" + Me.btnMoveTo.Size = New System.Drawing.Size(38, 23) + Me.btnMoveTo.TabIndex = 15 + Me.btnMoveTo.Text = "..." + Me.btnMoveTo.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(12, 310) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(144, 13) + Me.Label4.TabIndex = 14 + Me.Label4.Text = "Sicherungsort nach Erfolg:" + ' + 'txtMoveTo + ' + Me.txtMoveTo.Location = New System.Drawing.Point(15, 326) + Me.txtMoveTo.Name = "txtMoveTo" + Me.txtMoveTo.Size = New System.Drawing.Size(729, 22) + Me.txtMoveTo.TabIndex = 13 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(6, 18) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(83, 13) + Me.Label5.TabIndex = 16 + Me.Label5.Text = "Split-Character" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(95, 18) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(49, 13) + Me.Label6.TabIndex = 17 + Me.Label6.Text = "Position" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.NumSplitIndex) + Me.GroupBox1.Controls.Add(Me.txtSplitCharacter) + Me.GroupBox1.Controls.Add(Me.Label5) + Me.GroupBox1.Controls.Add(Me.Label6) + Me.GroupBox1.Location = New System.Drawing.Point(509, 445) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(163, 66) + Me.GroupBox1.TabIndex = 19 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Splitdefinition" + ' + 'NumSplitIndex + ' + Me.NumSplitIndex.Location = New System.Drawing.Point(98, 35) + Me.NumSplitIndex.Maximum = New Decimal(New Integer() {10, 0, 0, 0}) + Me.NumSplitIndex.Name = "NumSplitIndex" + Me.NumSplitIndex.Size = New System.Drawing.Size(46, 22) + Me.NumSplitIndex.TabIndex = 18 + ' + 'txtSplitCharacter + ' + Me.txtSplitCharacter.Location = New System.Drawing.Point(9, 34) + Me.txtSplitCharacter.Name = "txtSplitCharacter" + Me.txtSplitCharacter.Size = New System.Drawing.Size(27, 22) + Me.txtSplitCharacter.TabIndex = 17 + Me.txtSplitCharacter.Text = "-" + ' + 'LabelControl1 + ' + Me.LabelControl1.Location = New System.Drawing.Point(661, 428) + Me.LabelControl1.Name = "LabelControl1" + Me.LabelControl1.Size = New System.Drawing.Size(105, 13) + Me.LabelControl1.TabIndex = 20 + Me.LabelControl1.Text = "Deskriptives Attribut" + ' + 'cmbAttribute + ' + Me.cmbAttribute.FormattingEnabled = True + Me.cmbAttribute.Location = New System.Drawing.Point(661, 445) + Me.cmbAttribute.Name = "cmbAttribute" + Me.cmbAttribute.Size = New System.Drawing.Size(233, 21) + Me.cmbAttribute.TabIndex = 21 + ' + 'LabelControl2 + ' + Me.LabelControl2.Location = New System.Drawing.Point(299, 351) + Me.LabelControl2.Name = "LabelControl2" + Me.LabelControl2.Size = New System.Drawing.Size(77, 13) + Me.LabelControl2.TabIndex = 22 + Me.LabelControl2.Text = "Limit FileCount" + ' + 'NumericUpDownLimit + ' + Me.NumericUpDownLimit.Location = New System.Drawing.Point(299, 367) + Me.NumericUpDownLimit.Name = "NumericUpDownLimit" + Me.NumericUpDownLimit.Size = New System.Drawing.Size(74, 22) + Me.NumericUpDownLimit.TabIndex = 23 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(12, 228) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(29, 13) + Me.Label7.TabIndex = 26 + Me.Label7.Text = "Titel" + ' + 'txtTitle + ' + Me.txtTitle.Location = New System.Drawing.Point(15, 244) + Me.txtTitle.Name = "txtTitle" + Me.txtTitle.Size = New System.Drawing.Size(361, 22) + Me.txtTitle.TabIndex = 27 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(12, 161) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(131, 17) + Me.Label8.TabIndex = 28 + Me.Label8.Text = "Ausgewähltes Profil" + ' + 'cmbProfile + ' + Me.cmbProfile.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbProfile.FormattingEnabled = True + Me.cmbProfile.Location = New System.Drawing.Point(15, 181) + Me.cmbProfile.Name = "cmbProfile" + Me.cmbProfile.Size = New System.Drawing.Size(361, 25) + Me.cmbProfile.TabIndex = 29 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(12, 392) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(64, 13) + Me.Label9.TabIndex = 30 + Me.Label9.Text = "Erstellt wer" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(162, 392) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(74, 13) + Me.Label10.TabIndex = 31 + Me.Label10.Text = "Erstellt wann" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(330, 392) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(77, 13) + Me.Label11.TabIndex = 32 + Me.Label11.Text = "Geändert wer" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(477, 392) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(87, 13) + Me.Label12.TabIndex = 33 + Me.Label12.Text = "Geändert wann" + ' + 'txtAddedWho + ' + Me.txtAddedWho.Enabled = False + Me.txtAddedWho.Location = New System.Drawing.Point(15, 408) + Me.txtAddedWho.Name = "txtAddedWho" + Me.txtAddedWho.Size = New System.Drawing.Size(144, 22) + Me.txtAddedWho.TabIndex = 34 + ' + 'txtAddedWhen + ' + Me.txtAddedWhen.Enabled = False + Me.txtAddedWhen.Location = New System.Drawing.Point(165, 408) + Me.txtAddedWhen.Name = "txtAddedWhen" + Me.txtAddedWhen.Size = New System.Drawing.Size(144, 22) + Me.txtAddedWhen.TabIndex = 35 + ' + 'txtChangedWho + ' + Me.txtChangedWho.Enabled = False + Me.txtChangedWho.Location = New System.Drawing.Point(330, 408) + Me.txtChangedWho.Name = "txtChangedWho" + Me.txtChangedWho.Size = New System.Drawing.Size(144, 22) + Me.txtChangedWho.TabIndex = 36 + ' + 'txtChangedWhen + ' + Me.txtChangedWhen.Enabled = False + Me.txtChangedWhen.Location = New System.Drawing.Point(480, 408) + Me.txtChangedWhen.Name = "txtChangedWhen" + Me.txtChangedWhen.Size = New System.Drawing.Size(144, 22) + Me.txtChangedWhen.TabIndex = 37 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(666, 228) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(45, 13) + Me.Label13.TabIndex = 40 + Me.Label13.Text = "ProfilID" + ' + 'txtProfilID + ' + Me.txtProfilID.Enabled = False + Me.txtProfilID.Location = New System.Drawing.Point(669, 244) + Me.txtProfilID.Name = "txtProfilID" + Me.txtProfilID.Size = New System.Drawing.Size(55, 22) + Me.txtProfilID.TabIndex = 41 + ' + 'GridControlSplit + ' + Me.GridControlSplit.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControlSplit.Location = New System.Drawing.Point(0, 0) + Me.GridControlSplit.MainView = Me.GridViewSplit + Me.GridControlSplit.MenuManager = Me.RibbonControl1 + Me.GridControlSplit.Name = "GridControlSplit" + Me.GridControlSplit.Size = New System.Drawing.Size(487, 179) + Me.GridControlSplit.TabIndex = 42 + Me.GridControlSplit.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSplit}) + ' + 'GridViewSplit + ' + Me.GridViewSplit.GridControl = Me.GridControlSplit + Me.GridViewSplit.Name = "GridViewSplit" + Me.GridViewSplit.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSplit.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSplit.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewSplit.OptionsBehavior.Editable = False + Me.GridViewSplit.OptionsView.ShowGroupPanel = False + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Location = New System.Drawing.Point(15, 436) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageSplit + Me.XtraTabControl1.Size = New System.Drawing.Size(489, 204) + Me.XtraTabControl1.TabIndex = 43 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSplit, Me.XtraTabPage2}) + ' + 'XtraTabPageSplit + ' + Me.XtraTabPageSplit.Controls.Add(Me.GridControlSplit) + Me.XtraTabPageSplit.Name = "XtraTabPageSplit" + Me.XtraTabPageSplit.Size = New System.Drawing.Size(487, 179) + Me.XtraTabPageSplit.Text = "Trennen nach Satzzeichen" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(487, 179) + Me.XtraTabPage2.Text = "Weiteres" + ' + 'RibbonPageGroup4 + ' + Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem6) + Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem5) + Me.RibbonPageGroup4.Name = "RibbonPageGroup4" + Me.RibbonPageGroup4.Text = "Split-Funktionen" + ' + 'BarButtonItem5 + ' + Me.BarButtonItem5.Caption = "Löschen" + Me.BarButtonItem5.Id = 6 + Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem5.Name = "BarButtonItem5" + ' + 'BarButtonItem6 + ' + Me.BarButtonItem6.Caption = "Hinzufügen" + Me.BarButtonItem6.Id = 7 + Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.BarButtonItem6.Name = "BarButtonItem6" + ' + 'frmFolderImport + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(894, 684) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.txtProfilID) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.txtChangedWhen) + Me.Controls.Add(Me.txtChangedWho) + Me.Controls.Add(Me.txtAddedWhen) + Me.Controls.Add(Me.txtAddedWho) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.cmbProfile) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.txtTitle) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.NumericUpDownLimit) + Me.Controls.Add(Me.LabelControl2) + Me.Controls.Add(Me.cmbAttribute) + Me.Controls.Add(Me.LabelControl1) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.btnMoveTo) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.txtMoveTo) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtRegex) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.cmbDoctype) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtFolderbrowser) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmFolderImport" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmFolderImport" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.NumSplitIndex, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NumericUpDownLimit, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlSplit, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewSplit, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPageSplit.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents txtFolderbrowser As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents Button1 As Button + Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog + Friend WithEvents cmbDoctype As ComboBox + Friend WithEvents Label2 As Label + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents txtRegex As TextBox + Friend WithEvents Label3 As Label + Friend WithEvents btnMoveTo As Button + Friend WithEvents Label4 As Label + Friend WithEvents txtMoveTo As TextBox + Friend WithEvents Label5 As Label + Friend WithEvents Label6 As Label + Friend WithEvents GroupBox1 As GroupBox + Friend WithEvents NumSplitIndex As NumericUpDown + Friend WithEvents txtSplitCharacter As TextBox + Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl + Friend WithEvents cmbAttribute As ComboBox + Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl + Friend WithEvents NumericUpDownLimit As NumericUpDown + Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem + Friend WithEvents RepositoryItemProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar + Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents Label7 As Label + Friend WithEvents txtTitle As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents cmbProfile As ComboBox + Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents Label9 As Label + Friend WithEvents Label10 As Label + Friend WithEvents Label11 As Label + Friend WithEvents Label12 As Label + Friend WithEvents txtAddedWho As TextBox + Friend WithEvents txtAddedWhen As TextBox + Friend WithEvents txtChangedWho As TextBox + Friend WithEvents txtChangedWhen As TextBox + Friend WithEvents Label13 As Label + Friend WithEvents txtProfilID As TextBox + Friend WithEvents GridControlSplit As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewSplit As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPageSplit As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup +End Class diff --git a/ZooFlow/Modules/frmFolderImport.resx b/ZooFlow/Modules/frmFolderImport.resx new file mode 100644 index 0000000..a84ddbb --- /dev/null +++ b/ZooFlow/Modules/frmFolderImport.resx @@ -0,0 +1,249 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPgBAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iUmVhcHBseSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ + LkdyZWVue2ZpbGw6IzAzOUMyMzt9Cjwvc3R5bGU+DQogIDxwb2x5Z29uIHBvaW50cz0iNCwyIDI4LDIg + MjgsNiAxOCwxNiAxOCwyNiAxNCwzMCAxNCwxNiA0LDYgIiBjbGFzcz0iWWVsbG93IiAvPg0KICA8cG9s + eWdvbiBwb2ludHM9IjI2LDI2IDI2LDE0IDI0LDE0IDI0LDI2IDIwLDI2IDI1LDMxIDMwLDI2ICIgY2xh + c3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku + QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC + MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD + aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk + dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8 + cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz + PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw + LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog + TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i + TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx + aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv + Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9 + IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i + MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg + ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo + MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg + IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0 + aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41 + LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog + ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH + cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku + WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4 + N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk + aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI + OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW + NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog + TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRlbGV0ZUNpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0x + Niw0QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHog + TTIzLjEsMjAuMmwtMi44LDIuOEwxNiwxOC44bC00LjIsNC4yICAgbC0yLjgtMi44bDQuMi00LjJsLTQu + Mi00LjJsMi44LTIuOGw0LjIsNC4ybDQuMi00LjJsMi44LDIuOEwxOC44LDE2TDIzLjEsMjAuMnoiIGNs + YXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp + dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj + MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw + LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5 + YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+ + DQogIDwvZz4NCjwvc3ZnPgs= + + + + 17, 17 + + \ No newline at end of file diff --git a/ZooFlow/Modules/frmFolderImport.vb b/ZooFlow/Modules/frmFolderImport.vb new file mode 100644 index 0000000..e5f396d --- /dev/null +++ b/ZooFlow/Modules/frmFolderImport.vb @@ -0,0 +1,284 @@ +Imports System.IO +Imports System.Text.RegularExpressions +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.ZooFlow +Imports DigitalData.Modules.EDMI.API.EDMIServiceReference +Public Class frmFolderImport + Private Logger As Logger + Private Property Environment As Environment + Private oFileList As List(Of String) + Private oDoctype_DT As DataTable + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then + txtFolderbrowser.Text = FolderBrowserDialog1.SelectedPath + End If + End Sub + + Private Sub frmFolderImport_Load(sender As Object, e As EventArgs) Handles Me.Load + Logger = My.LogConfig.GetLogger() + Environment = My.Application.GetEnvironment() + Try + Dim oSQL = "SELECT DISTINCT [DOCTYPE_ID] ,[Doctype] FROM [IDB].[dbo].[VWIDB_DOCTYPE_BUSINESS_ENTITY] where LANG_CODE = 'de-DE'" + oDoctype_DT = My.DatabaseIDB.GetDatatable(oSQL) + If Not IsNothing(oDoctype_DT) Then + cmbDoctype.DataSource = oDoctype_DT + cmbDoctype.ValueMember = oDoctype_DT.Columns(0).ColumnName + cmbDoctype.DisplayMember = oDoctype_DT.Columns(1).ColumnName + End If + oSQL = "select AttributeID,Attribute From VWIDB_ATTRIBUTE_LANG where LANG_CODE = 'de-DE'" + Dim oAttribute_DT As DataTable = My.DatabaseIDB.GetDatatable(oSQL) + If Not IsNothing(oAttribute_DT) Then + cmbAttribute.DataSource = oAttribute_DT + cmbAttribute.ValueMember = oAttribute_DT.Columns(0).ColumnName + cmbAttribute.DisplayMember = oAttribute_DT.Columns(1).ColumnName + End If + Refresh_Profiles() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Sub Refresh_Profiles() + Dim oSQL = "select GUID,TITLE From TBFOLDERIMPORT_PROFILE" + Dim oDTProfiles As DataTable = My.DatabaseECM.GetDatatable(oSQL) + If Not IsNothing(oDTProfiles) Then + cmbProfile.DataSource = oDTProfiles + cmbProfile.ValueMember = oDTProfiles.Columns(0).ColumnName + cmbProfile.DisplayMember = oDTProfiles.Columns(1).ColumnName + End If + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + + Dim oTempFileList As List(Of String) = FnGetFileList(txtFolderbrowser.Text, txtRegex.Text) + + Try + Dim oMsg = $"Es sollen [{oTempFileList.Count}] Dateien verarbeitet werden!" + MsgBox(oMsg, MsgBoxStyle.Information) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Function FnGetFileList(pFolder As String, pRegex As String) As List(Of String) + Try + Dim oTempFileList As New List(Of String) + Dim di As New DirectoryInfo(pFolder) + ' Get a reference to each file in that directory. + Dim fiArr As FileInfo() = di.GetFiles() + ' Display the names of the files. + Dim fri As FileInfo + Dim oMatchCount As Integer = 0 + Dim oMatch As Boolean = False + For Each fri In fiArr + oMatch = True + If txtRegex.Text <> String.Empty Then + Dim regex As Regex = New Regex(pRegex) + ' Step 2: call Match on Regex. + Dim match As Match = regex.Match(fri.Name) + ' Step 3: test the Success bool. + ' ... If we have Success, write the Value. + If match.Success Then + + Else + oMatch = False + End If + End If + If oMatch = True Then + oMatchCount += 1 + oTempFileList.Add(fri.FullName) + If NumericUpDownLimit.Value <> 0 Then + If NumericUpDownLimit.Value = oMatchCount Then + Logger.Info($"There is a limit for working files [{NumericUpDownLimit.Value}]! Exiting...") + Exit For + End If + End If + + + End If + + Next fri + Return oTempFileList + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + End Function + + Private Sub btnMoveTo_Click(sender As Object, e As EventArgs) Handles btnMoveTo.Click + If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then + txtMoveTo.Text = FolderBrowserDialog1.SelectedPath + End If + End Sub + + Private Async Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + + Dim oTempFileList As List(Of String) = FnGetFileList(txtFolderbrowser.Text, txtRegex.Text) + If oTempFileList.Count > 0 Then + RepositoryItemProgressBar1.Maximum = oTempFileList.Count + Cursor = Cursors.WaitCursor + If cmbDoctype.SelectedIndex <> -1 And cmbAttribute.SelectedIndex <> -1 Then + BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + Dim oCount As Integer = 0 + Logger.Info($"WORK_TEMPFILELIST()...[{oTempFileList.Count}] files shall be worked!") + Dim oCountResult As Integer = 0 + For Each oFile As String In oTempFileList + Dim oResult As Boolean = False + Try + Logger.Debug($"=== ForEachFile {oCount} =======================================") + Logger.Debug($"...Working on file [{oFile}]") + Dim oFilenameOnly = Path.GetFileName(oFile) + + Dim oSplit() As String = oFilenameOnly.Split(txtSplitCharacter.Text) + Dim oSplitString As String = oSplit(NumSplitIndex.Value) + Logger.Debug($"...oSplitString [{oSplitString}]") + If Await StreamFile(oFile, cmbDoctype.SelectedValue, cmbAttribute.Text, oSplitString) = True Then + Logger.Info($"...File successfully worked!") + If txtMoveTo.Text <> String.Empty Then + Try + oResult = MoveFile(oFile, txtMoveTo.Text) + + Catch ex As Exception + + End Try + Else + oResult = False + End If + Else + oResult = False + End If + + If oResult = True Then + oCountResult += 1 + End If + + Catch ex As Exception + Logger.Warn($"Error working on fileimport for file [{oFile}]") + Logger.Warn($"Error: [{ex.Message}]") + Logger.Error(ex) + End Try + oCount += 1 + BarEditItem1.EditValue = oCount + Next + Dim oMSG = $"FileImport finished for [{oCountResult}] of [{oTempFileList.Count }] files!" + Logger.Info(oMSG) + Cursor = Cursors.Default + MsgBox(oMSG, MsgBoxStyle.Information) + BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + End If + End If + End Sub + + Private Async Function StreamFile(oFilename As String, pDoctypeID As Integer, pDescriptiveAttribute As String, pDescrValue As String) As Threading.Tasks.Task(Of Boolean) + Try + Dim oResponse As ImportFileResponse = Await My.Application.Service.Client.ImportFileAsync( + oFilename, + New List(Of UserAttributeValue) From { + New UserAttributeValue With { + .Name = pDescriptiveAttribute, + .Values = New List(Of String) From {pDescrValue}.ToArray + } + }, + "WORK", + "DOC", + pDoctypeID + ) + If oResponse.OK Then + Logger.Info($"File [{oFilename}] successfully imported!") + Return True + Else + Logger.Warn($"## ATTENTION: File [{oFilename}] was not imported! ##") + Return False + End If + Catch ex As Exception + Return False + End Try + End Function + Private Function MoveFile(pFile As String, pPathMove2 As String) As Boolean + Try + Dim oFilename = Path.GetFileName(pFile) + Dim oCombined = String.Concat(pPathMove2, "\", oFilename) + File.Move(pFile, oCombined) + Logger.Info($"...and moved to [{oCombined}]") + Return True + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + + Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick + Dim oSaveUpdate = $"EXEC PRIDBFOLDERIMPORT_PROFILE '{txtTitle.Text}','{txtFolderbrowser.Text}','{txtRegex.Text}',{NumericUpDownLimit.Value}, {cmbDoctype.SelectedValue},'{txtMoveTo.Text}','', '{My.Application.User.UserName}','{txtProfilID.Text}'" + Dim oProfile = txtTitle.Text + Dim oDT As DataTable + oDT = My.DatabaseECM.GetDatatable(oSaveUpdate) + + If Not IsNothing(oDT) Then + Refresh_Profiles() + cmbDoctype.SelectedIndex = cmbProfile.FindStringExact(oProfile) + End If + + End Sub + + Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick + + txtFolderbrowser.Text = "" + txtTitle.Text = "" + txtRegex.Text = "" + NumericUpDownLimit.Value = 0 + txtMoveTo.Text = "" + cmbDoctype.SelectedIndex = -1 + End Sub + + Private Sub cmbProfile_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbProfile.SelectedIndexChanged + If cmbProfile.SelectedIndex <> -1 Then + If IsNumeric(cmbProfile.SelectedValue) Then + Dim oSQL = $"SELECT * FROM TBFOLDERIMPORT_PROFILE WHERE GUID = {cmbProfile.SelectedValue}" + Dim oDT As DataTable + oDT = My.DatabaseECM.GetDatatable(oSQL) + + If Not IsNothing(oDT) Then + txtProfilID.Text = oDT.Rows(0).Item("GUID") + txtFolderbrowser.Text = oDT.Rows(0).Item("IMPORT_PATH") + txtTitle.Text = oDT.Rows(0).Item("TITLE") + txtRegex.Text = oDT.Rows(0).Item("REGEX_FILENAME") + NumericUpDownLimit.Value = oDT.Rows(0).Item("LIMIT_FILECOUNT") + txtMoveTo.Text = oDT.Rows(0).Item("ARCHIVE_PATH") + Dim oDoctype As String + For Each oRow As DataRow In oDoctype_DT.Rows + If oRow.Item(0) = oDT.Rows(0).Item("DOCTYPE_ID") Then + oDoctype = oRow.Item(1) + Exit For + End If + Next + + Dim o1 = cmbDoctype.FindStringExact(oDoctype) + + cmbDoctype.SelectedIndex = o1 + txtAddedWho.Text = oDT.Rows(0).Item("ADDED_WHO") + txtAddedWhen.Text = oDT.Rows(0).Item("ADDED_WHEN") + txtChangedWho.Text = IIf(IsDBNull(oDT.Rows(0).Item("CHANGED_WHO")), "", oDT.Rows(0).Item("CHANGED_WHO")) + txtChangedWhen.Text = IIf(IsDBNull(oDT.Rows(0).Item("CHANGED_WHEN")), "", oDT.Rows(0).Item("CHANGED_WHEN")) + Dim oSQLSplit = $"SELECT GUID as ID,PRAEFIX as Praefix,SPLIT_CHARACTER Character, SPLIT_POS as SplitPos,SUFFIX as Suffix FROM TBFOLDERIMPORT_STEP_ATTRIBUTE_SPLIT WHERE PROFILE_ID = {oDT.Rows(0).Item("GUID")}" + Dim oDT_Split As DataTable + oDT_Split = My.DatabaseECM.GetDatatable(oSQL) + GridControlSplit.DataSource = oDT_Split + Else + txtProfilID.Text = "" + End If + End If + + + End If + End Sub + + Private Sub GridControlSplit_MouseClick(sender As Object, e As MouseEventArgs) Handles GridControlSplit.MouseClick + RibbonPageGroup4.Visible = True + RibbonPageGroup3.Enabled = False + End Sub + + Private Sub GridControlSplit_Leave(sender As Object, e As EventArgs) Handles GridControlSplit.Leave + RibbonPageGroup4.Visible = False + RibbonPageGroup3.Enabled = True + End Sub +End Class \ No newline at end of file diff --git a/ZooFlow/My Project/licenses.licx b/ZooFlow/My Project/licenses.licx index 951b8c4..8b2ea1d 100644 --- a/ZooFlow/My Project/licenses.licx +++ b/ZooFlow/My Project/licenses.licx @@ -1,12 +1,13 @@ -DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/ZooFlow/ZooFlow.vbproj b/ZooFlow/ZooFlow.vbproj index 5112855..ad5bb1b 100644 --- a/ZooFlow/ZooFlow.vbproj +++ b/ZooFlow/ZooFlow.vbproj @@ -369,6 +369,12 @@ Form + + frmFolderImport.vb + + + Form + @@ -607,6 +613,9 @@ frmTest.vb + + frmFolderImport.vb + frmGlobixBasicConfig.vb diff --git a/ZooFlow/frmConfigBasic.vb b/ZooFlow/frmConfigBasic.vb index abf62ad..ebb0fdf 100644 --- a/ZooFlow/frmConfigBasic.vb +++ b/ZooFlow/frmConfigBasic.vb @@ -62,8 +62,8 @@ Public Class frmConfigBasic Private Sub SaveCatalogSetting(pKey As Integer, pValue As String) Try - Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{pValue}' - WHERE GUID = {pKey}" + Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{pValue}' + WHERE GUID = {pKey}" If My.DatabaseIDB.ExecuteNonQuery(oUpd) = True Then bsiInfo.Caption = "Position Quicksearch1 saved!" diff --git a/ZooFlow/frmFlowForm.Designer.vb b/ZooFlow/frmFlowForm.Designer.vb index 0cf0de1..17ca517 100644 --- a/ZooFlow/frmFlowForm.Designer.vb +++ b/ZooFlow/frmFlowForm.Designer.vb @@ -34,7 +34,7 @@ Partial Class frmFlowForm Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.SucheEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnitmFolderImport = New System.Windows.Forms.ToolStripMenuItem() Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -106,62 +106,62 @@ Partial Class frmFlowForm ' 'ContextMenuSystray ' - Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.SucheEntwurfToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem}) + Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.mnitmFolderImport, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem}) Me.ContextMenuSystray.Name = "ContextMenuSystray" - Me.ContextMenuSystray.Size = New System.Drawing.Size(170, 154) + Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 176) ' 'EinblendenToolStripMenuItem ' Me.EinblendenToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.action_add_16xMD Me.EinblendenToolStripMenuItem.Name = "EinblendenToolStripMenuItem" - Me.EinblendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22) + Me.EinblendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.EinblendenToolStripMenuItem.Text = "Einblenden" Me.EinblendenToolStripMenuItem.Visible = False ' 'ToolStripSeparator1 ' Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - Me.ToolStripSeparator1.Size = New System.Drawing.Size(166, 6) + Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6) ' 'VerwaltungToolStripMenuItem ' Me.VerwaltungToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.gear_32xLG Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem" - Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(169, 22) + Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.VerwaltungToolStripMenuItem.Text = "Verwaltung" ' 'ToolStripSeparator3 ' Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - Me.ToolStripSeparator3.Size = New System.Drawing.Size(166, 6) + Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6) ' - 'SucheEntwurfToolStripMenuItem + 'mnitmFolderImport ' - Me.SucheEntwurfToolStripMenuItem.Name = "SucheEntwurfToolStripMenuItem" - Me.SucheEntwurfToolStripMenuItem.Size = New System.Drawing.Size(169, 22) - Me.SucheEntwurfToolStripMenuItem.Text = "Suche Entwurf" + Me.mnitmFolderImport.Name = "mnitmFolderImport" + Me.mnitmFolderImport.Size = New System.Drawing.Size(180, 22) + Me.mnitmFolderImport.Text = "Ordnerimport" ' 'TestToolStripMenuItem ' Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem" - Me.TestToolStripMenuItem.Size = New System.Drawing.Size(169, 22) + Me.TestToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.TestToolStripMenuItem.Text = "Test" ' 'ToolStripSeparator2 ' Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - Me.ToolStripSeparator2.Size = New System.Drawing.Size(166, 6) + Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6) ' 'ZooFlowBeendenToolStripMenuItem ' Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem" - Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22) + Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden" ' 'TreeViewToolStripMenuItem ' Me.TreeViewToolStripMenuItem.Name = "TreeViewToolStripMenuItem" - Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(169, 22) + Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.TreeViewToolStripMenuItem.Text = "treeView" ' 'PictureBoxSearch @@ -613,7 +613,7 @@ Partial Class frmFlowForm Friend WithEvents Panel3 As Panel Friend WithEvents bbtnitmAusblenden As DevExpress.XtraBars.BarButtonItem Friend WithEvents EinblendenToolStripMenuItem As ToolStripMenuItem - Friend WithEvents SucheEntwurfToolStripMenuItem As ToolStripMenuItem + Friend WithEvents mnitmFolderImport As ToolStripMenuItem 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 diff --git a/ZooFlow/frmFlowForm.vb b/ZooFlow/frmFlowForm.vb index f6c6be6..fff550f 100644 --- a/ZooFlow/frmFlowForm.vb +++ b/ZooFlow/frmFlowForm.vb @@ -1232,9 +1232,8 @@ Public Class frmFlowForm Me.Visible = True End Sub - Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheEntwurfToolStripMenuItem.Click - Dim oForm = New frmSearchFlow() - oForm.Show() + Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnitmFolderImport.Click + frmFolderImport.ShowDialog() End Sub Private Sub AdvBandedGridView1_DoubleClick(sender As Object, e As EventArgs) Handles RecentFilesView.DoubleClick