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) } } Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml =================================================================== diff -u -r63313 -r63372 --- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml (.../Test.cls.xml) (revision 63313) +++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml (.../Test.cls.xml) (revision 63372) @@ -439,15 +439,17 @@ Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml =================================================================== diff -u -r63313 -r63372 --- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml (.../MVXKenmerken.cls.xml) (revision 63313) +++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml (.../MVXKenmerken.cls.xml) (revision 63372) @@ -25,6 +25,7 @@ Set MvxKenmerken.LadeDiepte = ##class(DOM.PM.enu.MVXLadeDiepte).LadeDiepte500() Set MvxKenmerken.LadeHoogte = ##class(DOM.PM.enu.MVXLadeHoogte).M() Set MvxKenmerken.LadeKleur = ##class(DOM.PM.enu.MVXLadeKleur).Oriongrijs() + Set MvxKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New() Set MvxKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig() Set MvxKenmerken.RugHoogte = ##class(DOM.PM.enu.MVXRugHoogte).M() Set MvxKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout() @@ -151,15 +152,15 @@ #dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..StandaardLade() Set MvxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.MVXGeleiderTechnologie).TIPONBLUMOTION() - Do MvxKenmerken.NietMeeleveren.Insert("AfdekkapBinnen") // ? Nog niet in enum!! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapBinnen() - Do MvxKenmerken.NietMeeleveren.Insert("AfdekkapBuiten") // ? Nog niet in enum!! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapBuiten() + Do MvxKenmerken.NietMeeleveren.Insert("AfdekkapBinnen") // Nog niet in enum!! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapBinnen() + Do MvxKenmerken.NietMeeleveren.Insert("AfdekkapBuiten") // Nog niet in enum!! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapBuiten() Do MvxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapRugWandHouder()) Do MvxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingBoven()) Do MvxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingOnder()) - Do MvxKenmerken.NietMeeleveren.Insert("Geleider") // ? Nog niet in enum!! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Geleider() - Do MvxKenmerken.NietMeeleveren.Insert("TiponBlumotionMeenemers") // ? Nog niet in enum!! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionMeenemers() + Do MvxKenmerken.NietMeeleveren.Insert("Geleider") // Nog niet in enum!! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Geleider() + Do MvxKenmerken.NietMeeleveren.Insert("TiponBlumotionMeenemers") // Nog niet in enum!! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionMeenemers() Do MvxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid()) - Do MvxKenmerken.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStangEnAdapters") // Volgens docu: "TiponBlumotionSynchronisatieStangEnAdapters" ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang() + Do MvxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang()) // Volgens docu: "TiponBlumotionSynchronisatieStangEnAdapters" Quit MvxKenmerken ]]>