Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml
===================================================================
diff -u -r33812 -r33854
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 33812)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 33854)
@@ -73,15 +73,9 @@
 <Method name="GeefConcept">
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
 <Implementation><![CDATA[
-	#dim Concept As DOM.PM.enu.TAORConcept
+	#dim ConceptBepaler As DOM.PM.Maatwerk.TAX.ConceptBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.ConceptBepaler).%New()
 	
-	If $$$Not(..Kenmerken.LadeHoogte = ..Kenmerken.RugHoogte) {
-		Set Concept = ..Enum.Concept.Baliko		
-	} Else {
-		Set Concept = ..Lade.GeefConcept()
-	}
-	
-	Quit Concept
+	Quit ConceptBepaler.Bepaal(..Kenmerken)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/TAX/GeefConcept/Base.cls.xml
===================================================================
diff -u -r33817 -r33854
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/TAX/GeefConcept/Base.cls.xml	(.../Base.cls.xml)	(revision 33817)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/TAX/GeefConcept/Base.cls.xml	(.../Base.cls.xml)	(revision 33854)
@@ -10,20 +10,19 @@
 </Property>
 
 <Method name="AssertConcept">
-<FormalSpec>LadeConcept:DOM.PM.enu.TAORConcept,LadeHoogte:DOM.PM.enu.TAORLadeHoogte,RugHoogte:DOM.PM.enu.TAORRugHoogte,VerwachteConcept:DOM.PM.enu.TAORConcept</FormalSpec>
+<FormalSpec>Concept:DOM.PM.enu.TAORConcept,LadeHoogte:DOM.PM.enu.TAORLadeHoogte,RugHoogte:DOM.PM.enu.TAORRugHoogte,VerwachteConcept:DOM.PM.enu.TAORConcept</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim LadeStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
-	
-	Do LadeStub.IndienMethodCall("GeefConcept").DanReturn(LadeConcept)
-	
 	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 	
 	Set Kenmerken.LadeHoogte = LadeHoogte
 	Set Kenmerken.RugHoogte = RugHoogte
+	Set Kenmerken.Concept = Concept
 	
-	Set ..LadeOnderdeel = ..LadeOnderdeel.%New(LadeStub, "", Kenmerken)
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Lade).%New("", Kenmerken)
 	
+	Set ..LadeOnderdeel = ..LadeOnderdeel.%New(Lade, "", Kenmerken)
+	
 	Do $$$AssertEquals(..LadeOnderdeel.GeefConcept(), VerwachteConcept)
 ]]></Implementation>
 </Method>