Index: TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb =================================================================== diff -u -r2120 -r2121 --- TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb (.../ZijkantVoorraadItem.vb) (revision 2120) +++ TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb (.../ZijkantVoorraadItem.vb) (revision 2121) @@ -1,7 +1,7 @@ Public Class ZijkantVoorraadItem Implements IZijkantVoorraadItem - Public Sub New(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String, isSifonlade As Boolean, heeftHoogteVerstelling As Boolean) + Public Sub New(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String, isSifonlade As Boolean, heeftHoogteVerstelling As Boolean, opslaanArdis As Boolean) Me.Label = label Me.LinksOfRechts = linksOfRechts Me.Diepte = diepte @@ -11,6 +11,7 @@ Me.KleurBuiten = kleurBuiten Me.IsSifonlade = isSifonlade Me.HeeftHoogteVerstelling = heeftHoogteVerstelling + Me.OpslaanArdis = opslaanArdis End Sub #Region "properties" @@ -75,6 +76,9 @@ Public Property IsSifonlade As Boolean Implements IZijkantVoorraadItem.IsSifonlade Public Property HeeftHoogteVerstelling As Boolean Implements IZijkantVoorraadItem.HeeftHoogteVerstelling + + Public Property OpslaanArdis As Boolean Implements IZijkantVoorraadItem.OpslaanArdis + Property IsTweedeVanPaar As Boolean #End Region Index: TAOR rework/TAOR rework/Voorraad/zijkanten/IZijkantVoorraadItem.vb =================================================================== diff -u -r2120 -r2121 --- TAOR rework/TAOR rework/Voorraad/zijkanten/IZijkantVoorraadItem.vb (.../IZijkantVoorraadItem.vb) (revision 2120) +++ TAOR rework/TAOR rework/Voorraad/zijkanten/IZijkantVoorraadItem.vb (.../IZijkantVoorraadItem.vb) (revision 2121) @@ -8,4 +8,6 @@ ReadOnly Property KleurBuiten As String ReadOnly Property IsSifonlade As Boolean ReadOnly Property HeeftHoogteVerstelling As Boolean + + ReadOnly Property OpslaanArdis() As Boolean End Interface \ No newline at end of file Index: TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb =================================================================== diff -u -r2120 -r2121 --- TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb (.../FormVoorraad.vb) (revision 2120) +++ TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb (.../FormVoorraad.vb) (revision 2121) @@ -56,10 +56,10 @@ lblFoutmeldingToevoegen.Text = "" Try If RadioButtonLinksRechts.Checked Then ' als linksrechts is aangeduid een voorraad item tovoegen met links en eentje met rechts - Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Links, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked, CheckBoxHoogteVerstelling.Checked) - Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Rechts, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked, CheckBoxHoogteVerstelling.Checked) + Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Links, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked, CheckBoxHoogteVerstelling.Checked, CheckBoxOpslaanArdis.Checked) + Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Rechts, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked, CheckBoxHoogteVerstelling.Checked, CheckBoxOpslaanArdis.Checked) Else - Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, If(radioLinks.Checked, LinksOfRechts.Links, LinksOfRechts.Rechts), ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked, CheckBoxHoogteVerstelling.Checked) + Domeincontroller.getInstance.voegZijkantVoorraadItemToe(TextBoxLabelTekst.Text, If(radioLinks.Checked, LinksOfRechts.Links, LinksOfRechts.Rechts), ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked, CheckBoxHoogteVerstelling.Checked, CheckBoxOpslaanArdis.Checked) End If refreshVoorraadItemsGrid() Catch ex As Exception @@ -69,18 +69,27 @@ Private Sub genereerKolommenVoorraadItemsGrid() 'de kolommen toevoegen en benoemen - DataGridViewVoorraadItems.ColumnCount = 9 - DataGridViewVoorraadItems.Columns(1).Name = "Label" - DataGridViewVoorraadItems.Columns(2).Name = "Links of rechts" - DataGridViewVoorraadItems.Columns(3).Name = "Diepte" - DataGridViewVoorraadItems.Columns(4).Name = "Hoogte" - DataGridViewVoorraadItems.Columns(5).Name = "Kantenband" - DataGridViewVoorraadItems.Columns(6).Name = "Kleur binnen" - DataGridViewVoorraadItems.Columns(7).Name = "Kleur buiten" - DataGridViewVoorraadItems.Columns(8).Name = "Special lade" + Dim kolommen = New List(Of String) From { + "Label", + "Links of rechts", + "Diepte", + "Hoogte", + "Kantenband", + "Kleur binnen", + "Kleur buiten", + "Special lade", + "Hoogte verstelling", + "Opslaan Ardis" + } + DataGridViewVoorraadItems.ColumnCount = kolommen.Count + 1 + Dim i As Integer = 1 + For Each item In kolommen + DataGridViewVoorraadItems.Columns(i).Name = item + i += 1 + Next 'verwijder kolom achteraan zetten - DataGridViewVoorraadItems.Columns(0).DisplayIndex = DataGridViewVoorraadItems.ColumnCount - 1 + DataGridViewVoorraadItems.Columns(0).DisplayIndex = kolommen.Count End Sub Private Sub refreshVoorraadItemsGrid() @@ -93,7 +102,7 @@ For Each voorraadItem As IZijkantVoorraadItem In voorraadItems Dim linksOfRechts = [Enum].GetName(GetType(LinksOfRechts), voorraadItem.LinksOfRechts).ToLower linksOfRechts = linksOfRechts.Substring(0, 1).ToUpper + linksOfRechts.Substring(1) - Dim row As String() = New String() {"verwijder", voorraadItem.Label, linksOfRechts, voorraadItem.Diepte, voorraadItem.Hoogte, voorraadItem.Kantenband, voorraadItem.KleurBinnen, voorraadItem.KleurBuiten, voorraadItem.IsSifonlade} + Dim row As String() = New String() {"verwijder", voorraadItem.Label, linksOfRechts, voorraadItem.Diepte, voorraadItem.Hoogte, voorraadItem.Kantenband, voorraadItem.KleurBinnen, voorraadItem.KleurBuiten, voorraadItem.IsSifonlade, voorraadItem.HeeftHoogteVerstelling, voorraadItem.OpslaanArdis} DataGridViewVoorraadItems.Rows.Add(row) index += 1 Index: TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.Designer.vb =================================================================== diff -u -r2120 -r2121 --- TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.Designer.vb (.../FormVoorraad.Designer.vb) (revision 2120) +++ TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.Designer.vb (.../FormVoorraad.Designer.vb) (revision 2121) @@ -55,6 +55,7 @@ Me.ComboBoxKantenband = New System.Windows.Forms.ComboBox() Me.TextBoxLabelTekst = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() + Me.CheckBoxOpslaanArdis = New System.Windows.Forms.CheckBox() Me.Panel1.SuspendLayout() CType(Me.DataGridViewVoorraadItems, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -63,7 +64,7 @@ ' Me.btnTerug.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnTerug.Location = New System.Drawing.Point(1269, 4) + Me.btnTerug.Location = New System.Drawing.Point(1536, 4) Me.btnTerug.Name = "btnTerug" Me.btnTerug.Size = New System.Drawing.Size(228, 68) Me.btnTerug.TabIndex = 66 @@ -137,6 +138,7 @@ 'Panel1 ' Me.Panel1.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel1.Controls.Add(Me.CheckBoxOpslaanArdis) Me.Panel1.Controls.Add(Me.CheckBoxHoogteVerstelling) Me.Panel1.Controls.Add(Me.CheckBoxSifonlade) Me.Panel1.Controls.Add(Me.btnWisAlle) @@ -164,9 +166,9 @@ Me.Panel1.Controls.Add(Me.LblComboBoxDiepte) Me.Panel1.Controls.Add(Me.ComboBoxHoogte) Me.Panel1.Controls.Add(Me.ComboBoxDiepte) - Me.Panel1.Location = New System.Drawing.Point(103, 12) + Me.Panel1.Location = New System.Drawing.Point(67, 12) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1500, 950) + Me.Panel1.Size = New System.Drawing.Size(1767, 950) Me.Panel1.TabIndex = 60 ' 'CheckBoxHoogteVerstelling @@ -194,7 +196,7 @@ 'btnWisAlle ' Me.btnWisAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!) - Me.btnWisAlle.Location = New System.Drawing.Point(978, 491) + Me.btnWisAlle.Location = New System.Drawing.Point(1300, 488) Me.btnWisAlle.Margin = New System.Windows.Forms.Padding(3, 3, 125, 3) Me.btnWisAlle.Name = "btnWisAlle" Me.btnWisAlle.Size = New System.Drawing.Size(238, 53) @@ -235,7 +237,7 @@ Me.lblAantalVoorraadItems.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblAantalVoorraadItems.AutoSize = True Me.lblAantalVoorraadItems.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAantalVoorraadItems.Location = New System.Drawing.Point(1421, 573) + Me.lblAantalVoorraadItems.Location = New System.Drawing.Point(1688, 573) Me.lblAantalVoorraadItems.Name = "lblAantalVoorraadItems" Me.lblAantalVoorraadItems.Size = New System.Drawing.Size(23, 25) Me.lblAantalVoorraadItems.TabIndex = 79 @@ -247,7 +249,7 @@ Me.lblVerwerking.AutoSize = True Me.lblVerwerking.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblVerwerking.ForeColor = System.Drawing.Color.DarkRed - Me.lblVerwerking.Location = New System.Drawing.Point(1277, 772) + Me.lblVerwerking.Location = New System.Drawing.Point(1544, 772) Me.lblVerwerking.Name = "lblVerwerking" Me.lblVerwerking.Size = New System.Drawing.Size(197, 25) Me.lblVerwerking.TabIndex = 80 @@ -258,7 +260,7 @@ Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(1277, 573) + Me.Label5.Location = New System.Drawing.Point(1544, 573) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(130, 25) Me.Label5.TabIndex = 78 @@ -267,7 +269,7 @@ 'btnVerwerk ' Me.btnVerwerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnVerwerk.Location = New System.Drawing.Point(1282, 613) + Me.btnVerwerk.Location = New System.Drawing.Point(1559, 619) Me.btnVerwerk.Margin = New System.Windows.Forms.Padding(3, 3, 125, 3) Me.btnVerwerk.Name = "btnVerwerk" Me.btnVerwerk.Size = New System.Drawing.Size(162, 128) @@ -352,7 +354,7 @@ Me.DataGridViewVoorraadItems.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.DataGridViewVoorraadItems.RowTemplate.Height = 50 Me.DataGridViewVoorraadItems.RowTemplate.ReadOnly = True - Me.DataGridViewVoorraadItems.Size = New System.Drawing.Size(1209, 355) + Me.DataGridViewVoorraadItems.Size = New System.Drawing.Size(1531, 355) Me.DataGridViewVoorraadItems.TabIndex = 77 ' 'verwijderVoorraadItem @@ -444,11 +446,24 @@ Me.Label2.TabIndex = 60 Me.Label2.Text = "Label tekst:" ' + 'CheckBoxOpslaanArdis + ' + Me.CheckBoxOpslaanArdis.AutoSize = True + Me.CheckBoxOpslaanArdis.Checked = True + Me.CheckBoxOpslaanArdis.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBoxOpslaanArdis.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!) + Me.CheckBoxOpslaanArdis.Location = New System.Drawing.Point(1124, 387) + Me.CheckBoxOpslaanArdis.Name = "CheckBoxOpslaanArdis" + Me.CheckBoxOpslaanArdis.Size = New System.Drawing.Size(250, 43) + Me.CheckBoxOpslaanArdis.TabIndex = 86 + Me.CheckBoxOpslaanArdis.Text = "Opslaan Ardis" + Me.CheckBoxOpslaanArdis.UseVisualStyleBackColor = True + ' 'FormVoorraad ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1743, 982) + Me.ClientSize = New System.Drawing.Size(1924, 982) Me.Controls.Add(Me.Panel1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "FormVoorraad" @@ -489,4 +504,5 @@ Friend WithEvents btnWisAlle As System.Windows.Forms.Button Friend WithEvents CheckBoxSifonlade As CheckBox Friend WithEvents CheckBoxHoogteVerstelling As CheckBox + Friend WithEvents CheckBoxOpslaanArdis As CheckBox End Class Index: TAOR rework/TAOR rework/Voorraad/zijkanten/HoofdAansturingZijkantVoorraad.vb =================================================================== diff -u -r1900 -r2121 --- TAOR rework/TAOR rework/Voorraad/zijkanten/HoofdAansturingZijkantVoorraad.vb (.../HoofdAansturingZijkantVoorraad.vb) (revision 1900) +++ TAOR rework/TAOR rework/Voorraad/zijkanten/HoofdAansturingZijkantVoorraad.vb (.../HoofdAansturingZijkantVoorraad.vb) (revision 2121) @@ -18,9 +18,11 @@ End If 'Alles opslaan in Ardis (als laatste, want dit eet de $$$). - For Each zijkant As ArdisData In zijkantVoorraad.zijkantArdisDatas - slaOpInArdis(zijkant) - Next + If zijkantVoorraad.OpslaanArdis Then + For Each zijkant As ArdisData In zijkantVoorraad.ZijkantArdisDatas + SlaOpInArdis(zijkant) + Next + End If End Sub Private Sub SlaOpInAutomilling(zijkamerFreesProductieData As ZijkamerFreesProductieData) Index: TAOR rework/TAOR rework/controllers/Domeincontroller.vb =================================================================== diff -u -r2120 -r2121 --- TAOR rework/TAOR rework/controllers/Domeincontroller.vb (.../Domeincontroller.vb) (revision 2120) +++ TAOR rework/TAOR rework/controllers/Domeincontroller.vb (.../Domeincontroller.vb) (revision 2121) @@ -819,8 +819,8 @@ #Region "voorraad zijkanten" - Public Sub voegZijkantVoorraadItemToe(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String, isSifonlade As Boolean, heeftHoogteVerstelling As Boolean) - Dim zijkantVoorraadItem = New ZijkantVoorraadItem(label, linksOfRechts, diepte, hoogte, kantenband, kleurBinnen, kleurBuiten, isSifonlade, heeftHoogteVerstelling) + Public Sub voegZijkantVoorraadItemToe(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String, isSifonlade As Boolean, heeftHoogteVerstelling As Boolean, opslaanArdis As Boolean) + Dim zijkantVoorraadItem = New ZijkantVoorraadItem(label, linksOfRechts, diepte, hoogte, kantenband, kleurBinnen, kleurBuiten, isSifonlade, heeftHoogteVerstelling, opslaanArdis) zijkantVoorraadRepository.voegVoorraadItemToe(zijkantVoorraadItem) End Sub