Index: DOM/PM/impl/RVGLangtekstCreator.cls.xml
===================================================================
diff -u -r69592 -r72552
--- DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 69592)
+++ DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 72552)
@@ -55,7 +55,7 @@
 	#dim AccessoireAanwezig As %Boolean = (..IngegevenKenmerken.DeurSteunNaarBinnen || ..IngegevenKenmerken.ContactSchakelaarHouderInbegrepen || ..IngegevenKenmerken.Krasbescherming)
 	If (AccessoireAanwezig) {
 		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Accessoires") _ ":")
-		Do:(..IngegevenKenmerken.DeurSteunNaarBinnen) ..VoegToeLangtekstParagraaf(..GeefDeursteunNaarBinnenTekst())
+		Do:($$$Not(..IngegevenKenmerken.DeurSteunNaarBinnen = ##class(DOM.PM.enu.RVGDeurSteunNaarBinnen).Nee())) ..VoegToeLangtekstParagraaf(..GeefDeursteunNaarBinnenTekst())
 		Do:(..IngegevenKenmerken.ContactSchakelaarHouderInbegrepen) ..VoegToeLangtekstParagraaf(..GeefContactSchakelaarHouderTekst())
 		Do:(..IngegevenKenmerken.Krasbescherming) ..VoegToeLangtekstParagraaf(..GeefKrasbeschermingTekst())
 	}
@@ -122,7 +122,7 @@
 <Implementation><![CDATA[
 	#dim PocketBreedte As %Decimal
 	
-	If ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).UnoDuo()) {
+	If ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).UnoDuo(), ##class(DOM.PM.enu.RVGToepassing).UnoUno()) {
 		Set PocketBreedte = 100
 	} Else {
 		Set PocketBreedte = 150
@@ -138,7 +138,7 @@
 <Implementation><![CDATA[
 	#dim PocketBreedte As %Decimal
 	
-	If ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).DuoUno()) {
+	If ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).DuoUno(), ##class(DOM.PM.enu.RVGToepassing).UnoUno()) {
 		Set PocketBreedte = 100
 	} Else {
 		Set PocketBreedte = 150
@@ -151,14 +151,7 @@
 <Method name="GeefKleurPocketTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<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><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurPocket")_": " _ ..IngegevenKenmerken.DecornaamA
 ]]></Implementation>
 </Method>
 
@@ -180,7 +173,14 @@
 <Method name="GeefKleurDeurenTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurDeuren")_": " _ ..IngegevenKenmerken.DecornaamA
+<Implementation><![CDATA[
+	#dim Kleur As %String = ..IngegevenKenmerken.DecornaamA
+	
+	If (..IngegevenKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).TweeKleuren()) {
+		Set Kleur = ..IngegevenKenmerken.DecornaamB
+	}
+	
+	Quit ..Vertaler.GeefVertaling("KleurDeuren")_": " _ Kleur
 ]]></Implementation>
 </Method>