Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/IResource.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/IResource.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/IResource.vb (revision 1634) @@ -0,0 +1,8 @@ +Public Interface IResource(of T) + ''' + ''' Items opvragen aan de hand van een sleutel. + ''' + ''' De sleutel + ''' Een lijst van items + Function GeefAlle(sleutel As string) As List(Of T) +End Interface Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/ISpecialLadenOnderdelen.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/ISpecialLadenOnderdelen.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/ISpecialLadenOnderdelen.vb (revision 1634) @@ -0,0 +1,5 @@ +Public Interface ISpecialLadenOnderdelen + ReadOnly Property bestandsNaam() As String + ReadOnly Property Zijkanten() As List(Of ArdisData) + +End Interface Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb =================================================================== diff -u -r1629 -r1634 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1629) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1634) @@ -24,7 +24,13 @@ Public Property LadeDiepte As Double Implements ISifonLade.LadeDiepte Public Property KleurBinnen As String Implements ISifonLade.KleurBinnen Public Property PositieSifonuitsparingL As Double Implements ISifonLade.PositieSifonuitsparingL - Public Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR + + Public ReadOnly Property PositieSifonuitsparingR As Double Implements ISifonLade.PositieSifonuitsparingR + Get + Return LadeDiepte - PositieSifonuitsparingL - BreedteSifonuitsparing + End Get + End Property + Public Property BreedteSifonuitsparing As Double Implements ISifonLade.BreedteSifonuitsparing Public Property DiepteSifonuitsparing As Double Implements ISifonLade.DiepteSifonuitsparing #End Region Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb =================================================================== diff -u -r1629 -r1634 --- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1629) +++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1634) @@ -2,22 +2,36 @@ Private Shared _instance As SifonLadeController Private ReadOnly _specialLadenRep As SpecialLadenRepository + Private ReadOnly _sifonladeManager As LadeManager(Of ISifonLade) - Public Sub New() - _specialLadenRep = New SpecialLadenRepository - End Sub - + ''' + ''' Singleton instantie opvragen. + ''' + ''' Instantie Public Shared Function GetInstance() As SifonLadeController If _instance Is Nothing Then _instance = New SifonLadeController End If Return _instance End Function - + + Public Sub New() + 'Repository + _specialLadenRep = New SpecialLadenRepository + End Sub + ''' - ''' Informatie opvragen over de sifonLade als DTO. + ''' Zoek de lade aan de hand van de lade code. ''' ''' + Public Function ZoekLade(ladeCode As String) As Boolean + + End Function + + ''' + ''' Informatie opvragen over de sifonLade als DTO. + ''' + ''' DTO met informatie Public Function GeefInformatieSifonLade() As SifonLadeDto 'De eerste sifonlade opvragen. Dim sifonLade As ISifonLade = _specialLadenRep.geefSifonLade(0) @@ -27,6 +41,18 @@ Return dtoConverter.ToDto(sifonLade) End Function + ''' + ''' Gewijzigde waarden van de sifon lade updaten. + ''' + ''' De DTO van de sifon lade + Public Sub UpdateWaardenSifonLade(sifonLadeDto As SifonLadeDto) + 'De DTO converter aanmaken. + Dim dtoConverter = New SifonLadeDtoConverter + 'Dto converteren naar sifon lade. + dtoConverter.FromDto(sifonLadeDto) + + End Sub + Private Sub verdeelSifonLadenOverReworkTrays() Dim zijkanten As New List(Of ArdisData) For Each sifonLade In _specialLadenRep.sifonLaden Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisTextMapper.vb =================================================================== diff -u -r1596 -r1634 --- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisTextMapper.vb (.../ArdisTextMapper.vb) (revision 1596) +++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisTextMapper.vb (.../ArdisTextMapper.vb) (revision 1634) @@ -261,8 +261,8 @@ ardisData.KamerfreesTrayId = velden(20) ardisData.KamerfreesSlotNr = velden(21) Else - ardisData.KamerfreesTrayId = "" - ardisData.KamerfreesSlotNr = "" + ardisData.KamerfreesTrayId = String.Empty + ardisData.KamerfreesSlotNr = String.Empty End If Return (ardisData) End Function Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/LadeManager.vb (revision 1634) @@ -0,0 +1,32 @@ +Public MustInherit Class LadeManager(Of T) + + Protected Laden As List(Of T) + + ''' + ''' Geen constructor zonder parameters. + ''' + Private Sub New() + End Sub + + ''' + ''' Initialiseren met lijst van laden. + ''' + ''' De laden + Public Sub New(laden As List(Of T)) + Me.Laden = laden + End Sub + + ''' + ''' Eerste lade opvragen of Nothing retourneren. (FirstOrDefault) + ''' + ''' Eerste lade of Nothing + Public Function EersteOfStandaard() As T + Return Laden.FirstOrDefault() + End Function + + ''' + ''' Alle laden updaten met waarden uit andere lade. + ''' + ''' De andere lade + Public MustOverride Sub UpdateAlle(gewijzigdeLade As T) +End Class Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb =================================================================== diff -u -r1629 -r1634 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb (.../SifonLadeDtoConverter.vb) (revision 1629) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/dto/SifonLadeDtoConverter.vb (.../SifonLadeDtoConverter.vb) (revision 1634) @@ -7,7 +7,6 @@ '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 } Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb (revision 1634) @@ -0,0 +1,3 @@ +Public Interface IMapper(of TGesrialiseerd, TGedeserialiseerd) + +End Interface Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb =================================================================== diff -u -r1629 -r1634 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1629) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1634) @@ -1,4 +1,5 @@ Imports System.Data.Odbc +Imports Microsoft.Office.Core Public Class FormSifonLade @@ -13,11 +14,10 @@ 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 + PositieUitsparingNumericUpDown.Minimum = Configs.sifonLadeGeefMinWaardePositie 'De comboboxen vullen met vaste waarden. - BreedteComboBox.DataSource = Configs.sifonLadeBreedteUitsparing - DiepteComboBox.DataSource = Configs.dieptes + BreedteUitsparingComboBox.DataSource = Configs.sifonLadeBreedteUitsparing + DiepteUitsparingComboBox.DataSource = Configs.dieptes Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) @@ -79,32 +79,51 @@ ''' 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. + 'Zoekbutton disablen, zodat geen twee keer kan gedrukt worden tijdens opzoeken. + ZoekButton.Enabled = False + 'Foutmelding label bij opzoeken leegmaken. + FoutmeldingOpzoekenLabel.Text = String.Empty + 'Datagridview leegmaken. + OnderdelenOplijstingDataGridView.Rows.Clear() + + 'Standaardwaarden herstellen. + ResetVeldenInhoud() + Try 'De special lade selecteren aan de hand van de ladecode en het type. 'Afhankelijk van het type zal de dubbele lade geselecteerd worden. 'todo vervangen door sifonlade controller Domeincontroller.getInstance.kiesSpecialLaden(LadeCodeTextBox.Text, If(DubbelCheckBox.Checked, ItemType.Sifonlade, ItemType.DubbeleSifonlade)) Catch ex As Exception - 'Foutmelding tonen + 'Foutmelding tonen. FoutmeldingOpzoekenLabel.Text = ex.Message + 'Tekst in input selecteren. LadeCodeTextBox.SelectAll() LadeCodeTextBox.Focus() + + 'Zoekbutton enablen. + ZoekButton.Enabled = True + + 'Functie verlaten. Exit Sub End Try + 'Zoekbutton enablen. + ZoekButton.Enabled = True + Try - 'Datagridview vullen met de onderdelen. + 'Datagridview vullen met de onderdelen, dit gebeurt eenmalig bij het opzoeken van de lade. + 'todo ophalen uit sifonladecontroller For Each onderdeelEnBarcode As String() In Domeincontroller.getInstance.geefSpecialLadenOnderdelenEnBarcodes OnderdelenOplijstingDataGridView.Rows.Add(onderdeelEnBarcode.ToArray) Next Catch ex As Exception 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() + 'Informatie tonen met standaard waarden. + VerwerkGewijzigdeInformatie() End Sub #Region "Update triggers" @@ -127,75 +146,127 @@ End Sub 'NumericUpDowns - Private Sub NumericUpDown_ValueChanged(sender As System.Object, e As System.EventArgs) Handles PositieNumericUpDown.ValueChanged, - BreedteUitsparingOverschrijfNumericUpDown.ValueChanged, - DiepteUitsparingOverschrijfNumericUpDown.ValueChanged, + Private Sub NumericUpDown_ValueChanged(sender As System.Object, e As System.EventArgs) Handles PositieUitsparingNumericUpDown.ValueChanged, + BreedteUitsparingDubbelOverschrijfNumericUpDown.ValueChanged, + DiepteUitsparingDubbelOverschrijfNumericUpDown.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 + Private Sub ComboBox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles DiepteUitsparingComboBox.SelectedIndexChanged, + BreedteUitsparingComboBox.SelectedIndexChanged, + DiepteUitsparingDubbelComboBox.SelectedIndexChanged, + BreedteUitsparingDubbelComboBox.SelectedIndexChanged VerwerkGewijzigdeInformatie() End Sub #End Region + 'Variabele om bij te houden of velden worden geüpdatet. + Private _updatingInformatie As Boolean = False ''' ''' Registreren van gewijzigde informatie, opsturen naar domein en informatie updaten. + ''' Pas uitvoeren als alle informatie is ingeladen. Anders triggeren change events bij instellen van initïele waarden. ''' Private Sub VerwerkGewijzigdeInformatie() - 'todo Pas uitvoeren als alle informatie is ingeladen. Anders triggeren change events bij instellen van initïele waarden. + 'Controleren of alle informatie is ingeladen. Wijzigen van waarden triggered events. + If _updatingInformatie Then + 'Functie werd aangeroepen door een trigger, negeren. + Return + End If + 'DTO aanmaken, vullen en naar domein sturen. + 'todo onderscheid maken tussen types dto + Try + 'DTO opvullen met enkel de waarden die kunnen wijzigen. + Dim sifonladeDTO = New SifonLadeDto With { + .BreedteSifonuitsparing = BreedteUitsparingComboBox.Text, + .DiepteSifonuitsparing = DiepteUitsparingComboBox.Text, + .PositieSifonuitsparingL = PositieUitsparingNumericUpDown.Value + } + 'Gewijzigde waarden doorgeven. + SifonLadeController.GetInstance().UpdateWaardenSifonLade(sifonladeDTO) + Catch invalidCastException As InvalidCastException + 'Ongeldige waarde dat een getal zou moeten zijn is doorgegeven. + MessageBox.Show($"Kan gewijzigde informatie van de sifonlade niet verwerken. Een van de opties bevat een ongeldige waarde.", "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) + Catch ex As Exception + MessageBox.Show($"Kan gewijzigde informatie van de sifonlade niet verwerken. {vbNewLine}{ex.Message}", "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + + 'Informatie wordt geüpdatet, toekomstige triggers zijn door deze wijzigingen. + _updatingInformatie = True + 'Informatie tonen. - RefreshInformatie() + LaadInformatie() + + 'Informatie is verwerkt en alle velden zijn gewijzigd. De functie zal nu opgeroepen worden met triggers afkomstig van de gebruiker. + _updatingInformatie = False End Sub ''' ''' Ophalen van de informatie voor de sifon lade en velden updaten. ''' - Private Sub RefreshInformatie() + Private Sub LaadInformatie() Try 'Ophalen van de informatie. Dim info = SifonLadeController.GetInstance().GeefInformatieSifonLade() + 'Informatie bovenaan BestandsnaamTextBox.Text = info.Bestandsnaam BatchTextBox.Text = info.Batch + 'Andere informatie LWTextBox.Text = info.KastBreedte NLTextBox.Text = info.LadeDiepte KleurBinnenTextBox.Text = info.KleurBinnen - RestPositieTextBox.Text = info.PositieSifonuitsparingR + RestPositieUitsparingTextBox.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 + ''' + ''' Alle velden: leegmaken of standaardwaarden herstellen. + ''' TextBoxen: leegmaken. ComboBoxen: eerste waarde selecteren. NumericUpDowns: minimum waarde selecteren. + ''' + Private Sub ResetVeldenInhoud() + 'Informatie bovenaan. + BestandsnaamTextBox.Text = String.Empty + BatchTextBox.Text = String.Empty + 'Normale sifon lade. + LWTextBox.Text = String.Empty + NLTextBox.Text = String.Empty + KleurBinnenTextBox.Text = String.Empty + If BreedteUitsparingComboBox.Items.Count > 0 Then + BreedteUitsparingComboBox.SelectedIndex = 0 + End If + If DiepteUitsparingComboBox.Items.Count > 0 Then + DiepteUitsparingComboBox.SelectedIndex = 0 + End If + PositieUitsparingNumericUpDown.Value = PositieUitsparingNumericUpDown.Minimum + RestPositieUitsparingTextBox.Text = String.Empty - Private Sub resetControls() - FoutmeldingOpzoekenLabel.Text = "" - BestandsnaamTextBox.Text = "" - PositieNumericUpDown.Value = PositieNumericUpDown.Minimum - PositieNumericUpDown.BackColor = DefaultBackColor - KleurBinnenTextBox.Text = "" - LWTextBox.Text = "" - NLTextBox.Text = "" - RestPositieTextBox.Text = "" - BatchTextBox.Text = "" - VerwerkButton.Enabled = False - OnderdelenOplijstingDataGridView.Rows.Clear() - LblAantal.Text = "" - PositieNumericUpDown.Enabled = False - BreedteComboBox.DataSource = Nothing - BreedteComboBox.Enabled = False - DiepteComboBox.DataSource = Nothing - DiepteComboBox.Enabled = False - LblComboBoxDiepte.Visible = False - RestPositieTextBox.BackColor = DefaultBackColor + 'Controleren of dubbele sifon lade is aangeduid. + If DubbelCheckBox.Checked Then + 'Dubbele sifon lade. + 'Breedte uitsparing + If BreedteUitsparingDubbelComboBox.Items.Count > 0 Then + BreedteUitsparingDubbelComboBox.SelectedIndex = 0 + End If + BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingDubbelOverschrijfNumericUpDown.Minimum + BreedteUitsparingDubbelResetButton.Enabled = False + 'Diepte uitsparing + If DiepteUitsparingDubbelComboBox.Items.Count > 0 Then + DiepteUitsparingDubbelComboBox.SelectedIndex = 0 + End If + DiepteUitsparingDubbelOverschrijfNumericUpDown.Value = DiepteUitsparingDubbelOverschrijfNumericUpDown.Minimum + DiepteUitsparingDubbelResetButton.Enabled = False + 'Breedte middenstuk + BreedteMiddenstukNumericUpDown.Value = BreedteMiddenstukNumericUpDown.Minimum + End If End Sub + 'todo functie voor enable state van velden te updaten + 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 Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb =================================================================== diff -u -r1629 -r1634 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb (.../FormSifonLade.Designer.vb) (revision 1629) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.Designer.vb (.../FormSifonLade.Designer.vb) (revision 1634) @@ -35,7 +35,7 @@ Me.Label3 = New System.Windows.Forms.Label() Me.NLTextBox = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() - Me.RestPositieTextBox = New System.Windows.Forms.TextBox() + Me.RestPositieUitsparingTextBox = 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() @@ -51,30 +51,30 @@ Me.LblAantal = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.BatchTextBox = New System.Windows.Forms.TextBox() - Me.PositieNumericUpDown = New System.Windows.Forms.NumericUpDown() - Me.BreedteComboBox = New System.Windows.Forms.ComboBox() - Me.DiepteComboBox = New System.Windows.Forms.ComboBox() + Me.PositieUitsparingNumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.BreedteUitsparingComboBox = New System.Windows.Forms.ComboBox() + Me.DiepteUitsparingComboBox = New System.Windows.Forms.ComboBox() Me.VerwerkingLabel = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() - Me.BreedteUitsparingComboBox = New System.Windows.Forms.ComboBox() - Me.DiepteUitsparingComboBox = New System.Windows.Forms.ComboBox() + Me.BreedteUitsparingDubbelComboBox = New System.Windows.Forms.ComboBox() + Me.DiepteUitsparingDubbelComboBox = 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.DiepteUitsparingDubbelOverschrijfNumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown = 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.DiepteUitsparingDubbelResetButton = New System.Windows.Forms.Button() Me.DubbelCheckBox = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() - Me.BreedteUitsparingResetButton = New System.Windows.Forms.Button() + Me.BreedteUitsparingDubbelResetButton = New System.Windows.Forms.Button() CType(Me.OnderdelenOplijstingDataGridView,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.PositieNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.PositieUitsparingNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit Me.GroupBox1.SuspendLayout - CType(Me.DiepteUitsparingOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit - CType(Me.BreedteUitsparingOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.DiepteUitsparingDubbelOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.BreedteUitsparingDubbelOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.BreedteMiddenstukNumericUpDown,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout ' @@ -175,17 +175,17 @@ Me.Label4.TabIndex = 26 Me.Label4.Text = "Z1 (breedte):" ' - 'RestPositieTextBox + 'RestPositieUitsparingTextBox ' - 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 + Me.RestPositieUitsparingTextBox.Enabled = false + Me.RestPositieUitsparingTextBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.RestPositieUitsparingTextBox.ForeColor = System.Drawing.SystemColors.ControlText + Me.RestPositieUitsparingTextBox.Location = New System.Drawing.Point(227, 788) + Me.RestPositieUitsparingTextBox.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) + Me.RestPositieUitsparingTextBox.Name = "RestPositieUitsparingTextBox" + Me.RestPositieUitsparingTextBox.Size = New System.Drawing.Size(250, 68) + Me.RestPositieUitsparingTextBox.TabIndex = 25 + Me.RestPositieUitsparingTextBox.TabStop = false ' 'Label5 ' @@ -370,44 +370,44 @@ Me.BatchTextBox.TabIndex = 45 Me.BatchTextBox.TabStop = false ' - 'PositieNumericUpDown + 'PositieUitsparingNumericUpDown ' - Me.PositieNumericUpDown.DecimalPlaces = 1 - Me.PositieNumericUpDown.Enabled = false - Me.PositieNumericUpDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) - Me.PositieNumericUpDown.ForeColor = System.Drawing.SystemColors.ControlText - Me.PositieNumericUpDown.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) - Me.PositieNumericUpDown.Location = New System.Drawing.Point(227, 715) - Me.PositieNumericUpDown.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) - Me.PositieNumericUpDown.Name = "PositieNumericUpDown" - Me.PositieNumericUpDown.Size = New System.Drawing.Size(250, 67) - Me.PositieNumericUpDown.TabIndex = 53 + Me.PositieUitsparingNumericUpDown.DecimalPlaces = 1 + Me.PositieUitsparingNumericUpDown.Enabled = false + Me.PositieUitsparingNumericUpDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.PositieUitsparingNumericUpDown.ForeColor = System.Drawing.SystemColors.ControlText + Me.PositieUitsparingNumericUpDown.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.PositieUitsparingNumericUpDown.Location = New System.Drawing.Point(227, 715) + Me.PositieUitsparingNumericUpDown.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.PositieUitsparingNumericUpDown.Name = "PositieUitsparingNumericUpDown" + Me.PositieUitsparingNumericUpDown.Size = New System.Drawing.Size(250, 67) + Me.PositieUitsparingNumericUpDown.TabIndex = 53 ' - 'BreedteComboBox + 'BreedteUitsparingComboBox ' - Me.BreedteComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.BreedteComboBox.Enabled = false - Me.BreedteComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!) - Me.BreedteComboBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.BreedteComboBox.FormattingEnabled = true - Me.BreedteComboBox.Location = New System.Drawing.Point(227, 566) - Me.BreedteComboBox.MaxDropDownItems = 15 - Me.BreedteComboBox.Name = "BreedteComboBox" - Me.BreedteComboBox.Size = New System.Drawing.Size(250, 69) - Me.BreedteComboBox.TabIndex = 50 + Me.BreedteUitsparingComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.BreedteUitsparingComboBox.Enabled = false + Me.BreedteUitsparingComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!) + Me.BreedteUitsparingComboBox.ForeColor = System.Drawing.SystemColors.ControlText + Me.BreedteUitsparingComboBox.FormattingEnabled = true + Me.BreedteUitsparingComboBox.Location = New System.Drawing.Point(227, 566) + Me.BreedteUitsparingComboBox.MaxDropDownItems = 15 + Me.BreedteUitsparingComboBox.Name = "BreedteUitsparingComboBox" + Me.BreedteUitsparingComboBox.Size = New System.Drawing.Size(250, 69) + Me.BreedteUitsparingComboBox.TabIndex = 50 ' - 'DiepteComboBox + 'DiepteUitsparingComboBox ' - Me.DiepteComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.DiepteComboBox.Enabled = false - Me.DiepteComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!) - Me.DiepteComboBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.DiepteComboBox.FormattingEnabled = true - Me.DiepteComboBox.Location = New System.Drawing.Point(227, 641) - Me.DiepteComboBox.MaxDropDownItems = 15 - Me.DiepteComboBox.Name = "DiepteComboBox" - Me.DiepteComboBox.Size = New System.Drawing.Size(250, 69) - Me.DiepteComboBox.TabIndex = 51 + Me.DiepteUitsparingComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.DiepteUitsparingComboBox.Enabled = false + Me.DiepteUitsparingComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!) + Me.DiepteUitsparingComboBox.ForeColor = System.Drawing.SystemColors.ControlText + Me.DiepteUitsparingComboBox.FormattingEnabled = true + Me.DiepteUitsparingComboBox.Location = New System.Drawing.Point(227, 641) + Me.DiepteUitsparingComboBox.MaxDropDownItems = 15 + Me.DiepteUitsparingComboBox.Name = "DiepteUitsparingComboBox" + Me.DiepteUitsparingComboBox.Size = New System.Drawing.Size(250, 69) + Me.DiepteUitsparingComboBox.TabIndex = 51 ' 'VerwerkingLabel ' @@ -451,46 +451,46 @@ Me.Label11.TabIndex = 61 Me.Label11.Text = "M:" ' - 'BreedteUitsparingComboBox + 'BreedteUitsparingDubbelComboBox ' - Me.BreedteUitsparingComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.BreedteUitsparingComboBox.Enabled = false - Me.BreedteUitsparingComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!) - Me.BreedteUitsparingComboBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.BreedteUitsparingComboBox.FormattingEnabled = true - Me.BreedteUitsparingComboBox.Location = New System.Drawing.Point(88, 112) - Me.BreedteUitsparingComboBox.MaxDropDownItems = 15 - Me.BreedteUitsparingComboBox.Name = "BreedteUitsparingComboBox" - Me.BreedteUitsparingComboBox.Size = New System.Drawing.Size(250, 69) - Me.BreedteUitsparingComboBox.TabIndex = 62 + Me.BreedteUitsparingDubbelComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.BreedteUitsparingDubbelComboBox.Enabled = false + Me.BreedteUitsparingDubbelComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!) + Me.BreedteUitsparingDubbelComboBox.ForeColor = System.Drawing.SystemColors.ControlText + Me.BreedteUitsparingDubbelComboBox.FormattingEnabled = true + Me.BreedteUitsparingDubbelComboBox.Location = New System.Drawing.Point(88, 112) + Me.BreedteUitsparingDubbelComboBox.MaxDropDownItems = 15 + Me.BreedteUitsparingDubbelComboBox.Name = "BreedteUitsparingDubbelComboBox" + Me.BreedteUitsparingDubbelComboBox.Size = New System.Drawing.Size(250, 69) + Me.BreedteUitsparingDubbelComboBox.TabIndex = 62 ' - 'DiepteUitsparingComboBox + 'DiepteUitsparingDubbelComboBox ' - Me.DiepteUitsparingComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.DiepteUitsparingComboBox.Enabled = false - Me.DiepteUitsparingComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!) - Me.DiepteUitsparingComboBox.ForeColor = System.Drawing.SystemColors.ControlText - Me.DiepteUitsparingComboBox.FormattingEnabled = true - Me.DiepteUitsparingComboBox.Location = New System.Drawing.Point(88, 185) - Me.DiepteUitsparingComboBox.MaxDropDownItems = 15 - Me.DiepteUitsparingComboBox.Name = "DiepteUitsparingComboBox" - Me.DiepteUitsparingComboBox.Size = New System.Drawing.Size(250, 69) - Me.DiepteUitsparingComboBox.TabIndex = 63 + Me.DiepteUitsparingDubbelComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.DiepteUitsparingDubbelComboBox.Enabled = false + Me.DiepteUitsparingDubbelComboBox.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!) + Me.DiepteUitsparingDubbelComboBox.ForeColor = System.Drawing.SystemColors.ControlText + Me.DiepteUitsparingDubbelComboBox.FormattingEnabled = true + Me.DiepteUitsparingDubbelComboBox.Location = New System.Drawing.Point(88, 185) + Me.DiepteUitsparingDubbelComboBox.MaxDropDownItems = 15 + Me.DiepteUitsparingDubbelComboBox.Name = "DiepteUitsparingDubbelComboBox" + Me.DiepteUitsparingDubbelComboBox.Size = New System.Drawing.Size(250, 69) + Me.DiepteUitsparingDubbelComboBox.TabIndex = 63 ' 'GroupBox1 ' - Me.GroupBox1.Controls.Add(Me.DiepteUitsparingOverschrijfNumericUpDown) - Me.GroupBox1.Controls.Add(Me.BreedteUitsparingOverschrijfNumericUpDown) + Me.GroupBox1.Controls.Add(Me.DiepteUitsparingDubbelOverschrijfNumericUpDown) + Me.GroupBox1.Controls.Add(Me.BreedteUitsparingDubbelOverschrijfNumericUpDown) Me.GroupBox1.Controls.Add(Me.BreedteMiddenstukNumericUpDown) Me.GroupBox1.Controls.Add(Me.Label14) - Me.GroupBox1.Controls.Add(Me.DiepteUitsparingResetButton) + Me.GroupBox1.Controls.Add(Me.DiepteUitsparingDubbelResetButton) 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.DiepteUitsparingComboBox) + Me.GroupBox1.Controls.Add(Me.BreedteUitsparingDubbelResetButton) + Me.GroupBox1.Controls.Add(Me.DiepteUitsparingDubbelComboBox) Me.GroupBox1.Controls.Add(Me.Label6) - Me.GroupBox1.Controls.Add(Me.BreedteUitsparingComboBox) + Me.GroupBox1.Controls.Add(Me.BreedteUitsparingDubbelComboBox) Me.GroupBox1.Controls.Add(Me.Label11) Me.GroupBox1.Controls.Add(Me.Label7) Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!) @@ -500,29 +500,29 @@ Me.GroupBox1.TabIndex = 65 Me.GroupBox1.TabStop = false ' - 'DiepteUitsparingOverschrijfNumericUpDown + 'DiepteUitsparingDubbelOverschrijfNumericUpDown ' - 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 + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.Enabled = false + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.ForeColor = System.Drawing.SystemColors.ControlText + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.Location = New System.Drawing.Point(341, 186) + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.Name = "DiepteUitsparingDubbelOverschrijfNumericUpDown" + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.Size = New System.Drawing.Size(250, 67) + Me.DiepteUitsparingDubbelOverschrijfNumericUpDown.TabIndex = 71 ' - 'BreedteUitsparingOverschrijfNumericUpDown + 'BreedteUitsparingDubbelOverschrijfNumericUpDown ' - 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 + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.Enabled = false + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.Font = New System.Drawing.Font("Microsoft Sans Serif", 39.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.ForeColor = System.Drawing.SystemColors.ControlText + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.Increment = New Decimal(New Integer() {1, 0, 0, 65536}) + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.Location = New System.Drawing.Point(341, 113) + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.Maximum = New Decimal(New Integer() {999, 0, 0, 0}) + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.Name = "BreedteUitsparingDubbelOverschrijfNumericUpDown" + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.Size = New System.Drawing.Size(250, 67) + Me.BreedteUitsparingDubbelOverschrijfNumericUpDown.TabIndex = 70 ' 'BreedteMiddenstukNumericUpDown ' @@ -546,14 +546,14 @@ Me.Label14.TabIndex = 69 Me.Label14.Text = "Reset" ' - 'DiepteUitsparingResetButton + 'DiepteUitsparingDubbelResetButton ' - 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) - Me.DiepteUitsparingResetButton.TabIndex = 68 - Me.DiepteUitsparingResetButton.UseVisualStyleBackColor = true + Me.DiepteUitsparingDubbelResetButton.Enabled = false + Me.DiepteUitsparingDubbelResetButton.Location = New System.Drawing.Point(601, 185) + Me.DiepteUitsparingDubbelResetButton.Name = "DiepteUitsparingDubbelResetButton" + Me.DiepteUitsparingDubbelResetButton.Size = New System.Drawing.Size(68, 68) + Me.DiepteUitsparingDubbelResetButton.TabIndex = 68 + Me.DiepteUitsparingDubbelResetButton.UseVisualStyleBackColor = true ' 'DubbelCheckBox ' @@ -585,14 +585,14 @@ Me.Label12.TabIndex = 66 Me.Label12.Text = "Overschrijven" ' - 'BreedteUitsparingResetButton + 'BreedteUitsparingDubbelResetButton ' - 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) - Me.BreedteUitsparingResetButton.TabIndex = 65 - Me.BreedteUitsparingResetButton.UseVisualStyleBackColor = true + Me.BreedteUitsparingDubbelResetButton.Enabled = false + Me.BreedteUitsparingDubbelResetButton.Location = New System.Drawing.Point(601, 112) + Me.BreedteUitsparingDubbelResetButton.Name = "BreedteUitsparingDubbelResetButton" + Me.BreedteUitsparingDubbelResetButton.Size = New System.Drawing.Size(68, 68) + Me.BreedteUitsparingDubbelResetButton.TabIndex = 65 + Me.BreedteUitsparingDubbelResetButton.UseVisualStyleBackColor = true ' 'FormSifonLade ' @@ -601,9 +601,9 @@ Me.ClientSize = New System.Drawing.Size(1904, 1042) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.VerwerkingLabel) - Me.Controls.Add(Me.DiepteComboBox) - Me.Controls.Add(Me.BreedteComboBox) - Me.Controls.Add(Me.PositieNumericUpDown) + Me.Controls.Add(Me.DiepteUitsparingComboBox) + Me.Controls.Add(Me.BreedteUitsparingComboBox) + Me.Controls.Add(Me.PositieUitsparingNumericUpDown) Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.BatchTextBox) Me.Controls.Add(Me.LblAantal) @@ -618,7 +618,7 @@ Me.Controls.Add(Me.LblComboBoxDiepte) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) - Me.Controls.Add(Me.RestPositieTextBox) + Me.Controls.Add(Me.RestPositieUitsparingTextBox) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.NLTextBox) Me.Controls.Add(Me.Label1) @@ -632,11 +632,11 @@ Me.Text = "TA'OR rework - Special lade" Me.WindowState = System.Windows.Forms.FormWindowState.Maximized CType(Me.OnderdelenOplijstingDataGridView,System.ComponentModel.ISupportInitialize).EndInit - CType(Me.PositieNumericUpDown,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.PositieUitsparingNumericUpDown,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.DiepteUitsparingDubbelOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.BreedteUitsparingDubbelOverschrijfNumericUpDown,System.ComponentModel.ISupportInitialize).EndInit CType(Me.BreedteMiddenstukNumericUpDown,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) Me.PerformLayout @@ -651,7 +651,7 @@ 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 RestPositieTextBox As System.Windows.Forms.TextBox + Friend WithEvents RestPositieUitsparingTextBox 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 @@ -667,23 +667,23 @@ Friend WithEvents LblAantal As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents BatchTextBox As System.Windows.Forms.TextBox - Friend WithEvents PositieNumericUpDown As System.Windows.Forms.NumericUpDown - Friend WithEvents BreedteComboBox As System.Windows.Forms.ComboBox - Friend WithEvents DiepteComboBox As System.Windows.Forms.ComboBox + Friend WithEvents PositieUitsparingNumericUpDown As System.Windows.Forms.NumericUpDown + Friend WithEvents BreedteUitsparingComboBox As System.Windows.Forms.ComboBox + Friend WithEvents DiepteUitsparingComboBox As System.Windows.Forms.ComboBox Friend WithEvents VerwerkingLabel As System.Windows.Forms.Label Friend WithEvents Label6 As Label Friend WithEvents Label7 As Label Friend WithEvents Label11 As Label - Friend WithEvents BreedteUitsparingComboBox As ComboBox - Friend WithEvents DiepteUitsparingComboBox As ComboBox + Friend WithEvents BreedteUitsparingDubbelComboBox As ComboBox + Friend WithEvents DiepteUitsparingDubbelComboBox As ComboBox Friend WithEvents GroupBox1 As GroupBox Friend WithEvents Label12 As Label - Friend WithEvents BreedteUitsparingResetButton As Button + Friend WithEvents BreedteUitsparingDubbelResetButton As Button Friend WithEvents Label13 As Label Friend WithEvents DubbelCheckBox As CheckBox - Friend WithEvents DiepteUitsparingResetButton As Button + Friend WithEvents DiepteUitsparingDubbelResetButton As Button Friend WithEvents Label14 As Label - Friend WithEvents DiepteUitsparingOverschrijfNumericUpDown As NumericUpDown - Friend WithEvents BreedteUitsparingOverschrijfNumericUpDown As NumericUpDown + Friend WithEvents DiepteUitsparingDubbelOverschrijfNumericUpDown As NumericUpDown + Friend WithEvents BreedteUitsparingDubbelOverschrijfNumericUpDown As NumericUpDown Friend WithEvents BreedteMiddenstukNumericUpDown As NumericUpDown End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/SpecialLadenOnderdelenNieuw.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/SpecialLadenOnderdelenNieuw.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/SpecialLadenOnderdelenNieuw.vb (revision 1634) @@ -0,0 +1,4 @@ +Public Class SpecialLadenOnderdelenNieuw + Implements ISpecialLadenOnderdelen + +End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb =================================================================== diff -u -r1629 -r1634 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb (.../ISifonLade.vb) (revision 1629) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/ISifonLade.vb (.../ISifonLade.vb) (revision 1634) @@ -18,7 +18,7 @@ Property LadeDiepte As Double Property KleurBinnen As String Property PositieSifonuitsparingL As Double - Property PositieSifonuitsparingR As Double + ReadOnly Property PositieSifonuitsparingR As Double Property BreedteSifonuitsparing As Double Property DiepteSifonuitsparing As Double End Interface Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/SifonLadeResource.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/SifonLadeResource.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/SifonLadeResource.vb (revision 1634) @@ -0,0 +1,13 @@ +Public Class SifonLadeResource + Implements IResource(Of SifonLade) + + Private _specialLadenOnderdelen As ISpecialLadenOnderdelen + + Public Sub New(specialLadenOnderdelen As ISpecialLadenOnderdelen) + _specialLadenOnderdelen = specialLadenOnderdelen + End Sub + + Public Function GeefAlle(sleutel As String) As List(Of SifonLade) Implements IResource(Of SifonLade).GeefAlle + + End Function +End Class Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb =================================================================== diff -u --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb (revision 0) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/SifonLadeManager.vb (revision 1634) @@ -0,0 +1,22 @@ +Imports TA_OR_rework + +Public Class SifonLadeManager + Inherits LadeManager(of ISifonLade) + + ''' + public sub New(laden As List(Of ISifonLade)) + MyBase.New(laden) + End sub + + ''' + public overrides sub UpdateAlle(gewijzigdeLade As ISifonLade) + 'Alle sifon laden overlopen. + for each sifonLade In Laden + 'Updaten met wijzigbare waarden. + sifonLade.BreedteSifonuitsparing = gewijzigdeLade.BreedteSifonuitsparing + sifonLade.DiepteSifonuitsparing = gewijzigdeLade.DiepteSifonuitsparing + sifonLade.PositieSifonuitsparingL = gewijzigdeLade.PositieSifonuitsparingL + Next + End sub + +End Class