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>
 
 
Index: vhUnitTest/DOM/PM/impl/RVGLangtekstCreator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/impl/RVGLangtekstCreator/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/impl/RVGLangtekstCreator/Test.cls.xml	(revision 69418)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.impl.RVGLangtekstCreator.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.RVG.Base</Super>
+
+<Property name="RvgLangtekstCreator">
+<Type>DOM.PM.impl.RVGLangtekstCreator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RvgKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..RvgLangtekstCreator = ##class(DOM.PM.impl.RVGLangtekstCreator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: UnoLinks zonder fronten">
+<Implementation><![CDATA[
+	Set ..RvgKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).UnoLinks()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Voorgemonteerde Pocket" _ $$$CRLF,
+																					"REVEGO UNO (LI)" _ $$$CRLF, 
+																					"Corpusconstructie: zonder sokkel" _ $$$CRLF, 
+																					"Totale inbouwmaat REVEGO constructie:" _ $$$CRLF, 
+																					"1928x876x595mm" _ $$$CRLF, 
+																					"Pocketmaat: 1915x100x575mm" _ $$$CRLF,  
+																					"kleur pocket: unilin 00025 cst - front white" _ $$$CRLF,  
+																					"deurmaat: 1900x870x18mm")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="Test: DuoDuo met extras ">
+<Implementation><![CDATA[
+	Set ..RvgKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).DuoDuoMetExtras()
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst()
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Voorgemonteerde Pocket" _ $$$CRLF, 
+																					"Inclusief deuren" _ $$$CRLF, 
+																					"REVEGO DUO (LI) + DUO (RE)" _ $$$CRLF, 
+																					"Corpusconstructie: met sokkel" _ $$$CRLF, 
+																					"Totale inbouwmaat REVEGO constructie:" _ $$$CRLF, 
+																					"2378x2876x998mm" _ $$$CRLF, 
+																					"pocketmaat LI: 2358x150x978mm" _ $$$CRLF, 
+																					"pocketmaat RE: 2358x150x978mm" _ $$$CRLF, 
+																					"kleur pocket: f417_st10hpl18" _ $$$CRLF,  
+																					"deurmaat LI: 2350x710x18mm" _ $$$CRLF, 
+																					"deurmaat RE: 2350x712x18mm" _ $$$CRLF, 
+																					"kleur deuren: unilin 00020 cst - basic white" _ $$$CRLF,  
+																					"accessoires:" _ $$$CRLF,
+																					"deursteun naar binnen" _ $$$CRLF,
+																					"contactschakelaarhouder" _ $$$CRLF,
+																					"krasbescherming")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLangtekst">
+<FormalSpec>VerwijderdeHalffabItems:%ArrayOfObjects=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	Set HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	
+	If ($IsObject(VerwijderdeHalffabItems)) {
+		Set HalffabItemsBoom.VerwijderdeHalffabItems = VerwijderdeHalffabItems
+	}
+	Quit ..RvgLangtekstCreator.GeefLangtekst(..RvgKenmerken, HalffabItemsBoom, Taal,, "")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>