Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1869 -r1878
--- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1869)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1878)
@@ -191,22 +191,21 @@
     ''' <param name="isVerlaagdeRug"></param>
     Public Sub SifonLadeNieuweRug1Data(positieSifon As Double, isVerlaagdeRug As Boolean, partExt01Zijkant As String)
         'PartL updaten.
-        Dim nieuwePartL = positieSifon - 23.5
+        Dim nieuwePartL = positieSifon - 23.5 + Configs.sifonLadeGeefCorrectieFactorLinks()
         'Ticketlijnen en PartL updaten.
         SifonladeUpdatePartLEnEtiketlijnen(nieuwePartL, isVerlaagdeRug, RugStuk.Links, partExt01Zijkant)
         'Kleur aanpassen.
         PasKleurAanSpecial()
     End Sub
 
-
     ''' <summary>
     ''' Nieuwe data voor een rechtse rug van een enkele sifonlade.
     ''' </summary>
     ''' <param name="rest"></param>
     ''' <param name="isVerlaagdeRug"></param>
     Public Sub SifonLadeNieuweRug2Data(rest As Double, isVerlaagdeRug As Boolean, partExt01Zijkant As String)
         'PartL berekenen.
-        Dim nieuwePartL = rest - 23.5
+        Dim nieuwePartL = rest - 23.5 + Configs.sifonLadeGeefCorrectieFactorRechts()
         'Ticketlijnen en PartL updaten.
         SifonladeUpdatePartLEnEtiketlijnen(nieuwePartL, isVerlaagdeRug, RugStuk.Rechts, partExt01Zijkant)
         'Kleur aanpassen.
@@ -219,7 +218,7 @@
     ''' <param name="breedteMiddenstuk"></param>
     Public Sub SifonLadeNieuweRugMData(breedteMiddenstuk As Double, partExt01Zijkant As String)
         'PartL berekenen.
-        Dim nieuwePartL = breedteMiddenstuk - 15
+        Dim nieuwePartL = breedteMiddenstuk - 15 + Configs.sifonLadeGeefCorrectieFactorMidden()
         'Zet type op Valligne.
         PartCalc = PartCalc.Substring(0, 2) & "A" & PartCalc.Substring(3)
         'Ticketlijnen updaten.
Index: TAOR rework/TAOR rework/Configuraties/Configs.vb
===================================================================
diff -u -r1877 -r1878
--- TAOR rework/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 1877)
+++ TAOR rework/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 1878)
@@ -43,7 +43,9 @@
                 laadSifonWaardenMinWaardeRestPositie()
                 laadSifonWaardenBreedteUitsparing()
                 laadSifonWaardenKleurLaden()
-                laadSifonWaardenCorrectieFactor()
+                laadSifonWaardenCorrectieFactorLinks()
+                laadSifonWaardenCorrectieFactorMidden()
+                laadSifonWaardenCorrectieFactorRechts()
                 laadSifonWaardenGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug()
 
                 'spoelbak lade waarden
@@ -687,7 +689,7 @@
         End If
     End Sub
 
-    Public Function sifonLadeGeefMinWaardePositie() As string
+    Public Function sifonLadeGeefMinWaardePositie() As String
         Return _sifonLadeMinWaardePositie
     End Function
 #End Region
@@ -768,35 +770,97 @@
 
 #End Region
 
-#Region "correctie factor"
-    Private _sifonLadeCorrectieFactor As Integer
-    Private Sub laadSifonWaardenCorrectieFactor()
-        Dim temp As String
+#Region "correctie factoren"
+
+#Region "correctie factor links"
+    Private _sifonLadeCorrectieFactorLinks As Integer
+    Private Sub laadSifonWaardenCorrectieFactorLinks()
+        Dim temp As String = Nothing
+
         For teller = 0 To _sifonLadeWaarden.Count - 1
             Dim lijn As String = _sifonLadeWaarden(teller)
 
-            If lijn.ToLower.StartsWith("correctiefactor") Then
-                temp = lijn.Remove(0,"correctiefactor".Length).Trim
+            If lijn.ToLower.StartsWith("correctiefactorlinks") Then
+                temp = lijn.Remove(0, "correctiefactorlinks".Length).Trim
                 _sifonLadeWaarden.RemoveAt(teller)
                 Exit For
             End If
         Next
 
         If temp Is Nothing OrElse temp.Equals("") Then
-            Throw New Exception("SifonWaardenCorrectieFactor is niet geconfigureerd.")
+            Throw New Exception("SifonWaardenCorrectieFactorLinks is niet geconfigureerd.")
         ElseIf Not IsNumeric(temp) Then
-            Throw New Exception("SifonWaardenCorrectieFactor is geen integer waarde.")
+            Throw New Exception("SifonWaardenCorrectieFactorLinks is geen integer waarde.")
         Else
-            _sifonLadeCorrectieFactor = CInt(temp)
+            _sifonLadeCorrectieFactorLinks = CInt(temp)
         End If
     End Sub
 
-    Public Function sifonLadeGeefCorrectieFactor() As Integer
-        Return _sifonLadeCorrectieFactor
+    Public Function sifonLadeGeefCorrectieFactorLinks() As Integer
+        Return _sifonLadeCorrectieFactorLinks
     End Function
+#End Region
 
+#Region "correctie factor midden"
+    Private _sifonLadeCorrectieFactorMidden As Integer
+    Private Sub laadSifonWaardenCorrectieFactorMidden()
+        Dim temp As String = Nothing
+
+        For teller = 0 To _sifonLadeWaarden.Count - 1
+            Dim lijn As String = _sifonLadeWaarden(teller)
+
+            If lijn.ToLower.StartsWith("correctiefactormidden") Then
+                temp = lijn.Remove(0, "correctiefactormidden".Length).Trim
+                _sifonLadeWaarden.RemoveAt(teller)
+                Exit For
+            End If
+        Next
+
+        If temp Is Nothing OrElse temp.Equals("") Then
+            Throw New Exception("SifonWaardenCorrectieFactorMidden is niet geconfigureerd.")
+        ElseIf Not IsNumeric(temp) Then
+            Throw New Exception("SifonWaardenCorrectieFactorMidden is geen integer waarde.")
+        Else
+            _sifonLadeCorrectieFactorMidden = CInt(temp)
+        End If
+    End Sub
+
+    Public Function sifonLadeGeefCorrectieFactorMidden() As Integer
+        Return _sifonLadeCorrectieFactorMidden
+    End Function
 #End Region
 
+#Region "correctie factor rechts"
+    Private _sifonLadeCorrectieFactorRechts As Integer
+    Private Sub laadSifonWaardenCorrectieFactorRechts()
+        Dim temp As String = Nothing
+
+        For teller = 0 To _sifonLadeWaarden.Count - 1
+            Dim lijn As String = _sifonLadeWaarden(teller)
+
+            If lijn.ToLower.StartsWith("correctiefactorrechts") Then
+                temp = lijn.Remove(0, "correctiefactorrechts".Length).Trim
+                _sifonLadeWaarden.RemoveAt(teller)
+                Exit For
+            End If
+        Next
+
+        If temp Is Nothing OrElse temp.Equals("") Then
+            Throw New Exception("SifonWaardenCorrectieFactorRechts is niet geconfigureerd.")
+        ElseIf Not IsNumeric(temp) Then
+            Throw New Exception("SifonWaardenCorrectieFactorRechts is geen integer waarde.")
+        Else
+            _sifonLadeCorrectieFactorRechts = CInt(temp)
+        End If
+    End Sub
+
+    Public Function sifonLadeGeefCorrectieFactorRechts() As Integer
+        Return _sifonLadeCorrectieFactorRechts
+    End Function
+#End Region
+
+#End Region
+
 #Region "automilling programma's voor zijkanten sifonladen met verlaagde ruggen"
     Private _sifonLadeAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug As New List(Of String(,))
     Private Sub laadSifonWaardenGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug()