Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml
===================================================================
diff -u -r30656 -r33812
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 30656)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug.cls.xml	(.../Rug.cls.xml)	(revision 33812)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug">
-<Super>DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel,DOM.PM.Maatwerk.LadeInfo.Rug</Super>
+<Super>DOM.PM.Maatwerk.LadeInfo.impl.LadeOnderdeel,DOM.PM.Maatwerk.LadeInfo.Rug,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Parameter name="GroepID">
 <Type>%String</Type>
@@ -72,7 +72,16 @@
 
 <Method name="GeefConcept">
 <ReturnType>DOM.PM.enu.TAORConcept</ReturnType>
-<Implementation><![CDATA[	quit ..Lade.GeefConcept()
+<Implementation><![CDATA[
+	#dim Concept As DOM.PM.enu.TAORConcept
+	
+	If $$$Not(..Kenmerken.LadeHoogte = ..Kenmerken.RugHoogte) {
+		Set Concept = ..Enum.Concept.Baliko		
+	} Else {
+		Set Concept = ..Lade.GeefConcept()
+	}
+	
+	Quit Concept
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/TAX/Rug/Test.cls.xml	(revision 33812)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Method name="Test: LadeConcept Valinge zonder afwijkende RugHoogte resulteert in RugConcept Valinge">
+<Implementation><![CDATA[	Do ..AssertRugConcept(..Enum.Concept.Valinge, ..Enum.LadeHoogte.C, ..Enum.RugHoogte.C, ..Enum.Concept.Valinge)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LadeConcept Valinge met afwijkende RugHoogte resulteert in RugConcept Baliko">
+<Implementation><![CDATA[	Do ..AssertRugConcept(..Enum.Concept.Valinge, ..Enum.LadeHoogte.C, ..Enum.RugHoogte.M, ..Enum.Concept.Baliko)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LadeConcept Baliko zonder afwijkende RugHoogte resulteert in RugConcept Baliko">
+<Implementation><![CDATA[	Do ..AssertRugConcept(..Enum.Concept.Baliko, ..Enum.LadeHoogte.C, ..Enum.RugHoogte.C, ..Enum.Concept.Baliko)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LadeConcept Baliko met afwijkende RugHoogte resulteert in RugConcept Baliko">
+<Implementation><![CDATA[	Do ..AssertRugConcept(..Enum.Concept.Baliko, ..Enum.LadeHoogte.C, ..Enum.RugHoogte.M, ..Enum.Concept.Baliko)
+]]></Implementation>
+</Method>
+
+<Method name="AssertRugConcept">
+<FormalSpec>LadeConcept:DOM.PM.enu.TAORConcept,LadeHoogte:DOM.PM.enu.TAORLadeHoogte,RugHoogte:DOM.PM.enu.TAORRugHoogte,VerwachtRugConcept: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
+	
+	#dim Rug As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug = ##class(DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New(LadeStub, "", Kenmerken)
+	
+	Do $$$AssertEquals(Rug.GeefConcept(), VerwachtRugConcept)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>