Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(revision 62787)
@@ -0,0 +1,52 @@
+<?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>
+
+<Parameter name="DossierNummer">
+<Type>%String</Type>
+<Default>S38J</Default>
+</Parameter>
+
+<Property name="MvxKorttekstBepaler">
+<Type>DOM.PM.Maatwerk.MVX.impl.KorttekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MVXKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	
+ 	Set ..MvxKorttekstBepaler = ##class(DOM.PM.Maatwerk.MVX.impl.KorttekstBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Korttekst begint met MV">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade()
+	
+	#dim Korttekst As TECH.String = ..GeefKorttekst()
+	#dim ControleKorttekst As TECH.String = "MV"
+	
+	Do $$$AssertEquals($Extract(Korttekst,1,2), ControleKorttekst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New() // VOORLOPIG NEW. Eens de link met .NET voorzien is: ..GeefHalffabItemsBoom(..MVXKenmerken)
+	
+	Quit ..MvxKorttekstBepaler.BepaalKorttekst(..#DossierNummer, ..MVXKenmerken, HalffabItemsBoom)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(revision 62787)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.MVX.impl.KorttekstBepaler">
+<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>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Korttekst as %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)
+	
+	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>
+</Class>
+
+
+</Export>