Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestSSTKenmerken.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestSSTKenmerken.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestSSTKenmerken.cls.xml	(revision 62024)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.IKCanonischeWaarde.TestSSTKenmerken">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.impl.TestIKCanonischeWaarde")</Description>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestSSTKenmerken">
+<Implementation><![CDATA[
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
+	
+	#dim SSTKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	
+	Set SSTKenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Blumotion()
+	Set SSTKenmerken.Breedte = 800
+	Set SSTKenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte505()
+	Set SSTKenmerken.Hoogte = 180
+	Set SSTKenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs()
+	Set SSTKenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).Volledig()
+	Set SSTKenmerken.StekkerServodrive = $$$False
+	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()
+	
+	Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(SSTKenmerken),..GeefVerwachteSSTCanonischeWaarde())
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteSSTCanonischeWaarde">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ";;\\;\\;B;800;505;180;OG-M;Volledig;0;EU"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseGekoppeldeIKSpaceStep.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseGekoppeldeIKSpaceStep.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/BaseGekoppeldeIKSpaceStep.cls.xml	(revision 62024)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.IKCanonischeWaarde.BaseGekoppeldeIKSpaceStep">
+<Super>vhUnitTest.DOM.PM.impl.IKCanonischeWaarde.BaseLBXv00</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefIngegevenKenmerken()
+	
+	Do ..VoegToeSST(IngegevenKenmerken)
+	
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
+		
+	#dim CanonischeWaarde As %String = ..GeefIngegevenKenmerkenCanonischeWaarde()_..GeefVerwachteSSTCanonischeWaarde()
+	Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(IngegevenKenmerken),CanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefLBXKenmerken()
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerkenCanonischeWaarde">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ";;\\;\\;\\;SW-M;DG;N;270;1;580;Hout;Hoog;DIA10;1;1;1;1;S;T;40;V1;0;10;Vulling;PSG;N"
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeSST">
+<FormalSpec>IK:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,GekoppeldeIKType:DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SSTKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	
+	Set SSTKenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Blumotion()
+	Set SSTKenmerken.Breedte = 800
+	Set SSTKenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte505()
+	Set SSTKenmerken.Hoogte = 180
+	Set SSTKenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs()
+	Set SSTKenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).Volledig()
+	Set SSTKenmerken.StekkerServodrive = $$$False
+	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()
+	
+	If GekoppeldeIKType = "" {
+		Set GekoppeldeIKType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()	
+	}
+	Do IK.GekoppeldeIngegevenKenmerken.SetAt(SSTKenmerken,GekoppeldeIKType)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteSSTCanonischeWaarde">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ";/"_"SpaceStep"_";;\\;\\;B;800;505;180;OG-M;Volledig;0;EU"_"/"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>