Index: DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r68059 -r69037
--- DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 68059)
+++ DOM/PM/Maatwerk/INK/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 69037)
@@ -39,14 +39,15 @@
 	Set ..HalffabItemsBoom = HalffabItemsBoom
 	
 	#dim Product As DOM.PM.AdministratiefProduct
-	#dim ProductID, KortTekstBewerktHalffabrikaat As TECH.String
+	#dim ProductID, KortTekstBewerktHalffabrikaat, KleurProduct As TECH.String
 	#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat())
 	
 	Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID()	
 	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
 	Set KortTekstBewerktHalffabrikaat = Product.GeefKorttekst()	
+	Set KleurProduct = $Extract(Product.GeefKorttekst(), *-3, *)
 	
-	Set Korttekst = $Extract(KortTekstBewerktHalffabrikaat, 1, 7)_$J(DossierNummer,4)_"VERZ"
+	Set Korttekst = $Extract(KortTekstBewerktHalffabrikaat, 1, 7)_$J(DossierNummer,4)_"VERZ"_$J(KleurProduct,10)
 	
 	Quit Korttekst
 ]]></Implementation>
Index: vhUnitTest/DOM/PM/Maatwerk/INK/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r68077 -r69037
--- vhUnitTest/DOM/PM/Maatwerk/INK/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 68077)
+++ vhUnitTest/DOM/PM/Maatwerk/INK/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 69037)
@@ -36,7 +36,7 @@
 </Method>
 
 <Method name="Test: Standaard gedrag">
-<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("ZR7.108 38JVERZ", 1, 25)
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("ZR7.108 38JVERZ      ELN2", 1, 25)
 ]]></Implementation>
 </Method>
 
@@ -50,11 +50,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: VERZ achteraan toegevoegd">
-<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("VERZ", 12, 16)
+<Method name="Test: VERZ toegevoegd">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("VERZ", 12, 15)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Kleur wordt als laatste 4 karakters toegevoegd">
+<Implementation><![CDATA[	Do ..AssertPositiesInKorttekst("ELN2", 22, 25)
+]]></Implementation>
+</Method>
+
 <Method name="AssertPositiesInKorttekst">
 <FormalSpec>ControleKorttekst:TECH.String,BeginPositie:TECH.Integer,EindPositie:TECH.Integer=0</FormalSpec>
 <Private>1</Private>
@@ -63,7 +68,7 @@
 	
 	Set EindPositie = $$$If((EindPositie = 0), BeginPositie, EindPositie)
 	
-	Do $$$AssertEquals($Length(Korttekst), 15)
+	Do $$$AssertEquals($Length(Korttekst), 25)
 	Do $$$AssertEquals($Extract(Korttekst, BeginPositie, EindPositie), ControleKorttekst)
 ]]></Implementation>
 </Method>