Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestMVXKenmerken.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestMVXKenmerken.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestMVXKenmerken.cls.xml	(revision 63490)
@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.IKCanonischeWaarde.TestMVXKenmerken">
+<Super>vhUnitTest.DOM.PM.Maatwerk.MVX.Base,vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingCanonischeWaardeGenerator.Basis</Super>
+
+<Parameter name="CanonischeWaardeBasis">
+<Type>%String</Type>
+<Default>;V;\\;\\;\\;OG;40;0;I;TOB;0;0;0;1;580;500;M;OG-M;Z;;M;Hout;{ToepassingPlaceHolder};Probox;Metaal;0;15;Pure;;;;Zonder</Default>
+</Parameter>
+
+<Property name="IKCanonischeWaardeGenerator">
+<Type>DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DummyTrigger">
+<Description>
+dummy property om deze UT te triggeren  :-P </Description>
+<Type>DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Gewone Lade">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerken()	
+	#dim VerwachteCanonischeWaarde As %String = ..GeefVerwachteCanonischeWaarde()
+	
+	Do ..AssertCanonischeWaarde(MvxKenmerken,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Lade Met Onlies En NietMeeleveren, de items worden gesorteerd">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerken()	
+	Set MvxKenmerken.Onderdelen = ##class(TECH.ListUtils).CreateListOfDataTypes("RolB","RolC","RolA")
+	Set MvxKenmerken.NietMeeleveren = ##class(TECH.ListUtils).CreateListOfDataTypes("Rol3","Rol1","Rol2")
+	
+	#dim VerwachteCanonischeWaarde As %String = ..GeefVerwachteCanonischeWaarde()
+	Set VerwachteCanonischeWaarde = ##class(TECH.StringUtils).Replace(VerwachteCanonischeWaarde,";\\",";\RolA;RolB;RolC\",0,1)   ; StartPos = 0, ReplaceCount = 1 --> enkel het eerste item vervangen 
+	Set VerwachteCanonischeWaarde = ##class(TECH.StringUtils).Replace(VerwachteCanonischeWaarde,";\\",";\Rol1;Rol2;Rol3\",0,1)   ; StartPos = 0, ReplaceCount = 1 --> enkel het eerste item vervangen 
+	
+	Do ..AssertCanonischeWaarde(MvxKenmerken,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Lade Met GekoppeldeMat">
+<Implementation><![CDATA[	// TODO : wanneer Matten of SST ondersteund wordt.
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Sifonlade">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerken()
+	Set MvxKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Sifon()
+	Set MvxKenmerken.UitsparingData = ..GeefUitsparingDataDubbel()
+	
+	#dim VerwachteCanonischeWaarde As %String =..GeefVerwachteCanonischeWaarde("SY")
+	Set VerwachteCanonischeWaarde = ##class(TECH.StringUtils).Replace(VerwachteCanonischeWaarde,";\\",";\"_..GeefVerwachteCanonischeWaardeUitsparingDubbel()_"\",2,1)   ; Skip First 2, ReplaceCount = 1 --> enkel het eerstvolgende item vervangen 
+	
+	Do ..AssertCanonischeWaarde(MvxKenmerken,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="Test MvxKenmerken Spoelbaklade">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefMvxKenmerken()
+	Set MvxKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Spoelbak()
+	Set MvxKenmerken.UitsparingData = ..GeefUitsparingDataEnkel()
+	
+	#dim VerwachteCanonischeWaarde As %String =..GeefVerwachteCanonischeWaarde("SP")
+	Set VerwachteCanonischeWaarde = ##class(TECH.StringUtils).Replace(VerwachteCanonischeWaarde,";\\",";\"_..GeefVerwachteCanonischeWaardeUitsparingEnkel()_"\",2,1)   ; ReplaceCount = 1 --> enkel het eerste item vervangen 
+
+	Do ..AssertCanonischeWaarde(MvxKenmerken,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* 
+  =====================
+  |  PRIVATE METHODS  |
+  =====================
+*/
+]]></Content>
+</UDLText>
+
+<Method name="AssertCanonischeWaarde">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteCanonischeWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim CanonischeWaarde As %String = ..IKCanonischeWaardeGenerator.GeefCanonischeWaarde(IngegevenKenmerken)
+	Do $$$AssertEquals(CanonischeWaarde,VerwachteCanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefMvxKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	
+	// Voor deze testcase zoveel mogelijk properties invullen, ook al vormt deze set kenmerken dan een onmogelijke combinatie voor MVX. 
+	// Het doel is enkel om de "pieces" van de CanonischeWaarde te controleren. 
+	
+	Set MvxKenmerken.IsBinnenlade = $$$True
+	Set MvxKenmerken.VoorwandType = ..Enum.VoorwandType.Metaal
+	Set MvxKenmerken.GeleiderTechnologie = ..Enum.GeleiderTechnologie.TIPONBLUMOTION
+		
+	Set MvxKenmerken.InterneBreedte = 580
+	Set MvxKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False
+	Set MvxKenmerken.GUIKenmerken.WandDikte = 15
+	Set MvxKenmerken.NietMeeleveren = ""
+	;Set MvxKenmerken.HeeftOpvullijstLinks = $$$True
+	;Set MvxKenmerken.HeeftOpvullijstRechts = $$$True
+	;Set MvxKenmerken.HeeftZijstabilisering = $$$True
+	;Set MvxKenmerken.VoorWandVerhogingHoogte = "Hoog()"
+	;Set MvxKenmerken.VoorWandVerhogingMateriaal = "GlasDiamant()"
+	;Set MvxKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.MVXOpvullijstKleur).PlatinaZilverGrijs()
+
+	Quit MvxKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteCanonischeWaarde">
+<FormalSpec>Toepassing:%String="L"</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VerwachteCanonischeWaarde As %String = ##class(TECH.StringUtils).Replace(..#CanonischeWaardeBasis,"{ToepassingPlaceHolder}",Toepassing)
+	Quit VerwachteCanonischeWaarde
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>