Index: DOM/PM/impl/RVGLangtekstCreator.cls.xml
===================================================================
diff -u -r69357 -r69365
--- DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 69357)
+++ DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 69365)
@@ -37,20 +37,22 @@
 <Method name="VoegToeBasisGegevens">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) {
+	#dim FrontMeegeleverd As %Boolean = ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.MateriaalOpties, ##class(DOM.PM.enu.RVGMateriaalOpties).EenKleur(), ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren())
+	#dim IsProductiewijzeVolledig As %Boolean = (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd())
+	If (FrontMeegeleverd && IsProductiewijzeVolledig) {
 		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("InclusiefDeuren"))
 	}
 	
 	Do ..VoegToeLangtekstParagraaf(..GeefToepassingTekst())
 	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Corpusconstructie")_": "_ ..Vertaler.GeefVertaling(..IngegevenKenmerken.CorpusConstructie))
 	
-	If $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) {
+	If $$$Not(IsProductiewijzeVolledig) {
 		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("VoorDiktePocketZijkant") _ " " _ ..IngegevenKenmerken.PocketZijkantDikte _"mm")
 	}
 	
 	Do ..VoegToeLangtekstParagraaf(..GeefInbouwmaatTekst())
 	
-	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) {
+	If (IsProductiewijzeVolledig) {
 		Do ..VoegToeLangtekstParagraaf(..GeefPocketMaatLinksTekst())
 		Do ..VoegToeLangtekstParagraaf(..GeefPocketMaatRechtsTekst())
 		Do ..VoegToeLangtekstParagraaf(..GeefKleurPocketTekst())
@@ -63,8 +65,10 @@
 			Do ..VoegToeLangtekstParagraaf(..GeefDeurmaatRechtsTekst())
 		}
 		
-		Do ..VoegToeLangtekstParagraaf(..GeefKleurDeurenTekst())
-		Do ..VoegToeLangtekstParagraaf(..GeefKleurDeurenKantenbandTekst())
+		If (FrontMeegeleverd && IsProductiewijzeVolledig) {
+			Do ..VoegToeLangtekstParagraaf(..GeefKleurDeurenTekst())
+			Do ..VoegToeLangtekstParagraaf(..GeefKleurDeurenKantenbandTekst())
+		}
 	}
 	
 	#dim AccessoireAanwezig As %Boolean = (..IngegevenKenmerken.DeurSteunNaarBinnen || ..IngegevenKenmerken.ContactSchakelaarHouderInbegrepen || ..IngegevenKenmerken.Krasbescherming)
@@ -114,7 +118,14 @@
 <Method name="GeefKleurPocketTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurPocket")_": "
+<Implementation><![CDATA[
+	#dim Kleur As %String = ..IngegevenKenmerken.DecornaamA
+	
+	If (..IngegevenKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()) {
+		Set Kleur = ..IngegevenKenmerken.DecornaamB
+	}
+	
+	Quit ..Vertaler.GeefVertaling("KleurPocket")_": " _ Kleur
 ]]></Implementation>
 </Method>
 
@@ -149,7 +160,7 @@
 <Method name="GeefKleurDeurenTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurDeuren")_": "
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurDeuren")_": " _ ..IngegevenKenmerken.DecornaamA
 ]]></Implementation>
 </Method>