Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r62794 -r62795
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62794)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62795)
@@ -111,6 +111,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Posities 7 tot en met 11 zijn het DossierNummer rechts gelijnd">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst($Justify(..#DossierNummer, 5), 7, 11)
+]]></Implementation>
+</Method>
+
 <Method name="AssertPositiesInKorttekst">
 <FormalSpec>ControleKorttekst:TECH.String,BeginPositie:TECH.Integer,EindPositie:TECH.Integer=0</FormalSpec>
 <Private>1</Private>
Index: DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r62794 -r62795
--- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62794)
+++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62795)
@@ -18,7 +18,7 @@
 	#dim BuitenkleurCode As TECH.String = "" // ..KleurCodeBepaler.GeefBuitenKleurCode(IngegevenKenmerken)
 	#dim BinnenkleurCode As TECH.String = "" // ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken)
 	
-	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)
+	Set Korttekst = "MV"_GeleiderCode_LadeHoogteCode_DesignCode_FrontBevestigingCode_$Justify(DossierNummer,5)_LadeDimensie_$Justify(VerpakkingCode,1)_" "_$Justify($Extract(BuitenkleurCode,1,2),2)_$Justify($Extract(BinnenkleurCode,1,2),2)
 		
 	Quit Korttekst
 ]]></Implementation>