Index: TAOR rework/TAOR rework/Voorraad/fronten/HoofdAansturingFrontVoorraad.vb
===================================================================
diff -u
--- TAOR rework/TAOR rework/Voorraad/fronten/HoofdAansturingFrontVoorraad.vb	(revision 0)
+++ TAOR rework/TAOR rework/Voorraad/fronten/HoofdAansturingFrontVoorraad.vb	(revision 1901)
@@ -0,0 +1,25 @@
+Module HoofdAansturingFrontVoorraad
+
+    ''' <summary>
+    ''' Opslaan van front voorraad item in de verschillende databanken.
+    ''' </summary>
+    ''' <param name="voorraadItem"></param>
+    Public Sub OpslaanVoorraadItem(voorraadItem As FrontVoorraadItem)
+        SlaOpInKantenband(voorraadItem.KantenbandData)
+        'Alles opslaan in Ardis (als laatste, want dit eet de $$$).
+        SlaOpInArdis(voorraadItem.ArdisData)
+    End Sub
+
+    Private Sub SlaOpInKantenband(frontKantenbandData As KantenbandData)
+        If Configs.geefVerwerkStatus Then
+            KantenbandMapper.Opslaan(frontKantenbandData)
+        End If
+    End Sub
+
+    Private Sub SlaOpInArdis(onderdeel As ArdisData)
+        If Configs.geefVerwerkStatus Then
+            ArdisTextMapper.opslaan(ItemType.Voorraad, onderdeel, "", "")
+        End If
+    End Sub
+
+End Module
Index: TAOR rework/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1900 -r1901
--- TAOR rework/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1900)
+++ TAOR rework/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1901)
@@ -321,10 +321,14 @@
     <Compile Include="laden\Testladen\TestLaden.vb" />
     <Compile Include="laden\Testladen\TestLadenRepository.vb" />
     <Compile Include="laden\Testladen\HoofdAansturingTestLade.vb" />
-    <Compile Include="Voorraad\IZijkantVoorraadItem.vb" />
-    <Compile Include="Voorraad\ZijkantVoorraadItem.vb" />
-    <Compile Include="Voorraad\HoofdAansturingZijkantVoorraad.vb" />
-    <Compile Include="Voorraad\ZijkantVoorraadItemRepository.vb" />
+    <Compile Include="Voorraad\fronten\FrontenVoorraadItemRepository.vb" />
+    <Compile Include="Voorraad\fronten\HoofdAansturingFrontVoorraad.vb" />
+    <Compile Include="Voorraad\fronten\IFrontVoorraadItem.vb" />
+    <Compile Include="Voorraad\fronten\FrontVoorraadItem.vb" />
+    <Compile Include="Voorraad\zijkanten\IZijkantVoorraadItem.vb" />
+    <Compile Include="Voorraad\zijkanten\ZijkantVoorraadItem.vb" />
+    <Compile Include="Voorraad\zijkanten\HoofdAansturingZijkantVoorraad.vb" />
+    <Compile Include="Voorraad\zijkanten\ZijkantVoorraadItemRepository.vb" />
     <Compile Include="Configuraties\config text mappers\WaardenSifonLadeTextMapper.vb" />
     <Compile Include="databases\Automilling\ZijkamerFreesProductieData.vb" />
   </ItemGroup>
Index: TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb
===================================================================
diff -u -r1900 -r1901
--- TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb	(.../FrontVoorraadItem.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb	(.../FrontVoorraadItem.vb)	(revision 1901)
@@ -1,12 +1,75 @@
 Public Class FrontVoorraadItem
     Implements IFrontVoorraadItem
 
+    Public Sub New(label As String, breedte As Double, hoogte As String, materiaal As String, kantenband As String,letterBarcode As String)
+        Me.Label = label
+        Me.Breedte = breedte
+        Me.Hoogte = hoogte
+        Me.Materiaal = materiaal
+        Me.Kantenband = kantenband
+        Me.LetterBarcode = letterBarcode
+    End Sub
+
 #Region "properties"
+    Private _ardisData As ArdisData
+    Public ReadOnly Property ArdisData As ArdisData
+        Get
+            If _ardisData Is Nothing Then
+                Throw New Exception("De front Ardis datas zijn nog niet gegenereerd.")
+            End If
+            Return _ardisData
+        End Get
+    End Property
 
+    Private _kantenbandData As KantenbandData
+    Public ReadOnly Property KantenbandData As KantenbandData
+        Get
+            If _kantenbandData Is Nothing Then
+                Throw New Exception("De front KantenbandData data is nog niet gegenereerd.")
+            End If
+            Return _kantenbandData
+        End Get
+    End Property
+
+    Private _label As String
+    Public Property Label() As String Implements IFrontVoorraadItem.Label
+        Get
+            Return _label
+        End Get
+        Set
+            If String.IsNullOrEmpty(Value) OrElse String.IsNullOrEmpty(Value.Trim) Then
+                Throw New Exception("Label tekst mag niet leeg zijn.")
+            End If
+            _label = Value.Trim
+        End Set
+    End Property
+
+    Public Property Breedte As Double Implements IFrontVoorraadItem.Breedte
+    Public Property Hoogte As String Implements IFrontVoorraadItem.Hoogte
+    Public Property Materiaal As String Implements IFrontVoorraadItem.Materiaal
+    Public Property Kantenband As String Implements IFrontVoorraadItem.Kantenband
+    Private _letterBarcode As String
+    Public Property LetterBarcode() As String Implements IFrontVoorraadItem.LetterBarcode
+        Get
+            Return _letterBarcode
+        End Get
+        Set
+            If String.IsNullOrEmpty(Value) OrElse String.IsNullOrEmpty(Value.Trim) Then
+                Throw New Exception("Letter barcode mag niet leeg zijn.")
+            ElseIf Not Value.Length = 1 Then
+                Throw New Exception("Letter barcode mag maar 1 letter lang zijn.")
+            End If
+            _letterBarcode = Value
+        End Set
+    End Property
 #End Region
 
     Public Sub GenereerZijkantArdisData()
 
     End Sub
 
+    Public Sub GenereerKantenbandData()
+
+    End Sub
+
 End Class
Index: TAOR rework/TAOR rework/controllers/Domeincontroller.vb
===================================================================
diff -u -r1900 -r1901
--- TAOR rework/TAOR rework/controllers/Domeincontroller.vb	(.../Domeincontroller.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/controllers/Domeincontroller.vb	(.../Domeincontroller.vb)	(revision 1901)
@@ -10,7 +10,8 @@
     Private testLadenRep As TestLadenRepository
     Private hoofdAansturingRework As HoofdAansturingRework
     Private specialLadenRep As SpecialLadenRepository
-    Private _zijkantZijkantVoorraadRepository As ZijkantVoorraadItemRepository
+    Private zijkantVoorraadRepository As ZijkantVoorraadItemRepository
+    Private frontVoorraadRepository As FrontenVoorraadItemRepository
     Private stalenRepository As StalenRepository
 
     Private Sub New()
@@ -21,7 +22,8 @@
         testLadenRep = New TestLadenRepository
         hoofdAansturingRework = New HoofdAansturingRework
         specialLadenRep = New SpecialLadenRepository
-        _zijkantZijkantVoorraadRepository = New ZijkantVoorraadItemRepository
+        zijkantVoorraadRepository = New ZijkantVoorraadItemRepository
+        frontVoorraadRepository = New FrontenVoorraadItemRepository()
         stalenRepository = New StalenRepository
     End Sub
 
@@ -311,7 +313,7 @@
 #Region "opvragen info rework trays en verwijderen"
 
     Public Function geefTypeInReworkTray() As ItemType
-        If _zijkantZijkantVoorraadRepository.zijnErVoorraadItems Then
+        If zijkantVoorraadRepository.zijnErVoorraadItems Then
             Return ItemType.Voorraad
         End If
         If specialLadenRep.zijnErSpecialLaden Then
@@ -581,7 +583,7 @@
 
     'opvragen van het type special lade dat is gekozen
     Public Function geefTypeSpecialLade() As ItemType
-        If _zijkantZijkantVoorraadRepository.zijnErVoorraadItems Then
+        If zijkantVoorraadRepository.zijnErVoorraadItems Then
             Return ItemType.Voorraad
         End If
         Return specialLadenRep.typeLade
@@ -605,7 +607,7 @@
     Public Sub verdeelOverReworkTrays()
         Dim typeLade As ItemType = specialLadenRep.typeLade
         If Not specialLadenRep.zijnErSpecialLaden Then
-            If _zijkantZijkantVoorraadRepository.zijnErVoorraadItems Then
+            If zijkantVoorraadRepository.zijnErVoorraadItems Then
                 typeLade = ItemType.Voorraad
             Else
                 Throw New Exception("Er zijn geen special laden voor verwerking aanwezig")
@@ -614,11 +616,11 @@
         Try
             Select Case typeLade
                 Case ItemType.Voorraad
-                    For Each voorraadItem As ZijkantVoorraadItem In _zijkantZijkantVoorraadRepository.voorraadItems
+                    For Each voorraadItem As ZijkantVoorraadItem In zijkantVoorraadRepository.voorraadItems
                         voorraadItem.GenereerZijkantArdisData()
                     Next
                     verdeelZijkantVoorraadItemsOverTrays()
-                    For Each voorraadItem As ZijkantVoorraadItem In _zijkantZijkantVoorraadRepository.voorraadItems
+                    For Each voorraadItem As ZijkantVoorraadItem In zijkantVoorraadRepository.voorraadItems
                         voorraadItem.GenereerZijkantAutomillingData()
                         voorraadItem.GenereerZijkantKantenbandDatas()
                     Next
@@ -638,7 +640,7 @@
     Public Sub verwerkSpecialLaden()
         Dim typeLade As ItemType = specialLadenRep.typeLade
         If Not specialLadenRep.zijnErSpecialLaden Then
-            If _zijkantZijkantVoorraadRepository.zijnErVoorraadItems Then
+            If zijkantVoorraadRepository.zijnErVoorraadItems Then
                 typeLade = ItemType.Voorraad
             Else
                 Throw New Exception("Er zijn geen special laden voor verwerking aanwezig")
@@ -805,27 +807,27 @@
 #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)
-        Dim zijkantVoorraadItem As ZijkantVoorraadItem = New ZijkantVoorraadItem(label, linksOfRechts, diepte, hoogte, kantenband, kleurBinnen, kleurBuiten, isSifonlade)
-        _zijkantZijkantVoorraadRepository.voegVoorraadItemToe(zijkantVoorraadItem)
+        Dim zijkantVoorraadItem = New ZijkantVoorraadItem(label, linksOfRechts, diepte, hoogte, kantenband, kleurBinnen, kleurBuiten, isSifonlade)
+        zijkantVoorraadRepository.voegVoorraadItemToe(zijkantVoorraadItem)
     End Sub
 
     Public Function geefZijkantVoorraadItems() As IEnumerable(Of IZijkantVoorraadItem)
-        Return _zijkantZijkantVoorraadRepository.voorraadItems()
+        Return zijkantVoorraadRepository.voorraadItems()
     End Function
 
     Public Sub verwijderZijkantVoorraadItem(zijkantVoorraadItem As IZijkantVoorraadItem)
-        If _zijkantZijkantVoorraadRepository.voorraadItems.Count <= 0 Then
+        If zijkantVoorraadRepository.voorraadItems.Count <= 0 Then
             Throw New Exception("Voorraad item kan niet worden verwijderd als er geen voorraad items aanwezig zijn")
         End If
-        _zijkantZijkantVoorraadRepository.verwijderVoorraadItem(zijkantVoorraadItem)
+        zijkantVoorraadRepository.verwijderVoorraadItem(zijkantVoorraadItem)
     End Sub
 
     Public Sub verwijderVolledigeZijkantVoorraad()
-        _zijkantZijkantVoorraadRepository.verwijderVolledigeVoorraad()
+        zijkantVoorraadRepository.verwijderVolledigeVoorraad()
     End Sub
 
     Private Sub verdeelZijkantVoorraadItemsOverTrays()
-        Dim voorraadItems As List(Of ZijkantVoorraadItem) = _zijkantZijkantVoorraadRepository.voorraadItems
+        Dim voorraadItems As List(Of ZijkantVoorraadItem) = zijkantVoorraadRepository.voorraadItems
 
         Dim paren As List(Of ZijkantVoorraadItem()) = New List(Of ZijkantVoorraadItem())
         Dim enkele As List(Of ZijkantVoorraadItem) = New List(Of ZijkantVoorraadItem)
@@ -888,7 +890,7 @@
     End Sub
 
     Private Sub slaZijkantVoorraadItemsOp()
-        For Each voorraadItem As ZijkantVoorraadItem In _zijkantZijkantVoorraadRepository.voorraadItems
+        For Each voorraadItem As ZijkantVoorraadItem In zijkantVoorraadRepository.voorraadItems
             HoofdAansturingZijkantVoorraad.OpslaanVoorraadItem(voorraadItem)
         Next
     End Sub
@@ -897,12 +899,32 @@
 #Region "voorraad fronten"
     ''' <summary>
     ''' Maak de verschillende voorraad items aan.
-    ''' Genereer de verschillende data's
-    ''' Laat verwerken
     ''' </summary>
-    public sub produceerFrontenVoorraad()
+    Public Sub produceerFrontenVoorraad(aantal As Integer, label As String, breedte As Double, hoogte As String, materiaal As String, kantenband As String, letterBarcode As String)
+        Try
+            For i = 1 To aantal
+                frontVoorraadRepository.voegVoorraadItemToe(New FrontVoorraadItem(label, breedte, hoogte, materiaal, kantenband, letterBarcode))
+            Next
+            genereerFrontenVoorraadDatas()
+            slaFrontenVoorraadOp()
+        Finally
+            frontVoorraadRepository.verwijderVolledigeVoorraad()
+        End Try
+    End Sub
 
-    End sub
+    Private Sub genereerFrontenVoorraadDatas()
+        For Each item As FrontVoorraadItem In frontVoorraadRepository.voorraadItems
+            item.GenereerZijkantArdisData()
+            item.GenereerKantenbandData()
+        Next
+    End Sub
+
+    Private Sub slaFrontenVoorraadOp()
+        For Each item As FrontVoorraadItem In frontVoorraadRepository.voorraadItems
+            HoofdAansturingFrontVoorraad.OpslaanVoorraadItem(item)
+        Next
+    End Sub
+
 #End Region
 
 #End Region
Index: TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb
===================================================================
diff -u -r1900 -r1901
--- TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb	(.../FormFronten.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/formulieren/Specials/FormFronten.vb	(.../FormFronten.vb)	(revision 1901)
@@ -21,24 +21,34 @@
             ComboBoxHoogte.DataSource = Domeincontroller.getInstance.geefVoorraadHoogtes
             ComboBoxKantenband.DataSource = Configs.kantenbandKleurenLetters
             ComboBoxMateriaal.DataSource = Domeincontroller.getInstance.geefVoorraadKleuren
+
+            updateVerwerkButtonStatus
         Catch ex As Exception
             MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
             FormController.getInstance().laadVorige(Me)
         End Try
     End Sub
 
-    Private Sub TextBoxLetterBarcode_TextChanged(sender As Object, e As EventArgs) Handles TextBoxLetterBarcode.TextChanged
+    Private Sub Controls_TextChanged(sender As Object, e As EventArgs) Handles TextBoxLetterBarcode.TextChanged,TextBoxLabelTekst.TextChanged
         updateVerwerkButtonStatus()
     End Sub
 
     ''' <summary>
     ''' De verwerk knop mag enkel enabled worden als geldige waarden zijn ingevuld
     ''' </summary>
     Private Sub updateVerwerkButtonStatus()
-        btnProduceer.Enabled = not String.IsNullOrEmpty(TextBoxLetterBarcode.Text)
+        Dim enabledButton = true
+        enabledButton = enabledButton and Not String.IsNullOrEmpty(TextBoxLabelTekst.Text)
+        enabledButton = enabledButton and Not String.IsNullOrEmpty(TextBoxLetterBarcode.Text)
+        btnProduceer.Enabled = enabledButton
     End Sub
 
     Private Sub BtnProduceer_Click(sender As Object, e As EventArgs) Handles btnProduceer.Click
-
+        Try
+            Domeincontroller.getInstance().produceerFrontenVoorraad(NumericUpDownAantal.Value,TextBoxLabelTekst.Text,NumericUpDownBreedte.Value,ComboBoxHoogte.SelectedValue,ComboBoxMateriaal.SelectedValue,ComboBoxKantenband.SelectedValue,TextBoxLetterBarcode.Text)
+        Catch ex As Exception
+            MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            FormController.getInstance().laadVorige(Me)
+        End Try
     End Sub
 End Class
\ No newline at end of file
Index: TAOR rework/TAOR rework/Voorraad/fronten/FrontenVoorraadItemRepository.vb
===================================================================
diff -u -r1900 -r1901
--- TAOR rework/TAOR rework/Voorraad/fronten/FrontenVoorraadItemRepository.vb	(.../FrontenVoorraadItemRepository.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/Voorraad/fronten/FrontenVoorraadItemRepository.vb	(.../FrontenVoorraadItemRepository.vb)	(revision 1901)
@@ -1,38 +1,25 @@
 Public Class FrontenVoorraadItemRepository
-    Private _voorraadItems As List(Of ZijkantVoorraadItem)
+    Private ReadOnly _voorraadItems As List(Of IFrontVoorraadItem)
 
     Public Sub New()
-        _voorraadItems = New List(Of ZijkantVoorraadItem)
+        _voorraadItems = New List(Of IFrontVoorraadItem)
     End Sub
 
 #Region "properties"
-    Public ReadOnly Property voorraadItems As List(Of ZijkantVoorraadItem)
+    Public ReadOnly Property voorraadItems As List(Of IFrontVoorraadItem)
         Get
-            Return New List(Of ZijkantVoorraadItem)(_voorraadItems)
+            Return New List(Of IFrontVoorraadItem)(_voorraadItems)
         End Get
     End Property
 
-    Public ReadOnly Property zijnErVoorraadItems() As Boolean
-        Get
-            If _voorraadItems.Count <= 0 Then
-                Return False
-            End If
-            Return True
-        End Get
-    End Property
 #End Region
 
-    Public Sub voegVoorraadItemToe(zijkantVoorraad As ZijkantVoorraadItem)
-        _voorraadItems.Add(zijkantVoorraad)
+    Public Sub voegVoorraadItemToe(item As IFrontVoorraadItem)
+        _voorraadItems.Add(item)
     End Sub
 
-    Public Sub verwijderVoorraadItem(zijkantVoorraadItem As IZijkantVoorraadItem)
-        _voorraadItems.Remove(zijkantVoorraadItem)
-    End Sub
-
     Public Sub verwijderVolledigeVoorraad()
-        _voorraadItems = Nothing
-        _voorraadItems = New List(Of ZijkantVoorraadItem)
+        _voorraadItems.Clear()
     End Sub
 
 End Class
Index: TAOR rework/TAOR rework/Voorraad/fronten/IFrontVoorraadItem.vb
===================================================================
diff -u -r1900 -r1901
--- TAOR rework/TAOR rework/Voorraad/fronten/IFrontVoorraadItem.vb	(.../IFrontVoorraadItem.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/Voorraad/fronten/IFrontVoorraadItem.vb	(.../IFrontVoorraadItem.vb)	(revision 1901)
@@ -1,3 +1,8 @@
 Public Interface IFrontVoorraadItem
-
+    ReadOnly Property Label As String
+    ReadOnly Property Breedte As Double
+    ReadOnly Property Hoogte As String
+    ReadOnly Property Materiaal As String
+    ReadOnly Property Kantenband As String
+    ReadOnly Property LetterBarcode As String
 End Interface
\ No newline at end of file