Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r41343 -r41927
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 41343)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 41927)
@@ -280,10 +280,10 @@
 
 	do Log.Write("Geregistreerde problemen: ")
 	
-	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..BerekeningProblemen)
+	#dim BerekeningProbleemIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..BerekeningProblemen)
 	
-	While (Iterator.HasNext()) {
-		do Log.WriteLine(Iterator.Next().ToString())
+	While (BerekeningProbleemIterator.HasNext()) {
+		do Log.WriteLine(BerekeningProbleemIterator.Next().ToString())
 	}
 
 	Do ##class(vhLib.Logger).%New().Error("Exceptie halffabcontext", Log)
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TestProblemen.cls.xml
===================================================================
diff -u -r41758 -r41927
--- vhUnitTest/DOM/PM/Maatwerk/HF/TestProblemen.cls.xml	(.../TestProblemen.cls.xml)	(revision 41758)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TestProblemen.cls.xml	(.../TestProblemen.cls.xml)	(revision 41927)
@@ -21,21 +21,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefProblemenOnbestaandKenmerk">
+<Method name="Test: Validatie probleem indien er geen halffabitems gevonden zijn">
 <Implementation><![CDATA[
 	Set Context = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(,,,, ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.HalffabTabelDieNiksDoet).%New())
-	Do ..BerekenNietMogelijkVoor(Context,"Exact één validator: Er werden geen halffabitems gevonden")
+	Do ..AssertBerekeningsProbleem(Context,"Exact één validator: Er werden geen halffabitems gevonden")
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefProblemenTeveelGevonden">
+<Method name="Test: Validatie probleem indien er teveel halffabitems gevonden zijn">
 <Implementation><![CDATA[
 	Set Context = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(,,,, ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.HalffabTabelDieTweeElementGeeft).%New())
-	Do ..BerekenNietMogelijkVoor(Context,"Exact één validator: Er werden 2 halffabitems gevonden van type(s) : DOM.PM.Maatwerk.Calc.HF.Halffab")
+	Do ..AssertBerekeningsProbleem(Context,"Exact één validator: Er werden 2 halffabitems gevonden van type(s) : DOM.PM.Maatwerk.Calc.HF.Halffab")
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeenMagazijnZone">
+<Method name="Test: Validatie probleem indien er geen magazijn zone voor een halffabrikaat gevonden">
 <Implementation><![CDATA[
 	Set Context = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(,,,, ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.HalffabTabelDieProduct1000Geeft).%New())
 	Set FoutieveBuilder = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTFouteBuilder).%New("")
@@ -53,40 +53,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenNietMogelijkVoor">
+<Method name="AssertBerekeningsProbleem">
 <FormalSpec>Context:vhTest.Fake.DOM.PM.Maatwerk.Calc.HF.HalffabContext,RedenOmTeFalen:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set FoutieveBuilder = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTFouteBuilder).%New("")
 	Do Context.GeefHalffabSpec().VoegToeBuilderVanuitUT(FoutieveBuilder)
+
 	Try {
 		Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken())
 	} Catch {
 		Do ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException")
 	}
 	
-	if $$$AssertEquals($classname(Context.GeefBerekeningProblemen()),"%Collection.ListOfObj") {
-		if $$$AssertEquals(Context.GeefBerekeningProblemen().Count(),1) {
+	If $$$AssertEquals($classname(Context.GeefBerekeningProblemen()),"%Collection.ListOfObj") {
+		If $$$AssertEquals(Context.GeefBerekeningProblemen().Count(),1) {
 			#dim BerekeningProbleem As DOM.PM.Maatwerk.Calc.Common.Probleem.HalffabrikaatNietBerekenbaar = Context.GeefBerekeningProblemen().GetAt(1)
-			if $$$AssertTrue(BerekeningProbleem.%Extends("DOM.PM.Maatwerk.Calc.Common.Probleem.HalffabrikaatNietBerekenbaar")) 
-			Do $$$AssertEquals(BerekeningProbleem.GeefNiveau(),##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningProbleemNiveau).Fout())
-			Do $$$AssertEquals(BerekeningProbleem.GeefReden(),RedenOmTeFalen)
-			Do $$$AssertEquals(BerekeningProbleem.GeefRol(),FoutieveBuilder.GeefRol())
-			#dim GeprobeerdeSelectieKenmerkenIterator As TECH.Iterator = BerekeningProbleem.GeefGeprobeerdeSelectieKenmerkenIterator()
-			Do $$$AssertTrue(GeprobeerdeSelectieKenmerkenIterator.HasNext(),"Er zijn selectiekenmerken geprobeerd")
-			#dim GeprobeerdeSelectieKenmerken As DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken = GeprobeerdeSelectieKenmerkenIterator.Next()
-			Do $$$AssertEquals(GeprobeerdeSelectieKenmerken.GeefOpmerking(),"Eenvoudige selectie")
-			#dim SelectieKenmerkenIterator As TECH.Iterator = GeprobeerdeSelectieKenmerken.GeefSelectieKenmerkIterator()
-			Do $$$AssertTrue(SelectieKenmerkenIterator.HasNext())
-			#dim SelectieKenmerk As DOM.PM.Maatwerk.Calc.Common.Probleem.SelectieKenmerk = SelectieKenmerkenIterator.Next()
-			Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkNaam(),"DitIsEenNaamDieNietBestaat")
-			Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkWaarde(),"DitIsEenWaardeDieNietBestaat")
-			Do $$$AssertTrue(SelectieKenmerkenIterator.HasNext())
-			Set SelectieKenmerk = SelectieKenmerkenIterator.Next()
-			Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkNaam(),"DitIsOokEenNaamDieNietBestaat")
-			Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkWaarde(),"DitIsOokEenWaardeDieNietBestaat")
-			Do $$$AssertFalse(SelectieKenmerkenIterator.HasNext())
-			Do $$$AssertTrue($Length(BerekeningProbleem.ToString())>0)
+			If $$$AssertTrue(BerekeningProbleem.%Extends("DOM.PM.Maatwerk.Calc.Common.Probleem.HalffabrikaatNietBerekenbaar")) {
+				Do $$$AssertEquals(BerekeningProbleem.GeefNiveau(),##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningProbleemNiveau).Fout())
+				Do $$$AssertEquals(BerekeningProbleem.GeefReden(),RedenOmTeFalen)
+				Do $$$AssertEquals(BerekeningProbleem.GeefRol(),FoutieveBuilder.GeefRol())
+				#dim GeprobeerdeSelectieKenmerkenIterator As TECH.Iterator = BerekeningProbleem.GeefGeprobeerdeSelectieKenmerkenIterator()
+				If $$$AssertTrue(GeprobeerdeSelectieKenmerkenIterator.HasNext(),"Er zijn selectiekenmerken geprobeerd") {
+					#dim GeprobeerdeSelectieKenmerken As DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken = GeprobeerdeSelectieKenmerkenIterator.Next()
+					Do $$$AssertEquals(GeprobeerdeSelectieKenmerken.GeefOpmerking(),"Eenvoudige selectie")
+					#dim SelectieKenmerkenIterator As TECH.Iterator = GeprobeerdeSelectieKenmerken.GeefSelectieKenmerkIterator()
+					If $$$AssertTrue(SelectieKenmerkenIterator.HasNext()) {
+						#dim SelectieKenmerk As DOM.PM.Maatwerk.Calc.Common.Probleem.SelectieKenmerk = SelectieKenmerkenIterator.Next()
+						Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkNaam(),"DitIsEenNaamDieNietBestaat")
+						Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkWaarde(),"DitIsEenWaardeDieNietBestaat")
+						If $$$AssertTrue(SelectieKenmerkenIterator.HasNext()) {
+							Set SelectieKenmerk = SelectieKenmerkenIterator.Next()
+							Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkNaam(),"DitIsOokEenNaamDieNietBestaat")
+							Do $$$AssertEquals(SelectieKenmerk.GeefKenmerkWaarde(),"DitIsOokEenWaardeDieNietBestaat")
+							Do $$$AssertFalse(SelectieKenmerkenIterator.HasNext())
+							Do $$$AssertTrue($Length(BerekeningProbleem.ToString())>0)
+						}
+					}
+				}
+			}
 		}
 	}
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml
===================================================================
diff -u -r41758 -r41927
--- DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 41758)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 41927)
@@ -61,19 +61,19 @@
 	
 	If ..HalffabLijst.Count() > 0 {
 		do Detail.Write("Geselecteerde halffabrikaten (ID's):")
-		Set Iterator = ##class(TECH.ListIterator).%New(..HalffabLijst)
-		#dim ToonKomma As %Boolean = 0
-		While (Iterator.HasNext()) {
-			#dim Halffab = Iterator.Next()
+		Set HalffabIterator = ##class(TECH.ListIterator).%New(..HalffabLijst)
+		#dim ToonKomma As %Boolean = $$$False
+		While (HalffabIterator.HasNext()) {
+			#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabIterator.Next()
 			Do:(ToonKomma) Detail.Write(", ")
 			Do Detail.Write(Halffab.GeefProductID())
-			Set ToonKomma = 1
+			Set ToonKomma = $$$True
 		}	
 	}
 	
 	If ("" '= ..IngegevenKenmerken) {
 		Do Detail.Write(" IngegevenKenmerken:{" )
-		Do Detail.CopyFrom(##class(Tools.ObjectDumper.Dumper).%New(..IngegevenKenmerken,1).ToStream())
+		Do Detail.CopyFrom(##class(Tools.ObjectDumper.Dumper).%New(..IngegevenKenmerken,$$$True).ToStream())
 		Do Detail.WriteLine("}")
 	}