Index: TAOR-rework-bugfixing/TAOR rework/Voorraad/VoorraadItem.vb
===================================================================
diff -u -r1596 -r1613
--- TAOR-rework-bugfixing/TAOR rework/Voorraad/VoorraadItem.vb	(.../VoorraadItem.vb)	(revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/Voorraad/VoorraadItem.vb	(.../VoorraadItem.vb)	(revision 1613)
@@ -2,186 +2,88 @@
     Implements IVoorraadItem
 
     Public Sub New(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String)
-        Me.labelProp = label
-        Me.linksOfRechtsProp = linksOfRechts
-        Me.diepteProp = diepte
-        Me.hoogteProp = hoogte
-        Me.kantenbandProp = kantenband
-        Me.kleurBinnenProp = kleurBinnen
-        Me.kleurBuitenProp = kleurBuiten
+        Me.Label = label
+        Me.LinksOfRechts = linksOfRechts
+        Me.Diepte = diepte
+        Me.Hoogte = hoogte
+        Me.Kantenband = kantenband
+        Me.KleurBinnen = kleurBinnen
+        Me.KleurBuiten = kleurBuiten
     End Sub
 
 #Region "properties"
 
-    Public ReadOnly Property label As String Implements IVoorraadItem.label
-        Get
-            Return _label
-        End Get
-    End Property
+    Public Property PartnerInSlot() As VoorraadItem
 
-    Public ReadOnly Property linksOfRechts As LinksOfRechts Implements IVoorraadItem.linksOfRechts
+    Private _zijkantArdisDatas As ArdisData()
+    Public ReadOnly Property ZijkantArdisDatas() As ArdisData()
         Get
-            Return _linksOfRechts
+            If _zijkantArdisDatas Is Nothing Then
+                Throw New Exception("De zijkant Ardis datas zijn nog niet gegenereerd.")
+            End If
+            Return _zijkantArdisDatas
         End Get
     End Property
 
-    Public ReadOnly Property diepte As String Implements IVoorraadItem.diepte
+    Private _zijkantAutomillingData As ZijkamerFreesProductieData
+    Public ReadOnly Property ZijkantAutomillingData() As ZijkamerFreesProductieData
         Get
-            Return _diepte
+            If _zijkantAutomillingData Is Nothing Then
+                Throw New Exception("De zijkant zijkantAutomillingData data is nog niet gegenereerd.")
+            End If
+            Return _zijkantAutomillingData
         End Get
     End Property
 
-    Public ReadOnly Property hoogte As String Implements IVoorraadItem.hoogte
+    Private _zijkantKantenbandDatas As KantenbandData()
+    Public ReadOnly Property ZijkantKantenbandDatas() As KantenbandData()
         Get
-            Return _hoogte
+            If _zijkantKantenbandDatas Is Nothing Then
+                Throw New Exception("De zijkant KantenbandData data is nog niet gegenereerd.")
+            End If
+            Return _zijkantKantenbandDatas
         End Get
     End Property
 
-    Public ReadOnly Property kantenband As String Implements IVoorraadItem.kantenband
-        Get
-            Return _kantenband
-        End Get
-    End Property
-
-    Public ReadOnly Property kleurBinnen As String Implements IVoorraadItem.kleurBinnen
-        Get
-            Return _kleurBinnen
-        End Get
-    End Property
-
-    Public ReadOnly Property kleurBuiten As String Implements IVoorraadItem.kleurBuiten
-        Get
-            Return _kleurBuiten
-        End Get
-    End Property
-
     Private _label As String
-    Public Property labelProp() As String
+    Public Property Label() As String Implements IVoorraadItem.Label
         Get
             Return _label
         End Get
-        Set(ByVal value As String)
-            If value Is Nothing OrElse value.Trim().Equals("") Then
-                Throw New Exception("Label tekst mag niet leeg zijn")
+        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
+            _label = Value.Trim
         End Set
     End Property
 
-    Private _linksOfRechts As LinksOfRechts
-    Public Property linksOfRechtsProp() As LinksOfRechts
-        Get
-            Return _linksOfRechts
-        End Get
-        Set(ByVal value As LinksOfRechts)
-            _linksOfRechts = value
-        End Set
-    End Property
+    Public Property LinksOfRechts As LinksOfRechts Implements IVoorraadItem.LinksOfRechts
 
-    Private _diepte As String
-    Public Property diepteProp() As String
-        Get
-            Return _diepte
-        End Get
-        Set(ByVal value As String)
-            _diepte = value
-        End Set
-    End Property
+    Public Property Diepte As String Implements IVoorraadItem.Diepte
 
-    Private _hoogte As String
-    Public Property hoogteProp() As String
-        Get
-            Return _hoogte
-        End Get
-        Set(ByVal value As String)
-            _hoogte = value
-        End Set
-    End Property
+    Public Property Hoogte As String Implements IVoorraadItem.Hoogte
 
-    Private _kantenband As String
-    Public Property kantenbandProp() As String
-        Get
-            Return _kantenband
-        End Get
-        Set(ByVal value As String)
-            _kantenband = value
-        End Set
-    End Property
+    Public Property Kantenband As String Implements IVoorraadItem.Kantenband
 
-    Private _kleurBinnen As String
-    Public Property kleurBinnenProp() As String
-        Get
-            Return _kleurBinnen
-        End Get
-        Set(ByVal value As String)
-            _kleurBinnen = value
-        End Set
-    End Property
+    Public Property KleurBinnen As String Implements IVoorraadItem.KleurBinnen
 
-    Private _kleurBuiten As String
-    Public Property kleurBuitenProp() As String
-        Get
-            Return _kleurBuiten
-        End Get
-        Set(ByVal value As String)
-            _kleurBuiten = value
-        End Set
-    End Property
+    Public Property KleurBuiten As String Implements IVoorraadItem.KleurBuiten
 
-    Private _partnerInSlot As VoorraadItem
-    Public Property partnerInSlot() As VoorraadItem
-        Get
-            Return _partnerInSlot
-        End Get
-        Set(ByVal value As VoorraadItem)
-            _partnerInSlot = value
-        End Set
-    End Property
+    Property IsTweedeVanPaar As Boolean
 
-    Private _zijkantArdisDatas As ArdisData()
-    Public ReadOnly Property zijkantArdisDatas() As ArdisData()
-        Get
-            If _zijkantArdisDatas Is Nothing Then
-                Throw New Exception("De zijkant Ardis datas zijn nog niet gegenereerd")
-            End If
-            Return _zijkantArdisDatas
-        End Get
-    End Property
-
-    Private _zijkantAutomillingData As ZijkamerFreesProductieData
-    Public ReadOnly Property zijkantAutomillingData() As ZijkamerFreesProductieData
-        Get
-            If _zijkantAutomillingData Is Nothing Then
-                Throw New Exception("De zijkant zijkantAutomillingData data is nog niet gegenereerd")
-            End If
-            Return _zijkantAutomillingData
-        End Get
-    End Property
-
-    Private _zijkantKantenbandDatas As KantenbandData()
-    Public ReadOnly Property zijkantKantenbandDatas() As KantenbandData()
-        Get
-            If _zijkantKantenbandDatas Is Nothing Then
-                Throw New Exception("De zijkant KantenbandData data is nog niet gegenereerd")
-            End If
-            Return _zijkantKantenbandDatas
-        End Get
-    End Property
-
 #End Region
 
-    Property isTweedeVanPaar As Boolean
-
-    Public Sub genereerZijkantArdisData()
+    Public Sub GenereerZijkantArdisData()
         If _zijkantArdisDatas Is Nothing Then
             Dim ardisDataBinnen As New ArdisData
             Dim ardisDataBuiten As New ArdisData
 
-            ardisDataBinnen.voorraadStelInitieleWaardenIn(diepte, hoogte, label, kleurBinnen)
-            ardisDataBinnen.voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts, hoogte, CacheMapper.geefBarcodeNummer())
+            ardisDataBinnen.voorraadStelInitieleWaardenIn(Diepte, Hoogte, Label, KleurBinnen)
+            ardisDataBinnen.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer())
 
-            ardisDataBuiten.voorraadStelInitieleWaardenIn(diepte, hoogte, label, kleurBuiten)
-            ardisDataBuiten.voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts, hoogte, CacheMapper.geefBarcodeNummer())
+            ardisDataBuiten.voorraadStelInitieleWaardenIn(Diepte, Hoogte, Label, KleurBuiten)
+            ardisDataBuiten.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer())
 
             ardisDataBinnen.updateKommasNaarPunten()
             ardisDataBuiten.updateKommasNaarPunten()
@@ -190,35 +92,34 @@
         End If
     End Sub
 
-    Public Sub genereerZijkantAutomillingData()
+    Public Sub GenereerZijkantAutomillingData()
         If _zijkantAutomillingData Is Nothing Then
-            Dim zijkantA As ArdisData = zijkantArdisDatas(0)
+            Dim zijkantA As ArdisData = ZijkantArdisDatas(0)
 
             Dim zijkamerfreesProductieData As New ZijkamerFreesProductieData
-            If _partnerInSlot Is Nothing Then
-                zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, linksOfRechts, kleurBinnen, diepte, hoogte, label, zijkantA.PartCalc)
-                zijkamerfreesProductieData.voorraadStelProgrammasInZonderPartner(hoogte)
+            If PartnerInSlot Is Nothing Then
+                zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, LinksOfRechts, KleurBinnen, Diepte, Hoogte, Label, zijkantA.PartCalc)
+                zijkamerfreesProductieData.voorraadStelProgrammasInZonderPartner(Hoogte)
             Else
-                zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, linksOfRechts, kleurBinnen, diepte, hoogte, label, zijkantA.PartCalc, _partnerInSlot.zijkantArdisDatas(0).PartCalc)
-                zijkamerfreesProductieData.voorraadStelProgrammasInMetPartner(linksOfRechts, partnerInSlot.linksOfRechts, hoogte)
+                zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, LinksOfRechts, KleurBinnen, Diepte, Hoogte, Label, zijkantA.PartCalc, PartnerInSlot.zijkantArdisDatas(0).PartCalc)
+                zijkamerfreesProductieData.voorraadStelProgrammasInMetPartner(LinksOfRechts, partnerInSlot.linksOfRechts, Hoogte)
             End If
 
             _zijkantAutomillingData = zijkamerfreesProductieData
         End If
     End Sub
 
-    Public Sub genereerZijkantKantenbandDatas()
+    Public Sub GenereerZijkantKantenbandDatas()
         If _zijkantKantenbandDatas Is Nothing And Not isTweedeVanPaar Then ' de kantenbanddata's wordt door 1 van de twee van het paar afgehandeld
-            Dim zijkantA As ArdisData = zijkantArdisDatas(0)
+            Dim zijkantA = ZijkantArdisDatas(0)
             Dim kantenbandDataA As New KantenbandData
-            kantenbandDataA.voorraadStelInitieleWaardenIn(zijkantA.PartMat, zijkantA.PartCalc, diepte, hoogte, kantenband)
+            kantenbandDataA.voorraadStelInitieleWaardenIn(zijkantA.PartMat, zijkantA.PartCalc, Diepte, Hoogte, Kantenband)
 
-            Dim zijkantB As New ArdisData
             Dim kantenbandDataB As KantenbandData
-            If Not _partnerInSlot Is Nothing Then
-                zijkantB = _partnerInSlot.zijkantArdisDatas(0)
+            If Not PartnerInSlot Is Nothing Then
+                Dim zijkantB = PartnerInSlot.zijkantArdisDatas(0)
                 kantenbandDataB = New KantenbandData
-                kantenbandDataB.voorraadStelInitieleWaardenIn(zijkantB.PartMat, zijkantB.PartCalc, diepte, hoogte, kantenband)
+                kantenbandDataB.voorraadStelInitieleWaardenIn(zijkantB.PartMat, zijkantB.PartCalc, Diepte, Hoogte, Kantenband)
             Else
                 kantenbandDataB = Nothing
             End If
@@ -228,13 +129,3 @@
     End Sub
 
 End Class
-
-Public Interface IVoorraadItem
-    ReadOnly Property label() As String
-    ReadOnly Property linksOfRechts() As LinksOfRechts
-    ReadOnly Property diepte As String
-    ReadOnly Property hoogte As String
-    ReadOnly Property kantenband As String
-    ReadOnly Property kleurBinnen As String
-    ReadOnly Property kleurBuiten As String
-End Interface
Index: TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1612 -r1613
--- TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1612)
+++ TAOR-rework-bugfixing/TAOR rework/TAOR rework.vbproj	(.../TAOR rework.vbproj)	(revision 1613)
@@ -29,7 +29,7 @@
     <ProductName>TAOR rework</ProductName>
     <PublisherName>Robin De Bock</PublisherName>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationRevision>1</ApplicationRevision>
     <ApplicationVersion>5.1.1.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <CreateDesktopShortcut>true</CreateDesktopShortcut>
Index: TAOR-rework-bugfixing/TAOR rework/Voorraad/IVoorraadItem.vb
===================================================================
diff -u
--- TAOR-rework-bugfixing/TAOR rework/Voorraad/IVoorraadItem.vb	(revision 0)
+++ TAOR-rework-bugfixing/TAOR rework/Voorraad/IVoorraadItem.vb	(revision 1613)
@@ -0,0 +1,9 @@
+Public Interface IVoorraadItem
+    ReadOnly Property Label As String
+    ReadOnly Property LinksOfRechts As LinksOfRechts
+    ReadOnly Property Diepte As String
+    ReadOnly Property Hoogte As String
+    ReadOnly Property Kantenband As String
+    ReadOnly Property KleurBinnen As String
+    ReadOnly Property KleurBuiten As String
+End Interface
\ No newline at end of file
Index: TAOR-rework-bugfixing/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb
===================================================================
diff -u -r1596 -r1613
--- TAOR-rework-bugfixing/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb	(.../HoofdAansturingVoorraad.vb)	(revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb	(.../HoofdAansturingVoorraad.vb)	(revision 1613)
@@ -1,6 +1,10 @@
 Module HoofdAansturingVoorraad
 
-    Public Sub opslaanVoorraadItem(voorraad As VoorraadItem)
+    ''' <summary>
+    ''' Opslaan van voorraad item in de verschillende databanken.
+    ''' </summary>
+    ''' <param name="voorraad"></param>
+    Public Sub OpslaanVoorraadItem(voorraad As VoorraadItem)
         slaOpInAutomilling(voorraad.zijkantAutomillingData)
 
         If Not voorraad.isTweedeVanPaar Then
@@ -11,25 +15,25 @@
             Next
         End If
 
-        'opslaan in Ardis
+        'Opslaan in Ardis als laatste pas.
         For Each zijkant As ArdisData In voorraad.zijkantArdisDatas
             slaOpInArdis(zijkant)
         Next
     End Sub
 
-    Private Sub slaOpInAutomilling(zijkamerFreesProductieData As ZijkamerFreesProductieData)
+    Private Sub SlaOpInAutomilling(zijkamerFreesProductieData As ZijkamerFreesProductieData)
         If Configs.geefVerwerkStatus Then
             AutomillingMapper.opslaan(zijkamerFreesProductieData)
         End If
     End Sub
 
-    Private Sub slaOpInKantenband(zijkantKantenbandData As KantenbandData)
+    Private Sub SlaOpInKantenband(zijkantKantenbandData As KantenbandData)
         If Configs.geefVerwerkStatus Then
             KantenbandMapper.Opslaan(zijkantKantenbandData)
         End If
     End Sub
 
-    Private Sub slaOpInArdis(onderdeel As ArdisData)
+    Private Sub SlaOpInArdis(onderdeel As ArdisData)
         If Configs.geefVerwerkStatus Then
             ArdisTextMapper.opslaan(ItemType.VOORRAAD, onderdeel, "", "")
         End If