Removed Zusatzmodule Navision from DI Profileigenschaften, form UI + logic
This commit is contained in:
OlgunR
340
ToolCollection/frmDIProfilEigenschaften.Designer.vb
generated
340
ToolCollection/frmDIProfilEigenschaften.Designer.vb
generated
@@ -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,6 +59,7 @@ 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()
|
||||
@@ -75,18 +75,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 +97,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 +147,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 +200,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 +222,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 +342,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 +351,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,6 +449,18 @@ 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)
|
||||
@@ -629,108 +624,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 +643,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)
|
||||
@@ -808,16 +699,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
|
||||
|
||||
@@ -139,22 +139,6 @@ Public Class frmDIProfilEigenschaften
|
||||
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
|
||||
@@ -197,40 +181,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 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
||||
@@ -509,7 +460,7 @@ Public Class frmDIProfilEigenschaften
|
||||
Else
|
||||
MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -525,7 +476,7 @@ Public Class frmDIProfilEigenschaften
|
||||
Else
|
||||
MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -563,7 +514,7 @@ Public Class frmDIProfilEigenschaften
|
||||
Else
|
||||
MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -641,7 +592,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 +738,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 +756,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
|
||||
|
||||
Reference in New Issue
Block a user