Index: DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml
===================================================================
diff -u -r29059 -r32369
--- DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml	(.../BewerkingsInfoTabel.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml	(.../BewerkingsInfoTabel.cls.xml)	(revision 32369)
@@ -36,21 +36,19 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo</ReturnType>
 <Implementation><![CDATA[
-	Set BewerkingsInfo = ""
+	#dim BewerkingsInfo As DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo = ""
 
-	If (ResultSet.Next())
-	{
-		Set BewerkingsInfoID = ResultSet.Data("ID")
-		If (ResultSet.Next())
-		{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere BewerkingsInfo objecten gevonden voor product "_ProductID_" voor dimensie "_BewerkingDimensie_"."))
+	If (ResultSet.Next()) {
+		#dim BewerkingsInfoID As TECH.String = ResultSet.Data("ID")
+		
+		If (ResultSet.Next()) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere BewerkingsInfo objecten gevonden voor product " _ ProductID _ " voor dimensie " _ BewerkingDimensie _ "."))
 		}
+		
 		Set BewerkingsInfo = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo).%OpenId(BewerkingsInfoID)
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen BewerkingsInfo objecten gevonden voor product " _ ProductID _ " voor dimensie " _ BewerkingDimensie _ "."))
 	}
-	Else
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen BewerkingsInfo objecten gevonden voor product "_ProductID_" voor dimensie "_BewerkingDimensie_"."))
-	}
 	
 	Quit BewerkingsInfo
 ]]></Implementation>
Index: vhUnitTest/End2End/TAOR/BouwsteenCreatie/Test.cls.xml
===================================================================
diff -u -r30152 -r32369
--- vhUnitTest/End2End/TAOR/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 30152)
+++ vhUnitTest/End2End/TAOR/BouwsteenCreatie/Test.cls.xml	(.../Test.cls.xml)	(revision 32369)
@@ -12,12 +12,12 @@
 	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 HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(Kenmerken)
 	#dim KostItemsBoom As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ..GeefKostItemsBoom(Kenmerken)
 	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Kenmerken.GeefFamilie(),Kenmerken.GeefVariant(),Kenmerken)
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ..GeefBerekeningSpecificatie()
 		 
-	do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(PRNr,ProductSpecificatie,BerekeningsSpecificatie,HaffabItemsBoom,KostItemsBoom)
+	do ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItemsBoom)
 	
 	#dim PRBS As TECH.MultiDim
 	merge PRBS = ^PRBS("BS",PRNr)
Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/Test.cls.xml
===================================================================
diff -u -r30089 -r32369
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/Test.cls.xml	(.../Test.cls.xml)	(revision 30089)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/Test.cls.xml	(.../Test.cls.xml)	(revision 32369)
@@ -5,13 +5,11 @@
 
 <Method name="TestLadeDiepe650BlijftInMogelijkeWaardenNaVerwerkKenmerkMogelijkheden">
 <Implementation><![CDATA[
-	#Dim WebshopKenmerkDomeinPostProcessor As APPS.EC.impl.ConfiguratorService.WebshopKenmerkDomeinPostProcessor = ##class(APPS.EC.impl.ConfiguratorService.WebshopKenmerkDomeinPostProcessor).%New()
-	#Dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
-	#Dim Waarden As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
-	#Dim KenmerkNaam As DOM.PM.enu.LBXKenmerkNaam = ##class(DOM.PM.enu.LBXKenmerkNaam).LadeDiepte()
-	
-	Do Waarden.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte650())
-	Do KenmerkMogelijkheden.ZetMogelijkeWaarden(KenmerkNaam, Waarden)
+	#dim WebshopKenmerkDomeinPostProcessor As APPS.EC.impl.ConfiguratorService.WebshopKenmerkDomeinPostProcessor = ##class(APPS.EC.impl.ConfiguratorService.WebshopKenmerkDomeinPostProcessor).%New()
+	#dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	#dim KenmerkNaam As DOM.PM.enu.LBXKenmerkNaam = ##class(DOM.PM.enu.LBXKenmerkNaam).LadeDiepte()
+
+	Do KenmerkMogelijkheden.VoegToeMogelijkeWaarde(##class(DOM.PM.enu.LBXKenmerkNaam).LadeDiepte(), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte650())
 	Do WebshopKenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden(##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New(), KenmerkMogelijkheden, ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New(), ##class(DOM.common.VanHoeckePersonality).Instance())
 	
 	If ($$$AssertTrue(KenmerkMogelijkheden.MogelijkeWaarden.IsDefined(KenmerkNaam))) {