Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test010MetVHoss.cls.xml
===================================================================
diff -u -r74043 -r74959
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test010MetVHoss.cls.xml	(.../Test010MetVHoss.cls.xml)	(revision 74043)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test010MetVHoss.cls.xml	(.../Test010MetVHoss.cls.xml)	(revision 74959)
@@ -45,6 +45,7 @@
 	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
 	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss()
 	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1
+	Set LBXKenmerken.NietMeeleveren = ..GeefNietMeeleveren()	
 	
 	#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = LBXKenmerken.GekoppeldeIngegevenKenmerken.GetAt("MatX")
 	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberZwart()
@@ -122,11 +123,22 @@
 <Implementation><![CDATA[
 	#dim NietMeeleveren As list Of DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol = ##class(%ListOfDataTypes).%New()
 	
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionMeenemer())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSynchronisatieAdapter())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSynchronisatieStang())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSetEenhedenEnMeenemers())
 	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen())
 	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapRugWandHouder())
 	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).BevestigingBodemFront())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementVoor())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant())
 	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging())
-	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementVoor())
 	
 	Quit NietMeeleveren
 ]]></Implementation>
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test017SpoelbakVerpakkingVhoss.cls.xml
===================================================================
diff -u -r74046 -r74959
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test017SpoelbakVerpakkingVhoss.cls.xml	(.../Test017SpoelbakVerpakkingVhoss.cls.xml)	(revision 74046)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Legrabox/Aansturing/Test017SpoelbakVerpakkingVhoss.cls.xml	(.../Test017SpoelbakVerpakkingVhoss.cls.xml)	(revision 74959)
@@ -46,22 +46,40 @@
 	Set LBXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
 	Set LBXKenmerken.GUIKenmerken.WandDikte = 19
 	
-	Set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).BevestigingBodemFront())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementVoor())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering())
-	Do LBXKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapRugWandHouder())
+	Set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()	
+	Set LBXKenmerken.NietMeeleveren = ..GeefNietMeeleveren()
+	Do ##class(Tools.Wlip).%New(110).ListOfDataTypes(LBXKenmerken.NietMeeleveren)
 	
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="GeefNietMeeleveren">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As list Of DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol = ##class(%ListOfDataTypes).%New()
+	
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Geleider())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionMeenemer())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSynchronisatieAdapter())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSynchronisatieStang())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSetEenhedenEnMeenemers())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapRugWandHouder())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).BevestigingBodemFront())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementVoor())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementZijkant())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Zijstabilisering())
+	Do NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).InschuifElementVoor())
+	
+	Quit NietMeeleveren
+]]></Implementation>
+</Method>
 </Class>