Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TAORKenmerken.cls.xml
===================================================================
diff -u -r33975 -r33978
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 33975)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 33978)
@@ -6,59 +6,87 @@
 <Method name="LegeKenmerken">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="StandaardLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
+]]></Implementation>
+</Method>
+
+<Method name="StandaardLadeVerpaktIn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	
-	set TAORKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurNotenhout()
-	set TAORKenmerken.Concept = ##class(DOM.PM.enu.TAORConcept).Valinge()
-	set TAORKenmerken.CorpusBinnenbreedte = 600
-	set TAORKenmerken.Draagkracht = ##class(DOM.PM.enu.TAORDraagkracht).Draagkracht40()
-	set TAORKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Drevel()
-	set TAORKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION()
-	set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
-	set TAORKenmerken.HeeftDiepteVerstelling = $$$False
-	set TAORKenmerken.HeeftOpvullijstLinks = $$$False
-	set TAORKenmerken.HeeftOpvullijstRechts = $$$False
-	set TAORKenmerken.HeeftZijstabilisering = $$$False
-	set TAORKenmerken.IsBinnenlade = $$$False
-	set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
-	set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500()
-	set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	set TAORKenmerken.RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).C()
-	set TAORKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
-	set TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
-	set TAORKenmerken.VersieNr = 0
+	Set TAORKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurNotenhout()
+	Set TAORKenmerken.Concept = ##class(DOM.PM.enu.TAORConcept).Valinge()
+	Set TAORKenmerken.CorpusBinnenbreedte = 600
+	Set TAORKenmerken.Draagkracht = ##class(DOM.PM.enu.TAORDraagkracht).Draagkracht40()
+	Set TAORKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Drevel()
+	Set TAORKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TAORGeleiderTechnologie).BLUMOTION()
+	Set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
+	Set TAORKenmerken.HeeftDiepteVerstelling = $$$False
+	Set TAORKenmerken.HeeftOpvullijstLinks = $$$False
+	Set TAORKenmerken.HeeftOpvullijstRechts = $$$False
+	Set TAORKenmerken.HeeftZijstabilisering = $$$False
+	Set TAORKenmerken.IsBinnenlade = $$$False
+	Set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
+	Set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500()
+	Set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	Set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
+	Set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
+	Set TAORKenmerken.RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).C()
+	Set TAORKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
+	Set TAORKenmerken.VerpakkingType = Verpakking
+	Set TAORKenmerken.VersieNr = 0
 	
-	quit TAORKenmerken
+	If (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()) {
+		Set TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
+	} ElseIf (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd()) {
+		Set TAORKenmerken.NietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).ValueList()
+	}
+	
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="StandaardBinnenlade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ..StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
+<Implementation><![CDATA[	Quit ..StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
 ]]></Implementation>
 </Method>
 
+<Method name="StandaardBinnenladeVerpaktIn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardLadeVerpaktIn(Verpakking)
+	
+	Set TAORKenmerken.IsBinnenlade = $$$True
+	Set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
+	
+	Quit TAORKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="BodemAfwLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
 	
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
 	
-	quit TAORKenmerken
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 
@@ -68,9 +96,9 @@
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
 	
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
 	
-	quit TAORKenmerken
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 
@@ -80,10 +108,10 @@
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
 	
-	set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
 	
-	quit TAORKenmerken
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 
@@ -93,10 +121,10 @@
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
 	
-	set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
 	
-	quit TAORKenmerken
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 
@@ -106,92 +134,51 @@
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
 	
-	set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Wit()
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Wit()
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
 	
-	quit TAORKenmerken
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="BiColourBodemAfwBinnenlade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
-	
-	set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Wit()
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
-	
-	quit TAORKenmerken
+<Implementation><![CDATA[	Quit ..BiColourBodemAfwBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
 ]]></Implementation>
 </Method>
 
-<Method name="VerlaagdeRugLade">
-<ClassMethod>1</ClassMethod>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[	Quit ..VerlaagdeRugLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
-]]></Implementation>
-</Method>
-
-<Method name="VerlaagdeRugLadeVerpaktIn">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardLadeVerpaktIn(Verpakking)
-	
-	Set TAORKenmerken.RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).M()
-
-	Quit TAORKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="BiColourBodemAfwBinnenladeVerpaktIn">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardBinnenladeVerpaktIn(Verpakking)
 	
-	set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Wit()
-	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
+	Set TAORKenmerken.LadeBinnenKleur = ##class(DOM.PM.enu.TAORLadeKleur).Wit()
+	Set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORLadeKleur).Zwart()
 
-	quit TAORKenmerken
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 
-<Method name="StandaardLadeVerpaktIn">
+<Method name="VerlaagdeRugLade">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardLade()
-	
-	set TAORKenmerken.VerpakkingType = Verpakking
-	
-	if TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk() {
-		set TAORKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Bodem()
-	} 
-	
-	if (##class(TECH.StringUtils).Equals(TAORKenmerken.VerpakkingType,##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd())) {
-		set TAORKenmerken.NietMeeleveren = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORNietMeeleveren).ValueList()
-	}
-	
-	quit TAORKenmerken
+<Implementation><![CDATA[	Quit ..VerlaagdeRugLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
 ]]></Implementation>
 </Method>
 
-<Method name="StandaardBinnenladeVerpaktIn">
+<Method name="VerlaagdeRugLadeVerpaktIn">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..StandaardLadeVerpaktIn(Verpakking)
 	
-	set TAORKenmerken.IsBinnenlade = $$$True
-	set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
-	
-	quit TAORKenmerken
+	Set TAORKenmerken.RugHoogte = ##class(DOM.PM.enu.TAORRugHoogte).M()
+
+	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
 </Class>