Index: DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml =================================================================== diff -u -r72682 -r74916 --- DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml (.../DataMLBXLadeCreator.cls.xml) (revision 72682) +++ DOM/PM/impl/DataM/DataMLBXLadeCreator.cls.xml (.../DataMLBXLadeCreator.cls.xml) (revision 74916) @@ -13,17 +13,8 @@ #dim Langtekst As DOM.PM.ProductLangtekst If (..BepaalIsMaatwerkCalculatieInEncoway()) { - #dim Delimiter As %String = "\r\n" - Set Langtekst = ..VhConfig.BerekendeKenmerken.Langtekst.GetAt(Taal) - #dim AantalStukken As %Integer = ##class(TECH.StringUtils).Occurrences(Langtekst, Delimiter) - #dim Hoofding As %String = $Piece(Langtekst, Delimiter, 1) - Set ListVanDetails = ##class(%ListOfDataTypes).%New() - - For i = 2 : 1 : AantalStukken { - Do ListVanDetails.Insert($Piece(Langtekst, Delimiter, i)) - } - - Set Langtekst = ##class(DOM.PM.impl.ProductLangtekst).%New(Hoofding, ListVanDetails) + Set LangtekstCreatorEncnoway = ##class(DOM.PM.impl.LangtekstCreatorEncoway).%New() + Set Langtekst = LangtekstCreatorEncnoway.GeefLangtekst(..VhConfig, Taal) } Else { #dim LangtekstCreator As DOM.PM.impl.LBXLangtekstCreator = ##class(DOM.PM.impl.LBXLangtekstCreator).%New() Set Langtekst = LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal , ..KortTekst, ..HalffabItemsBoomOnHerwerkt) @@ -41,7 +32,14 @@ #dim Korttekst As %String If (..BepaalIsMaatwerkCalculatieInEncoway()) { - Set Korttekst = ..VhConfig.BerekendeKenmerken.Korttekst + #dim IngegevenKenmerkenAPI As DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New() + + If (IngegevenKenmerkenAPI.IsSpaceStep(..ProductSpecificatie.GeefIngegevenKenmerken())) { + Set Korttekst = ##class(TECH.StringUtils).Replace(..VhConfig.CalculatedCharacteristics.DescriptionShort, "%1", $J(..DossierNummer,4)) + } Else { + Set Korttekst = ##class(TECH.StringUtils).Replace(..VhConfig.CalculatedCharacteristics.DescriptionShort, "%1", $J(..DossierNummer,5)) + } + } Else { Set Korttekst = ##class(DOM.PM.KorttekstUtils).BepaalKorttekstLBX(DossierNummer, ..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom) }