Index: vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r66415 -r67460
--- vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 66415)
+++ vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 67460)
@@ -66,27 +66,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 4 is de RugHoogte en anders een spatie">
+<Method name="Test: Positie 4 is de LadeHoogte en anders een spatie">
 <Implementation><![CDATA[
-	Set ..TBXKenmerken.RugHoogte = ""
+	Set ..TBXKenmerken.LadeHoogte = ""
 	Do ..AssertPositiesInKorttekst(" ", 4)
 	
-	Set ..TBXKenmerken.RugHoogte = ..#RandomInput
+	Set ..TBXKenmerken.LadeHoogte = ..#RandomInput
 	Do ..AssertPositiesInKorttekst(" ", 4)
 	
-	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.N
+	Set ..TBXKenmerken.LadeHoogte = "N"
 	Do ..AssertPositiesInKorttekst("N", 4)
 	
-	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.C
+	Set ..TBXKenmerken.LadeHoogte = "C"
 	Do ..AssertPositiesInKorttekst("C", 4)
 	
-	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.K
+	Set ..TBXKenmerken.LadeHoogte = "K"
 	Do ..AssertPositiesInKorttekst("K", 4)
 	
-	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.B
+	Set ..TBXKenmerken.LadeHoogte = "B"
 	Do ..AssertPositiesInKorttekst("B", 4)
 	
-	Set ..TBXKenmerken.RugHoogte = ..Enum.RugHoogte.D
+	Set ..TBXKenmerken.LadeHoogte = "D"
 	Do ..AssertPositiesInKorttekst("D", 4)
 ]]></Implementation>
 </Method>
Index: DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r66415 -r67460
--- DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 66415)
+++ DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 67460)
@@ -10,7 +10,7 @@
 	#dim Korttekst as TECH.String = ""
 	
 	#dim GeleiderCode As TECH.String = ..GeefGeleiderCode(IngegevenKenmerken)
-	#dim RugHoogteCode As TECH.String = ..GeefRugHoogteCode(IngegevenKenmerken)
+	#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)
@@ -20,7 +20,7 @@
 	
 	Set Korttekst = "TB"
 					_GeleiderCode
-					_RugHoogteCode
+					_LadeHoogteCode
 					_DesignCode
 					_FrontBevestigingCode
 					_$Select(($Length(DossierNummer)=5 ||($Length(DesignCode)=2)):DossierNummer, 1:"."_DossierNummer)
@@ -52,28 +52,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRugHoogteCode">
+<Method name="GeefLadeHoogteCode">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim RugHoogteCode As TECH.String = " "
+	#dim LadeHoogteCode As TECH.String = " "
 	
-	If (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.N) {
-		Set RugHoogteCode = ..Enum.RugHoogte.N
-	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.M) {
-		Set RugHoogteCode = ..Enum.RugHoogte.M
-	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.C) {
-		Set RugHoogteCode = ..Enum.RugHoogte.C
-	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.K) {
-		Set RugHoogteCode = ..Enum.RugHoogte.K
-	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.B) {
-		Set RugHoogteCode = ..Enum.RugHoogte.B
-	} ElseIf (IngegevenKenmerken.RugHoogte = ..Enum.RugHoogte.D) {
-		Set RugHoogteCode = ..Enum.RugHoogte.D
+	If (IngegevenKenmerken.LadeHoogte = "N") {
+		Set LadeHoogteCode = "N"
+	} ElseIf (IngegevenKenmerken.LadeHoogte = "M") {
+		Set LadeHoogteCode = "M"
+	} ElseIf (IngegevenKenmerken.LadeHoogte = "C") {
+		Set LadeHoogteCode = "C"
+	} ElseIf (IngegevenKenmerken.LadeHoogte = "K") {
+		Set LadeHoogteCode = "K"
+	} ElseIf (IngegevenKenmerken.LadeHoogte = "B") {
+		Set LadeHoogteCode = "B"
+	} ElseIf (IngegevenKenmerken.LadeHoogte = "D") {
+		Set LadeHoogteCode = "D"
 	}
 	
-	Quit RugHoogteCode
+	Quit LadeHoogteCode
 ]]></Implementation>
 </Method>