Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r62799 -r62801
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62799)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62801)
@@ -45,7 +45,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 3 is de GeleiderCode">
+<Method name="Test: Positie 3 is de GeleiderCode en anders een spatie">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken.Draagkracht = ""
 	Do ..AssertPositiesInKorttekst(" ", 3)
@@ -61,7 +61,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 4 is de LadeHoogte">
+<Method name="Test: Positie 4 is de LadeHoogte en anders een spatie">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken.LadeHoogte = ""
 	Do ..AssertPositiesInKorttekst(" ", 4)
@@ -80,7 +80,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 5 is de DesignCode">
+<Method name="Test: Positie 5 is de DesignCode en anders een slash">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken.Toepassing = ""
 	Do ..AssertPositiesInKorttekst("/", 5)
@@ -102,7 +102,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 6 is de FrontBevestigingCode">
+<Method name="Test: Positie 6 is de FrontBevestigingCode en anders een spatie">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken.FrontBevestiging = ""
 	Do ..AssertPositiesInKorttekst(" ", 6)
@@ -139,25 +139,25 @@
 	// Missende input brengt de locatie van andere codes niet in het gedrang:
 	Set ..MVXKenmerken.LadeDiepte = ""
 	Set ..MVXKenmerken.InterneBreedte = 564
-	Do ..AssertPositiesInKorttekst("MV4M/I S38Jx564    X     ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38Jx564    X OG  ", 1, 25)
 	
 	Set ..MVXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
 	Set ..MVXKenmerken.InterneBreedte = ""
-	Do ..AssertPositiesInKorttekst("MV4M/I S38J500x    X     ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38J500x    X OG  ", 1, 25)
 	
 	// Een spatie als input brengt de locatie van de andere codes niet in het gedrang:
 	Set ..MVXKenmerken.LadeDiepte = " "
 	Set ..MVXKenmerken.InterneBreedte = 564 // Property is type TECH.Numeric. Kan dus niet een spatie zijn.
-	Do ..AssertPositiesInKorttekst("MV4M/I S38J x564   X     ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38J x564   X OG  ", 1, 25)
 	
 	// Foute input brengt de locatie van de andere codes niet in het gedrang:
 	Set ..MVXKenmerken.LadeDiepte = ..#RandomInput
 	Set ..MVXKenmerken.InterneBreedte = 564 // Property is type TECH.Numeric. Kan dus geen RandomInput zijn.
-	Do ..AssertPositiesInKorttekst("MV4M/I S38Jr#6P)&xxX     ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38Jr#6P)&xxX OG  ", 1, 25)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Positie 20 is de VerpakkingCode">
+<Method name="Test: Positie 20 is de VerpakkingCode en anders een spatie">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken.VerpakkingType = ""
 	Do ..AssertPositiesInKorttekst(" ", 20)
@@ -186,6 +186,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Posities 22 tot en met 23 zijn de LadeKleur en anders 2 spaties">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken.LadeKleur = ""
+	Do ..AssertPositiesInKorttekst("  ", 22, 23)
+	
+	Set ..MVXKenmerken.LadeKleur = " "
+	Do ..AssertPositiesInKorttekst("  ", 22, 23)
+	
+	Set ..MVXKenmerken.LadeKleur = "  "
+	Do ..AssertPositiesInKorttekst("  ", 22, 23)
+	
+	Set ..MVXKenmerken.LadeKleur = ..#RandomInput
+	Do ..AssertPositiesInKorttekst("  ", 22, 23)
+	
+	Set ..MVXKenmerken.LadeKleur = ..Enum.LadeKleur.Indiumgrijs
+	Do ..AssertPositiesInKorttekst("IG", 22, 23)
+	
+	Set ..MVXKenmerken.LadeKleur = ..Enum.LadeKleur.Oriongrijs
+	Do ..AssertPositiesInKorttekst("OG", 22, 23)
+]]></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 -r62798 -r62801
--- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62798)
+++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62801)
@@ -15,10 +15,10 @@
 	#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 BuitenkleurCode As TECH.String = ..GeefBuitenKleurCode(IngegevenKenmerken)
 	#dim BinnenkleurCode As TECH.String = "" // ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken)
 	
-	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)
+	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>
@@ -119,6 +119,23 @@
 	Quit VerpakkingCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBuitenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BuitenKleurCode As TECH.String = "  "
+	
+	If (IngegevenKenmerken.LadeKleur = ..Enum.LadeKleur.Indiumgrijs) {
+		Set BuitenKleurCode = "IG"
+	} ElseIf (IngegevenKenmerken.LadeKleur = ..Enum.LadeKleur.Oriongrijs) {
+		Set BuitenKleurCode = "OG"
+	}
+	
+	Quit BuitenKleurCode
+]]></Implementation>
+</Method>
 </Class>