Index: vhUnitTest/DOM/PM/Maatwerk/SST/TestBase.cls.xml
===================================================================
diff -u -r62007 -r62015
--- vhUnitTest/DOM/PM/Maatwerk/SST/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 62007)
+++ vhUnitTest/DOM/PM/Maatwerk/SST/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 62015)
@@ -16,15 +16,27 @@
 	Set SSTKenmerken.Uitvoering = ##class(DOM.PM.enu.SSTUitvoering).SokkelEnTablet()
 	Set SSTKenmerken.StekkerServodrive = $$$False
 	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()
+	
+	Do ..Genereer(SSTKenmerken,"SpaceStepUitvoeringSokkelEnTablet")
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
 
-	do ..Genereer(SSTKenmerken,"SpaceStepUitvoeringSokkelEnTablet")
-	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+<Method name="TestSpaceStepUitvoeringSokkelEnTabletMetServodrive">
+<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).Servodrive()
+	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).SokkelEnTablet()
 	Set SSTKenmerken.StekkerServodrive = $$$True
+	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()
 	
-	do ..Genereer(SSTKenmerken,"SpaceStepUitvoeringSokkelEnTabletMetServodrive")
-	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+	Do ..Genereer(SSTKenmerken,"SpaceStepUitvoeringSokkelEnTabletMetServodrive")
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
@@ -64,8 +76,8 @@
 	Set SSTKenmerken.StekkerServodrive = $$$False
 	Set SSTKenmerken.StekkerType = ##class(DOM.PM.enu.SSTStekkerType).EU()
 
-	do ..Genereer(SSTKenmerken,"SpaceStepUitvoeringTablet")
-	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+	Do ..Genereer(SSTKenmerken,"SpaceStepUitvoeringTablet")
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/End2End/SST/BouwsteenCreatie/Test.cls.xml
===================================================================
diff -u -r62007 -r62015
--- vhUnitTest/End2End/SST/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 62007)
+++ vhUnitTest/End2End/SST/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 62015)
@@ -9,8 +9,8 @@
 <Implementation><![CDATA[
 	#dim PRNr As %String = 1000
 	
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(PRNr,PRNr)
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(PRNr,PRNr)
+	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(PRNr,PRNr)
+	Do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(PRNr,PRNr)
 	
 	#dim HaffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(Kenmerken)
 	#dim KostItemsBoom As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ..GeefKostItemsBoom(Kenmerken)
@@ -22,10 +22,10 @@
 	
 	#dim PRBS As TECH.MultiDim
 	merge PRBS = ^PRBS("BS",PRNr)
-		
-	do ..DataExporteerder.ExporteerMultiDim(.PRBS,Omschrijving)
-
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(PRNr,PRNr)
+	
+	Do ..DataExporteerder.ExporteerMultiDim(.PRBS,Omschrijving)
+	
+	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(PRNr,PRNr)
 ]]></Implementation>
 </Method>
 </Class>