Index: BL/Flow/Offerte/enu/KADEDI/Key.cls.xml
===================================================================
diff -u -r41135 -r64035
--- BL/Flow/Offerte/enu/KADEDI/Key.cls.xml	(.../Key.cls.xml)	(revision 41135)
+++ BL/Flow/Offerte/enu/KADEDI/Key.cls.xml	(.../Key.cls.xml)	(revision 64035)
@@ -194,6 +194,48 @@
 <Implementation><![CDATA[	Quit "Rem"
 ]]></Implementation>
 </Method>
+
+<Method name="K3">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Flow.Offerte.enu.KADEDI.Key</ReturnType>
+<Implementation><![CDATA[	Quit "K3"
+]]></Implementation>
+</Method>
+
+<Method name="L3">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Flow.Offerte.enu.KADEDI.Key</ReturnType>
+<Implementation><![CDATA[	Quit "L3"
+]]></Implementation>
+</Method>
+
+<Method name="K4">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Flow.Offerte.enu.KADEDI.Key</ReturnType>
+<Implementation><![CDATA[	Quit "K4"
+]]></Implementation>
+</Method>
+
+<Method name="L4">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Flow.Offerte.enu.KADEDI.Key</ReturnType>
+<Implementation><![CDATA[	Quit "L4"
+]]></Implementation>
+</Method>
+
+<Method name="K5">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Flow.Offerte.enu.KADEDI.Key</ReturnType>
+<Implementation><![CDATA[	Quit "K5"
+]]></Implementation>
+</Method>
+
+<Method name="L5">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.Flow.Offerte.enu.KADEDI.Key</ReturnType>
+<Implementation><![CDATA[	Quit "L5"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/BL/Flow/Offerte/TestKADParameterValidatie.cls.xml
===================================================================
diff -u -r41136 -r64035
--- vhUnitTest/BL/Flow/Offerte/TestKADParameterValidatie.cls.xml	(.../TestKADParameterValidatie.cls.xml)	(revision 41136)
+++ vhUnitTest/BL/Flow/Offerte/TestKADParameterValidatie.cls.xml	(.../TestKADParameterValidatie.cls.xml)	(revision 64035)
@@ -242,6 +242,9 @@
 	Do ..VoegToeParameterViaLabel("BoringType","PB")
 	Do ..VoegToeParameterViaLabel("K1",100)
 	Do ..VoegToeParameterViaLabel("K2",125)
+	Do ..VoegToeParameterViaLabel("K3",150)
+	Do ..VoegToeParameterViaLabel("K4",175)
+	Do ..VoegToeParameterViaLabel("K5",200)
 	Set KADP=##class(BL.Flow.Offerte.impl.KADParameterWrapper).%New(..Parameters)
 	Do KADP.ValideerBoringPosities()
 
Index: BL/Flow/Offerte/impl/KADParameterWrapper.cls.xml
===================================================================
diff -u -r51154 -r64035
--- BL/Flow/Offerte/impl/KADParameterWrapper.cls.xml	(.../KADParameterWrapper.cls.xml)	(revision 51154)
+++ BL/Flow/Offerte/impl/KADParameterWrapper.cls.xml	(.../KADParameterWrapper.cls.xml)	(revision 64035)
@@ -427,6 +427,21 @@
 		#dim Boring2 As KADBoring = ..GeefGreepBoringVanInput(..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).K2()),..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).L2()))
 		Do Boringen.Insert(Boring2)
 	}
+
+	If ..BestaatParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).K3()){
+		#dim Boring3 As KADBoring = ..GeefGreepBoringVanInput(..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).K3()),..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).L3()))
+		Do Boringen.Insert(Boring3)
+	}
+
+	If ..BestaatParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).K4()){
+		#dim Boring4 As KADBoring = ..GeefGreepBoringVanInput(..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).K4()),..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).L4()))
+		Do Boringen.Insert(Boring4)
+	}
+
+	If ..BestaatParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).K5()){
+		#dim Boring5 As KADBoring = ..GeefGreepBoringVanInput(..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).K5()),..GeefParameter(##class(BL.Flow.Offerte.enu.KADEDI.Key).L5()))
+		Do Boringen.Insert(Boring5)
+	}
 ]]></Implementation>
 </Method>