Index: TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb
===================================================================
diff -u -r1904 -r1906
--- TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb	(.../FrontVoorraadItem.vb)	(revision 1904)
+++ TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb	(.../FrontVoorraadItem.vb)	(revision 1906)
@@ -1,7 +1,7 @@
 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,boringen As Integer)
+    Public Sub New(label As String, breedte As Double, hoogte As String, materiaal As String, kantenband As String, letterBarcode As String, boringen As Integer)
         Me.Label = label
         Me.Breedte = breedte
         Me.Hoogte = hoogte
@@ -68,20 +68,19 @@
 #End Region
 
     Public Sub GenereerZijkantArdisData()
-        If _ardisData Is Nothing Then
-            Dim frontArdisData As New ArdisData
+        Dim frontArdisData As New ArdisData
 
-            frontArdisData.voorraadFrontStelInitieleWaardenIn(Me)
-            frontArdisData.voorraadFrontGenereerBarcodeEnStelEtiketlijnIn(Me,CacheMapper.GeefBarcodeNummer())
+        frontArdisData.voorraadFrontStelInitieleWaardenIn(Me)
+        frontArdisData.voorraadFrontGenereerBarcodeEnStelEtiketlijnIn(Me, CacheMapper.GeefBarcodeNummer())
 
-            frontArdisData.updateKommasNaarPunten()
+        frontArdisData.updateKommasNaarPunten()
 
-            _ardisData = frontArdisData
-        End If
+        _ardisData = frontArdisData
     End Sub
 
     Public Sub GenereerKantenbandData()
-
+        _kantenbandData = New KantenbandData
+        _kantenbandData.voorraadStelInitieleZijkantWaardenIn(_ardisData.PartMat, _ardisData.PartCalc, Breedte, Hoogte, Kantenband)
     End Sub
 
 End Class
Index: TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb
===================================================================
diff -u -r1903 -r1906
--- TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb	(.../ZijkantVoorraadItem.vb)	(revision 1903)
+++ TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb	(.../ZijkantVoorraadItem.vb)	(revision 1906)
@@ -116,13 +116,13 @@
         If _zijkantKantenbandDatas Is Nothing And Not IsTweedeVanPaar Then ' de kantenbanddata's wordt door 1 van de twee van het paar afgehandeld
             Dim zijkantA = ZijkantArdisDatas(0)
             Dim kantenbandDataA As New KantenbandData
-            kantenbandDataA.voorraadStelInitieleWaardenIn(zijkantA.PartMat, zijkantA.PartCalc, Diepte, Hoogte, Kantenband)
+            kantenbandDataA.voorraadStelInitieleZijkantWaardenIn(zijkantA.PartMat, zijkantA.PartCalc, Diepte, Hoogte, Kantenband)
 
             Dim kantenbandDataB As KantenbandData
             If Not PartnerInSlot Is Nothing Then
                 Dim zijkantB = PartnerInSlot.ZijkantArdisDatas(0)
                 kantenbandDataB = New KantenbandData
-                kantenbandDataB.voorraadStelInitieleWaardenIn(zijkantB.PartMat, zijkantB.PartCalc, Diepte, Hoogte, Kantenband)
+                kantenbandDataB.voorraadStelInitieleZijkantWaardenIn(zijkantB.PartMat, zijkantB.PartCalc, Diepte, Hoogte, Kantenband)
             Else
                 kantenbandDataB = Nothing
             End If
Index: TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb
===================================================================
diff -u -r1879 -r1906
--- TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb	(.../KantenbandData.vb)	(revision 1879)
+++ TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb	(.../KantenbandData.vb)	(revision 1906)
@@ -204,7 +204,7 @@
 
 #Region "voorraad"
 
-    Public Sub voorraadStelInitieleWaardenIn(materiaal As String, barcode As String, lengte As String, hoogteLetter As String, kantenbandLetter As String)
+    Public Sub voorraadStelInitieleZijkantWaardenIn(materiaal As String, barcode As String, lengte As String, hoogteLetter As String, kantenbandLetter As String)
         ID = barcode
         Length = lengte
         Width = geefHoogteDataVoorraad(hoogteLetter)
@@ -267,6 +267,17 @@
         End If
     End Sub
 
+    Public Sub voorraadStelInitieleFrontWaardenIn(materiaal As String, barcode As String, lengte As String, hoogteLetter As String, kantenbandLetter As String)
+        'Bijna alles is hetzelfde als een voorraad zijkant
+        voorraadStelInitieleZijkantWaardenIn(materiaal,barcode,lengte,hoogteLetter,kantenbandLetter)
+        'Exit is E ipv D
+        If Configs.geefKantenbandMateriaalBijKleur(kantenbandLetter).ToLower.Equals("melamine") Then
+            Pass2Exit = "E"
+        Else
+            Pass4Exit = "E"
+        End If
+    End Sub
+
 #End Region
 
 End Class