Index: TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb
===================================================================
diff -u -r1901 -r1903
--- TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb	(.../FrontVoorraadItem.vb)	(revision 1901)
+++ TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb	(.../FrontVoorraadItem.vb)	(revision 1903)
@@ -65,7 +65,16 @@
 #End Region
 
     Public Sub GenereerZijkantArdisData()
+        If _ardisData Is Nothing Then
+            Dim frontArdisData As New ArdisData
 
+            frontArdisData.voorraadFrontStelInitieleWaardenIn(Me)
+            frontArdisData.voorraadFrontGenereerBarcodeEnStelEtiketlijnIn(Me,CacheMapper.GeefBarcodeNummer())
+
+            frontArdisData.updateKommasNaarPunten()
+
+            _ardisData = frontArdisData
+        End If
     End Sub
 
     Public Sub GenereerKantenbandData()
Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1900 -r1903
--- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1903)
@@ -562,11 +562,13 @@
 
 #Region "voorraad"
 
+#Region "voorraad zijkant"
+
     Public Function geefColorDubbelVoorraad(zijkantB As ArdisData, andereZijkantA As ArdisData, andereZijkantB As ArdisData) As String
         Return GeefKleurBinnen() & "-" & zijkantB.GeefKleurBinnen & "-" & andereZijkantA.GeefKleurBinnen & "-" & andereZijkantB.GeefKleurBinnen
     End Function
 
-    Public Sub voorraadStelInitieleWaardenIn(vItem As IZijkantVoorraadItem, isBinnen As Boolean)
+    Public Sub voorraadZijkantStelInitieleWaardenIn(vItem As IZijkantVoorraadItem, isBinnen As Boolean)
         PartRef = "Zijkantplaat" 'rol/onderdeel
         PartQty = "1" 'aantal
         PartMat = "WORDT VERVANGEN" 'plaatmateriaal"
@@ -577,9 +579,9 @@
         PartL = vItem.Diepte 'lengte
         PartW = Configs.geefHoogteDataVoorraad(vItem.Hoogte) 'breedte
         PartExt06 = "6,5" 'dikte
-        PartExt07 = If(isBinnen,vItem.KleurBinnen,vItem.KleurBuiten) 'kleur
+        PartExt07 = If(isBinnen, vItem.KleurBinnen, vItem.KleurBuiten) 'kleur
         PartExt08 = "WORDT VERVANGEN" 'decor
-        PartExt01 = label 'etiketlijn1
+        PartExt01 = Label 'etiketlijn1
         PartExt02 = "" 'etiketlijn2
         PartExt03 = "" 'etiketlijn3
         PartExt04 = "WORDT VERVANGEN" 'etiketlijn4
@@ -588,11 +590,11 @@
         PartGroup = "99999001" 'kar
         PartLevel = DateTime.Now.ToString("yyyyMMdd") + "12" 'banding
 
-        PartMat = Configs.voorraadGeefPlaatmateriaal(If(isBinnen,vItem.KleurBinnen,vItem.KleurBuiten)) 'plaatmateriaal
+        PartMat = Configs.voorraadGeefPlaatmateriaal(If(isBinnen, vItem.KleurBinnen, vItem.KleurBuiten)) 'plaatmateriaal
         PartExt08 = PartMat.Substring(0, PartMat.IndexOf("."))
     End Sub
 
-    Public Sub voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts As LinksOfRechts, hoogteLetter As String, barcodeNummer As String, isSifonlade As Boolean)
+    Public Sub voorraadZijkantGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts As LinksOfRechts, hoogteLetter As String, barcodeNummer As String, isSifonlade As Boolean)
         'barcodenummer opvullen met nullen (0076)
         Do Until barcodeNummer.Length = 4
             barcodeNummer = "0" & barcodeNummer
@@ -633,4 +635,75 @@
 
 #End Region
 
+#Region "voorraad front"
+
+    Public Sub voorraadFrontStelInitieleWaardenIn(vItem As IFrontVoorraadItem)
+        'PartRef = "Zijkantplaat" 'rol/onderdeel
+        'PartQty = "1" 'aantal
+        'PartMat = "WORDT VERVANGEN" 'plaatmateriaal"
+        'PartCalc = "WORDT VERVANGEN" 'barcode
+        'PartRemark2 = "1" 'ladesequenty
+        'PartRemark = "NoRework" 'dossiercode
+        'PartExt09 = "" 'extrainfo
+        'PartL = vItem.Diepte 'lengte
+        'PartW = Configs.geefHoogteDataVoorraad(vItem.Hoogte) 'breedte
+        'PartExt06 = "6,5" 'dikte
+        'PartExt07 = If(isBinnen, vItem.KleurBinnen, vItem.KleurBuiten) 'kleur
+        'PartExt08 = "WORDT VERVANGEN" 'decor
+        'PartExt01 = Label 'etiketlijn1
+        'PartExt02 = "" 'etiketlijn2
+        'PartExt03 = "" 'etiketlijn3
+        'PartExt04 = "WORDT VERVANGEN" 'etiketlijn4
+        'PartExt05 = "NoLabel" 'etiketinfo
+        'PartRemark3 = "NoRework" 'rework
+        'PartGroup = "99999001" 'kar
+        'PartLevel = DateTime.Now.ToString("yyyyMMdd") + "12" 'banding
+
+        'PartMat = Configs.voorraadGeefPlaatmateriaal(If(isBinnen, vItem.KleurBinnen, vItem.KleurBuiten)) 'plaatmateriaal
+        'PartExt08 = PartMat.Substring(0, PartMat.IndexOf("."))
+    End Sub
+
+    Public Sub voorraadFrontGenereerBarcodeEnStelEtiketlijnIn(vItem As IFrontVoorraadItem, barcodeNummer As String)
+        ''barcodenummer opvullen met nullen (0076)
+        'Do Until barcodeNummer.Length = 4
+        '    barcodeNummer = "0" & barcodeNummer
+        'Loop
+
+        ''barcode opbouwen
+        'Dim barcode As String = ""
+        ''eerste letter (onderdeel)
+        'barcode &= "Z"
+        ''tweede letter (breedte)
+        'barcode &= hoogteLetter
+        ''derde letter (vast)
+        'barcode &= "V"
+        ''cijfer (lengte)
+        'barcode &= Configs.voorraadGeefCodeStemasB(Configs.voorraadGeefNettoLengte(PartL))
+        ''letter voor rechts of links. Als het over een sifonlade gaat nemen we een andere letter.
+        'If LinksOfRechts = LinksOfRechts.Links Then
+        '    'Links
+        '    barcode &= If(Not isSifonlade, "L", "E")
+        'Else
+        '    'Rechts
+        '    barcode &= If(Not isSifonlade, "R", "F")
+        'End If
+        ''eerste deel barcodeNummer
+        'barcode &= barcodeNummer.Substring(0, 2)
+        ''tussenletter (vast)
+        'barcode &= "A"
+        ''tweede deel barcodeNummer 
+        'barcode &= barcodeNummer.Substring(2)
+
+        ''nieuwe barcode en etiketlijn4 instellen
+        'PartCalc = barcode
+        'PartExt04 = barcode
+
+        ''Etiketlijn 2 op een hardcoded value instellen
+        'PartExt02 = "0a/MAN(1)/KAR 1:1/1"
+    End Sub
+
+#End Region
+
+#End Region
+
 End Class
Index: TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb
===================================================================
diff -u -r1900 -r1903
--- TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb	(.../ZijkantVoorraadItem.vb)	(revision 1900)
+++ TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb	(.../ZijkantVoorraadItem.vb)	(revision 1903)
@@ -82,11 +82,11 @@
             Dim ardisDataBinnen As New ArdisData
             Dim ardisDataBuiten As New ArdisData
 
-            ardisDataBinnen.voorraadStelInitieleWaardenIn(Me, true)
-            ardisDataBinnen.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade)
+            ardisDataBinnen.voorraadZijkantStelInitieleWaardenIn(Me, true)
+            ardisDataBinnen.voorraadZijkantGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade)
 
-            ardisDataBuiten.voorraadStelInitieleWaardenIn(Me,false)
-            ardisDataBuiten.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade)
+            ardisDataBuiten.voorraadZijkantStelInitieleWaardenIn(Me,false)
+            ardisDataBuiten.voorraadZijkantGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade)
 
             ardisDataBinnen.updateKommasNaarPunten()
             ardisDataBuiten.updateKommasNaarPunten()