Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml
===================================================================
diff -u -r63687 -r65176
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 63687)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentKorttekstBepaler.cls.xml	(.../LosseComponentKorttekstBepaler.cls.xml)	(revision 65176)
@@ -84,7 +84,12 @@
 	If (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Bodem) {
 		Set $Extract(Korttekst, 10, 11) = TAORKenmerken.LadeDiepte * 10
 	} ElseIf ((TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Front) || (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.FrontLBX)) {
-		#dim FrontEindkapKleurCode As TECH.String = $Extract(##class(DOM.PM.enu.TAORFrontEindkapKleur).LogicalToDisplay(TAORKenmerken.FrontEindkapKleur), 1, 2)
+		#dim FrontEindkapKleurCode As TECH.String 
+		If (TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).ZwartKunststof()) {
+			Set FrontEindkapKleurCode = " S"
+		} Else {
+			Set FrontEindkapKleurCode = $Extract(##class(DOM.PM.enu.TAORFrontEindkapKleur).LogicalToDisplay(TAORKenmerken.FrontEindkapKleur), 1, 2)
+		}
 		Set $Extract(Korttekst, 10, 11) = ##class(TECH.StringUtils).ToUpper(FrontEindkapKleurCode)
 	} ElseIf (TAORKenmerken.ProductieWijze = ..Enum.ProductieWijze.Rug) {
 		Set $Extract(Korttekst, 10, 11) = "  "