Index: vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r67460 -r67462
--- vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 67460)
+++ vhUnitTest/DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 67462)
@@ -88,6 +88,12 @@
 	
 	Set ..TBXKenmerken.LadeHoogte = "D"
 	Do ..AssertPositiesInKorttekst("D", 4)
+	
+	Set ..TBXKenmerken.LadeHoogte = "L"
+	Do ..AssertPositiesInKorttekst("L", 4)
+	
+	Set ..TBXKenmerken.LadeHoogte = "G"
+	Do ..AssertPositiesInKorttekst("G", 4)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r67460 -r67462
--- DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 67460)
+++ DOM/PM/Maatwerk/TBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 67462)
@@ -71,7 +71,11 @@
 		Set LadeHoogteCode = "B"
 	} ElseIf (IngegevenKenmerken.LadeHoogte = "D") {
 		Set LadeHoogteCode = "D"
-	}
+	} ElseIf (IngegevenKenmerken.LadeHoogte = "L") {
+		Set LadeHoogteCode = "L"
+	} ElseIf (IngegevenKenmerken.LadeHoogte = "G") {
+		Set LadeHoogteCode = "G"
+	} 
 	
 	Quit LadeHoogteCode
 ]]></Implementation>