Index: DOM/PM/impl/TBXLangtekstCreator.cls.xml =================================================================== diff -u -r67374 -r67413 --- DOM/PM/impl/TBXLangtekstCreator.cls.xml (.../TBXLangtekstCreator.cls.xml) (revision 67374) +++ DOM/PM/impl/TBXLangtekstCreator.cls.xml (.../TBXLangtekstCreator.cls.xml) (revision 67413) @@ -101,9 +101,9 @@ Set Paragraaf = Paragraaf _ ..GeefDwarsverdelingTekst() Set Paragraaf = Paragraaf _ ..GeefGreepBinnenladeTekst() Set Paragraaf = Paragraaf _ ..GeefVerlaagdeRugTekst() - Set Paragraaf = Paragraaf _ ..GeefOnvolledigeProductiewijzeTekst() - Do ..VoegToeLangtekstParagraaf(Paragraaf) + + Do ..VoegToeLangtekstParagraaf(..GeefOnvolledigeProductiewijzeTekst()) Do ..VoegToeGekoppeldeInfoIndienNodig() Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst()) ]]> @@ -379,7 +379,7 @@ #dim ProductiewijzeTekst As TECH.String = "" If $$$Not(..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TBXProductieWijze).Volledig()) { - Set ProductiewijzeTekst = ..#KenmerkSeparator _ "*** " _ ##class(Prod.GAMeta.BT.TBOndSpecial).TaalAfhOmsClass("", ..IngegevenKenmerken.ProductieWijze, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC) _" ***" + Set ProductiewijzeTekst = "*** " _ ##class(Prod.GAMeta.BT.TBOndSpecial).TaalAfhOmsClass("", ..IngegevenKenmerken.ProductieWijze, ..Taal, , , ..IngegevenKenmerken.LegacyKenmerken.ItemDC) _" ***" } Quit ProductiewijzeTekst Index: vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml =================================================================== diff -u -r67374 -r67413 --- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml (.../Test.cls.xml) (revision 67374) +++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml (.../Test.cls.xml) (revision 67413) @@ -109,8 +109,8 @@ "D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, "zijkant:Metaalgrijs; Antaro" _ $$$CRLF, "bevat: gemont. lade; enkele reling;" _ $$$CRLF, - "frontbevest. schroef; afdekkappen; ***" _ $$$CRLF, - "Alleen bodem ***" _ $$$CRLF, + "frontbevest. schroef; afdekkappen" _ $$$CRLF, + "*** Alleen bodem ***" _ $$$CRLF, "verpakt: karton") Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)