Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb
===================================================================
diff -u -r1651 -r1652
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1651)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb	(.../SifonLadeV2.vb)	(revision 1652)
@@ -90,23 +90,23 @@
 
     ''' <inheritdoc/>
     Public Sub MaakLade() Implements ISifonLade.MaakLade
-        'Nettolengte diepte sifonuitsparing opvragen.
-        Dim lengte = Configs.geefNettoLengte(DiepteSifonuitsparingU1)
         'Binnenzijkant L en R genereren.
-        GenereerBinnenzijkantL(lengte)
-        GenereerBinnenzijkantR(lengte)
+        GenereerBinnenzijkantL()
+        GenereerBinnenzijkantR()
         'Rug genereren.
         GenereerExtraRuggen()
         'Etiketten updaten.
-        UpdateEtiketten
+        UpdateEtiketten()
     End Sub
 
-    Private Sub GenereerBinnenzijkantL(lengte As String)
+    Private Sub GenereerBinnenzijkantL()
+        'Nettolengte diepte sifonuitsparing opvragen.
+        Dim lengte = Configs.geefNettoLengte(DiepteSifonuitsparingU1)
         'Nieuwe binnenzijkant initialiseren.
         Dim ardisDataL = BuitenzijkantL.ArdisDataL.ShallowCopy()
-        ardisDataL.sifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartCalc, True)
+        ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True)
         Dim ardisDataR = BuitenzijkantL.ArdisDataR.ShallowCopy()
-        ardisDataL.sifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartCalc, False)
+        ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False)
 
         'Zijkant initialiseren met juiste Ardis data.
         BinnenzijkantL1 = New Zijkant() With {
@@ -115,12 +115,14 @@
             }
     End Sub
 
-    Private Sub GenereerBinnenzijkantR(lengte As String)
+    Private Sub GenereerBinnenzijkantR()
+        'Nettolengte diepte sifonuitsparing opvragen.
+        Dim lengte = Configs.geefNettoLengte(DiepteSifonuitsparingU1)
         'Nieuwe binnenzijkant initialiseren.
         Dim ardisDataL = BuitenzijkantR.ArdisDataL.ShallowCopy()
-        ardisDataL.sifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartCalc, True)
+        ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, True)
         Dim ardisDataR = BuitenzijkantR.ArdisDataR.ShallowCopy()
-        ardisDataL.sifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, OrigineleRug.ArdisData.PartCalc, False)
+        ardisDataL.SifonLadeNieuweZijkantData(lengte, OrigineleRug.ArdisData.PartW, Bodem.ArdisData.PartMat, OrigineleRug.ArdisData.PartCalc, False)
 
         'Zijkant initialiseren met juiste Ardis data.
         BinnenzijkantR1 = New Zijkant() With {
Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1651 -r1652
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1651)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1652)
@@ -79,14 +79,20 @@
 
     'Specials
 
-    'todo documentatie fixen wth hier gebeurt
-    Public Sub PasKleurAanSpecial()
+    ''' <summary>
+    ''' PartExt07 aanpassen met huidig materiaal.
+    ''' </summary>
+    public Sub PasKleurAanSpecial()
         Dim firstIndex As Integer = PartMat.IndexOf(".", StringComparison.Ordinal) + 1
         Dim lastIndex As Integer = PartMat.LastIndexOf(".", StringComparison.Ordinal)
         PartExt07 = PartMat.Substring(firstIndex, lastIndex - firstIndex)
     End Sub
 
-    Function isSpecialGegenereerd() As Boolean
+    ''' <summary>
+    ''' Opvragen of een zijkant is gegenereerd in een sifonlade. Dus of het een binnenzijkantje is.
+    ''' </summary>
+    ''' <returns></returns>
+    Function IsSpecialGegenereerd() As Boolean
         Return PartExt09.ToUpper.Equals("A") Or PartExt09.ToUpper.Equals("B")
     End Function
 
@@ -95,49 +101,36 @@
     ''' <summary>
     ''' Updaten etiketlijn 2 en 4.
     ''' </summary>
-    public Sub SifonLadeUpdateEtiketLijnen()
+    Public Sub SifonLadeUpdateEtiketLijnen()
         'Bij etiketlijn 2 'kar' vervangen door sifon
         PartExt02 = PartExt02.Replace("KAR", "SIFON")
         'Etiketlijn 4 aanpassen.
         PartExt04 = PartCalc & "/B/" & CStr(CDbl(PartL.Replace(".", ",")) - 5).Replace(",", ".") & "xH:" & CStr(CDbl(PartW.Replace(".", ",")) - 5).Replace(",", ".")
     End Sub
 
-    Public Shared Function sifonLadeGeefBreedte(lw As Double) As Double
-        Return lw - 31
-    End Function
+    ''' <summary>
+    ''' Nieuw zijkantplaatje aanmaken met bepaalde data.
+    ''' Aanpassingen aan: PartL, PartW, PartMat, PartExt09, Barcode en etiketlijnen 2 en 4.
+    ''' </summary>
+    ''' <param name="lengte"></param>
+    ''' <param name="hoogteRug"></param>
+    ''' <param name="materiaalBodem"></param>
+    ''' <param name="barcodeRug"></param>
+    ''' <param name="isLinksPlaatje"></param>
+    Public Sub SifonLadeNieuweZijkantData(lengte As String, hoogteRug As String, materiaalBodem As String, barcodeRug As String, isLinksPlaatje As Boolean)
+        'Nieuwe barcode geven.
 
-    Public Shared Function sifonLadeGeefDiepte(nlLade As String) As String
-        Return nlLade - 20
-    End Function
-
-    Public Shared Function sifonLadeGeefDiepteSifonUitsparing(lengte As String) As String
-        Return CDbl(lengte) - 8
-    End Function
-
-    Public Function sifonLadeGeefOnderdeelLetter() As String
-        Return PartCalc.Substring(5, 1)
-    End Function
-
-    Public Sub sifonLadeNieuweZijkantData(lengte As String, hoogteRug As String, barcodeRug As String, isLinksPlaatje As Boolean)
-        'lengte aanpassen
-        PartL = lengte + 5
-        'hoogte aanpassen
-        PartW = CStr(CDbl(hoogteRug.Replace(".", ",")) + 10.0).Replace(",", ".")
-
-        'nieuwe barcode geven
-        'kijken of het een linkse of rechtse plaat is
+        'Kijken of het een linkse of rechtse plaat is
         Dim typePlaat As String = PartCalc.Substring(5, 1)
-
-        'de barcode al vullen met de eerste 3 letters uit de oude, als het een verlaagde rug is de letter uit de rug nemen
+        'De barcode opbouwen met eerste teken uit originele barcode.
         Dim nieuweBarcode As String = PartCalc.Substring(0, 1)
+        'Tweede teken is tweede teken van barcode rug.
         nieuweBarcode &= barcodeRug.Substring(1, 1)
-
+        'Derde teken is opnieuw van originele barcode.
         nieuweBarcode &= PartCalc.Substring(2, 1)
-        'de STEMAS B code opvragen en toevoegen
-        nieuweBarcode &= Configs.geefCodeStemasB(PartL - 5)
-
-        'letter toevoegen
-        'nieuweBarcode &= typePlaat
+        'Teken daarna is de STEMAS B code, opvragen en toevoegen.
+        nieuweBarcode &= Configs.geefCodeStemasB(PartL)
+        'Speciale letter toevoegen, afhankelijk of het links of rechts is.
         If typePlaat.ToUpper.Equals("L") Or typePlaat.ToUpper.Equals("C") Then
             nieuweBarcode &= "E"
         ElseIf typePlaat.ToUpper.Equals("R") Or typePlaat.ToUpper.Equals("D") Then
@@ -146,33 +139,52 @@
             Throw New Exception($"Type {typePlaat} is niet gekend in de barcode voor nieuwe zijkant data")
         End If
 
-        'de barcode vullen met nullen en de unieke nummer die we ophalen
+        'De barcode vullen met nullen en de uniek nummer dat wordt opgehaald.
         Dim nummer As String = CacheMapper.GeefBarcodeNummer
         Dim aantalNullen As Integer = PartCalc.Length - nieuweBarcode.Length - CStr(nummer).Length
-        For teller As Integer = 0 To aantalNullen - 2
+        For teller = 0 To aantalNullen - 2
             nummer &= "0"
         Next
-        'de letter S in het midden toevoegen
-        nummer = nummer.Insert(2, "S")
-
-        nieuweBarcode &= nummer
-
+        'De letter 'S' in het midden toevoegen.
+        nieuweBarcode &= nummer.Insert(2, "S")
+        'Toewijzen aan PartCalc.
         PartCalc = nieuweBarcode
 
+        'PartL aanpassen.
+        PartL = lengte + 5
+        'PartW (hoogte) aanpassen.
+        PartW = CStr(CDbl(hoogteRug.Replace(".", ",")) + 10.0).Replace(",", ".")
+        'Materiaal aanpassen.
+        PartMat = materiaalBodem
+        'PartExt09 updaten afhankelijk van links or rechts.
         If isLinksPlaatje Then
+            'Is links.
             PartExt09 = "A"
         Else
+            'Is rechts
             PartExt09 = "B"
         End If
-
-        'Updaten etiket 
+        'Kleur aanpassen.
+        PasKleurAanSpecial
+        'Updaten etiket.
         SifonLadeUpdateEtiketLijnen()
     End Sub
 
-    Public Shared Function sifonLadeGeefPositieUitsparing(positionSifon As Double)
-        Return positionSifon + 5 - 21 + 5.5 - 13
+    ''' <summary>
+    ''' Kijken of de rug verlaagd is, aan de hand van het eerste tekens van de PartCalc.
+    ''' </summary>
+    ''' <param name="partCalcOrigineleZijkant">PartCalc van een originele zijkant</param>
+    ''' <returns>True als de sifonlade verlaagd is</returns>
+    Public Function SifonLadeIsVerlaagdeRug(partCalcOrigineleZijkant As String) As Boolean
+        Return Not PartCalc.Substring(1, 1).Equals(partCalcOrigineleZijkant.Substring(1, 1))
     End Function
 
+    ''' <summary>
+    ''' Nieuwe data voor een linkse rug.
+    ''' </summary>
+    ''' <param name="positieSifon"></param>
+    ''' <param name="oorspronkelijkeLengteRug"></param>
+    ''' <param name="isVerlaagdeRug"></param>
     Public Sub SifonLadeNieuweRug1Data(positieSifon As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean)
         'PartL updaten.
         PartL = positieSifon - 7.5 - 21 + 5.5 + 5
@@ -181,14 +193,22 @@
         SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
         'Barcode updaten.
         SifonLadeUpdateBarcodeRug(isVerlaagdeRug, True)
+        'Kleur aanpassen.
+        PasKleurAanSpecial
     End Sub
 
+    ''' <summary>
+    ''' Nieuwe data voor een rechtse rug.
+    ''' </summary>
+    ''' <param name="lw"></param>
+    ''' <param name="breedteUitsparingSifon"></param>
+    ''' <param name="partLRug1"></param>
+    ''' <param name="oorspronkelijkeLengteRug"></param>
+    ''' <param name="partLOrigineleRug"></param>
+    ''' <param name="isVerlaagdeRug"></param>
     Public Sub SifonLadeNieuweRug2Data(lw As Double, breedteUitsparingSifon As Double, partLRug1 As Double, oorspronkelijkeLengteRug As String, partLOrigineleRug As String, isVerlaagdeRug As Boolean)
         'PartL berekenen.
         PartL = (lw - 31) - (breedteUitsparingSifon - 1) - (partLRug1 - 5) + 5
-        'Etiketlijnen updaten.
-        SifonLadeUpdateEtiketLijnen()
-        SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
 
         'Controleren of de PartL minder is dan de minimum lengte van de rug.
         If PartL < Configs.SifonLadeGeefMinimumLengteRug() Then
@@ -207,12 +227,21 @@
                 'Verlaagde rug, PartL aanpassen.
                 PartL = CStr(CDbl(PartL.Replace(".", ",")) - 5.5).Replace(",", ".")
             End If
+            'Etiketlijnen updaten.
+            SifonLadeUpdateEtiketLijnen()
+            SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug)
         End If
 
         'Barcode updaten.
         SifonLadeUpdateBarcodeRug(isVerlaagdeRug, False)
+        'Kleur aanpassen.
+        PasKleurAanSpecial
     End Sub
 
+    ''' <summary>
+    ''' PartExt01 aanpassen.
+    ''' </summary>
+    ''' <param name="oorspronkelijkeLengteRug"></param>
     Private Sub SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug As String)
         Dim afdekKapjesEnSy As String = PartExt01.Substring(PartExt01.LastIndexOf("/"))
         Dim tempPartExt01 As String = PartExt01.Substring(0, PartExt01.LastIndexOf("/"))
@@ -222,6 +251,11 @@
         PartExt01 = PartRef.Substring(0, 3) & "/" & PartExt07 & "-" & PartExt07 & "/" & CStr(CDbl(oorspronkelijkeLengteRug.Replace(".", ",")) + 5).Replace(",", ".") & "x" & PartW & "/" & PartRemark & afdekKapjesEnSy
     End Sub
 
+    ''' <summary>
+    ''' Barcode voor een rug opbouwen.
+    ''' </summary>
+    ''' <param name="isVerlaagdeRug"></param>
+    ''' <param name="isLinkseRug"></param>
     Private Sub SifonLadeUpdateBarcodeRug(isVerlaagdeRug As Boolean, isLinkseRug As Boolean)
         'Nieuwe barcode
         Dim nieuweBarcode As String
@@ -246,7 +280,7 @@
         'De lengte in de barcode steken.
 
         Dim lengte As Double
-        If not isVerlaagdeRug Then
+        If Not isVerlaagdeRug Then
             lengte = CDbl(PartL.Replace(".", ",")) - 5
         Else
             'Verlaagde rug.
@@ -260,7 +294,7 @@
         'De niet kommagetallen toevoegen.
         getallenStuk &= Math.Floor(lengte)
         'Deel voor de komma eruit halen.
-        getallenStuk &= CStr(lengte Mod 1).Replace("0,", string.Empty)
+        getallenStuk &= CStr(lengte Mod 1).Replace("0,", String.Empty)
         'Getal gedeelte toevoegen.
         nieuweBarcode &= getallenStuk
 
@@ -298,15 +332,25 @@
         Return PartL - 5 + 31
     End Function
 
-    ''' <summary>
-    ''' Kijken of de rug verlaagd is, aan de hand van het eerste tekens van de PartCalc.
-    ''' </summary>
-    ''' <param name="partCalcOrigineleZijkant">PartCalc van een originele zijkant</param>
-    ''' <returns>True als de sifonlade verlaagd is</returns>
-    Public Function SifonLadeIsVerlaagdeRug(partCalcOrigineleZijkant As String) As Boolean
-        Return Not PartCalc.Substring(1, 1).Equals(partCalcOrigineleZijkant.Substring(1, 1))
+    Public Shared Function sifonLadeGeefBreedte(lw As Double) As Double
+        Return lw - 31
     End Function
 
+    Public Shared Function sifonLadeGeefDiepte(nlLade As String) As String
+        Return nlLade - 20
+    End Function
+
+    Public Shared Function sifonLadeGeefDiepteSifonUitsparing(lengte As String) As String
+        Return CDbl(lengte) - 8
+    End Function
+
+    Public Function sifonLadeGeefOnderdeelLetter() As String
+        Return PartCalc.Substring(5, 1)
+    End Function
+
+    Public Shared Function sifonLadeGeefPositieUitsparing(positionSifon As Double)
+        Return positionSifon + 5 - 21 + 5.5 - 13
+    End Function
 #End Region
 
 #Region "spoelbak lade"
Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb
===================================================================
diff -u -r1651 -r1652
--- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb	(.../SifonLade.vb)	(revision 1651)
+++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb	(.../SifonLade.vb)	(revision 1652)
@@ -97,7 +97,7 @@
         Dim nieuweZijkanten as New List(Of ArdisData)
         For teller As Integer = 0 To _zijkanten.Count - 1
             Dim nieuweZijkant As ArdisData = _zijkanten(teller).ShallowCopy()
-            nieuweZijkant.sifonLadeNieuweZijkantData(lengte, _origineleRug.PartW, _origineleRug.PartCalc, isEerstePlaatje)
+            'nieuweZijkant.sifonLadeNieuweZijkantData(lengte, _origineleRug.PartW, _origineleRug.PartCalc, isEerstePlaatje)
             isEerstePlaatje = Not isEerstePlaatje
             'opslaan in caché
             opslaanGegenereerdOnderdeel(_zijkanten(teller), nieuweZijkant, Configs.specialLadeGeefOnderdeelNaamGegenereerdeZijkant(nieuweZijkant.sifonLadeGeefOnderdeelLetter))