Index: DOM/PM/impl/TBXLangtekstCreator.cls.xml =================================================================== diff -u -r67371 -r67374 --- DOM/PM/impl/TBXLangtekstCreator.cls.xml (.../TBXLangtekstCreator.cls.xml) (revision 67371) +++ DOM/PM/impl/TBXLangtekstCreator.cls.xml (.../TBXLangtekstCreator.cls.xml) (revision 67374) @@ -67,15 +67,15 @@ If (..UitsparingData.UitsparingZ1 = "SP_Recht_M_D150_BM") { Set ..UitsparingData.UitsparingZ1 = "SP_Recht_M_D150_B"_ (..IngegevenKenmerken.InterneBreedte - ..UitsparingData.RugDeelX - ..UitsparingData.RugDeelY) } - Do ..VoegToeLangtekstParagraaf(..GeefDimensieTekst()) + Set Paragraaf = ..GeefDimensieTekst() Set UitsparingTekstFormatterInput = ##class(DOM.PM.Maatwerk.impl.UitsparingTekstFormatterInput).%New() Set UitsparingTekstFormatterInput.UitsparingData = ..UitsparingData Set UitsparingTekstFormatterInput.Taal = ..Taal Set UitsparingTekstFormatterInput.MetUitlegTekst = $$$True Set UitsparingTekstFormatterInput.IsSpoelbak = ..IsSpoelbaklade() - Set Paragraaf = ..UitsparingTekstFormatter.GeefFormattedTekstBreedte(UitsparingTekstFormatterInput) + Set Paragraaf = Paragraaf _ ..#KenmerkSeparator_ ..UitsparingTekstFormatter.GeefFormattedTekstBreedte(UitsparingTekstFormatterInput) } Else { Set Paragraaf = ..GeefDimensieTekst() } Index: vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml =================================================================== diff -u -r67359 -r67374 --- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml (.../Test.cls.xml) (revision 67359) +++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml (.../Test.cls.xml) (revision 67374) @@ -226,10 +226,9 @@ #dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst() #dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate( "Spoelbak B-voorraadlade" _ $$$CRLF, "(lage reling)" _ $$$CRLF, - "D:500xB:887" _ $$$CRLF, - "Spoelbakopening = 172mm (351/172/364);" _ $$$CRLF, - "bodem:Licht grijs; zijkant:Metaalgrijs;" _ $$$CRLF, - "Antaro" _ $$$CRLF, + "D:500xB:887; spoelbakopening = 172mm" _ $$$CRLF, + "(351/172/364); bodem:Licht grijs;" _ $$$CRLF, + "zijkant:Metaalgrijs; Antaro" _ $$$CRLF, "bevat: gemont. lade; corpusprofiel 65kg;" _ $$$CRLF, "BLUMOTION; enkele reling; frontbevest." _ $$$CRLF, "Drevel; afdekkappen; verlaagde rug" _ $$$CRLF, @@ -245,10 +244,9 @@ #dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst() #dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate( "Sifonlade BY (type 3)" _ $$$CRLF, - "D:500xB:600" _ $$$CRLF, - "sifonopening = 160mm (200/160/240);" _ $$$CRLF, - "bodem:Licht grijs; zijkant:Metaalgrijs;" _ $$$CRLF, - "Antaro" _ $$$CRLF, + "D:500xB:600; sifonopening = 160mm" _ $$$CRLF, + "(200/160/240); bodem:Licht grijs;" _ $$$CRLF, + "zijkant:Metaalgrijs; Antaro" _ $$$CRLF, "bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF, "BLUMOTION; enkele reling; frontbevest." _ $$$CRLF, "schroef; afdekkappen; verlaagde rug" _ $$$CRLF, @@ -264,8 +262,7 @@ #dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst() #dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate( "Sifonlade CMY (type 3)" _ $$$CRLF, - "D:600xB:1051" _ $$$CRLF, - "Sifonopeningen = 160mm 160mm" _ $$$CRLF, + "D:600xB:1051; sifonopeningen = 160mm 160mm" _ $$$CRLF, "(175/160/260/160/296); bodem:Licht grijs;" _ $$$CRLF, "zijkant:Metaalgrijs; Antaro" _ $$$CRLF, "bevat: gemont. lade; corpusprofiel 30kg;" _ $$$CRLF,