Index: DOM/PM/impl/RVGLangtekstCreator.cls.xml
===================================================================
diff -u -r68732 -r69357
--- DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 68732)
+++ DOM/PM/impl/RVGLangtekstCreator.cls.xml	(.../RVGLangtekstCreator.cls.xml)	(revision 69357)
@@ -3,33 +3,183 @@
 <Class name="DOM.PM.impl.RVGLangtekstCreator">
 <Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.RVG.impl.Base</Super>
 
-<Method name="%OnNew">
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method %OnNew() As %Status [ Private, ProcedureBlock = 1, ServerOnly = 1 ]
+{
+	
+	Quit $$$OK
+}
+*/
+]]></Content>
+</UDLText>
+
+<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[
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) {
+		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()) {
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("VoorDiktePocketZijkant") _ " " _ ..IngegevenKenmerken.PocketZijkantDikte _"mm")
+	}
+	
+	Do ..VoegToeLangtekstParagraaf(..GeefInbouwmaatTekst())
+	
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd()) {
+		Do ..VoegToeLangtekstParagraaf(..GeefPocketMaatLinksTekst())
+		Do ..VoegToeLangtekstParagraaf(..GeefPocketMaatRechtsTekst())
+		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 ..VoegToeLangtekstParagraaf(..GeefKleurDeurenTekst())
+		Do ..VoegToeLangtekstParagraaf(..GeefKleurDeurenKantenbandTekst())
+	}
+	
+	#dim AccessoireAanwezig As %Boolean = (..IngegevenKenmerken.DeurSteunNaarBinnen || ..IngegevenKenmerken.ContactSchakelaarHouderInbegrepen || ..IngegevenKenmerken.Krasbescherming)
+	If (AccessoireAanwezig) {
+		Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Accessoires") _ ":")
+		Do:(..IngegevenKenmerken.DeurSteunNaarBinnen) ..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="GeefPocketMaatLinksTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("PocketMaatLI")_": " //_ ..IngegevenKenmerken.PocketHoogte _ "x" _  _ "x" _..IngegevenKenmerken.PocketDiepte _"mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPocketMaatRechtsTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("PocketMaatRE")_": "
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurPocketTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurPocket")_": "
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurPocketKantenbandTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurPocketKantenband")_": "
+]]></Implementation>
+</Method>
+
+<Method name="GeefDeurmaatTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Deurmaat")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedte _ "x" _..IngegevenKenmerken.FrontDikte _"mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefDeurmaatLinksTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("DeurmaatLI")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedteLinks _ "x" _..IngegevenKenmerken.FrontDikte _"mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefDeurmaatRechtsTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("DeurmaatRE")_": "_ ..IngegevenKenmerken.FrontHoogte _ "x" _ ..IngegevenKenmerken.FrontBreedteRechts _ "x" _..IngegevenKenmerken.FrontDikte _"mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurDeurenTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurDeuren")_": "
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurDeurenKantenbandTekst">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("KleurDeurenKantenband")_": "
+]]></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>
 </Class>