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")
}
}
}