Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r62801 -r62802
--- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62801)
+++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62802)
@@ -139,21 +139,21 @@
 	// 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 OG  ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38Jx564    X OGOG", 1, 25)
 	
 	Set ..MVXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte500
 	Set ..MVXKenmerken.InterneBreedte = ""
-	Do ..AssertPositiesInKorttekst("MV4M/I S38J500x    X OG  ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38J500x    X OGOG", 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 OG  ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38J x564   X OGOG", 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 OG  ", 1, 25)
+	Do ..AssertPositiesInKorttekst("MV4M/I S38Jr#6P)&xxX OGOG", 1, 25)
 ]]></Implementation>
 </Method>
 
@@ -208,6 +208,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Posities 24 tot en met 25 zijn de BodemKleur en anders 2 spaties">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken.BodemKleur = ""
+	Do ..AssertPositiesInKorttekst("  ", 24, 25)
+	
+	Set ..MVXKenmerken.BodemKleur = " "
+	Do ..AssertPositiesInKorttekst("  ", 24, 25)
+	
+	Set ..MVXKenmerken.BodemKleur = "  "
+	Do ..AssertPositiesInKorttekst("  ", 24, 25)
+	
+	Set ..MVXKenmerken.BodemKleur = ..#RandomInput
+	Do ..AssertPositiesInKorttekst("  ", 24, 25)
+	
+	Set ..MVXKenmerken.BodemKleur = ..Enum.BodemKleur.Indiumgrijs
+	Do ..AssertPositiesInKorttekst("IG", 24, 25)
+	
+	Set ..MVXKenmerken.BodemKleur = ..Enum.BodemKleur.Oriongrijs
+	Do ..AssertPositiesInKorttekst("OG", 24, 25)
+]]></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 -r62801 -r62802
--- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62801)
+++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 62802)
@@ -16,7 +16,7 @@
 	#dim LadeDimensie As TECH.String = ..GeefLadeDimensie(IngegevenKenmerken)
 	#dim VerpakkingCode As TECH.String = ..GeefVerpakkingCode(IngegevenKenmerken)
 	#dim BuitenkleurCode As TECH.String = ..GeefBuitenKleurCode(IngegevenKenmerken)
-	#dim BinnenkleurCode As TECH.String = "" // ..KleurCodeBepaler.GeefBinnenKleurCode(IngegevenKenmerken)
+	#dim BinnenkleurCode As TECH.String = ..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)
 		
@@ -136,6 +136,23 @@
 	Quit BuitenKleurCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBinnenKleurCode">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim BinnenKleurCode As TECH.String = "  "
+	
+	If (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Indiumgrijs) {
+		Set BinnenKleurCode = "IG"
+	} ElseIf (IngegevenKenmerken.BodemKleur = ..Enum.BodemKleur.Oriongrijs) {
+		Set BinnenKleurCode = "OG"
+	}
+	
+	Quit BinnenKleurCode
+]]></Implementation>
+</Method>
 </Class>