Compare commits

...

4 Commits

7 changed files with 141 additions and 441 deletions

View File

@@ -24,22 +24,21 @@ Partial Class frmDIProfilEigenschaften
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilEigenschaften))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
Me.cmbProfilauswahl = New System.Windows.Forms.ToolStripSplitButton()
Me.tslblAnzahl = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
Me.lblProfil = New System.Windows.Forms.ToolStripStatusLabel()
Me.dlgQuellordner = New System.Windows.Forms.FolderBrowserDialog()
Me.dlgZielordner = New System.Windows.Forms.FolderBrowserDialog()
Me.dlgBackupordner = New System.Windows.Forms.FolderBrowserDialog()
Me.pnlProfileigenschaften = New System.Windows.Forms.Panel()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.cmbl2Nav_Index = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.cmbl2NavDokartindex = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.btnLink2Navision = New System.Windows.Forms.Button()
Me.txtLink2Navision = New System.Windows.Forms.TextBox()
Me.chkbxlink2Navision = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtlastRun = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -60,9 +59,9 @@ Partial Class frmDIProfilEigenschaften
Me.rbUV_Date1 = New System.Windows.Forms.RadioButton()
Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.btnRegeln = New System.Windows.Forms.Button()
Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox()
Me.chkUVloeschen = New System.Windows.Forms.CheckBox()
Me.chkQuellverzeichnisLoeschen = New System.Windows.Forms.CheckBox()
Me.chkDateienLoeschen = New System.Windows.Forms.CheckBox()
Me.boxImportoptionenBackup = New System.Windows.Forms.GroupBox()
Me.txtBackupordner = New System.Windows.Forms.TextBox()
@@ -75,18 +74,8 @@ Partial Class frmDIProfilEigenschaften
Me.Label1 = New System.Windows.Forms.Label()
Me.txtProfilname = New System.Windows.Forms.TextBox()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnRegeln = New System.Windows.Forms.Button()
Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
Me.StatusStrip1.SuspendLayout()
Me.pnlProfileigenschaften.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.boxImportoptionenLoeschen.SuspendLayout()
@@ -107,6 +96,41 @@ Partial Class frmDIProfilEigenschaften
Me.StatusStrip1.TabIndex = 21
Me.StatusStrip1.Text = "StatusStrip1"
'
'btnSpeichern
'
Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnSpeichern.Enabled = False
Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnSpeichern.Name = "btnSpeichern"
Me.btnSpeichern.ShowDropDownArrow = False
Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
Me.btnSpeichern.Text = "Profil speichern"
'
'btnLöschen
'
Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLöschen.Enabled = False
Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLöschen.Name = "btnLöschen"
Me.btnLöschen.ShowDropDownArrow = False
Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
Me.btnLöschen.Text = "Profil löschen"
'
'btnHinzufügen
'
Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnHinzufügen.Name = "btnHinzufügen"
Me.btnHinzufügen.ShowDropDownArrow = False
Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
Me.btnHinzufügen.Text = "Profil hinzufügen"
'
'cmbProfilauswahl
'
Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@@ -122,6 +146,49 @@ Partial Class frmDIProfilEigenschaften
Me.tslblAnzahl.Size = New System.Drawing.Size(94, 17)
Me.tslblAnzahl.Text = "Anzahl Profile: "
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.DoubleClickEnabled = True
Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.ShowDropDownArrow = False
Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
Me.tsbtnfirst.Text = "Erstes Profil"
'
'tsbtnprevious
'
Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnprevious.Name = "tsbtnprevious"
Me.tsbtnprevious.ShowDropDownArrow = False
Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
Me.tsbtnprevious.Text = "ToolStripDropDownButton2"
Me.tsbtnprevious.ToolTipText = "Vorheriges Profil"
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.ShowDropDownArrow = False
Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
Me.tsbtnnext.Text = "ToolStripDropDownButton3"
Me.tsbtnnext.ToolTipText = "Nächstes Profil"
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.ShowDropDownArrow = False
Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
Me.tsbtnlast.Text = "Letztes Profil"
'
'lblProfil
'
Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -132,7 +199,6 @@ Partial Class frmDIProfilEigenschaften
'pnlProfileigenschaften
'
Me.pnlProfileigenschaften.Controls.Add(Me.Button1)
Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox3)
Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox2)
@@ -155,101 +221,17 @@ Partial Class frmDIProfilEigenschaften
Me.pnlProfileigenschaften.TabIndex = 22
Me.pnlProfileigenschaften.Visible = False
'
'GroupBox3
'Button1
'
Me.GroupBox3.Controls.Add(Me.Label10)
Me.GroupBox3.Controls.Add(Me.cmbl2Nav_Index)
Me.GroupBox3.Controls.Add(Me.Label9)
Me.GroupBox3.Controls.Add(Me.cmbl2NavDokartindex)
Me.GroupBox3.Controls.Add(Me.Label8)
Me.GroupBox3.Controls.Add(Me.btnLink2Navision)
Me.GroupBox3.Controls.Add(Me.txtLink2Navision)
Me.GroupBox3.Controls.Add(Me.chkbxlink2Navision)
Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(15, 408)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(563, 136)
Me.GroupBox3.TabIndex = 59
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Zusatzmodule/-funktionen:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(230, 84)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(134, 13)
Me.Label10.TabIndex = 44
Me.Label10.Text = "Indexwert zur Übergabe:"
'
'cmbl2Nav_Index
'
Me.cmbl2Nav_Index.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbl2Nav_Index.FormattingEnabled = True
Me.cmbl2Nav_Index.Location = New System.Drawing.Point(233, 99)
Me.cmbl2Nav_Index.Name = "cmbl2Nav_Index"
Me.cmbl2Nav_Index.Size = New System.Drawing.Size(218, 21)
Me.cmbl2Nav_Index.TabIndex = 43
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 84)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(109, 13)
Me.Label9.TabIndex = 42
Me.Label9.Text = "Dokumentartindex: "
'
'cmbl2NavDokartindex
'
Me.cmbl2NavDokartindex.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbl2NavDokartindex.FormattingEnabled = True
Me.cmbl2NavDokartindex.Location = New System.Drawing.Point(6, 99)
Me.cmbl2NavDokartindex.Name = "cmbl2NavDokartindex"
Me.cmbl2NavDokartindex.Size = New System.Drawing.Size(218, 21)
Me.cmbl2NavDokartindex.TabIndex = 41
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(6, 40)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(138, 13)
Me.Label8.TabIndex = 40
Me.Label8.Text = "Pfad zu DDLink2Navision:"
'
'btnLink2Navision
'
Me.btnLink2Navision.Enabled = False
Me.btnLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLink2Navision.Location = New System.Drawing.Point(532, 54)
Me.btnLink2Navision.Name = "btnLink2Navision"
Me.btnLink2Navision.Size = New System.Drawing.Size(24, 21)
Me.btnLink2Navision.TabIndex = 4
Me.btnLink2Navision.Text = "..."
Me.btnLink2Navision.UseVisualStyleBackColor = True
'
'txtLink2Navision
'
Me.txtLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLink2Navision.Location = New System.Drawing.Point(6, 55)
Me.txtLink2Navision.Name = "txtLink2Navision"
Me.txtLink2Navision.Size = New System.Drawing.Size(520, 22)
Me.txtLink2Navision.TabIndex = 2
'
'chkbxlink2Navision
'
Me.chkbxlink2Navision.AutoSize = True
Me.chkbxlink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkbxlink2Navision.Location = New System.Drawing.Point(6, 20)
Me.chkbxlink2Navision.Name = "chkbxlink2Navision"
Me.chkbxlink2Navision.Size = New System.Drawing.Size(406, 17)
Me.chkbxlink2Navision.TabIndex = 1
Me.chkbxlink2Navision.Text = "Link2Navision (Legt für die importierte Datei einen Link in MS Navision an)"
Me.chkbxlink2Navision.UseVisualStyleBackColor = True
Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(584, 11)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(184, 23)
Me.Button1.TabIndex = 60
Me.Button1.Text = "Regular Expressions"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'txtlastRun
'
@@ -359,7 +341,7 @@ Partial Class frmDIProfilEigenschaften
'
'txtVerzoegerung
'
Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 562)
Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 421)
Me.txtVerzoegerung.Name = "txtVerzoegerung"
Me.txtVerzoegerung.Size = New System.Drawing.Size(45, 22)
Me.txtVerzoegerung.TabIndex = 55
@@ -368,7 +350,7 @@ Partial Class frmDIProfilEigenschaften
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(18, 558)
Me.Label6.Location = New System.Drawing.Point(18, 417)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(376, 26)
Me.Label6.TabIndex = 54
@@ -466,15 +448,26 @@ Partial Class frmDIProfilEigenschaften
Me.Label5.TabIndex = 50
Me.Label5.Text = "* bei diesem Feld handelt es sich um ein Pflichtfeld"
'
'btnRegeln
'
Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5
Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRegeln.Location = New System.Drawing.Point(774, 10)
Me.btnRegeln.Name = "btnRegeln"
Me.btnRegeln.Size = New System.Drawing.Size(155, 49)
Me.btnRegeln.TabIndex = 6
Me.btnRegeln.Text = "Regeln verwalten ..."
Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRegeln.UseVisualStyleBackColor = True
'
'boxImportoptionenLoeschen
'
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkUVloeschen)
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkQuellverzeichnisLoeschen)
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkDateienLoeschen)
Me.boxImportoptionenLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.boxImportoptionenLoeschen.Location = New System.Drawing.Point(584, 110)
Me.boxImportoptionenLoeschen.Name = "boxImportoptionenLoeschen"
Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 99)
Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 73)
Me.boxImportoptionenLoeschen.TabIndex = 46
Me.boxImportoptionenLoeschen.TabStop = False
Me.boxImportoptionenLoeschen.Text = "Löschen"
@@ -483,7 +476,7 @@ Partial Class frmDIProfilEigenschaften
'
Me.chkUVloeschen.AutoSize = True
Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkUVloeschen.Location = New System.Drawing.Point(8, 65)
Me.chkUVloeschen.Location = New System.Drawing.Point(8, 47)
Me.chkUVloeschen.Name = "chkUVloeschen"
Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
Me.chkUVloeschen.TabIndex = 2
@@ -491,23 +484,11 @@ Partial Class frmDIProfilEigenschaften
Me.chkUVloeschen.UseVisualStyleBackColor = True
Me.chkUVloeschen.Visible = False
'
'chkQuellverzeichnisLoeschen
'
Me.chkQuellverzeichnisLoeschen.AutoSize = True
Me.chkQuellverzeichnisLoeschen.Enabled = False
Me.chkQuellverzeichnisLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
Me.chkQuellverzeichnisLoeschen.TabIndex = 1
Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
'
'chkDateienLoeschen
'
Me.chkDateienLoeschen.AutoSize = True
Me.chkDateienLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 19)
Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 23)
Me.chkDateienLoeschen.Name = "chkDateienLoeschen"
Me.chkDateienLoeschen.Size = New System.Drawing.Size(200, 17)
Me.chkDateienLoeschen.TabIndex = 0
@@ -629,108 +610,6 @@ Partial Class frmDIProfilEigenschaften
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Button1
'
Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(584, 11)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(184, 23)
Me.Button1.TabIndex = 60
Me.Button1.Text = "Regular Expressions"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'btnRegeln
'
Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5
Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRegeln.Location = New System.Drawing.Point(774, 10)
Me.btnRegeln.Name = "btnRegeln"
Me.btnRegeln.Size = New System.Drawing.Size(155, 49)
Me.btnRegeln.TabIndex = 6
Me.btnRegeln.Text = "Regeln verwalten ..."
Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRegeln.UseVisualStyleBackColor = True
'
'btnSpeichern
'
Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnSpeichern.Enabled = False
Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnSpeichern.Name = "btnSpeichern"
Me.btnSpeichern.ShowDropDownArrow = False
Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
Me.btnSpeichern.Text = "Profil speichern"
'
'btnLöschen
'
Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLöschen.Enabled = False
Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLöschen.Name = "btnLöschen"
Me.btnLöschen.ShowDropDownArrow = False
Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
Me.btnLöschen.Text = "Profil löschen"
'
'btnHinzufügen
'
Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnHinzufügen.Name = "btnHinzufügen"
Me.btnHinzufügen.ShowDropDownArrow = False
Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
Me.btnHinzufügen.Text = "Profil hinzufügen"
'
'tsbtnfirst
'
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnfirst.DoubleClickEnabled = True
Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnfirst.Name = "tsbtnfirst"
Me.tsbtnfirst.ShowDropDownArrow = False
Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
Me.tsbtnfirst.Text = "Erstes Profil"
'
'tsbtnprevious
'
Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnprevious.Name = "tsbtnprevious"
Me.tsbtnprevious.ShowDropDownArrow = False
Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
Me.tsbtnprevious.Text = "ToolStripDropDownButton2"
Me.tsbtnprevious.ToolTipText = "Vorheriges Profil"
'
'tsbtnnext
'
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnext.Name = "tsbtnnext"
Me.tsbtnnext.ShowDropDownArrow = False
Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
Me.tsbtnnext.Text = "ToolStripDropDownButton3"
Me.tsbtnnext.ToolTipText = "Nächstes Profil"
'
'tsbtnlast
'
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnlast.Name = "tsbtnlast"
Me.tsbtnlast.ShowDropDownArrow = False
Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
Me.tsbtnlast.Text = "Letztes Profil"
'
'frmDIProfilEigenschaften
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -750,8 +629,6 @@ Partial Class frmDIProfilEigenschaften
Me.StatusStrip1.PerformLayout()
Me.pnlProfileigenschaften.ResumeLayout(False)
Me.pnlProfileigenschaften.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
@@ -775,7 +652,6 @@ Partial Class frmDIProfilEigenschaften
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents btnRegeln As System.Windows.Forms.Button
Friend WithEvents boxImportoptionenLoeschen As System.Windows.Forms.GroupBox
Friend WithEvents chkQuellverzeichnisLoeschen As System.Windows.Forms.CheckBox
Friend WithEvents chkDateienLoeschen As System.Windows.Forms.CheckBox
Friend WithEvents boxImportoptionenBackup As System.Windows.Forms.GroupBox
Friend WithEvents txtBackupordner As System.Windows.Forms.TextBox
@@ -808,16 +684,7 @@ Partial Class frmDIProfilEigenschaften
Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripDropDownButton
Friend WithEvents tslblAnzahl As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents lblProfil As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents chkbxlink2Navision As System.Windows.Forms.CheckBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents btnLink2Navision As System.Windows.Forms.Button
Friend WithEvents txtLink2Navision As System.Windows.Forms.TextBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents cmbl2NavDokartindex As System.Windows.Forms.ComboBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents cmbl2Nav_Index As System.Windows.Forms.ComboBox
Friend WithEvents chkb_Subdirectories As System.Windows.Forms.CheckBox
Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox
Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton

View File

@@ -138,23 +138,6 @@ Public Class frmDIProfilEigenschaften
Me.txtBackupordner.Text = Me.selectedProfile.Backupordner
Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.VerzeichnisLöschen
Me.chkbxlink2Navision.Checked = Me.selectedProfile.Link2Navision
If Me.chkbxlink2Navision.Checked = True Then
Me.txtLink2Navision.Text = My.Settings.PathLink2Navision
Me.txtLink2Navision.Enabled = True
Me.btnLink2Navision.Enabled = True
Me.cmbl2Nav_Index.Enabled = True
Me.cmbl2NavDokartindex.Enabled = True
load_indexe_inComboboxen()
Else
Me.txtLink2Navision.Enabled = False
Me.btnLink2Navision.Enabled = False
Me.cmbl2Nav_Index.Enabled = False
Me.cmbl2NavDokartindex.Enabled = False
End If
If CBool(Me.selectedProfile.Aktiv) = True Then
Me.chkbxAktiv.Checked = True
@@ -183,7 +166,6 @@ Public Class frmDIProfilEigenschaften
Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
Me.chkQuellverzeichnisLoeschen.Enabled = Me.chkDateienLoeschen.Checked
'End If
End Sub
Sub rbBoxenenablen()
@@ -197,40 +179,7 @@ Public Class frmDIProfilEigenschaften
rbUV_Date3.Enabled = True
End If
End Sub
Sub load_indexe_inComboboxen()
Me.cmbl2NavDokartindex.Items.Clear()
Me.cmbl2Nav_Index.Items.Clear()
Dim indexe = _windream.GetIndicesByObjecttype(Me.selectedProfile.DokumenttypString, True, "DI")
If indexe IsNot Nothing Then
Me.cmbl2NavDokartindex.Items.Add("")
Me.cmbl2Nav_Index.Items.Add("")
For Each index As String In indexe
Me.cmbl2NavDokartindex.Items.Add(index)
Me.cmbl2Nav_Index.Items.Add(index)
Next
Me.cmbl2NavDokartindex.SelectedIndex = -1
Me.cmbl2NavDokartindex.SelectedItem = 0
Me.cmbl2Nav_Index.SelectedIndex = -1
Me.cmbl2Nav_Index.SelectedItem = 0
If Me.selectedProfile.Link2Navision_dokart <> "" Then
'Wenn bereits eine Dokart gewählt wurde
Me.cmbl2NavDokartindex.SelectedIndex = Me.cmbl2NavDokartindex.FindStringExact(Me.selectedProfile.Link2Navision_dokart)
Else
'Wenn noch KEINE Dokart gewählt wurde
Me.cmbl2NavDokartindex.SelectedIndex = -1
Me.cmbl2NavDokartindex.SelectedItem = ""
End If
If Me.selectedProfile.Link2Navision_Index <> "" Then
'Wenn bereits ein Index gewählt wurde
Me.cmbl2Nav_Index.SelectedIndex = Me.cmbl2Nav_Index.FindStringExact(Me.selectedProfile.Link2Navision_Index)
Else
'Wenn noch KEIN Index gewählt wurde
Me.cmbl2Nav_Index.SelectedIndex = -1
Me.cmbl2Nav_Index.SelectedItem = ""
End If
End If
End Sub
' ++++++++++++++++++++++++++++++++++++++++++++++ Events ++++++++++++++++++++++++++++++++++++++++++++++
' +++ Elemente auf Toolbar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -342,7 +291,6 @@ Public Class frmDIProfilEigenschaften
Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup
Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.DateiLöschen
End If
End If
@@ -509,7 +457,7 @@ Public Class frmDIProfilEigenschaften
Else
MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If
End If
End Sub
@@ -525,7 +473,7 @@ Public Class frmDIProfilEigenschaften
Else
MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If
End If
End Sub
@@ -563,7 +511,7 @@ Public Class frmDIProfilEigenschaften
Else
MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If
End If
End Sub
@@ -589,17 +537,6 @@ Public Class frmDIProfilEigenschaften
End If
End Sub
Private Sub chkQuellverzeichnisLoeschen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkQuellverzeichnisLoeschen.CheckedChanged
If Me.selectedProfile IsNot Nothing Then
Me.selectedProfile.VerzeichnisLöschen = Me.chkQuellverzeichnisLoeschen.Checked
If Not Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.OriginalVerzeichnisLöschen Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
End If
End Sub
Private Sub btnRegeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegeln.Click
'Dim regelverwaltung As Control = New pnlDateiimportRegelverwaltung()
@@ -641,7 +578,7 @@ Public Class frmDIProfilEigenschaften
rbUV_Date1.Checked = True
variante = "YYYY-MM-DD"
End Select
txtUV_Date.Text = variante
txtUV_Date.Text = variante
Else
txtUV_Date.Text = ""
End If
@@ -787,44 +724,6 @@ Public Class frmDIProfilEigenschaften
End If
End Sub
Private Sub chkbxlink2Navision_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkbxlink2Navision.CheckedChanged
If Me.selectedProfile IsNot Nothing Then
Me.selectedProfile.Link2Navision = Me.chkbxlink2Navision.Checked
If Not Me.chkbxlink2Navision.Checked = Me.selectedProfile.OriginalLink2Navision Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
If Me.chkbxlink2Navision.Checked Then
Me.txtLink2Navision.Enabled = True
Me.btnLink2Navision.Enabled = True
Me.cmbl2NavDokartindex.Enabled = True
Me.cmbl2Nav_Index.Enabled = True
load_indexe_inComboboxen()
Else
Me.txtLink2Navision.Enabled = False
Me.btnLink2Navision.Enabled = False
Me.cmbl2NavDokartindex.Enabled = False
Me.cmbl2Nav_Index.Enabled = False
End If
End If
End Sub
Private Sub btnLink2Navision_Click(sender As System.Object, e As System.EventArgs) Handles btnLink2Navision.Click
With OpenFileDialog1
' Do
.Filter = "NavisionLink.exe|*.exe"
.FilterIndex = 1
.Title = "Pfad zu DDNavisionLink:"
If .ShowDialog() = DialogResult.OK Then
Me.txtLink2Navision.Text = .FileName
setAppSetting("PathLink2Navision", .FileName)
Me.txtLink2Navision.Text = .FileName
End If
End With
End Sub
Private Sub setAppSetting(ByVal name As String, ByVal value As String)
Dim _folder As New IO.DirectoryInfo(System.IO.Directory.GetCurrentDirectory())
Dim aryFi1 As IO.FileInfo() = _folder.GetFiles("*.config")
@@ -843,32 +742,6 @@ Public Class frmDIProfilEigenschaften
End Sub
Private Sub cmbl2NavDokartindex_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2NavDokartindex.SelectedIndexChanged
If Me.selectedProfile IsNot Nothing Then
If Me.cmbl2NavDokartindex.SelectedIndex <> -1 Then
Me.selectedProfile.Link2Navision_dokart = Me.cmbl2NavDokartindex.Text
If Not Me.selectedProfile.Link2Navision_dokart = Me.selectedProfile.OriginalLink2Navision_dokart Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
End If
End If
End Sub
Private Sub cmbl2Nav_Index_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2Nav_Index.SelectedIndexChanged
If Me.selectedProfile IsNot Nothing Then
If Me.cmbl2Nav_Index.SelectedIndex <> -1 Then
Me.selectedProfile.Link2Navision_Index = Me.cmbl2Nav_Index.Text
If Not Me.selectedProfile.Link2Navision_Index = Me.selectedProfile.Link2Navision_Index Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
End If
End If
End Sub
Private Sub cmbProfilauswahl_ButtonClick(sender As System.Object, e As System.EventArgs) Handles cmbProfilauswahl.ButtonClick
End Sub

View File

@@ -962,7 +962,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(958, 455)
Me.TabPage2.Size = New System.Drawing.Size(970, 465)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kennzeichnung und Active Directory"
Me.TabPage2.UseVisualStyleBackColor = True
@@ -976,7 +976,7 @@ Partial Class frmNIProfileigenschaften
Me.grbxNB_AD.Size = New System.Drawing.Size(624, 50)
Me.grbxNB_AD.TabIndex = 77
Me.grbxNB_AD.TabStop = False
Me.grbxNB_AD.Text = "Indexierung AD (Rechte anpassen)"
Me.grbxNB_AD.Text = "Indexierung AD (Rechteverwaltung)"
'
'chkbxAD
'
@@ -998,7 +998,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(958, 455)
Me.TabPage3.Size = New System.Drawing.Size(970, 465)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
Me.TabPage3.UseVisualStyleBackColor = True
@@ -1285,7 +1285,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(958, 455)
Me.TabPage4.Size = New System.Drawing.Size(970, 465)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
Me.TabPage4.UseVisualStyleBackColor = True

View File

@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CQAAAk1TRnQBSQFMAgEBAgEAAdABAAHQAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

View File

@@ -44,11 +44,10 @@ Partial Class frmStart
Me.ÜberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.PanelMain = New System.Windows.Forms.Panel()
Me.groupboxNachbearbeitungAD = New System.Windows.Forms.GroupBox()
Me.btnNachbearbeitungAD = New System.Windows.Forms.Button()
Me.grbxMoRe = New System.Windows.Forms.GroupBox()
Me.btnOpen_MoReProfile = New System.Windows.Forms.Button()
Me.GroupBoxIntegration = New System.Windows.Forms.GroupBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.GBNachindexierung = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnNIProfile = New System.Windows.Forms.Button()
@@ -63,16 +62,14 @@ Partial Class frmStart
Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components)
Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components)
Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
Me.groupboxNachbearbeitungAD = New System.Windows.Forms.GroupBox()
Me.StatusStrip1.SuspendLayout()
Me.menHauptmenü.SuspendLayout()
Me.PanelMain.SuspendLayout()
Me.groupboxNachbearbeitungAD.SuspendLayout()
Me.grbxMoRe.SuspendLayout()
Me.GroupBoxIntegration.SuspendLayout()
Me.GBNachindexierung.SuspendLayout()
Me.grbDI.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.groupboxNachbearbeitungAD.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
@@ -241,7 +238,6 @@ Partial Class frmStart
'
Me.PanelMain.Controls.Add(Me.groupboxNachbearbeitungAD)
Me.PanelMain.Controls.Add(Me.grbxMoRe)
Me.PanelMain.Controls.Add(Me.GroupBoxIntegration)
Me.PanelMain.Controls.Add(Me.GBNachindexierung)
Me.PanelMain.Controls.Add(Me.grbDI)
Me.PanelMain.Dock = System.Windows.Forms.DockStyle.Left
@@ -250,6 +246,18 @@ Partial Class frmStart
Me.PanelMain.Size = New System.Drawing.Size(163, 589)
Me.PanelMain.TabIndex = 10
'
'groupboxNachbearbeitungAD
'
Me.groupboxNachbearbeitungAD.Controls.Add(Me.btnNachbearbeitungAD)
Me.groupboxNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
Me.groupboxNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.groupboxNachbearbeitungAD.Location = New System.Drawing.Point(0, 395)
Me.groupboxNachbearbeitungAD.Name = "groupboxNachbearbeitungAD"
Me.groupboxNachbearbeitungAD.Size = New System.Drawing.Size(163, 72)
Me.groupboxNachbearbeitungAD.TabIndex = 5
Me.groupboxNachbearbeitungAD.TabStop = False
Me.groupboxNachbearbeitungAD.Text = "Nachbearbeitung"
'
'btnNachbearbeitungAD
'
Me.btnNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -259,7 +267,7 @@ Partial Class frmStart
Me.btnNachbearbeitungAD.Name = "btnNachbearbeitungAD"
Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(153, 42)
Me.btnNachbearbeitungAD.TabIndex = 4
Me.btnNachbearbeitungAD.Text = "ActiveDirectory"
Me.btnNachbearbeitungAD.Text = "Rechteverwaltung"
Me.btnNachbearbeitungAD.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNachbearbeitungAD.UseVisualStyleBackColor = True
'
@@ -268,7 +276,7 @@ Partial Class frmStart
Me.grbxMoRe.Controls.Add(Me.btnOpen_MoReProfile)
Me.grbxMoRe.Dock = System.Windows.Forms.DockStyle.Top
Me.grbxMoRe.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grbxMoRe.Location = New System.Drawing.Point(0, 394)
Me.grbxMoRe.Location = New System.Drawing.Point(0, 325)
Me.grbxMoRe.Name = "grbxMoRe"
Me.grbxMoRe.Size = New System.Drawing.Size(163, 70)
Me.grbxMoRe.TabIndex = 4
@@ -288,31 +296,6 @@ Partial Class frmStart
Me.btnOpen_MoReProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOpen_MoReProfile.UseVisualStyleBackColor = True
'
'GroupBoxIntegration
'
Me.GroupBoxIntegration.Controls.Add(Me.Button3)
Me.GroupBoxIntegration.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBoxIntegration.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBoxIntegration.Location = New System.Drawing.Point(0, 325)
Me.GroupBoxIntegration.Name = "GroupBoxIntegration"
Me.GroupBoxIntegration.Size = New System.Drawing.Size(163, 69)
Me.GroupBoxIntegration.TabIndex = 3
Me.GroupBoxIntegration.TabStop = False
Me.GroupBoxIntegration.Text = "DD Integration"
'
'Button3
'
Me.Button3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.Image = Global.ToolCollection.My.Resources.Resources.Untitled__640_
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(6, 21)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(153, 41)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Profilkonfiguration"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
'
'GBNachindexierung
'
Me.GBNachindexierung.Controls.Add(Me.Button1)
@@ -450,18 +433,6 @@ Partial Class frmStart
'
Me.TimerDeleteLogfiles.Interval = 1000
'
'groupboxNachbearbeitungAD
'
Me.groupboxNachbearbeitungAD.Controls.Add(Me.btnNachbearbeitungAD)
Me.groupboxNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
Me.groupboxNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.groupboxNachbearbeitungAD.Location = New System.Drawing.Point(0, 464)
Me.groupboxNachbearbeitungAD.Name = "groupboxNachbearbeitungAD"
Me.groupboxNachbearbeitungAD.Size = New System.Drawing.Size(163, 72)
Me.groupboxNachbearbeitungAD.TabIndex = 5
Me.groupboxNachbearbeitungAD.TabStop = False
Me.groupboxNachbearbeitungAD.Text = "Nachbearbeitung"
'
'frmStart
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -480,12 +451,11 @@ Partial Class frmStart
Me.menHauptmenü.ResumeLayout(False)
Me.menHauptmenü.PerformLayout()
Me.PanelMain.ResumeLayout(False)
Me.groupboxNachbearbeitungAD.ResumeLayout(False)
Me.grbxMoRe.ResumeLayout(False)
Me.GroupBoxIntegration.ResumeLayout(False)
Me.GBNachindexierung.ResumeLayout(False)
Me.grbDI.ResumeLayout(False)
Me.ContextMenuStrip1.ResumeLayout(False)
Me.groupboxNachbearbeitungAD.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -510,8 +480,6 @@ Partial Class frmStart
Friend WithEvents btnNIProfile As System.Windows.Forms.Button
Friend WithEvents btnNIMain As System.Windows.Forms.Button
Friend WithEvents PasswortverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents GroupBoxIntegration As System.Windows.Forms.GroupBox
Friend WithEvents btnOpen_MoReProfile As System.Windows.Forms.Button
Friend WithEvents niToolcollection As System.Windows.Forms.NotifyIcon
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip

View File

@@ -159,7 +159,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
FAAAAk1TRnQBSQFMAgEBCQEAAYgBAwGIAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
FAAAAk1TRnQBSQFMAgEBCQEAAZABAwGQAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

View File

@@ -391,14 +391,6 @@ Public Class frmStart
frmPWChange.ShowDialog()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Cursor = Cursors.WaitCursor
Dim frm As New frmMIProfileigenschaften
frm.MdiParent = Me
frm.Show()
Cursor = Cursors.Default
End Sub
Private Sub ModuleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModuleToolStripMenuItem.Click
End Sub