Index: vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestLBXGewoneLadeMetSSTPrijzen.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestLBXGewoneLadeMetSSTPrijzen.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestLBXGewoneLadeMetSSTPrijzen.cls.xml	(revision 61939)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.End2End.LBX.TestLBXGewoneLadeMetSSTPrijzen">
+<Super>vhUnitTest.APPS.PM.Maatwerk.End2End.SST.TestSSTBasisPrijzen</Super>
+
+<Method name="GeefIngegevenKenmerken">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/End2End/common/SSTHelper.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/End2End/common/SSTHelper.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/End2End/common/SSTHelper.cls.xml	(revision 61939)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.End2End.common.SSTHelper">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefSSTUitvoeringVolledig">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set SSTKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	Set SSTKenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte555()
+	Set SSTKenmerken.Breedte = 736
+	Set SSTKenmerken.Hoogte = 190
+	Set SSTKenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs()
+	Set SSTKenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).Volledig()
+	Set SSTKenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Servodrive()
+	Set SSTKenmerken.StekkerServodrive = $$$True
+	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()	
+	
+	Set SSTKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.ProductieWijze = ""
+	Set SSTKenmerken.VersieNr = 0
+	
+	Quit SSTKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefSSTUitvoeringSokkelEnTablet">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set SSTKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	Set SSTKenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte505()
+	Set SSTKenmerken.Breedte = 1100
+	Set SSTKenmerken.Hoogte = 200
+	Set SSTKenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs()
+	Set SSTKenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).SokkelEnTablet()
+	Set SSTKenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Blumotion()
+	Set SSTKenmerken.StekkerServodrive = $$$False
+	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()	
+	
+	Set SSTKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.ProductieWijze = ""
+	Set SSTKenmerken.VersieNr = 0
+	
+	Quit SSTKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefSSTUitvoeringSokkelEnTabletMetServodrive">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set SSTKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	Set SSTKenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte505()
+	Set SSTKenmerken.Breedte = 1100
+	Set SSTKenmerken.Hoogte = 200
+	Set SSTKenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs()
+	Set SSTKenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).SokkelEnTablet()
+	Set SSTKenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Servodrive()
+	Set SSTKenmerken.StekkerServodrive = $$$True
+	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()	
+	
+	Set SSTKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.ProductieWijze = ""
+	Set SSTKenmerken.VersieNr = 0
+	
+	Quit SSTKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefSSTUitvoeringTablet">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set SSTKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken).%New()
+	Set SSTKenmerken.Diepte = ##class(DOM.PM.enu.SSTDiepte).SpaceStepDiepte555()
+	Set SSTKenmerken.Breedte = 800
+	Set SSTKenmerken.Hoogte = 190
+	Set SSTKenmerken.Kleur = ##class(DOM.PM.enu.SSTKleur).Oriongrijs()
+	Set SSTKenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).Tablet()
+	Set SSTKenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).TiponBlumotion()
+	Set SSTKenmerken.StekkerServodrive = $$$False
+	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()	
+	
+	Set SSTKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.Onderdelen = ##class(%ListOfDataTypes).%New()
+	Set SSTKenmerken.ProductieWijze = ""
+	Set SSTKenmerken.VersieNr = 0
+	
+	Quit SSTKenmerken
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+ClassMethod GeefSSTUitvoeringVolledigMetLade() As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken
+{
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).MLadeSST()
+}
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/End2End/SST/TestSSTBasisPrijzen.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/End2End/SST/TestSSTBasisPrijzen.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/End2End/SST/TestSSTBasisPrijzen.cls.xml	(revision 61939)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.End2End.SST.TestSSTBasisPrijzen">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.APPS.PM.Maatwerk.End2End.common.BasisPrijzen,vhUnitTest.APPS.PM.Maatwerk.End2End.SST.Basis</Super>
+
+<Method name="Test: Prijs uitvoering sokkel tablet">
+<Implementation><![CDATA[
+	 #dim SST As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = ##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.SSTHelper).GeefSSTUitvoeringSokkelEnTablet()
+	 Do $$$AssertEquals(..GeefPrijsVoorKenmerken(SST),"159.576")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Prijs uitvoering sokkel tablet met servodrive">
+<Implementation><![CDATA[
+	 #dim SST As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = ##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.SSTHelper).GeefSSTUitvoeringSokkelEnTabletMetServodrive()
+	 Do $$$AssertEquals(..GeefPrijsVoorKenmerken(SST),"226.5652")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Prijs uitvoering tablet">
+<Implementation><![CDATA[
+	 #dim SST As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = ##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.SSTHelper).GeefSSTUitvoeringTablet()
+	 Do $$$AssertEquals(..GeefPrijsVoorKenmerken(SST),"39.534")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Lade met SpaceStep (uitvoering volledig)">
+<Implementation><![CDATA[
+	#dim KenmerkenMetSpaceStep As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01 = ..GeefIngegevenKenmerken()
+	Set KenmerkenMetSpaceStep.Klasse = ##class(DOM.PM.enu.LBXKlasse).SpaceStep()
+	
+	Do KenmerkenMetSpaceStep.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.SSTHelper).GeefSSTUitvoeringVolledig(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())		
+	
+	Do ..GenereerMaatwerkBestand(KenmerkenMetSpaceStep)
+	
+	Do $$$AssertReferentieBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>