Index: DOM/PM/impl/LangtekstCreator.cls.xml =================================================================== diff -u -r63313 -r63372 --- DOM/PM/impl/LangtekstCreator.cls.xml (.../LangtekstCreator.cls.xml) (revision 63313) +++ DOM/PM/impl/LangtekstCreator.cls.xml (.../LangtekstCreator.cls.xml) (revision 63372) @@ -116,26 +116,35 @@ // Voeg hardcoded strings toe in afwachting implementatie extra rollen MVX: // Vergeet niet aanpassingen ook te doen in klassen: vhUnitTest.DOM.PM.impl.MVXLangtekstCreator.Test en vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken - If (..IngegevenKenmerken.NietMeeleveren.IsDefined("AfdekkapBinnen")) { + If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, "AfdekkapBinnen")) { Do NietMeeTeLeverenRollenOnvertaald.Insert("AfdekkapBinnen") Do ##class(Tools.Wlip).%New(191).String("Rol inserted in NietMeeTeLeverenRollenOnvertaald: AfdekkapBinnen") } - If (..IngegevenKenmerken.NietMeeleveren.IsDefined("AfdekkapBuiten")) { + If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, "AfdekkapBuiten")) { Do NietMeeTeLeverenRollenOnvertaald.Insert("AfdekkapBuiten") Do ##class(Tools.Wlip).%New(191).String("Rol inserted in NietMeeTeLeverenRollenOnvertaald: AfdekkapBuiten") } - If (..IngegevenKenmerken.NietMeeleveren.IsDefined("Geleider")) { + + If ((##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingBoven())) || (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingOnder()))) { + Do NietMeeTeLeverenRollenOnvertaald.Insert("FrontBevestiging") + Do ##class(Tools.Wlip).%New(191).String("Rol inserted in NietMeeTeLeverenRollenOnvertaald: FrontBevestiging") + } + + If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, "Geleider")) { Do NietMeeTeLeverenRollenOnvertaald.Insert("Geleider") Do ##class(Tools.Wlip).%New(191).String("Rol inserted in NietMeeTeLeverenRollenOnvertaald: Geleider") } #dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..IngegevenKenmerken If (MvxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.MVXGeleiderTechnologie).TIPONBLUMOTION()) { Do ##class(Tools.Wlip).%New(191).String("Rol inserted in NietMeeTeLeverenRollenOnvertaald: 3 rollen voor TIPONBLUMOTION") - If (..IngegevenKenmerken.NietMeeleveren.IsDefined("TiponBlumotionMeenemers")) Do NietMeeTeLeverenRollenOnvertaald.Insert("TiponBlumotionMeenemers") - If (..IngegevenKenmerken.NietMeeleveren.IsDefined(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid())) Do NietMeeTeLeverenRollenOnvertaald.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid()) - If (..IngegevenKenmerken.NietMeeleveren.IsDefined("TiponBlumotionSynchronisatieStangEnAdapters")) Do NietMeeTeLeverenRollenOnvertaald.Insert("TiponBlumotionSynchronisatieStangEnAdapters") + If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, "TiponBlumotionMeenemers")) Do NietMeeTeLeverenRollenOnvertaald.Insert("TiponBlumotionMeenemers") + ;If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid())) Do NietMeeTeLeverenRollenOnvertaald.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid()) + ;If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang())) Do NietMeeTeLeverenRollenOnvertaald.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang()) } + + Set Comparator = ##class(TECH.Comparator.StringComparator).%New() + Do ##class(TECH.Algo.Sort.MergeSort).Sort(.NietMeeTeLeverenRollenOnvertaald, Comparator) } Else { Set NietMeeTeLeverenRollenOnvertaald = ..GeefNietMeegeleverdeRollen() @@ -164,8 +173,9 @@ #dim NietMeeleverenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.NietMeeleveren) While NietMeeleverenIterator.HasNext() { #dim Rol As %String = NietMeeleverenIterator.Next() - If ..HalffabItemsBoom.VerwijderdeHalffabItems.IsDefined(Rol) { - Do ##class(Tools.Wlip).%New(191).String("Rol inserted in NietMeeTeLeverenRollenOnvertaald: '"_Rol_"'") + #dim IsRolVoorFrontBevestiging As %Boolean = ((Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingBoven()) || (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingOnder())) + If (..HalffabItemsBoom.VerwijderdeHalffabItems.IsDefined(Rol) && $$$Not(IsRolVoorFrontBevestiging)) { + Do ##class(Tools.Wlip).%New(191).String("Rol inserted in GeefNietMeegeleverdeRollenViaVerwijderdeHalffabItems: '"_Rol_"'") Do NietMeegeleverdeRollen.Insert(Rol) } }