Index: DOM/PM/impl/INKLangtekstCreator.cls.xml =================================================================== diff -u -r68052 -r68059 --- DOM/PM/impl/INKLangtekstCreator.cls.xml (.../INKLangtekstCreator.cls.xml) (revision 68052) +++ DOM/PM/impl/INKLangtekstCreator.cls.xml (.../INKLangtekstCreator.cls.xml) (revision 68059) @@ -8,9 +8,7 @@ 1 %Status 1 - @@ -34,13 +32,14 @@ #dim Paragraaf As TECH.String #dim Product As DOM.PM.AdministratiefProduct #dim ProductID, KortTekstBewerktHalffabrikaat As TECH.String + #dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.INKRol).BewerktHalffabrikaat()) Set ProductID = ConcreetHalffabItem.GeefHalffab().GeefProductID() Set Product = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID) Set KortTekstBewerktHalffabrikaat = Product.GeefKorttekst() - Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Verzagen_van")) + Do ..VoegToeLangtekstParagraaf(..Vertaler.GeefVertaling("Verzagen_van") _ " " _KortTekstBewerktHalffabrikaat) ]]> @@ -53,15 +52,15 @@ Set iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes) If ($Length(..IngegevenKenmerken.Lengtes) = 1) { - Set Paragraaf = Paragraaf _ ..IngegevenKenmerken.Lengtes.GetAt(1) + Set Paragraaf = Paragraaf _ " " _ ..IngegevenKenmerken.Lengtes.GetAt(1) } Else { Set Iterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.Lengtes) While Iterator.HasNext() { - Set Paragraaf = Paragraaf _ Iterator.Next() + Set Paragraaf = Paragraaf _ " " _ Iterator.Next() If Iterator.HasNext() { - Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("en") + Set Paragraaf = Paragraaf _ " " _ ..Vertaler.GeefVertaling("en") } } }