Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml
===================================================================
diff -u -r56584 -r56675
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 56584)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 56675)
@@ -50,7 +50,7 @@
 	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
 	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant, $$$False)		
 	
-	Do $$$AssertEquals(ListNietMeerekenens.Count(),7)
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
 		
 	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
@@ -59,7 +59,7 @@
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
 ]]></Implementation>
 </Method>
 
@@ -90,15 +90,15 @@
 	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
 	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
 	
-	Do $$$AssertEquals(ListNietMeerekenens.Count(),7)
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
 	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
 ]]></Implementation>
 </Method>
 
@@ -109,7 +109,7 @@
 	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
 	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant)		
 	
-	Do $$$AssertEquals(ListNietMeerekenens.Count(),7)
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
 		
 	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
@@ -118,7 +118,7 @@
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
 ]]></Implementation>
 </Method>
 
@@ -150,15 +150,15 @@
 	#dim Variant as DOM.PM.enu.Variant = ##class(DOM.PM.enu.Variant).Taorbox()
 	#dim ListNietMeerekenens as %ListOfObjects = NietMeerekenenBepaler.GeefNietMeerekenen(KlantID , Variant, $$$False)		
 	
-	Do $$$AssertEquals(ListNietMeerekenens.Count(),7)
+	Do $$$AssertEquals(ListNietMeerekenens.Count(),6)
 	Set TAORNietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren.AutoComplete).%New()	
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Glijder))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponBlumotionSynchronisatieStang))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieStang))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.TiponSynchronisatieTandwiel))
 	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.FrontBevestiging))
-	Do $$$AssertTrue(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
+	Do $$$AssertFalse(ListNietMeerekenens.Find(TAORNietMeeleveren.Koppeling))
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml
===================================================================
diff -u -r56584 -r56675
--- DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 56584)
+++ DOM/PM/impl/VerkoopPrijsBepaler/NietMeerekenenBepaler.cls.xml	(.../NietMeerekenenBepaler.cls.xml)	(revision 56675)
@@ -22,10 +22,9 @@
 			If (KlantID = ##class(DOM.VKP.enu.Klant).DaroFactors() && $$$Not( ProjectSettings.IsDaroExcludeFromDeliveryEnabled()) ){
 				; dan niks, op de oude manier via de builders
 			} else {
-				;Koppeling /frontbevestiging ook nog, maar alleen indien niet gemonteerd (ttz geen binnenlade
+				;frontbevestiging ook nog, maar alleen indien niet gemonteerd (ttz geen binnenlade
 				If $$$Not(IsBinnenLade ) {
 					Do ListNM.Insert(TAORNietMeeleveren.FrontBevestiging )				
-					Do ListNM.Insert(TAORNietMeeleveren.Koppeling)				
 				}
 			}			
 		}