Index: DOM/PM/impl/RVGLangtekstCreator.cls.xml
===================================================================
diff -u -r68625 -r72552
--- DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 68625)
+++ DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 72552)
@@ -1,35 +1,230 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.impl.RVGLangtekstCreator">
-<Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.MVX.impl.Base</Super>
+<Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.RVG.impl.Base</Super>
 
-<Method name="%OnNew">
+<Method name="BepaalHoofding">
 <Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	#dim LangtekstHoofding As %String
 	
-	Quit $$$OK
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) {
+		Set LangtekstHoofding = ..Vertaler.GeefVertaling("BlumOnderdelenVoorgemonteerd")
+	} ElseIf (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponentenOpMaat()) {
+		Set LangtekstHoofding = ..Vertaler.GeefVertaling("BlumOnderdelenLosseComponentenOpMaat")
+	} ElseIf (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).LosseComponenten()) {
+		Set LangtekstHoofding = ..Vertaler.GeefVertaling("BlumOnderdelenLosseComponenten")
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Onbekende productiewijze '" _ ..IngegevenKenmerken.ProductieWijze _"' in de RVG langtekstcreator."))	
+	}
+	
+	Set ..LangtekstHoofding = LangtekstHoofding
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalHoofding">
+<Method name="VoegToeBasisGegevens">
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..LangtekstHoofding = "REVEGO Uno + Duo"
+<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(..GeefInclusiefDeurenTekst())
+	}
+	
+	Do ..VoegToeLangtekstParagraaf(..GeefToepassingTekst())
+	Do ..VoegToeLangtekstParagraaf(..GeefCorpusconstructieTekst())
+	
+	If $$$Not(IsProductiewijzeVolledig) {
+		Do ..VoegToeLangtekstParagraaf(..GeefDiktePocketZijkantTekst())
+	}
+	
+	Do ..VoegToeLangtekstParagraaf(..GeefInbouwmaatTekst())
+	
+	If (IsProductiewijzeVolledig) {
+		Do ..VoegToePocketMaatTekst()		
+		Do ..VoegToeLangtekstParagraaf(..GeefKleurPocketTekst())
+		
+		Do ..VoegToeDeurmaatTekst()
+		
+		If (FrontMeegeleverd && IsProductiewijzeVolledig) {
+			Do ..VoegToeLangtekstParagraaf(..GeefKleurDeurenTekst())
+		}
+	}
+	
+	#dim AccessoireAanwezig As %Boolean = (..IngegevenKenmerken.DeurSteunNaarBinnen || ..IngegevenKenmerken.ContactSchakelaarHouderInbegrepen || ..IngegevenKenmerken.Krasbescherming)
+	If (AccessoireAanwezig) {
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Accessoires") _ ":")
+		Do:($$$Not(..IngegevenKenmerken.DeurSteunNaarBinnen = ##class(DOM.PM.enu.RVGDeurSteunNaarBinnen).Nee())) ..VoegToeLangtekstParagraaf(..GeefDeursteunNaarBinnenTekst())
+		Do:(..IngegevenKenmerken.ContactSchakelaarHouderInbegrepen) ..VoegToeLangtekstParagraaf(..GeefContactSchakelaarHouderTekst())
+		Do:(..IngegevenKenmerken.Krasbescherming) ..VoegToeLangtekstParagraaf(..GeefKrasbeschermingTekst())
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeBasisGegevens">
+<Method name="GeefToepassingTekst">
 <Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Paragraaf As TECH.String
+	#dim ToepassingSleutel As %String = "Toepassing" _ ..IngegevenKenmerken.Toepassing
 	
-	Set Paragraaf = "Basisgegevens Revego"
+	Quit "REVEGO " _ ..Vertaler.GeefVertaling(ToepassingSleutel)
+]]></Implementation>
+</Method>
+
+<Method name="GeefInbouwmaatTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim InbouwmaatSleutel As %String = "InbouwmaatRevego" _ ..IngegevenKenmerken.Toepassing
 	
-	Do ..VoegToeLangtekstParagraaf(Paragraaf)
+	Quit ..Vertaler.GeefVertaling("InbouwmaatRevego")_": "_ ..IngegevenKenmerken.InbouwHoogte _ "x" _ ..IngegevenKenmerken.InbouwBreedte _ "x" _..IngegevenKenmerken.InbouwDiepte _"mm"
 ]]></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("PocketMaat") _ " " _ ..Vertaler.GeefVertaling("AfkortingLI")
+			Set PocketMaatTekst = PocketMaatTekst _ ..GeefPocketMaatLinksTekst()
+			Do ..VoegToeLangtekstParagraaf(PocketMaatTekst)
+		}
+		If HeeftRechtsMinstensEenPocket {
+			Set PocketMaatTekst = ..Vertaler.GeefVertaling("PocketMaat") _ " " _..Vertaler.GeefVertaling("AfkortingRE")
+			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[
+	#dim PocketBreedte As %Decimal
+	
+	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
+	}
+	
+	Quit ": " _ ..IngegevenKenmerken.PocketHoogte _ "x" _ PocketBreedte _ "x" _..IngegevenKenmerken.PocketDiepte _"mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPocketMaatRechtsTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<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(), ##class(DOM.PM.enu.RVGToepassing).UnoUno()) {
+		Set PocketBreedte = 100
+	} Else {
+		Set PocketBreedte = 150
+	}
+	
+	Quit ": " _ ..IngegevenKenmerken.PocketHoogte _ "x" _ PocketBreedte _ "x" _..IngegevenKenmerken.PocketDiepte _"mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurPocketTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurPocket")_": " _ ..IngegevenKenmerken.DecornaamA
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDeurmaatTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<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("Deurmaat")_ " " _..Vertaler.GeefVertaling("AfkortingLI")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedteLinks _ "x" _..IngegevenKenmerken.FrontDikte _"mm")
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Deurmaat")_ " " _..Vertaler.GeefVertaling("AfkortingRE")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedteRechts _ "x" _..IngegevenKenmerken.FrontDikte _"mm")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurDeurenTekst">
+<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("KleurDeuren")_": " _ Kleur
+]]></Implementation>
+</Method>
+
+<Method name="GeefDeursteunNaarBinnenTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("DeursteunNaarBinnen")
+]]></Implementation>
+</Method>
+
+<Method name="GeefContactSchakelaarHouderTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("ContactSchakelaarHouder")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKrasbeschermingTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Krasbescherming")
+]]></Implementation>
+</Method>
+
+<Method name="GeefInclusiefDeurenTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("InclusiefDeuren")
+]]></Implementation>
+</Method>
+
+<Method name="GeefCorpusconstructieTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Corpusconstructie")_": "_ ..Vertaler.GeefVertaling(..IngegevenKenmerken.CorpusConstructie)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDiktePocketZijkantTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("VoorDiktePocketZijkant") _ " " _ ..IngegevenKenmerken.PocketZijkantDikte _"mm"
+]]></Implementation>
+</Method>
 </Class>