Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r62787 -r62790
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62787)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62790)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.MVX.impl.KorttekstBepaler.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.MVX.Base</Super>
 
 <Parameter name="DossierNummer">
 <Type>%String</Type>
@@ -23,17 +23,37 @@
  	Do ##super()
  	
  	Set ..MvxKorttekstBepaler = ##class(DOM.PM.Maatwerk.MVX.impl.KorttekstBepaler).%New()
+ 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Korttekst begint met MV">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("MV", 1, 2)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Positie 3 is de GeleiderCode">
 <Implementation><![CDATA[
-	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	Set ..MVXKenmerken.Draagkracht = ""
+	Do ..AssertPositiesInKorttekst(" ", 3)
 	
+	Set ..MVXKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht40
+	Do ..AssertPositiesInKorttekst("4", 3)
+	
+	Set ..MVXKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht70
+	Do ..AssertPositiesInKorttekst("7", 3)
+]]></Implementation>
+</Method>
+
+<Method name="AssertPositiesInKorttekst">
+<FormalSpec>ControleKorttekst:TECH.String,BeginPositie:TECH.Integer,EindPositie:TECH.Integer=0</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	#dim Korttekst As TECH.String = ..GeefKorttekst()
-	#dim ControleKorttekst As TECH.String = "MV"
 	
-	Do $$$AssertEquals($Extract(Korttekst,1,2), ControleKorttekst)
+	Set EindPositie = $$$If((EindPositie = 0), BeginPositie, EindPositie)
+	
+	Do $$$AssertEquals($Extract(Korttekst, BeginPositie, EindPositie), ControleKorttekst)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r62787 -r62790
--- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62787)
+++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62790)
@@ -4,25 +4,42 @@
 <Super>DOM.PM.Maatwerk.Lade.KorttekstBepaler,DOM.PM.Maatwerk.MVX.impl.Base</Super>
 
 <Method name="BepaalKorttekst">
-<FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<FormalSpec>DossierNummer:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim Korttekst as %String = ""
+	#dim Korttekst as TECH.String = ""
 	
-	#dim GeleiderCode As %String = "" // ..GeefGeleiderCode()
-	#dim LadeHoogte As %String = ""
-	#dim DesignCode As %String = "" // ..GeefDesignCode()
-	#dim FrontBevestigingCode As %String = "" // ..GeefFrontBevestigingCode()
-	#dim LadeDimensie As %String = "" // ..GeefLadeDimensie()
-	#dim VerpakkingCode As %String = "" // ..GeefVerpakkingCode()
-	#dim BuitenkleurCode As %String = "" // ..KleurCodeBepaler.GeefBuitenKleurCode(IngegevenKenmerken)
-	#dim BinnenkleurCode As %String = "" // ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken)
+	#dim GeleiderCode As TECH.String = ..GeefGeleiderCode(IngegevenKenmerken)
+	#dim LadeHoogte As TECH.String = ""
+	#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)
 		
 	Quit Korttekst
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGeleiderCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeleiderCode As TECH.String = " "
+	
+	If (IngegevenKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht40) {
+		Set GeleiderCode = "4"
+	} ElseIf (IngegevenKenmerken.Draagkracht = ..Enum.Draagkracht.Draagkracht70) {
+		Set GeleiderCode = "7"
+	}
+	
+	Quit GeleiderCode
+]]></Implementation>
+</Method>
 </Class>