Index: DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r62793 -r62794
--- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62793)
+++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62794)
@@ -10,15 +10,15 @@
 	#dim Korttekst as TECH.String = ""
 	
 	#dim GeleiderCode As TECH.String = ..GeefGeleiderCode(IngegevenKenmerken)
-	#dim LadeHoogte As TECH.String = $$$If($$$HasLength(IngegevenKenmerken.LadeHoogte), IngegevenKenmerken.LadeHoogte, " ")
+	#dim LadeHoogteCode As TECH.String = ..GeefLadeHoogteCode(IngegevenKenmerken)
 	#dim DesignCode As TECH.String = ..GeefDesignCode(IngegevenKenmerken)
 	#dim FrontBevestigingCode As TECH.String = ..GeefFrontBevestigingCode(IngegevenKenmerken)
 	#dim LadeDimensie As TECH.String = "" // ..GeefLadeDimensie(IngegevenKenmerken)
 	#dim VerpakkingCode As TECH.String = "" // ..GeefVerpakkingCode(IngegevenKenmerken)
 	#dim BuitenkleurCode As TECH.String = "" // ..KleurCodeBepaler.GeefBuitenKleurCode(IngegevenKenmerken)
 	#dim BinnenkleurCode As TECH.String = "" // ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken)
 	
-	Set Korttekst = "MV"_GeleiderCode_LadeHoogte_DesignCode_FrontBevestigingCode_$J(DossierNummer,5)_LadeDimensie_$J(VerpakkingCode,1)_" "_$J($E(BuitenkleurCode,1,2),2)_$J($E(BinnenkleurCode,1,2),2)
+	Set Korttekst = "MV"_GeleiderCode_LadeHoogteCode_DesignCode_FrontBevestigingCode_$J(DossierNummer,5)_LadeDimensie_$J(VerpakkingCode,1)_" "_$J($E(BuitenkleurCode,1,2),2)_$J($E(BinnenkleurCode,1,2),2)
 		
 	Quit Korttekst
 ]]></Implementation>
@@ -41,6 +41,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLadeHoogteCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeHoogteCode As TECH.String = " "
+	
+	If (IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.N) {
+		Set LadeHoogteCode = ..Enum.LadeHoogte.N
+	} ElseIf (IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) {
+		Set LadeHoogteCode = ..Enum.LadeHoogte.M
+	} ElseIf (IngegevenKenmerken.LadeHoogte = ..Enum.LadeHoogte.E) {
+		Set LadeHoogteCode = ..Enum.LadeHoogte.E
+	}
+	
+	Quit LadeHoogteCode
+]]></Implementation>
+</Method>
+
 <Method name="GeefDesignCode">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r62793 -r62794
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62793)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62794)
@@ -8,6 +8,11 @@
 <Default>S38J</Default>
 </Parameter>
 
+<Parameter name="RandomInput">
+<Type>%String</Type>
+<Default><![CDATA[r#6P)&x]]></Default>
+</Parameter>
+
 <Property name="MvxKorttekstBepaler">
 <Type>DOM.PM.Maatwerk.MVX.impl.KorttekstBepaler</Type>
 <Private>1</Private>
@@ -37,6 +42,9 @@
 	Set ..MVXKenmerken.Draagkracht = ""
 	Do ..AssertPositiesInKorttekst(" ", 3)
 	
+	Set ..MVXKenmerken.Draagkracht = ..#RandomInput
+	Do ..AssertPositiesInKorttekst(" ", 3)
+	
 	Set ..MVXKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht40
 	Do ..AssertPositiesInKorttekst("4", 3)
 	
@@ -50,6 +58,9 @@
 	Set ..MVXKenmerken.LadeHoogte = ""
 	Do ..AssertPositiesInKorttekst(" ", 4)
 	
+	Set ..MVXKenmerken.LadeHoogte = ..#RandomInput
+	Do ..AssertPositiesInKorttekst(" ", 4)
+	
 	Set ..MVXKenmerken.LadeHoogte = ..Enum.LadeHoogte.N
 	Do ..AssertPositiesInKorttekst("N", 4)
 	
@@ -69,6 +80,9 @@
 	Set ..MVXKenmerken.Toepassing = " "
 	Do ..AssertPositiesInKorttekst("/", 5)
 	
+	Set ..MVXKenmerken.Toepassing = ..#RandomInput
+	Do ..AssertPositiesInKorttekst("/", 5)
+	
 	Set ..MVXKenmerken.Toepassing = ..Enum.Toepassing.Lade
 	Do ..AssertPositiesInKorttekst("/", 5)
 	
@@ -85,6 +99,9 @@
 	Set ..MVXKenmerken.FrontBevestiging = ""
 	Do ..AssertPositiesInKorttekst(" ", 6)
 	
+	Set ..MVXKenmerken.FrontBevestiging = ..#RandomInput
+	Do ..AssertPositiesInKorttekst(" ", 6)
+	
 	Set ..MVXKenmerken.IsBinnenlade = $$$True
 	Do ..AssertPositiesInKorttekst("Z", 6)