Index: DOM/PM/impl/RVGLangtekstCreator.cls.xml
===================================================================
diff -u -r69365 -r69418
--- DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 69365)
+++ DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 69418)
@@ -3,18 +3,6 @@
 <Class name="DOM.PM.impl.RVGLangtekstCreator">
 <Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.RVG.impl.Base</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method %OnNew() As %Status [ Private, ProcedureBlock = 1, ServerOnly = 1 ]
-{
-	
-	Quit $$$OK
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="BepaalHoofding">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -39,35 +27,28 @@
 <Implementation><![CDATA[
 	#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(..GeefInclusiefDeurenTekst())
 	}
 	
 	Do ..VoegToeLangtekstParagraaf(..GeefToepassingTekst())
-	Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Corpusconstructie")_": "_ ..Vertaler.GeefVertaling(..IngegevenKenmerken.CorpusConstructie))
+	Do ..VoegToeLangtekstParagraaf(..GeefCorpusconstructieTekst())
 	
 	If $$$Not(IsProductiewijzeVolledig) {
-		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("VoorDiktePocketZijkant") _ " " _ ..IngegevenKenmerken.PocketZijkantDikte _"mm")
+		Do ..VoegToeLangtekstParagraaf(..GeefDiktePocketZijkantTekst())
 	}
 	
 	Do ..VoegToeLangtekstParagraaf(..GeefInbouwmaatTekst())
 	
 	If (IsProductiewijzeVolledig) {
-		Do ..VoegToeLangtekstParagraaf(..GeefPocketMaatLinksTekst())
-		Do ..VoegToeLangtekstParagraaf(..GeefPocketMaatRechtsTekst())
+		Do ..VoegToePocketMaatTekst()		
 		Do ..VoegToeLangtekstParagraaf(..GeefKleurPocketTekst())
-		Do ..VoegToeLangtekstParagraaf(..GeefKleurPocketKantenbandTekst())
 		
-		If (##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).DuoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoRechts() )) {
-			Do ..VoegToeLangtekstParagraaf(..GeefDeurmaatTekst())
-		} Else {
-			Do ..VoegToeLangtekstParagraaf(..GeefDeurmaatLinksTekst())
-			Do ..VoegToeLangtekstParagraaf(..GeefDeurmaatRechtsTekst())
-		}
+		Do ..VoegToeDeurmaatTekst()
 		
 		If (FrontMeegeleverd && IsProductiewijzeVolledig) {
 			Do ..VoegToeLangtekstParagraaf(..GeefKleurDeurenTekst())
-			Do ..VoegToeLangtekstParagraaf(..GeefKleurDeurenKantenbandTekst())
 		}
 	}
 	
@@ -101,17 +82,69 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToePocketMaatTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PocketMaatTekst As %String
+	#dim HeeftLinksMinstensEenPocket As %Boolean = $$$Not(##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).DuoRechts()))
+	#dim HeeftRechtsMinstensEenPocket As %Boolean = $$$Not(##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoLinks()))
+	#dim HeeftEnkelLangsEenKantMinstensEenDeur As %Boolean = ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).DuoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoRechts())
+	
+	If $$$Not(HeeftEnkelLangsEenKantMinstensEenDeur) {
+		If HeeftLinksMinstensEenPocket {
+			Set PocketMaatTekst = ..Vertaler.GeefVertaling("PocketMaatLI")
+			Set PocketMaatTekst = PocketMaatTekst _ ..GeefPocketMaatLinksTekst()
+			Do ..VoegToeLangtekstParagraaf(PocketMaatTekst)
+		}
+		If HeeftRechtsMinstensEenPocket {
+			Set PocketMaatTekst = ..Vertaler.GeefVertaling("PocketMaatRE")
+			Set PocketMaatTekst = PocketMaatTekst _ ..GeefPocketMaatRechtsTekst()
+			Do ..VoegToeLangtekstParagraaf(PocketMaatTekst)
+		}
+	} Else {
+		Set PocketMaatTekst = ..Vertaler.GeefVertaling("PocketMaat") 
+		If HeeftLinksMinstensEenPocket {
+			Set PocketMaatTekst = PocketMaatTekst _ ..GeefPocketMaatLinksTekst()
+		} ElseIf HeeftRechtsMinstensEenPocket {
+			Set PocketMaatTekst = PocketMaatTekst _ ..GeefPocketMaatRechtsTekst()
+		}
+		Do ..VoegToeLangtekstParagraaf(PocketMaatTekst)
+	}
+	
+	Quit PocketMaatTekst
+]]></Implementation>
+</Method>
+
 <Method name="GeefPocketMaatLinksTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("PocketMaatLI")_": " //_ ..IngegevenKenmerken.PocketHoogte _ "x" _  _ "x" _..IngegevenKenmerken.PocketDiepte _"mm"
+<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()) {
+		Set PocketBreedte = 100
+	} Else {
+		Set PocketBreedte = 150
+	}
+	
+	Quit ": " _ ..IngegevenKenmerken.PocketHoogte _ "x" _ PocketBreedte _ "x" _..IngegevenKenmerken.PocketDiepte _"mm"
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPocketMaatRechtsTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("PocketMaatRE")_": "
+<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()) {
+		Set PocketBreedte = 100
+	} Else {
+		Set PocketBreedte = 150
+	}
+	
+	Quit ": " _ ..IngegevenKenmerken.PocketHoogte _ "x" _ PocketBreedte _ "x" _..IngegevenKenmerken.PocketDiepte _"mm"
 ]]></Implementation>
 </Method>
 
@@ -129,68 +162,69 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKleurPocketKantenbandTekst">
+<Method name="VoegToeDeurmaatTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurPocketKantenband")_": "
+<Implementation><![CDATA[
+	#dim HeeftEnkelLangsEenKantMinstensEenDeur As %Boolean = ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).DuoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoRechts())
+	
+	If HeeftEnkelLangsEenKantMinstensEenDeur {
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Deurmaat")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedte _ "x" _..IngegevenKenmerken.FrontDikte _"mm")
+	} Else {
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("DeurmaatLI")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedteLinks _ "x" _..IngegevenKenmerken.FrontDikte _"mm")
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("DeurmaatRE")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedteRechts _ "x" _..IngegevenKenmerken.FrontDikte _"mm")
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDeurmaatTekst">
+<Method name="GeefKleurDeurenTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Deurmaat")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedte _ "x" _..IngegevenKenmerken.FrontDikte _"mm"
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurDeuren")_": " _ ..IngegevenKenmerken.DecornaamA
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDeurmaatLinksTekst">
+<Method name="GeefDeursteunNaarBinnenTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("DeurmaatLI")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedteLinks _ "x" _..IngegevenKenmerken.FrontDikte _"mm"
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("DeursteunNaarBinnen")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDeurmaatRechtsTekst">
+<Method name="GeefContactSchakelaarHouderTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("DeurmaatRE")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedteRechts _ "x" _..IngegevenKenmerken.FrontDikte _"mm"
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("ContactSchakelaarHouder")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKleurDeurenTekst">
+<Method name="GeefKrasbeschermingTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurDeuren")_": " _ ..IngegevenKenmerken.DecornaamA
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Krasbescherming")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKleurDeurenKantenbandTekst">
+<Method name="GeefInclusiefDeurenTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurDeurenKantenband")_": "
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("InclusiefDeuren")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDeursteunNaarBinnenTekst">
+<Method name="GeefCorpusconstructieTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("DeursteunNaarBinnen")
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Corpusconstructie")_": "_ ..Vertaler.GeefVertaling(..IngegevenKenmerken.CorpusConstructie)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefContactSchakelaarHouderTekst">
+<Method name="GeefDiktePocketZijkantTekst">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("ContactSchakelaarHouder")
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("VoorDiktePocketZijkant") _ " " _ ..IngegevenKenmerken.PocketZijkantDikte _"mm"
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKrasbeschermingTekst">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Krasbescherming")
-]]></Implementation>
-</Method>
 </Class>