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