Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml =================================================================== diff -u -r29059 -r29303 --- DOM/PM/impl/TAORLangtekstCreator.cls.xml (.../TAORLangtekstCreator.cls.xml) (revision 29059) +++ DOM/PM/impl/TAORLangtekstCreator.cls.xml (.../TAORLangtekstCreator.cls.xml) (revision 29303) @@ -26,15 +26,18 @@ If ..IngegevenKenmerken.IsBinnenlade { Set Paragraaf = Paragraaf_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontEindkap(), ..GeefFrontEindkapTekst(), $$$True) } - Set Paragraaf = Paragraaf_..#KenmerkSeparator_..Vertaler.GeefVertaling("Bevat")_": " + #dim BevatDeelString As TECH.String = "" If ..IsLadeGemonteerd() { - Set Paragraaf = Paragraaf_..Vertaler.GeefVertaling("GemonteerdeLade") + Set BevatDeelString = BevatDeelString_..Vertaler.GeefVertaling("GemonteerdeLade") } - Set Paragraaf = Paragraaf_..GeefGeleiderTekst() - Set Paragraaf = Paragraaf_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging(), ..GeefFrontBevestigingTekst(), $$$True) - Set Paragraaf = Paragraaf_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering(),..Vertaler.GeefVertaling("Zijstabilisering"), $$$True) - Set Paragraaf = Paragraaf_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst(),..GeefOpvullijstTekst(), $$$True) - Do ..VoegToeLangtekstParagraaf(Paragraaf) + Set BevatDeelString = BevatDeelString_..GeefGeleiderTekst() + Set BevatDeelString = BevatDeelString_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).FrontBevestiging(), ..GeefFrontBevestigingTekst(), $$$True) + Set BevatDeelString = BevatDeelString_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering(),..Vertaler.GeefVertaling("Zijstabilisering"), $$$True) + Set BevatDeelString = BevatDeelString_..GeefTekstVoorRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Opvullijst(),..GeefOpvullijstTekst(), $$$True) + If BevatDeelString '= "" { + Set BevatDeelString = ..#KenmerkSeparator_..Vertaler.GeefVertaling("Bevat")_": "_BevatDeelString + } + Do ..VoegToeLangtekstParagraaf(Paragraaf_BevatDeelString) Do ..VoegToeGekoppeldeInfoIndienNodig() Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())