Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r62710 -r62718
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62710)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 62718)
@@ -23,7 +23,7 @@
 
 <Method name="Test: StandaardLade N">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
@@ -34,7 +34,7 @@
 
 <Method name="Test: StandaardLade M">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	
@@ -44,7 +44,7 @@
 
 <Method name="Test: StandaardLade M met stalen rug">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
@@ -55,7 +55,7 @@
 
 <Method name="Test: Standaard Binnenlade M">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	
@@ -65,7 +65,7 @@
 
 <Method name="Test: Standaard Binnenlade M met stalen rug">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
 	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
@@ -76,7 +76,7 @@
 
 <Method name="Test: StandaardLade E">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ""
 	
@@ -88,7 +88,7 @@
 
 <Method name="Test: StandaardLade E pure =&gt; Bij combinatie LadeHoogte = E en ZijwandType = Pure">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
@@ -100,7 +100,7 @@
 
 <Method name="Test: StandaardLade E pure met stalen rug">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
@@ -113,7 +113,7 @@
 
 <Method name="Test: Standaard Binnenlade E pure">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
@@ -125,7 +125,7 @@
 
 <Method name="Test: Standaard Binnenlade E pure met stalen rug">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardBinnenlade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	Set ..MVXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Staal
@@ -138,8 +138,7 @@
 
 <Method name="Test: Standaard Sifonlade M">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
-	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	
@@ -149,8 +148,8 @@
 
 <Method name="Test: Standaard Sifon Binnenlade M">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
-	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
+	Set ..MVXKenmerken.IsBinnenlade = $$$True
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	
@@ -160,8 +159,7 @@
 
 <Method name="Test: Standaard Sifonlade E pure">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
-	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
@@ -173,11 +171,7 @@
 
 <Method name="Test: Standaard hoge Sifonlade E pure">
 <Implementation><![CDATA[
-	// WELK KENMERK MAAKT DEZE HOOG ??? Vragen aan SCA.
-	
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
-	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
-	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardHogeSifonLade()
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
@@ -188,8 +182,8 @@
 
 <Method name="Test: Standaard Sifon Binnenlade E pure">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).BinnenLade()
-	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Sifon
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonLade()
+	Set ..MVXKenmerken.IsBinnenlade = $$$True
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
@@ -201,25 +195,23 @@
 
 <Method name="Test: Standaard Spoelbaklade =&gt; is M-lade">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
-	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Spoelbak
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSpoelbakLade()
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX Spoelbaklade" _ $$$CRLF)
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX Spoelbaklade" _ $$$CRLF _ "D:500xB:600")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Standaard Spoelbaklade pure =&gt; is E-lade">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken).StandaardLade()
-	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Spoelbak
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSpoelbakLade()
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.E
 	Set ..MVXKenmerken.ZijwandType = ..Enum.ZijwandType.Pure
 	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
 	
-	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure" _ $$$CRLF _ "Spoelbaklade" _ $$$CRLF)
+	Do $$$AssertEquals(Langtekst.GeefString(), "MERIVOBOX pure" _ $$$CRLF _ "Spoelbaklade" _ $$$CRLF _ "D:500xB:600")
 ]]></Implementation>
 </Method>