Index: vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r69423 -r69438
--- vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 69423)
+++ vhUnitTest/DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 69438)
@@ -111,6 +111,9 @@
 <Implementation><![CDATA[
 	Do ..AssertPositiesInKorttekst("P", 14)
 	
+	Set ..RVGKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).EenKleur() 	
+	Do ..AssertPositiesInKorttekst("D", 14)
+	
 	Set ..RVGKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten()
 	Do ..AssertPositiesInKorttekst("C", 14)
 	
Index: DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r69363 -r69438
--- DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 69363)
+++ DOM/PM/Maatwerk/RVG/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 69438)
@@ -94,6 +94,8 @@
 		Set ProductieWijzeCode = "C"
 	} ElseIf (IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.LosseComponentenOpMaat) {
 		Set ProductieWijzeCode = "M"
+	} ElseIf (IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.Voorgemonteerd) && $$$Not(IngegevenKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()) {
+		Set ProductieWijzeCode = "D"
 	} ElseIf (IngegevenKenmerken.ProductieWijze = ..Enum.ProductieWijze.Voorgemonteerd) {
 		Set ProductieWijzeCode = "P"
 	}