Index: TAOR-rework-bugfixing/TAOR rework/My Project/Settings.settings
===================================================================
diff -u -r1596 -r1623
--- TAOR-rework-bugfixing/TAOR rework/My Project/Settings.settings (.../Settings.settings) (revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/My Project/Settings.settings (.../Settings.settings) (revision 1623)
@@ -11,5 +11,8 @@
\\NOTES01\Shared\Multi media\TAOR rework\Configs
+
+ True
+
\ No newline at end of file
Index: TAOR-rework-bugfixing/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb
===================================================================
diff -u -r1596 -r1623
--- TAOR-rework-bugfixing/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb (.../FormConfigsWijzigen.Designer.vb) (revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb (.../FormConfigsWijzigen.Designer.vb) (revision 1623)
@@ -24,6 +24,7 @@
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormConfigsWijzigen))
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+ Me.ButtonDefaultConfigPath = New System.Windows.Forms.Button()
Me.ButtonConfigPath = New System.Windows.Forms.Button()
Me.TextBoxConfigPath = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
@@ -53,52 +54,64 @@
Me.TextBoxArdisPath = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
- Me.ButtonDefaultConfigPath = New System.Windows.Forms.Button()
- Me.GroupBox2.SuspendLayout()
- Me.GroupBox1.SuspendLayout()
- Me.TabControlHoofdConfigs.SuspendLayout()
- Me.TabPage1.SuspendLayout()
- Me.TabPage2.SuspendLayout()
- Me.GroupBox5.SuspendLayout()
- Me.GroupBox4.SuspendLayout()
- Me.GroupBox3.SuspendLayout()
- Me.SuspendLayout()
+ Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+ Me.CheckBoxLogs = New System.Windows.Forms.CheckBox()
+ Me.Label7 = New System.Windows.Forms.Label()
+ Me.GroupBox2.SuspendLayout
+ Me.GroupBox1.SuspendLayout
+ Me.TabControlHoofdConfigs.SuspendLayout
+ Me.TabPage1.SuspendLayout
+ Me.TabPage2.SuspendLayout
+ Me.GroupBox5.SuspendLayout
+ Me.GroupBox4.SuspendLayout
+ Me.GroupBox3.SuspendLayout
+ Me.GroupBox6.SuspendLayout
+ Me.SuspendLayout
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.ButtonDefaultConfigPath)
Me.GroupBox2.Controls.Add(Me.ButtonConfigPath)
Me.GroupBox2.Controls.Add(Me.TextBoxConfigPath)
Me.GroupBox2.Controls.Add(Me.Label3)
- Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+ Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
Me.GroupBox2.Location = New System.Drawing.Point(15, 15)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(797, 115)
Me.GroupBox2.TabIndex = 5
- Me.GroupBox2.TabStop = False
+ Me.GroupBox2.TabStop = false
Me.GroupBox2.Text = "Config pad"
'
+ 'ButtonDefaultConfigPath
+ '
+ Me.ButtonDefaultConfigPath.Location = New System.Drawing.Point(668, 61)
+ Me.ButtonDefaultConfigPath.Name = "ButtonDefaultConfigPath"
+ Me.ButtonDefaultConfigPath.Size = New System.Drawing.Size(71, 26)
+ Me.ButtonDefaultConfigPath.TabIndex = 10
+ Me.ButtonDefaultConfigPath.Text = "default"
+ Me.ButtonDefaultConfigPath.UseVisualStyleBackColor = true
+ '
'ButtonConfigPath
'
Me.ButtonConfigPath.Location = New System.Drawing.Point(745, 61)
Me.ButtonConfigPath.Name = "ButtonConfigPath"
Me.ButtonConfigPath.Size = New System.Drawing.Size(37, 26)
Me.ButtonConfigPath.TabIndex = 8
Me.ButtonConfigPath.Text = "..."
- Me.ButtonConfigPath.UseVisualStyleBackColor = True
+ Me.ButtonConfigPath.UseVisualStyleBackColor = true
'
'TextBoxConfigPath
'
Me.TextBoxConfigPath.Location = New System.Drawing.Point(6, 61)
Me.TextBoxConfigPath.Name = "TextBoxConfigPath"
- Me.TextBoxConfigPath.ReadOnly = True
+ Me.TextBoxConfigPath.ReadOnly = true
Me.TextBoxConfigPath.Size = New System.Drawing.Size(656, 26)
Me.TextBoxConfigPath.TabIndex = 7
'
'Label3
'
- Me.Label3.AutoSize = True
- Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+ Me.Label3.AutoSize = true
+ Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
Me.Label3.Location = New System.Drawing.Point(6, 41)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(112, 17)
@@ -107,53 +120,53 @@
'
'ButtonAnnuleren
'
- Me.ButtonAnnuleren.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+ Me.ButtonAnnuleren.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!)
Me.ButtonAnnuleren.Location = New System.Drawing.Point(680, 472)
Me.ButtonAnnuleren.Name = "ButtonAnnuleren"
Me.ButtonAnnuleren.Size = New System.Drawing.Size(133, 39)
Me.ButtonAnnuleren.TabIndex = 8
Me.ButtonAnnuleren.Text = "Annuleren"
- Me.ButtonAnnuleren.UseVisualStyleBackColor = True
+ Me.ButtonAnnuleren.UseVisualStyleBackColor = true
'
'ButtonOpslaanHoofdConfigs
'
- Me.ButtonOpslaanHoofdConfigs.Enabled = False
- Me.ButtonOpslaanHoofdConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+ Me.ButtonOpslaanHoofdConfigs.Enabled = false
+ Me.ButtonOpslaanHoofdConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!)
Me.ButtonOpslaanHoofdConfigs.Location = New System.Drawing.Point(536, 438)
Me.ButtonOpslaanHoofdConfigs.Name = "ButtonOpslaanHoofdConfigs"
Me.ButtonOpslaanHoofdConfigs.Size = New System.Drawing.Size(133, 39)
Me.ButtonOpslaanHoofdConfigs.TabIndex = 7
Me.ButtonOpslaanHoofdConfigs.Text = "Opslaan"
- Me.ButtonOpslaanHoofdConfigs.UseVisualStyleBackColor = True
+ Me.ButtonOpslaanHoofdConfigs.UseVisualStyleBackColor = true
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.CheckBoxVerwerk)
Me.GroupBox1.Controls.Add(Me.Label1)
- Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+ Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
Me.GroupBox1.Location = New System.Drawing.Point(15, 136)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(797, 115)
Me.GroupBox1.TabIndex = 9
- Me.GroupBox1.TabStop = False
+ Me.GroupBox1.TabStop = false
Me.GroupBox1.Text = "Verwerk status"
'
'CheckBoxVerwerk
'
- Me.CheckBoxVerwerk.AutoSize = True
- Me.CheckBoxVerwerk.Checked = True
+ Me.CheckBoxVerwerk.AutoSize = true
+ Me.CheckBoxVerwerk.Checked = true
Me.CheckBoxVerwerk.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBoxVerwerk.Location = New System.Drawing.Point(9, 61)
Me.CheckBoxVerwerk.Name = "CheckBoxVerwerk"
Me.CheckBoxVerwerk.Size = New System.Drawing.Size(86, 24)
Me.CheckBoxVerwerk.TabIndex = 3
Me.CheckBoxVerwerk.Text = "Verwerk"
- Me.CheckBoxVerwerk.UseVisualStyleBackColor = True
+ Me.CheckBoxVerwerk.UseVisualStyleBackColor = true
'
'Label1
'
- Me.Label1.AutoSize = True
- Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+ Me.Label1.AutoSize = true
+ Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
Me.Label1.Location = New System.Drawing.Point(6, 41)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(444, 17)
@@ -162,12 +175,12 @@
'
'TabControlHoofdConfigs
'
- Me.TabControlHoofdConfigs.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
- Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+ Me.TabControlHoofdConfigs.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+ Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.TabControlHoofdConfigs.Controls.Add(Me.TabPage1)
Me.TabControlHoofdConfigs.Controls.Add(Me.TabPage2)
- Me.TabControlHoofdConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+ Me.TabControlHoofdConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!)
Me.TabControlHoofdConfigs.Location = New System.Drawing.Point(1, 0)
Me.TabControlHoofdConfigs.Name = "TabControlHoofdConfigs"
Me.TabControlHoofdConfigs.SelectedIndex = 0
@@ -178,6 +191,7 @@
'TabPage1
'
Me.TabPage1.BackColor = System.Drawing.Color.White
+ Me.TabPage1.Controls.Add(Me.GroupBox6)
Me.TabPage1.Controls.Add(Me.GroupBox2)
Me.TabPage1.Controls.Add(Me.GroupBox1)
Me.TabPage1.Controls.Add(Me.ButtonOpslaanHoofdConfigs)
@@ -204,26 +218,26 @@
'
'ButtonOpslaanAlgemeneConfigs
'
- Me.ButtonOpslaanAlgemeneConfigs.Enabled = False
- Me.ButtonOpslaanAlgemeneConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
+ Me.ButtonOpslaanAlgemeneConfigs.Enabled = false
+ Me.ButtonOpslaanAlgemeneConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!)
Me.ButtonOpslaanAlgemeneConfigs.Location = New System.Drawing.Point(536, 438)
Me.ButtonOpslaanAlgemeneConfigs.Name = "ButtonOpslaanAlgemeneConfigs"
Me.ButtonOpslaanAlgemeneConfigs.Size = New System.Drawing.Size(133, 39)
Me.ButtonOpslaanAlgemeneConfigs.TabIndex = 14
Me.ButtonOpslaanAlgemeneConfigs.Text = "Opslaan"
- Me.ButtonOpslaanAlgemeneConfigs.UseVisualStyleBackColor = True
+ Me.ButtonOpslaanAlgemeneConfigs.UseVisualStyleBackColor = true
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.ButtonHulpPDFPath)
Me.GroupBox5.Controls.Add(Me.TextBoxHulpPDFPath)
Me.GroupBox5.Controls.Add(Me.Label5)
- Me.GroupBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+ Me.GroupBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
Me.GroupBox5.Location = New System.Drawing.Point(15, 310)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(797, 110)
Me.GroupBox5.TabIndex = 13
- Me.GroupBox5.TabStop = False
+ Me.GroupBox5.TabStop = false
Me.GroupBox5.Text = "Hulp PDF"
'
'ButtonHulpPDFPath
@@ -233,20 +247,20 @@
Me.ButtonHulpPDFPath.Size = New System.Drawing.Size(37, 26)
Me.ButtonHulpPDFPath.TabIndex = 8
Me.ButtonHulpPDFPath.Text = "..."
- Me.ButtonHulpPDFPath.UseVisualStyleBackColor = True
+ Me.ButtonHulpPDFPath.UseVisualStyleBackColor = true
'
'TextBoxHulpPDFPath
'
Me.TextBoxHulpPDFPath.Location = New System.Drawing.Point(6, 61)
Me.TextBoxHulpPDFPath.Name = "TextBoxHulpPDFPath"
- Me.TextBoxHulpPDFPath.ReadOnly = True
+ Me.TextBoxHulpPDFPath.ReadOnly = true
Me.TextBoxHulpPDFPath.Size = New System.Drawing.Size(725, 26)
Me.TextBoxHulpPDFPath.TabIndex = 7
'
'Label5
'
- Me.Label5.AutoSize = True
- Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+ Me.Label5.AutoSize = true
+ Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
Me.Label5.Location = New System.Drawing.Point(6, 41)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(145, 17)
@@ -258,12 +272,12 @@
Me.GroupBox4.Controls.Add(Me.ButtonPrinterBacklogPath)
Me.GroupBox4.Controls.Add(Me.TextBoxPrinterBacklogPath)
Me.GroupBox4.Controls.Add(Me.Label6)
- Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+ Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
Me.GroupBox4.Location = New System.Drawing.Point(16, 194)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(797, 110)
Me.GroupBox4.TabIndex = 12
- Me.GroupBox4.TabStop = False
+ Me.GroupBox4.TabStop = false
Me.GroupBox4.Text = "Backlog"
'
'ButtonPrinterBacklogPath
@@ -273,20 +287,20 @@
Me.ButtonPrinterBacklogPath.Size = New System.Drawing.Size(37, 26)
Me.ButtonPrinterBacklogPath.TabIndex = 8
Me.ButtonPrinterBacklogPath.Text = "..."
- Me.ButtonPrinterBacklogPath.UseVisualStyleBackColor = True
+ Me.ButtonPrinterBacklogPath.UseVisualStyleBackColor = true
'
'TextBoxPrinterBacklogPath
'
Me.TextBoxPrinterBacklogPath.Location = New System.Drawing.Point(6, 61)
Me.TextBoxPrinterBacklogPath.Name = "TextBoxPrinterBacklogPath"
- Me.TextBoxPrinterBacklogPath.ReadOnly = True
+ Me.TextBoxPrinterBacklogPath.ReadOnly = true
Me.TextBoxPrinterBacklogPath.Size = New System.Drawing.Size(724, 26)
Me.TextBoxPrinterBacklogPath.TabIndex = 7
'
'Label6
'
- Me.Label6.AutoSize = True
- Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+ Me.Label6.AutoSize = true
+ Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
Me.Label6.Location = New System.Drawing.Point(6, 41)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(253, 17)
@@ -301,12 +315,12 @@
Me.GroupBox3.Controls.Add(Me.ButtonArdisPath)
Me.GroupBox3.Controls.Add(Me.TextBoxArdisPath)
Me.GroupBox3.Controls.Add(Me.Label2)
- Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+ Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
Me.GroupBox3.Location = New System.Drawing.Point(15, 15)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(797, 173)
Me.GroupBox3.TabIndex = 6
- Me.GroupBox3.TabStop = False
+ Me.GroupBox3.TabStop = false
Me.GroupBox3.Text = "Ardis en Bartender"
'
'ButtonBartenderPath
@@ -316,20 +330,20 @@
Me.ButtonBartenderPath.Size = New System.Drawing.Size(37, 26)
Me.ButtonBartenderPath.TabIndex = 11
Me.ButtonBartenderPath.Text = "..."
- Me.ButtonBartenderPath.UseVisualStyleBackColor = True
+ Me.ButtonBartenderPath.UseVisualStyleBackColor = true
'
'TextBoxBartenderPath
'
Me.TextBoxBartenderPath.Location = New System.Drawing.Point(6, 128)
Me.TextBoxBartenderPath.Name = "TextBoxBartenderPath"
- Me.TextBoxBartenderPath.ReadOnly = True
+ Me.TextBoxBartenderPath.ReadOnly = true
Me.TextBoxBartenderPath.Size = New System.Drawing.Size(724, 26)
Me.TextBoxBartenderPath.TabIndex = 10
'
'Label4
'
- Me.Label4.AutoSize = True
- Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+ Me.Label4.AutoSize = true
+ Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
Me.Label4.Location = New System.Drawing.Point(6, 108)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(137, 17)
@@ -343,20 +357,20 @@
Me.ButtonArdisPath.Size = New System.Drawing.Size(37, 26)
Me.ButtonArdisPath.TabIndex = 8
Me.ButtonArdisPath.Text = "..."
- Me.ButtonArdisPath.UseVisualStyleBackColor = True
+ Me.ButtonArdisPath.UseVisualStyleBackColor = true
'
'TextBoxArdisPath
'
Me.TextBoxArdisPath.Location = New System.Drawing.Point(6, 61)
Me.TextBoxArdisPath.Name = "TextBoxArdisPath"
- Me.TextBoxArdisPath.ReadOnly = True
+ Me.TextBoxArdisPath.ReadOnly = true
Me.TextBoxArdisPath.Size = New System.Drawing.Size(724, 26)
Me.TextBoxArdisPath.TabIndex = 7
'
'Label2
'
- Me.Label2.AutoSize = True
- Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+ Me.Label2.AutoSize = true
+ Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
Me.Label2.Location = New System.Drawing.Point(6, 41)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(185, 17)
@@ -367,41 +381,68 @@
'
Me.OpenFileDialog.FileName = "OpenFileDialog1"
'
- 'ButtonDefault
+ 'GroupBox6
'
- Me.ButtonDefaultConfigPath.Location = New System.Drawing.Point(668, 61)
- Me.ButtonDefaultConfigPath.Name = "ButtonDefault"
- Me.ButtonDefaultConfigPath.Size = New System.Drawing.Size(71, 26)
- Me.ButtonDefaultConfigPath.TabIndex = 10
- Me.ButtonDefaultConfigPath.Text = "default"
- Me.ButtonDefaultConfigPath.UseVisualStyleBackColor = True
+ Me.GroupBox6.Controls.Add(Me.CheckBoxLogs)
+ Me.GroupBox6.Controls.Add(Me.Label7)
+ Me.GroupBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
+ Me.GroupBox6.Location = New System.Drawing.Point(15, 257)
+ Me.GroupBox6.Name = "GroupBox6"
+ Me.GroupBox6.Size = New System.Drawing.Size(797, 115)
+ Me.GroupBox6.TabIndex = 10
+ Me.GroupBox6.TabStop = false
+ Me.GroupBox6.Text = "Logs"
'
+ 'CheckBoxLogs
+ '
+ Me.CheckBoxLogs.AutoSize = true
+ Me.CheckBoxLogs.Checked = true
+ Me.CheckBoxLogs.CheckState = System.Windows.Forms.CheckState.Checked
+ Me.CheckBoxLogs.Location = New System.Drawing.Point(9, 61)
+ Me.CheckBoxLogs.Name = "CheckBoxLogs"
+ Me.CheckBoxLogs.Size = New System.Drawing.Size(123, 24)
+ Me.CheckBoxLogs.TabIndex = 3
+ Me.CheckBoxLogs.Text = "Logs opslaan"
+ Me.CheckBoxLogs.UseVisualStyleBackColor = true
+ '
+ 'Label7
+ '
+ Me.Label7.AutoSize = true
+ Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
+ Me.Label7.Location = New System.Drawing.Point(6, 41)
+ Me.Label7.Name = "Label7"
+ Me.Label7.Size = New System.Drawing.Size(255, 17)
+ Me.Label7.TabIndex = 2
+ Me.Label7.Text = "Bepalen of er logs worden opgeslagen:"
+ '
'FormConfigsWijzigen
'
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(836, 529)
Me.Controls.Add(Me.ButtonAnnuleren)
Me.Controls.Add(Me.TabControlHoofdConfigs)
- Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+ Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "FormConfigsWijzigen"
Me.Text = "TAOR rework - Configs wijzigen"
- Me.GroupBox2.ResumeLayout(False)
- Me.GroupBox2.PerformLayout()
- Me.GroupBox1.ResumeLayout(False)
- Me.GroupBox1.PerformLayout()
- Me.TabControlHoofdConfigs.ResumeLayout(False)
- Me.TabPage1.ResumeLayout(False)
- Me.TabPage2.ResumeLayout(False)
- Me.GroupBox5.ResumeLayout(False)
- Me.GroupBox5.PerformLayout()
- Me.GroupBox4.ResumeLayout(False)
- Me.GroupBox4.PerformLayout()
- Me.GroupBox3.ResumeLayout(False)
- Me.GroupBox3.PerformLayout()
- Me.ResumeLayout(False)
+ Me.GroupBox2.ResumeLayout(false)
+ Me.GroupBox2.PerformLayout
+ Me.GroupBox1.ResumeLayout(false)
+ Me.GroupBox1.PerformLayout
+ Me.TabControlHoofdConfigs.ResumeLayout(false)
+ Me.TabPage1.ResumeLayout(false)
+ Me.TabPage2.ResumeLayout(false)
+ Me.GroupBox5.ResumeLayout(false)
+ Me.GroupBox5.PerformLayout
+ Me.GroupBox4.ResumeLayout(false)
+ Me.GroupBox4.PerformLayout
+ Me.GroupBox3.ResumeLayout(false)
+ Me.GroupBox3.PerformLayout
+ Me.GroupBox6.ResumeLayout(false)
+ Me.GroupBox6.PerformLayout
+ Me.ResumeLayout(false)
- End Sub
+End Sub
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents ButtonConfigPath As System.Windows.Forms.Button
Friend WithEvents TextBoxConfigPath As System.Windows.Forms.TextBox
@@ -433,4 +474,7 @@
Friend WithEvents ButtonOpslaanAlgemeneConfigs As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog As System.Windows.Forms.OpenFileDialog
Friend WithEvents ButtonDefaultConfigPath As System.Windows.Forms.Button
+ Friend WithEvents GroupBox6 As GroupBox
+ Friend WithEvents CheckBoxLogs As CheckBox
+ Friend WithEvents Label7 As Label
End Class
Index: TAOR-rework-bugfixing/TAOR rework/formulieren/FormConfigsWijzigen.vb
===================================================================
diff -u -r1596 -r1623
--- TAOR-rework-bugfixing/TAOR rework/formulieren/FormConfigsWijzigen.vb (.../FormConfigsWijzigen.vb) (revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/FormConfigsWijzigen.vb (.../FormConfigsWijzigen.vb) (revision 1623)
@@ -24,8 +24,10 @@
Private Sub laadBasisConfigs()
TextBoxConfigPath.Text = My.Settings.PathNaarConfigMap
CheckBoxVerwerk.Checked = My.Settings.VerwerkStatus
+ CheckBoxLogs.Checked = My.Settings.LogOpslaanStatus
End Sub
+ 'Config pad.
Private Sub ButtonConfigPath_Click(sender As System.Object, e As System.EventArgs) Handles ButtonConfigPath.Click
FolderBrowserDialog.SelectedPath = My.Settings.PathNaarConfigMap
Dim result As DialogResult = FolderBrowserDialog.ShowDialog()
@@ -38,14 +40,16 @@
TextBoxConfigPath.Text = My.Settings.PathNaarConfigMapDefault
End Sub
- Private Sub ButtonOpslaanHoofdConfigs_Enabler(sender As System.Object, e As System.EventArgs) Handles TextBoxConfigPath.TextChanged, CheckBoxVerwerk.CheckedChanged
+ 'Opslaan button enablen bij wijziging aan een setting.
+ Private Sub ButtonOpslaanHoofdConfigs_Enabler(sender As System.Object, e As System.EventArgs) Handles TextBoxConfigPath.TextChanged, CheckBoxVerwerk.CheckedChanged, CheckBoxLogs.CheckedChanged
ButtonOpslaanHoofdConfigs.Enabled = True
End Sub
Private Sub ButtonOpslaanHoofdConfigs_Click(sender As System.Object, e As System.EventArgs) Handles ButtonOpslaanHoofdConfigs.Click
If vraagOpslaanAanGebruiker() Then
My.Settings.PathNaarConfigMap = TextBoxConfigPath.Text
My.Settings.VerwerkStatus = CheckBoxVerwerk.Checked
+ My.Settings.LogOpslaanStatus = CheckBoxLogs.Checked
Application.Restart()
End If
End Sub
Index: TAOR-rework-bugfixing/TAOR rework/Configuraties/Configs.vb
===================================================================
diff -u -r1596 -r1623
--- TAOR-rework-bugfixing/TAOR rework/Configuraties/Configs.vb (.../Configs.vb) (revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/Configuraties/Configs.vb (.../Configs.vb) (revision 1623)
@@ -99,7 +99,7 @@
Private Sub laadOnderdelen()
_onderdelen = OnderdelenTextFileMapper.getDataFromFile()
If (_onderdelen Is Nothing) OrElse (_onderdelen.Count <= 0) Then
- _onderdelen = CacheMapper.geefOnderdelen
+ _onderdelen = CacheMapper.GeefOnderdelen
OnderdelenTextFileMapper.writeToFile(_onderdelen)
End If
If _onderdelen.Count <= 0 Then
@@ -350,6 +350,12 @@
#End Region
+#Region "Logs schrijven of niet"
+ public Function GeefLogOpslaanStatus() As Boolean
+ Return My.Settings.LogOpslaanStatus
+ End Function
+#End Region
+
Public Sub opslaanAlgemeneConfigs()
slaConfigsOp()
End Sub
Index: TAOR-rework-bugfixing/TAOR rework/LogBestandTextMapper.vb
===================================================================
diff -u -r1622 -r1623
--- TAOR-rework-bugfixing/TAOR rework/LogBestandTextMapper.vb (.../LogBestandTextMapper.vb) (revision 1622)
+++ TAOR-rework-bugfixing/TAOR rework/LogBestandTextMapper.vb (.../LogBestandTextMapper.vb) (revision 1623)
@@ -19,6 +19,12 @@
''' Het bericht
''' Ofdat het stuk code is voltooid
Public Sub WriteToFile(databank As String, logMessage As String, Optional voltooid As Boolean = False)
+ 'Kijken of de log wel moet worden weggeschreven.
+ if Not Configs.GeefLogOpslaanStatus() Then
+ 'Logs moeten niet worden opgeslagen.
+ Return
+ End If
+
'Controleren of er nog geen log bestand was gemaakt.
If Not _busy Then
'Geen log bestand was reeds aanwezig, aanmaken.
Index: TAOR-rework-bugfixing/TAOR rework/app.config
===================================================================
diff -u -r1596 -r1623
--- TAOR-rework-bugfixing/TAOR rework/app.config (.../app.config) (revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/app.config (.../app.config) (revision 1623)
@@ -38,6 +38,9 @@
\\NOTES01\Shared\Multi media\TAOR rework\Configs
+
+ True
+
Index: TAOR-rework-bugfixing/TAOR rework/My Project/Settings.Designer.vb
===================================================================
diff -u -r1596 -r1623
--- TAOR-rework-bugfixing/TAOR rework/My Project/Settings.Designer.vb (.../Settings.Designer.vb) (revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/My Project/Settings.Designer.vb (.../Settings.Designer.vb) (revision 1623)
@@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
'
' This code was generated by a tool.
-' Runtime Version:4.0.30319.36460
+' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
@@ -15,7 +15,7 @@
Namespace My
_
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -29,7 +29,7 @@
Private Shared addedHandlerLockObject As New Object
_
- Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
@@ -89,6 +89,18 @@
Me("PathNaarConfigMapDefault") = value
End Set
End Property
+
+ _
+ Public Property LogOpslaanStatus() As Boolean
+ Get
+ Return CType(Me("LogOpslaanStatus"),Boolean)
+ End Get
+ Set
+ Me("LogOpslaanStatus") = value
+ End Set
+ End Property
End Class
End Namespace