Index: DOM/PM/HoutCertificaatService.cls.xml
===================================================================
diff -u -r33578 -r34128
--- DOM/PM/HoutCertificaatService.cls.xml	(.../HoutCertificaatService.cls.xml)	(revision 33578)
+++ DOM/PM/HoutCertificaatService.cls.xml	(.../HoutCertificaatService.cls.xml)	(revision 34128)
@@ -31,9 +31,9 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ..GesorteerdeHoutCertificaatIDLijstBepaler = $$$Implementation(GesorteerdeHoutCertificaatIDLijstBepaler, ##class(DOM.PM.HoutCertificaat.impl.GesorteerdeHoutCertificaatIDLijstBepaler).%New())
-	set ..GewichtBepaler = ##class(DOM.PM.HoutCertificaat.impl.GewichtBepaler).%New()
+	Set ..GewichtBepaler = ##class(DOM.PM.HoutCertificaat.impl.GewichtBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -46,14 +46,14 @@
 <Implementation><![CDATA[
 	#dim HoutCertificaatID As TECH.String = ""
 	
-	if $Data(^PRBS("BS",PRNr)) {
+	If $Data(^PRBS("BS",PRNr)) {
 		#dim HoutCertificaatBepalerInput As DOM.PM.HoutCertificaat.impl.HoutCertificaatBepalerInput = ..GeefHoutCertificaatBepalerInputVanPRBS(PRNr,1)
-		if $$$Not(HoutCertificaatBepalerInput.IsLeeg()) {
+		If $$$Not(HoutCertificaatBepalerInput.IsLeeg()) {
 			Set HoutCertificaatBepaler = ##class(DOM.PM.HoutCertificaat.impl.HoutCertificaatBepaler).%New($this)
-			Set HoutCertificaatID =HoutCertificaatBepaler.BepaalHoutCertificaatID(HoutCertificaatBepalerInput)
+			Set HoutCertificaatID = HoutCertificaatBepaler.BepaalHoutCertificaatID(HoutCertificaatBepalerInput)
 		}
-	} else {
-		set HoutCertificaatID = ..ProductAPI.GeefProduct(PRNr).GeefHoutCertificaatID()
+	} Else {
+		Set HoutCertificaatID = ..ProductAPI.GeefProduct(PRNr).GeefHoutCertificaatID()
 	}
 	
 	Quit HoutCertificaatID
Index: vhUnitTest/DOM/PM/HoutCertificaatService/BepaalCertificaatCode/Test.cls.xml
===================================================================
diff -u -r33568 -r34128
--- vhUnitTest/DOM/PM/HoutCertificaatService/BepaalCertificaatCode/Test.cls.xml	(.../Test.cls.xml)	(revision 33568)
+++ vhUnitTest/DOM/PM/HoutCertificaatService/BepaalCertificaatCode/Test.cls.xml	(.../Test.cls.xml)	(revision 34128)
@@ -79,42 +79,42 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test">
+<Method name="Test: Standaardsituatie 1 niveau, 2 kinderen, overal een certificaat">
 <Implementation><![CDATA[
 	// Arrange	
 	Do ..MaakTestProductData1Niveau()
 	
 	Do ..ZetHoutCertificaat(..#Kind01ProductID,..#FSCMix70ID)
 	Do ..ZetHoutCertificaat(..#Kind02ProductID,..#PEFC80ID)
 	
-	Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
+	#dim HoutCertificaatService as DOM.PM.HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
 
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
 	Do ProductAPI.IndienMethodCall("BestaatProduct",..#Moeder01ProductID).DanReturn($$$True)
 	Do ProductAPI.IndienMethodCall("BestaatProduct",..#Kind01ProductID).DanReturn($$$True)
 	Do ProductAPI.IndienMethodCall("BestaatProduct",..#Kind02ProductID).DanReturn($$$True)
 
 	// Act 
-	#dim HoutCertificaatCode As TECH.String= HoutCertificaatService.BepaalCertificaatCode(..#Moeder01ProductID)
+	#dim HoutCertificaatCode As TECH.String = HoutCertificaatService.BepaalCertificaatCode(..#Moeder01ProductID)
 
 	// Assert
 	Do $$$AssertEquals(HoutCertificaatCode,..#PEFC70ID)
 ]]></Implementation>
 </Method>
 
-<Method name="Test enkel kind, om in de else terecht te komen">
+<Method name="Test: Niet samengesteld kind -&gt; geen gebruik van HoutCertificaatBepaler.BepaalHoutCertificaatID">
 <Implementation><![CDATA[
 	// Arrange	
 	Do ..MaakTestProductData1Niveau()
 	Do ..ZetHoutCertificaat(..#Kind01ProductID,..#FSCMix70ID)
 	
-	Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
+	#dim HoutCertificaatService as DOM.PM.HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
 
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
 	Do ProductAPI.IndienMethodCall("BestaatProduct",..#Kind01ProductID).DanReturn($$$True)
 
 	// Act 
-	#dim HoutCertificaatCode As TECH.String= HoutCertificaatService.BepaalCertificaatCode(..#Kind01ProductID)
+	#dim HoutCertificaatCode As TECH.String = HoutCertificaatService.BepaalCertificaatCode(..#Kind01ProductID)
 
 	// Assert
 	Do $$$AssertEquals(HoutCertificaatCode,..#FSCMix70ID)
@@ -128,15 +128,15 @@
 	Do ..ZetHoutCertificaat(..#Kind01ProductID,"")
 	Do ..ZetHoutCertificaat(..#Kind02ProductID,"")	
 	
-	Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
+	#dim HoutCertificaatService as DOM.PM.HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
 
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
 	Do ProductAPI.IndienMethodCall("BestaatProduct",..#Moeder01ProductID).DanReturn($$$True)
 	Do ProductAPI.IndienMethodCall("BestaatProduct",..#Kind01ProductID).DanReturn($$$True)
 	Do ProductAPI.IndienMethodCall("BestaatProduct",..#Kind02ProductID).DanReturn($$$True)
 
 	// Act 
-	#dim HoutCertificaatCode As TECH.String= HoutCertificaatService.BepaalCertificaatCode(..#Moeder01ProductID)
+	#dim HoutCertificaatCode As TECH.String = HoutCertificaatService.BepaalCertificaatCode(..#Moeder01ProductID)
 
 	// Assert
 	Do $$$AssertEquals(HoutCertificaatCode,"")
@@ -151,13 +151,14 @@
 	Do ..ZetHoutCertificaat(..#Kind02ProductID,..#PEFC80ID)
 	Do ..ZetHoutCertificaat(..#Kind03ProductID,..#PEFC80ID)
 	Do ..ZetHoutCertificaat(..#Kind04ProductID,..#FSCMix70ID)
-	Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
+	
+	#dim HoutCertificaatService as DOM.PM.HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
 
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
 	Do ProductAPI.IndienMethodCall("BestaatProduct",$$$ElkeWaarde).DanReturn($$$True)
 
 	// Act 
-	#dim HoutCertificaatCode As TECH.String= HoutCertificaatService.BepaalCertificaatCode(..#GrootMoeder01ProductID)
+	#dim HoutCertificaatCode As TECH.String = HoutCertificaatService.BepaalCertificaatCode(..#GrootMoeder01ProductID)
 
 	// Assert
 	Do $$$AssertEquals(HoutCertificaatCode,..#PEFC70ID)
@@ -171,14 +172,15 @@
 	Do ..ZetHoutCertificaat(..#Kind01ProductID,..#FSCMix70ID)
 	Do ..ZetHoutCertificaat(..#Kind02ProductID,..#PEFC80ID)
 	Do ..ZetHoutCertificaat(..#Kind03ProductID,..#PEFC80ID)
-	Do ..ZetHoutCertificaat(..#Kind04ProductID,"")
-	Set HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
+	Do ..ZetHoutCertificaat(..#Kind04ProductID,"")	
+	
+	#dim HoutCertificaatService as DOM.PM.HoutCertificaatService = ##class(DOM.PM.HoutCertificaatService).%New()
 
 	#dim ProductAPI As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
 	Do ProductAPI.IndienMethodCall("BestaatProduct",$$$ElkeWaarde).DanReturn($$$True)
 
 	// Act 
-	#dim HoutCertificaatCode As TECH.String= HoutCertificaatService.BepaalCertificaatCode(..#GrootMoeder01ProductID)
+	#dim HoutCertificaatCode As TECH.String = HoutCertificaatService.BepaalCertificaatCode(..#GrootMoeder01ProductID)
 
 	// Assert
 	Do $$$AssertEquals(HoutCertificaatCode,..#PEFC70ID)
@@ -218,7 +220,7 @@
 <Method name="ZetHoutCertificaat">
 <FormalSpec>ProductID:TECH.String,HoutCertificaatID:TECH.String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set $Piece(^KPR(ProductID,3),"\",5)=HoutCertificaatID
+<Implementation><![CDATA[	Set $Piece(^KPR(ProductID,3),"\",5) = HoutCertificaatID
 ]]></Implementation>
 </Method>