Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml
===================================================================
diff -u -r38669 -r38912
--- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml	(.../TestTBXKenmerken.cls.xml)	(revision 38669)
+++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml	(.../TestTBXKenmerken.cls.xml)	(revision 38912)
@@ -3,6 +3,15 @@
 <Class name="vhUnitTest.DOM.PM.impl.IKCanonischeWaarde.TestTBXKenmerken">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: StandaardLade">
+<Implementation><![CDATA[
+	Set CanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
+	
+	#dim CanonischeWaarde As %String = CanonischeWaardeGenerator.GeefCanonischeWaarde(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLade())
+	Do $$$AssertEquals(CanonischeWaarde,";;\\;\\;600;400;;0;;BZ;30;0;I;;;;;L;;;HS;;;M;;;;;0;;;;;;V1;0;0;;;;;M;BZ;M;Laag;;;;;B;;;;")
+]]></Implementation>
+</Method>
+
 <Method name="TestTBXKenmerken">
 <Implementation><![CDATA[
 	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
@@ -65,7 +74,7 @@
 	Set TBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1
 	Set TBXKenmerken.InterneBreedte = 200
 	
-	Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(TBXKenmerken),";;\Bodem;Rug\;\Zijkant->Links;Zijkant->Rechts\;200;250;TBX_Plus;1;Z;LG;30;3;S;SW;1;FrontSteun;0;SP2;1;0;HS;DG;RHK;N;Hout;M;Staal;SZK;1;102;106;103;104;105;P;0;1;Reling;Metaal;FZ;F;K;IN;G;Boxside;Leder;DFZ;2;LG;B;200;18;1;200","De canonische waarde voor KAD")
+	Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(TBXKenmerken),";;\Bodem;Rug\;\Zijkant->Links;Zijkant->Rechts\;200;250;TBX_Plus;1;Z;LG;30;3;S;SW;1;FrontSteun;0;SP2;1;0;HS;DG;RHK;N;Hout;M;Staal;SZK;1;102;106;103;104;105;P;0;1;Reling;Metaal;FZ;F;K;IN;G;Boxside;Leder;DFZ;2;LG;B;200;18;1;200")
 ]]></Implementation>
 </Method>
 </Class>