Index: TAOR rework/TAOR rework/Configuraties/Configs.vb
===================================================================
diff -u -r1869 -r1877
--- TAOR rework/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 1869)
+++ TAOR rework/TAOR rework/Configuraties/Configs.vb	(.../Configs.vb)	(revision 1877)
@@ -43,7 +43,8 @@
                 laadSifonWaardenMinWaardeRestPositie()
                 laadSifonWaardenBreedteUitsparing()
                 laadSifonWaardenKleurLaden()
-                laadsifonWaardenGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug()
+                laadSifonWaardenCorrectieFactor()
+                laadSifonWaardenGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug()
 
                 'spoelbak lade waarden
                 laadSpoelbakWaardenVerplaatsFolderPath()
@@ -686,7 +687,7 @@
         End If
     End Sub
 
-    Public Function sifonLadeGeefMinWaardePositie()
+    Public Function sifonLadeGeefMinWaardePositie() As string
         Return _sifonLadeMinWaardePositie
     End Function
 #End Region
@@ -767,9 +768,38 @@
 
 #End Region
 
+#Region "correctie factor"
+    Private _sifonLadeCorrectieFactor As Integer
+    Private Sub laadSifonWaardenCorrectieFactor()
+        Dim temp As String
+        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
+                _sifonLadeWaarden.RemoveAt(teller)
+                Exit For
+            End If
+        Next
+
+        If temp Is Nothing OrElse temp.Equals("") Then
+            Throw New Exception("SifonWaardenCorrectieFactor is niet geconfigureerd.")
+        ElseIf Not IsNumeric(temp) Then
+            Throw New Exception("SifonWaardenCorrectieFactor is geen integer waarde.")
+        Else
+            _sifonLadeCorrectieFactor = CInt(temp)
+        End If
+    End Sub
+
+    Public Function sifonLadeGeefCorrectieFactor() As Integer
+        Return _sifonLadeCorrectieFactor
+    End Function
+
+#End Region
+
 #Region "automilling programma's voor zijkanten sifonladen met verlaagde ruggen"
     Private _sifonLadeAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug As New List(Of String(,))
-    Private Sub laadsifonWaardenGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug()
+    Private Sub laadSifonWaardenGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug()
         Dim overigeWaarden As New List(Of String)
         Dim huidigeLetter As String = ""
         For teller As Integer = 0 To _sifonLadeWaarden.Count - 1
Index: TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenSifonLadeTextMapper.vb
===================================================================
diff -u -r1513 -r1877
--- TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenSifonLadeTextMapper.vb	(.../WaardenSifonLadeTextMapper.vb)	(revision 1513)
+++ TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenSifonLadeTextMapper.vb	(.../WaardenSifonLadeTextMapper.vb)	(revision 1877)
@@ -74,12 +74,16 @@
         file.WriteLine("%VOORBEELD")
         file.WriteLine("%KLADE NE")
         file.WriteLine()
+        file.WriteLine("%Correctiefactor voor nieuwe ruggen (in mm)")
+        file.WriteLine("%VOORBEELD")
+        file.WriteLine("%CORRECTIEFACTOR 1")
+        file.WriteLine()
         file.WriteLine("%AUTOMILLING PROGRAMMA ZIJKANT VERLAAGDE RUG, automilling programma selecteren aan de hand van de letter van de gegenereerde zijkant van een verlaagde rug. ProgramLeftInner, ProgramLeftOuter, ProgramRightInner, ProgramRightOuter")
         file.WriteLine("%VOORBEELD")
         file.WriteLine("%AUTOMILLINGPROGRAMMAZIJKANTVERLAAGDERUG N | C:\TWINcat\CNC\N_OUT_L.nc")
 
         file.Close()
-        Throw New Exception(FILENAME & " was niet aanwezig, maar is nu aangemaakt. Gelieve de configuratie te vervolledigen ")
+        Throw New Exception($"{FILENAME} was niet aanwezig, maar is nu aangemaakt. Gelieve de configuratie te vervolledigen.")
     End Sub
 
 End Module