Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftKantenbandData.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftKantenbandData.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftKantenbandData.vb (revision 1629) @@ -0,0 +1,6 @@ +''' +''' Bevat enkele kantenband data. +''' +Public Interface IHeeftKantenbandData + Property KantenbandData As KantenbandData +End Interface Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb =================================================================== diff -u -r1628 -r1629 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1628) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1629) @@ -1,6 +1,12 @@ -Public Class SifonLadeV2 +Imports TA_OR_rework + +Public Class SifonLadeV2 Implements ISifonLade + 'Properties + Public Property Bestandsnaam As String Implements ISifonLade.Bestandsnaam + Public Property Batch As String Implements ISifonLade.Batch + #Region "Onderdelen" Public Property BuitenzijkantL As Zijkant Implements ISifonLade.BuitenzijkantL Public Property BuitenzijkanttR As Zijkant Implements ISifonLade.BuitenzijkanttR FishEye: Tag 1629 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftDubbeleKantenbandData.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb =================================================================== diff -u -r1628 -r1629 --- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1628) +++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1629) @@ -13,8 +13,11 @@ End If Return _instance End Function - - 'informatie opvragen over de sifonLade + + ''' + ''' Informatie opvragen over de sifonLade als DTO. + ''' + ''' Public Function GeefInformatieSifonLade() As SifonLadeDto 'De eerste sifonlade opvragen. Dim sifonLade As ISifonLade = _specialLadenRep.geefSifonLade(0) Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj =================================================================== diff -u -r1625 -r1629 --- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1625) +++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1629) @@ -110,6 +110,7 @@ + FormConfigsWijzigen.vb @@ -164,9 +165,16 @@ + + + + + + + - + FormLabel.vb @@ -205,6 +213,13 @@ + + + + + + + Form Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Rug.vb =================================================================== diff -u -r1627 -r1629 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Rug.vb (.../Rug.vb) (revision 1627) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Rug.vb (.../Rug.vb) (revision 1629) @@ -1,6 +1,6 @@ Public Class Rug - Implements IHeeftEnkeleArdisdata, IHeeftEnkeleKantenbandData + Implements IHeeftEnkeleArdisdata, IHeeftKantenbandData Public Property ArdisData As ArdisData Implements IHeeftEnkeleArdisdata.ArdisData - Public Property KantenbandData As KantenbandData Implements IHeeftEnkeleKantenbandData.KantenbandData + Public Property KantenbandData As KantenbandData Implements IHeeftKantenbandData.KantenbandData End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeDto.vb =================================================================== diff -u -r1628 -r1629 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeDto.vb (.../SifonLadeDto.vb) (revision 1628) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeDto.vb (.../SifonLadeDto.vb) (revision 1629) @@ -2,6 +2,9 @@ ''' Een lege klasse die enkel dient om waarden bij te houden. ''' Public Class SifonLadeDto + 'Properties + Public Property Bestandsnaam As String + Public Property Batch As String 'Afmetingen Public Property KastBreedte As Double Public Property LadeDiepte As Double Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb =================================================================== diff -u -r1626 -r1629 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb (.../FormSifonLade.Designer.vb) (revision 1626) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb (.../FormSifonLade.Designer.vb) (revision 1629) @@ -35,14 +35,14 @@ Me.Label3 = New System.Windows.Forms.Label() Me.NLTextBox = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() - Me.RestTextBox = New System.Windows.Forms.TextBox() + Me.RestPositieTextBox = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.LblComboBoxDiepte = New System.Windows.Forms.Label() Me.Label61 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.KleurBinnenTextBox = New System.Windows.Forms.TextBox() Me.VerwerkButton = New System.Windows.Forms.Button() - Me.FileNameTextBox = New System.Windows.Forms.TextBox() + Me.BestandsnaamTextBox = New System.Windows.Forms.TextBox() Me.FoutmeldingOpzoekenLabel = New System.Windows.Forms.Label() Me.OnderdelenOplijstingDataGridView = New System.Windows.Forms.DataGridView() Me.onderdeel = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -56,14 +56,14 @@ Me.DiepteComboBox = New System.Windows.Forms.ComboBox() Me.VerwerkingLabel = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() - Me.BreedteUitsparingOverschrijfwaardeTextBox = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() - Me.DiepteUitsparingOverschrijfwaardeTextBox = New System.Windows.Forms.TextBox() Me.Label11 = New System.Windows.Forms.Label() - Me.BreedteMiddenstukTextBox = New System.Windows.Forms.TextBox() Me.BreedteUitsparingComboBox = New System.Windows.Forms.ComboBox() Me.DiepteUitsparingComboBox = New System.Windows.Forms.ComboBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.DiepteUitsparingOverschrijfNumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.BreedteUitsparingOverschrijfNumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.BreedteMiddenstukNumericUpDown = New System.Windows.Forms.NumericUpDown() Me.Label14 = New System.Windows.Forms.Label() Me.DiepteUitsparingResetButton = New System.Windows.Forms.Button() Me.DubbelCheckBox = New System.Windows.Forms.CheckBox() @@ -73,6 +73,9 @@ CType(Me.OnderdelenOplijstingDataGridView,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.PositieNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox1.SuspendLayout + CType(Me.DiepteUitsparingOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.BreedteUitsparingOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.BreedteMiddenstukNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout ' 'TerugButton @@ -172,17 +175,17 @@ Me.Label4.TabIndex = 26 Me.Label4.Text = "Z1 (breedte):" ' - 'RestTextBox + 'RestPositieTextBox ' - Me.RestTextBox.Enabled = false - Me.RestTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.RestTextBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.RestTextBox.Location = New System.Drawing.Point(227, 788) - Me.RestTextBox.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) - Me.RestTextBox.Name = "RestTextBox" - Me.RestTextBox.Size = New System.Drawing.Size(250, 68) - Me.RestTextBox.TabIndex = 25 - Me.RestTextBox.TabStop = false + Me.RestPositieTextBox.Enabled = false + Me.RestPositieTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.RestPositieTextBox.ForeColor = System.Drawing.SystemColors.ControlText + Me.RestPositieTextBox.Location = New System.Drawing.Point(227, 788) + Me.RestPositieTextBox.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) + Me.RestPositieTextBox.Name = "RestPositieTextBox" + Me.RestPositieTextBox.Size = New System.Drawing.Size(250, 68) + Me.RestPositieTextBox.TabIndex = 25 + Me.RestPositieTextBox.TabStop = false ' 'Label5 ' @@ -210,9 +213,9 @@ Me.Label61.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.Label61.Location = New System.Drawing.Point(36, 814) Me.Label61.Name = "Label61" - Me.Label61.Size = New System.Drawing.Size(168, 31) + Me.Label61.Size = New System.Drawing.Size(183, 31) Me.Label61.TabIndex = 32 - Me.Label61.Text = "Rest Positie:" + Me.Label61.Text = "Rest (positie):" ' 'Label8 ' @@ -248,17 +251,17 @@ Me.VerwerkButton.Text = "Verdeel over tray" Me.VerwerkButton.UseVisualStyleBackColor = true ' - 'FileNameTextBox + 'BestandsnaamTextBox ' - Me.FileNameTextBox.Enabled = false - Me.FileNameTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.FileNameTextBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.FileNameTextBox.Location = New System.Drawing.Point(214, 107) - Me.FileNameTextBox.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) - Me.FileNameTextBox.Name = "FileNameTextBox" - Me.FileNameTextBox.Size = New System.Drawing.Size(834, 45) - Me.FileNameTextBox.TabIndex = 38 - Me.FileNameTextBox.TabStop = false + Me.BestandsnaamTextBox.Enabled = false + Me.BestandsnaamTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.BestandsnaamTextBox.ForeColor = System.Drawing.SystemColors.ControlText + Me.BestandsnaamTextBox.Location = New System.Drawing.Point(214, 107) + Me.BestandsnaamTextBox.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) + Me.BestandsnaamTextBox.Name = "BestandsnaamTextBox" + Me.BestandsnaamTextBox.Size = New System.Drawing.Size(834, 45) + Me.BestandsnaamTextBox.TabIndex = 38 + Me.BestandsnaamTextBox.TabStop = false ' 'FoutmeldingOpzoekenLabel ' @@ -428,18 +431,6 @@ Me.Label6.TabIndex = 57 Me.Label6.Text = "Z2:" ' - 'BreedteUitsparingOverschrijfwaardeTextBox - ' - Me.BreedteUitsparingOverschrijfwaardeTextBox.Enabled = false - Me.BreedteUitsparingOverschrijfwaardeTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.BreedteUitsparingOverschrijfwaardeTextBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.BreedteUitsparingOverschrijfwaardeTextBox.Location = New System.Drawing.Point(341, 112) - Me.BreedteUitsparingOverschrijfwaardeTextBox.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) - Me.BreedteUitsparingOverschrijfwaardeTextBox.Name = "BreedteUitsparingOverschrijfwaardeTextBox" - Me.BreedteUitsparingOverschrijfwaardeTextBox.Size = New System.Drawing.Size(250, 68) - Me.BreedteUitsparingOverschrijfwaardeTextBox.TabIndex = 56 - Me.BreedteUitsparingOverschrijfwaardeTextBox.TabStop = false - ' 'Label7 ' Me.Label7.AutoSize = true @@ -450,18 +441,6 @@ Me.Label7.TabIndex = 59 Me.Label7.Text = "U2:" ' - 'DiepteUitsparingOverschrijfwaardeTextBox - ' - Me.DiepteUitsparingOverschrijfwaardeTextBox.Enabled = false - Me.DiepteUitsparingOverschrijfwaardeTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.DiepteUitsparingOverschrijfwaardeTextBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.DiepteUitsparingOverschrijfwaardeTextBox.Location = New System.Drawing.Point(341, 186) - Me.DiepteUitsparingOverschrijfwaardeTextBox.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) - Me.DiepteUitsparingOverschrijfwaardeTextBox.Name = "DiepteUitsparingOverschrijfwaardeTextBox" - Me.DiepteUitsparingOverschrijfwaardeTextBox.Size = New System.Drawing.Size(250, 68) - Me.DiepteUitsparingOverschrijfwaardeTextBox.TabIndex = 58 - Me.DiepteUitsparingOverschrijfwaardeTextBox.TabStop = false - ' 'Label11 ' Me.Label11.AutoSize = true @@ -472,18 +451,6 @@ Me.Label11.TabIndex = 61 Me.Label11.Text = "M:" ' - 'BreedteMiddenstukTextBox - ' - Me.BreedteMiddenstukTextBox.Enabled = false - Me.BreedteMiddenstukTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.BreedteMiddenstukTextBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.BreedteMiddenstukTextBox.Location = New System.Drawing.Point(88, 264) - Me.BreedteMiddenstukTextBox.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) - Me.BreedteMiddenstukTextBox.Name = "BreedteMiddenstukTextBox" - Me.BreedteMiddenstukTextBox.Size = New System.Drawing.Size(250, 68) - Me.BreedteMiddenstukTextBox.TabIndex = 60 - Me.BreedteMiddenstukTextBox.TabStop = false - ' 'BreedteUitsparingComboBox ' Me.BreedteUitsparingComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList @@ -512,27 +479,64 @@ ' 'GroupBox1 ' + Me.GroupBox1.Controls.Add(Me.DiepteUitsparingOverschrijfNumericUpDown) + Me.GroupBox1.Controls.Add(Me.BreedteUitsparingOverschrijfNumericUpDown) + Me.GroupBox1.Controls.Add(Me.BreedteMiddenstukNumericUpDown) Me.GroupBox1.Controls.Add(Me.Label14) Me.GroupBox1.Controls.Add(Me.DiepteUitsparingResetButton) Me.GroupBox1.Controls.Add(Me.DubbelCheckBox) Me.GroupBox1.Controls.Add(Me.Label13) Me.GroupBox1.Controls.Add(Me.Label12) Me.GroupBox1.Controls.Add(Me.BreedteUitsparingResetButton) - Me.GroupBox1.Controls.Add(Me.BreedteUitsparingOverschrijfwaardeTextBox) Me.GroupBox1.Controls.Add(Me.DiepteUitsparingComboBox) Me.GroupBox1.Controls.Add(Me.Label6) Me.GroupBox1.Controls.Add(Me.BreedteUitsparingComboBox) - Me.GroupBox1.Controls.Add(Me.DiepteUitsparingOverschrijfwaardeTextBox) Me.GroupBox1.Controls.Add(Me.Label11) Me.GroupBox1.Controls.Add(Me.Label7) - Me.GroupBox1.Controls.Add(Me.BreedteMiddenstukTextBox) Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!) Me.GroupBox1.Location = New System.Drawing.Point(507, 451) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(692, 342) Me.GroupBox1.TabIndex = 65 Me.GroupBox1.TabStop = false ' + 'DiepteUitsparingOverschrijfNumericUpDown + ' + Me.DiepteUitsparingOverschrijfNumericUpDown.Enabled = false + Me.DiepteUitsparingOverschrijfNumericUpDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.DiepteUitsparingOverschrijfNumericUpDown.ForeColor = System.Drawing.SystemColors.ControlText + Me.DiepteUitsparingOverschrijfNumericUpDown.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.DiepteUitsparingOverschrijfNumericUpDown.Location = New System.Drawing.Point(341, 186) + Me.DiepteUitsparingOverschrijfNumericUpDown.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.DiepteUitsparingOverschrijfNumericUpDown.Name = "DiepteUitsparingOverschrijfNumericUpDown" + Me.DiepteUitsparingOverschrijfNumericUpDown.Size = New System.Drawing.Size(250, 67) + Me.DiepteUitsparingOverschrijfNumericUpDown.TabIndex = 71 + ' + 'BreedteUitsparingOverschrijfNumericUpDown + ' + Me.BreedteUitsparingOverschrijfNumericUpDown.Enabled = false + Me.BreedteUitsparingOverschrijfNumericUpDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.BreedteUitsparingOverschrijfNumericUpDown.ForeColor = System.Drawing.SystemColors.ControlText + Me.BreedteUitsparingOverschrijfNumericUpDown.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.BreedteUitsparingOverschrijfNumericUpDown.Location = New System.Drawing.Point(341, 113) + Me.BreedteUitsparingOverschrijfNumericUpDown.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.BreedteUitsparingOverschrijfNumericUpDown.Name = "BreedteUitsparingOverschrijfNumericUpDown" + Me.BreedteUitsparingOverschrijfNumericUpDown.Size = New System.Drawing.Size(250, 67) + Me.BreedteUitsparingOverschrijfNumericUpDown.TabIndex = 70 + ' + 'BreedteMiddenstukNumericUpDown + ' + Me.BreedteMiddenstukNumericUpDown.DecimalPlaces = 1 + Me.BreedteMiddenstukNumericUpDown.Enabled = false + Me.BreedteMiddenstukNumericUpDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.BreedteMiddenstukNumericUpDown.ForeColor = System.Drawing.SystemColors.ControlText + Me.BreedteMiddenstukNumericUpDown.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.BreedteMiddenstukNumericUpDown.Location = New System.Drawing.Point(88, 264) + Me.BreedteMiddenstukNumericUpDown.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.BreedteMiddenstukNumericUpDown.Name = "BreedteMiddenstukNumericUpDown" + Me.BreedteMiddenstukNumericUpDown.Size = New System.Drawing.Size(250, 67) + Me.BreedteMiddenstukNumericUpDown.TabIndex = 66 + ' 'Label14 ' Me.Label14.AutoSize = true @@ -544,6 +548,7 @@ ' 'DiepteUitsparingResetButton ' + Me.DiepteUitsparingResetButton.Enabled = false Me.DiepteUitsparingResetButton.Location = New System.Drawing.Point(601, 185) Me.DiepteUitsparingResetButton.Name = "DiepteUitsparingResetButton" Me.DiepteUitsparingResetButton.Size = New System.Drawing.Size(68, 68) @@ -574,14 +579,15 @@ 'Label12 ' Me.Label12.AutoSize = true - Me.Label12.Location = New System.Drawing.Point(393, 56) + Me.Label12.Location = New System.Drawing.Point(370, 56) Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(145, 31) + Me.Label12.Size = New System.Drawing.Size(181, 31) Me.Label12.TabIndex = 66 - Me.Label12.Text = "Overschrijf" + Me.Label12.Text = "Overschrijven" ' 'BreedteUitsparingResetButton ' + Me.BreedteUitsparingResetButton.Enabled = false Me.BreedteUitsparingResetButton.Location = New System.Drawing.Point(601, 112) Me.BreedteUitsparingResetButton.Name = "BreedteUitsparingResetButton" Me.BreedteUitsparingResetButton.Size = New System.Drawing.Size(68, 68) @@ -604,15 +610,15 @@ Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.OnderdelenOplijstingDataGridView) Me.Controls.Add(Me.FoutmeldingOpzoekenLabel) - Me.Controls.Add(Me.FileNameTextBox) + Me.Controls.Add(Me.BestandsnaamTextBox) Me.Controls.Add(Me.VerwerkButton) Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.KleurBinnenTextBox) Me.Controls.Add(Me.Label61) Me.Controls.Add(Me.LblComboBoxDiepte) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) - Me.Controls.Add(Me.RestTextBox) + Me.Controls.Add(Me.RestPositieTextBox) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.NLTextBox) Me.Controls.Add(Me.Label1) @@ -629,6 +635,9 @@ CType(Me.PositieNumericUpDown,System.ComponentModel.ISupportInitialize).EndInit Me.GroupBox1.ResumeLayout(false) Me.GroupBox1.PerformLayout + CType(Me.DiepteUitsparingOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.BreedteUitsparingOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.BreedteMiddenstukNumericUpDown,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) Me.PerformLayout @@ -642,14 +651,14 @@ Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents NLTextBox As System.Windows.Forms.TextBox Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents RestTextBox As System.Windows.Forms.TextBox + Friend WithEvents RestPositieTextBox As System.Windows.Forms.TextBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents LblComboBoxDiepte As System.Windows.Forms.Label Friend WithEvents Label61 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents KleurBinnenTextBox As System.Windows.Forms.TextBox Friend WithEvents VerwerkButton As System.Windows.Forms.Button - Friend WithEvents FileNameTextBox As System.Windows.Forms.TextBox + Friend WithEvents BestandsnaamTextBox As System.Windows.Forms.TextBox Friend WithEvents FoutmeldingOpzoekenLabel As System.Windows.Forms.Label Friend WithEvents OnderdelenOplijstingDataGridView As System.Windows.Forms.DataGridView Friend WithEvents onderdeel As System.Windows.Forms.DataGridViewTextBoxColumn @@ -663,11 +672,8 @@ Friend WithEvents DiepteComboBox As System.Windows.Forms.ComboBox Friend WithEvents VerwerkingLabel As System.Windows.Forms.Label Friend WithEvents Label6 As Label - Friend WithEvents BreedteUitsparingOverschrijfwaardeTextBox As TextBox Friend WithEvents Label7 As Label - Friend WithEvents DiepteUitsparingOverschrijfwaardeTextBox As TextBox Friend WithEvents Label11 As Label - Friend WithEvents BreedteMiddenstukTextBox As TextBox Friend WithEvents BreedteUitsparingComboBox As ComboBox Friend WithEvents DiepteUitsparingComboBox As ComboBox Friend WithEvents GroupBox1 As GroupBox @@ -677,4 +683,7 @@ Friend WithEvents DubbelCheckBox As CheckBox Friend WithEvents DiepteUitsparingResetButton As Button Friend WithEvents Label14 As Label + Friend WithEvents DiepteUitsparingOverschrijfNumericUpDown As NumericUpDown + Friend WithEvents BreedteUitsparingOverschrijfNumericUpDown As NumericUpDown + Friend WithEvents BreedteMiddenstukNumericUpDown As NumericUpDown End Class Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb =================================================================== diff -u -r1627 -r1629 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb (.../SifonLadeDtoConverter.vb) (revision 1627) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb (.../SifonLadeDtoConverter.vb) (revision 1629) @@ -4,15 +4,12 @@ ''' Public Overrides Function FromDto(dto As SifonLadeDto) As ISifonLade Try - 'Instantie aanmaken en vullen met waarden uit DTO. - Return New SifonLadeV2 With { - .KastBreedte = dto.KastBreedte, - .LadeDiepte = dto.LadeDiepte, - .KleurBinnen = dto.KleurBinnen, - .PositieSifonuitsparingL = dto.PositieSifonuitsparingL, - .PositieSifonuitsparingR = dto.PositieSifonuitsparingR, - .BreedteSifonuitsparing = dto.BreedteSifonuitsparing, - .DiepteSifonuitsparing = dto.DiepteSifonuitsparing + 'Instantie aanmaken en vullen met de belangrijke waarden uit DTO. + Return New SifonLadeV2 With { + .PositieSifonuitsparingL = dto.PositieSifonuitsparingL, + .PositieSifonuitsparingR = dto.PositieSifonuitsparingR, + .BreedteSifonuitsparing = dto.BreedteSifonuitsparing, + .DiepteSifonuitsparing = dto.DiepteSifonuitsparing } Catch ex As InvalidCastException 'Type van property van DTO komt niet overeen met property van klasse. @@ -25,6 +22,8 @@ Try 'DTO aanmaken en vullen met waarden uit klasse (entiteit). Return New SifonLadeDto With { + .Bestandsnaam = entity.Bestandsnaam, + .Batch = entity.Batch, .KastBreedte = entity.KastBreedte, .LadeDiepte = entity.LadeDiepte, .KleurBinnen = entity.KleurBinnen, Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Zijkant.vb =================================================================== diff -u -r1627 -r1629 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Zijkant.vb (.../Zijkant.vb) (revision 1627) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/Zijkant.vb (.../Zijkant.vb) (revision 1629) @@ -1,9 +1,8 @@ Public Class Zijkant - Implements IHeeftDubbeleArdisData, IHeeftZijkamerFreesProductieData, IHeeftDubbeleKantenbandData + Implements IHeeftDubbeleArdisData, IHeeftZijkamerFreesProductieData, IHeeftKantenbandData Public Property ArdisDataL As ArdisData Implements IHeeftDubbeleArdisData.ArdisDataL Public Property ArdisDataR As ArdisData Implements IHeeftDubbeleArdisData.ArdisDataR Public Property ZijkamerFreesProductieData As ZijkamerFreesProductieData Implements IHeeftZijkamerFreesProductieData.ZijkamerFreesProductieData - Public Property KantenbandDataL As KantenbandData Implements IHeeftDubbeleKantenbandData.KantenbandDataL - Public Property KantenbandDataR As KantenbandData Implements IHeeftDubbeleKantenbandData.KantenbandDataR + Public Property KantenbandData As KantenbandData Implements IHeeftKantenbandData.KantenbandData End Class \ No newline at end of file Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb =================================================================== diff -u -r1628 -r1629 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb (.../ISifonLade.vb) (revision 1628) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb (.../ISifonLade.vb) (revision 1629) @@ -1,4 +1,8 @@ Public Interface ISifonLade + 'Properties + Property Bestandsnaam As String + Property Batch As String + 'Onderdelen Property BuitenzijkantL As Zijkant Property BuitenzijkanttR As Zijkant Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb =================================================================== diff -u -r1626 -r1629 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1626) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1629) @@ -2,14 +2,53 @@ Public Class FormSifonLade + Private Sub FormSpecialLade_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + Try + 'Verwerk status controleren. + If Not Configs.geefVerwerkStatus Then + 'Er wordt niet verwerkt. + 'Default ladecode invullen en melding tonen. + LadeCodeTextBox.Text = "DNYA" + VerwerkingLabel.Visible = True + End If + + 'De minimum en huidige waarde van de positie numeric up down instellen op minimum waarde. + PositieNumericUpDown.Minimum = Configs.sifonLadeGeefMinWaardePositie + PositieNumericUpDown.Value = Configs.sifonLadeGeefMinWaardePositie + 'De comboboxen vullen met vaste waarden. + BreedteComboBox.DataSource = Configs.sifonLadeBreedteUitsparing + DiepteComboBox.DataSource = Configs.dieptes + + Catch ex As Exception + MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) + Application.Exit() + End Try + End Sub + + Private Sub FormSpecialLade_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing + 'Sluiten van scherm sluit de applicatie. + Application.Exit() + End Sub + Private Sub TerugButton_Click(sender As Object, e As EventArgs) Handles TerugButton.Click 'Terug naar vorige form. FormController.getInstance.laadFormSpecialMenu(Me) End Sub + 'Als de gebruiker op het form klikt de focus uit alle elementen halen en gewoon op een random label zetten (zodat ze niet blijven typen in bijvoorbeeld een textbox). + Private Sub FormSpecialLade_Click(sender As System.Object, e As System.EventArgs) Handles MyBase.Click + 'Focus random label. + LblAantal.Focus() + End Sub + + 'Selectie van cellen in datagridview disablen. + Private Sub DataGridViewOnderdelenOplijsting_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles OnderdelenOplijstingDataGridView.SelectionChanged + OnderdelenOplijstingDataGridView.ClearSelection() + End Sub + #Region "Opzoeken" - Private Sub TextBoxLadeCode_TextChanged(sender As System.Object, e As System.EventArgs) Handles LadeCodeTextBox.TextChanged + Private Sub LadeCodeTextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles LadeCodeTextBox.TextChanged 'Controleren of de input tekst niet leeg is. If Not String.IsNullOrEmpty(LadeCodeTextBox.Text.Trim()) Then 'Tekst is niet leeg, kan zoeken. @@ -21,77 +60,129 @@ End Sub 'Enter drukken in de Ladecode input textbox zoekt ook. - Private Sub textBoxInput_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles LadeCodeTextBox.KeyDown + Private Sub LadeCodeTextBox_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles LadeCodeTextBox.KeyDown '"enter" onderscheppen. If e.KeyCode = Keys.Enter Then 'Informatie tonen. - toonInformatie() + ZoekSifonladeEnToonInformatie() 'Zorgen dat er geen nieuwe lijn wordt geplaatst door de "enter" te negeren. e.Handled = True End If End Sub Private Sub ZoekButton_Click(sender As Object, e As EventArgs) Handles ZoekButton.Click - toonInformatie() + ZoekSifonladeEnToonInformatie() End Sub #End Region - Private Sub ToonInformatie() - 'Velden leegmaken en buttons enable status goedzetten. - resetControls() + ''' + ''' Zoeken van de sifonlade en tonen van de initiële informatie. Dit betekent de ladecode, batch, enz... maar ook de verschillende velden. + ''' + Private Sub ZoekSifonladeEnToonInformatie() + 'todo Velden leegmaken en buttons enable status goedzetten. Try 'De special lade selecteren aan de hand van de ladecode en het type. 'Afhankelijk van het type zal de dubbele lade geselecteerd worden. - Domeincontroller.getInstance.kiesSpecialLaden(LadeCodeTextBox.Text, If(DubbelCheckBox.Checked, ItemType.SIFONLADE, ItemType.DUBBELESIFONLADE)) + 'todo vervangen door sifonlade controller + Domeincontroller.getInstance.kiesSpecialLaden(LadeCodeTextBox.Text, If(DubbelCheckBox.Checked, ItemType.Sifonlade, ItemType.DubbeleSifonlade)) Catch ex As Exception + 'Foutmelding tonen FoutmeldingOpzoekenLabel.Text = ex.Message + 'Tekst in input selecteren. LadeCodeTextBox.SelectAll() LadeCodeTextBox.Focus() Exit Sub End Try + Try - VerwerkButton.Enabled = True - BreedteComboBox.Enabled = True - PositieNumericUpDown.Enabled = True - Dim informatie As List(Of String) - 'kijken welke soort lade is geselecteerd - If Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SIFONLADE Then - 'de comboboxen vullen met de vaste waarden - BreedteComboBox.DataSource = Configs.sifonLadeBreedteUitsparing - DiepteComboBox.DataSource = Configs.dieptes - 'combobox diepte enablen - DiepteComboBox.Enabled = True - LblComboBoxDiepte.Visible = True - 'informatie opvragen - informatie = Domeincontroller.getInstance.geefInformatieSifonLade() - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DUBBELESIFONLADE Then - informatie = Domeincontroller.getInstance.geefInformatieSpoelbakLade() - 'de combobox vullen met de vaste waarden - BreedteComboBox.DataSource = Configs.spoelbakLadeBreedteUitsparing - Else - Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeSpecialLade) & " kon niet gebruikt worden in form special lade") - End If - FileNameTextBox.Text = informatie(0) - LWTextBox.Text = informatie(1) - NLTextBox.Text = informatie(2) - KleurBinnenTextBox.Text = informatie(3) - BatchTextBox.Text = informatie(4) - vulDataGridViewOnderdelenOplijsting() - LblAantal.Text = Domeincontroller.getInstance.geefAantalSpecialLaden() + 'Datagridview vullen met de onderdelen. + For Each onderdeelEnBarcode As String() In Domeincontroller.getInstance.geefSpecialLadenOnderdelenEnBarcodes + OnderdelenOplijstingDataGridView.Rows.Add(onderdeelEnBarcode.ToArray) + Next Catch ex As Exception - MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) + MessageBox.Show($"Kon onderdelen van de sifonlade niet weergeven. {vbNewLine}{ex.Message}", "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try + + 'Informatie tonen. + RefreshInformatie() End Sub +#Region "Update triggers" + 'Kleur van de dubbele sifonlade checkbox updaten en wijzigingen doorvoeren. + Private Sub DubbelCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles DubbelCheckBox.CheckedChanged + 'Sender casten naar object voor generiekheid en herbruikbaarheid van deze methode. + Dim checkbox = CType(sender, CheckBox) + + 'De status van de checkbox controleren. + If checkbox.Checked Then + 'De Checkbox is aangeduid, kleur aanpassen. + checkbox.BackColor = Color.LightGreen + Else + 'De checkbox is niet aangeduid, kleur op default zetten. + checkbox.BackColor = DefaultBackColor + End If + + 'Informatie updaten + VerwerkGewijzigdeInformatie() + End Sub + + 'NumericUpDowns + Private Sub NumericUpDown_ValueChanged(sender As System.Object, e As System.EventArgs) Handles PositieNumericUpDown.ValueChanged, + BreedteUitsparingOverschrijfNumericUpDown.ValueChanged, + DiepteUitsparingOverschrijfNumericUpDown.ValueChanged, + BreedteMiddenstukNumericUpDown.ValueChanged + VerwerkGewijzigdeInformatie() + End Sub + + 'Comboboxen + Private Sub ComboBox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles DiepteComboBox.SelectedIndexChanged, + BreedteComboBox.SelectedIndexChanged, + DiepteUitsparingComboBox.SelectedIndexChanged, _ + BreedteUitsparingComboBox.SelectedIndexChanged + VerwerkGewijzigdeInformatie() + End Sub + +#End Region + + ''' + ''' Registreren van gewijzigde informatie, opsturen naar domein en informatie updaten. + ''' + Private Sub VerwerkGewijzigdeInformatie() + 'todo Pas uitvoeren als alle informatie is ingeladen. Anders triggeren change events bij instellen van initïele waarden. + + 'Informatie tonen. + RefreshInformatie() + End Sub + + ''' + ''' Ophalen van de informatie voor de sifon lade en velden updaten. + ''' + Private Sub RefreshInformatie() + Try + 'Ophalen van de informatie. + Dim info = SifonLadeController.GetInstance().GeefInformatieSifonLade() + BestandsnaamTextBox.Text = info.Bestandsnaam + BatchTextBox.Text = info.Batch + LWTextBox.Text = info.KastBreedte + NLTextBox.Text = info.LadeDiepte + KleurBinnenTextBox.Text = info.KleurBinnen + RestPositieTextBox.Text = info.PositieSifonuitsparingR + Catch ex As Exception + MessageBox.Show($"Kon informatie van de sifonlade niet opvragen. {vbNewLine}{ex.Message}", "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End Sub + + 'todo functie voor enable state van velden te updaten + Private Sub resetControls() FoutmeldingOpzoekenLabel.Text = "" - FileNameTextBox.Text = "" + BestandsnaamTextBox.Text = "" PositieNumericUpDown.Value = PositieNumericUpDown.Minimum PositieNumericUpDown.BackColor = DefaultBackColor KleurBinnenTextBox.Text = "" LWTextBox.Text = "" NLTextBox.Text = "" - RestTextBox.Text = "" + RestPositieTextBox.Text = "" BatchTextBox.Text = "" VerwerkButton.Enabled = False OnderdelenOplijstingDataGridView.Rows.Clear() @@ -102,188 +193,20 @@ DiepteComboBox.DataSource = Nothing DiepteComboBox.Enabled = False LblComboBoxDiepte.Visible = False - RestTextBox.BackColor = DefaultBackColor + RestPositieTextBox.BackColor = DefaultBackColor End Sub - Private Sub laadVeldenEnInformatieSifonOfSpoelbak() - If radioSifon.Checked Then - 'de minimum waarde van de numeric up down instellen - PositieNumericUpDown.Minimum = Configs.sifonLadeGeefMinWaardePositie - PositieNumericUpDown.Value = Configs.sifonLadeGeefMinWaardePositie - PanelSifonTekening.Visible = True - PanelSpoelbakTekening.Visible = False - LblComboBoxDiepte.Visible = True - Label61.Text = "Rest positie:" - LblSifonDiepteUitsparing.Text = "" - LblSifonBreedteUitsparing.Text = "" - LblSifonBreedte.Text = "" - LblSifonDiepte.Text = "" - LblSifonPositieUitsparing.Text = "" - LblSifonRest.Text = "" - Else - 'de minimum waarde van de numeric up down instellen - PositieNumericUpDown.Minimum = -999 - PositieNumericUpDown.Value = 0 - PanelSifonTekening.Visible = False - PanelSpoelbakTekening.Visible = True - LblComboBoxDiepte.Visible = False - Label61.Text = "Nuttige ruimte:" - LblSpoelbakBreedte.Text = "" - LblSpoelbakBreedteUitsparing.Text = "" - LblSpoelbakDiepte.Text = "" - LblSpoelbakDiepteUitsparing.Text = "" - LblSpoelbakPositieUitsparing.Text = "" - LblSpoelbakRestBreedte.Text = "" - End If - End Sub - - Private Sub FormSpecialLade_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load - Try - 'label van wordt verwerkt laten zien of niet - VerwerkingLabel.Visible = Not Configs.geefVerwerkStatus - If Not Configs.geefVerwerkStatus Then - LadeCodeTextBox.Text = "DNYA" - End If - laadVeldenEnInformatieSifonOfSpoelbak() - Catch ex As Exception - MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) - Application.Exit() - End Try - End Sub - - Private Sub FormSpecialLade_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing - Application.Exit() - End Sub - - Private Sub RadioButtonSifon_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles radioSpoelbak.CheckedChanged, radioSifon.CheckedChanged - 'alle radiobuttons op default kleur zetten - radioSifon.BackColor = DefaultBackColor - radioSpoelbak.BackColor = DefaultBackColor - 'de radiobutton die werd geselecteerd casten en de kleur van aanpassen - CType(sender, RadioButton).BackColor = Color.LightGreen - 'de tekst in de textbox selecteren en de textbox focussen - LadeCodeTextBox.SelectAll() - LadeCodeTextBox.Focus() - - resetControls() - laadVeldenEnInformatieSifonOfSpoelbak() - End Sub - - 'datagridview vullen - Private Sub vulDataGridViewOnderdelenOplijsting() - For Each onderdeelEnBarcode As String() In Domeincontroller.getInstance.geefSpecialLadenOnderdelenEnBarcodes - OnderdelenOplijstingDataGridView.Rows.Add(onderdeelEnBarcode.ToArray) - Next - End Sub - - 'selectie van cellen in datagridview disablen - Private Sub DataGridViewOnderdelenOplijsting_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles OnderdelenOplijstingDataGridView.SelectionChanged - OnderdelenOplijstingDataGridView.ClearSelection() - End Sub - - 'elke keer als er een waarde wordt aangepast in de comboboxen of in de box met cijfers de rest positie updaten - Private Sub NumericUpDownBreedteSifon_ValueChanged(sender As System.Object, e As System.EventArgs) Handles PositieNumericUpDown.ValueChanged - updateAfbeeldingenEnVelden(True) - End Sub - 'als er in een van de comboboxen iets wordt aangepast - Private Sub ComboBoxDiepteSifon_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles DiepteComboBox.SelectedIndexChanged, BreedteComboBox.SelectedIndexChanged - updateAfbeeldingenEnVelden(False) - End Sub - Private Sub updateAfbeeldingenEnVelden(isNumericUpDown As Boolean) - If BreedteComboBox.SelectedIndex > -1 Then - Try - If Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SIFONLADE Then 'sifonlade geselecteerd? - PositieNumericUpDown.BackColor = DefaultBackColor - Domeincontroller.getInstance.sifonLadeStelPositieIn(PositieNumericUpDown.Value) - Domeincontroller.getInstance.sifonLadeStelBreedteIn(BreedteComboBox.SelectedItem) - Domeincontroller.getInstance.sifonLadeStelDiepteIn(DiepteComboBox.SelectedItem) - RestTextBox.Text = Domeincontroller.getInstance.geefRestSifon() - updateGetallenAfbeeldingSifon() - If CDbl(RestTextBox.Text) < Configs.sifonLadeGeefMinWaardeRestPositie Then - RestTextBox.BackColor = Color.Firebrick - LblSifonRest.BackColor = Color.Firebrick - VerwerkButton.Enabled = False - Else - RestTextBox.BackColor = DefaultBackColor - LblSifonRest.BackColor = Color.White - VerwerkButton.Enabled = True - End If - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DUBBELESIFONLADE Then 'spoelbaklade is gekozen - Domeincontroller.getInstance.spoelbakLadeStelBreedteIn(BreedteComboBox.SelectedItem) - RestTextBox.Text = Domeincontroller.getInstance.geefNuttigeRuimteZijvakkenSpoelbak() - If Not isNumericUpDown Then - 'de initiële positie laten berekenen en bijhouden - Domeincontroller.getInstance.spoelbakLadeStelInitiëlePositieIn() - Else - Domeincontroller.getInstance.spoelbakLadeStelPositieIn(PositieNumericUpDown.Value) - End If - PositieNumericUpDown.Value = Domeincontroller.getInstance.geefPositieUitsparingSpoelbak() - - updateGetallenAfbeeldingSpoelbak() - If CDbl(RestTextBox.Text) < Configs.spoelbakLadeGeefMinWaardeNuttigeRuimteZijvakken Then - RestTextBox.BackColor = Color.Firebrick - LblSifonRest.BackColor = Color.Firebrick - VerwerkButton.Enabled = False - Else - RestTextBox.BackColor = DefaultBackColor - LblSifonRest.BackColor = Color.White - VerwerkButton.Enabled = True - End If - Else - Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeSpecialLade) & " kon niet gebruikt worden in form special lade") - End If - Catch ex As Exception - PositieNumericUpDown.BackColor = Color.Firebrick - VerwerkButton.Enabled = False - End Try - End If - End Sub - - 'de cijfers bij de sifon afbeelding updaten - Private Sub updateGetallenAfbeeldingSifon() - Dim info As List(Of String) = Domeincontroller.getInstance.geefInformatieSifonLade - LblSifonBreedte.Text = info(5) - LblSifonBreedteUitsparing.Text = info(6) - LblSifonDiepte.Text = info(7) - LblSifonDiepteUitsparing.Text = info(8) - LblSifonPositieUitsparing.Text = info(9) - LblSifonRest.Text = info(10) - End Sub - - 'de cijfers bij de spoelbak afbeelding updaten - Private Sub updateGetallenAfbeeldingSpoelbak() - Dim info As List(Of String) = Domeincontroller.getInstance.geefInformatieSpoelbakLade() - LblSpoelbakBreedte.Text = info(5) - LblSpoelbakBreedteUitsparing.Text = info(6) - LblSpoelbakDiepte.Text = info(7) - LblSpoelbakDiepteUitsparing.Text = info(8) - LblSpoelbakPositieUitsparing.Text = info(9) - LblSpoelbakRestBreedte.Text = info(10) - End Sub - - Private Sub NumericUpDownPositieSifon_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles PositieNumericUpDown.KeyDown - If e.KeyCode = Keys.Enter Then - LblAantal.Focus() - e.Handled = True - End If - End Sub - - 'als de gebruiker op het form klikt de focus uit alle elementen halen en gewoon op een random label zetten (zodat ze niet lijven typen in bijvoorbeeld een textbox) - Private Sub FormSpecialLade_Click(sender As System.Object, e As System.EventArgs) Handles MyBase.Click - LblAantal.Focus() - End Sub - Private Sub BtnVerwerk_Click(sender As System.Object, e As System.EventArgs) Handles VerwerkButton.Click Try 'vragen aan de gebruiker of het bestand verplaatst moet worden If Domeincontroller.getInstance.heeftNogExtraSpecialLaden Then Dim result As DialogResult = MessageBox.Show("Wilt u de verwerkte sifon laden uit het tekst bestand halen? (De onverwerkte blijven sowieso staan)", "Extra special laden", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = Windows.Forms.DialogResult.Yes Then 'verplaatsen worden? - If Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SIFONLADE Then 'sifonlade geselecteerd? + If Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.Sifonlade Then 'sifonlade geselecteerd? If Configs.geefVerwerkStatus Then Domeincontroller.getInstance.verplaatsVerwerkteSifonLaden() 'verplaats End If - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DUBBELESIFONLADE Then 'spoelbak lade geselecteerd + ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.DubbeleSifonlade Then 'spoelbak lade geselecteerd If Configs.geefVerwerkStatus Then Domeincontroller.getInstance.verplaatsVerwerkteSpoelbakLaden() 'verplaats End If @@ -303,9 +226,4 @@ MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub - - Private Sub FormSpecialLade_VisibleChanged(sender As Object, e As System.EventArgs) Handles Me.VisibleChanged - resetControls() - End Sub - End Class \ No newline at end of file FishEye: Tag 1629 refers to a dead (removed) revision in file `TAOR-rework-bugfixing/TAOR rework/nieuwdomein/IHeeftEnkeleKantenbandData.vb'. FishEye: No comparison available. Pass `N' to diff?