Index: DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftOnderdelenDoos.cls.xml =================================================================== diff -u -r29104 -r33048 --- DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftOnderdelenDoos.cls.xml (.../HeeftOnderdelenDoos.cls.xml) (revision 29104) +++ DOM/PM/Maatwerk/Calc/Common/impl/Evaluator/HeeftOnderdelenDoos.cls.xml (.../HeeftOnderdelenDoos.cls.xml) (revision 33048) @@ -61,8 +61,10 @@ Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieStang()) Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponSynchronisatieSet()) Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Opvullijst()) - Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid()) - Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionMeenemer()) + If $$$Not(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefLBXTOB("Intern")) { + Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionEenheid()) + Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionMeenemer()) + } Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSynchronisatieAdapter()) Do Rollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSynchronisatieStang()) Quit Rollen Index: DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001.cls.xml =================================================================== diff -u -r29059 -r33048 --- DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001.cls.xml (.../KostZijlijnv001.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001.cls.xml (.../KostZijlijnv001.cls.xml) (revision 33048) @@ -457,8 +457,9 @@ Set BevatMeenemerEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionMeenemer()) Set BevatSynchronisatieAdapterEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSynchronisatieAdapter()) Set BevatSynchronisatieStangEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSynchronisatieStang()) + Set BevatSetEenhedenEnMeenemersEvaluator = ##class(DOM.PM.Maatwerk.Calc.Kost.RolAanwezigEvaluator).%New(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).TiponBlumotionSetEenhedenEnMeenemers()) - #dim OnderdeelVanTOBMeegeleverdEvaluator As DOM.PM.Maatwerk.Calc.Kost.OfEvaluator = ..EvaluatorFactory.Of(BevatEenheidEvaluator, BevatMeenemerEvaluator, BevatSynchronisatieAdapterEvaluator, BevatSynchronisatieStangEvaluator) + #dim OnderdeelVanTOBMeegeleverdEvaluator As DOM.PM.Maatwerk.Calc.Kost.OfEvaluator = ..EvaluatorFactory.Of(BevatEenheidEvaluator, BevatMeenemerEvaluator, BevatSynchronisatieAdapterEvaluator, BevatSynchronisatieStangEvaluator, BevatSetEenhedenEnMeenemersEvaluator) Set ProductieWijzeFactoren = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.dto.ProductieWijzeFactoren).%New() Set ProductieWijzeMultiplier = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.LBX.Multiplier.ProductieWijzeMultiplier).%New(ProductieWijzeFactoren) @@ -495,6 +496,9 @@ ##class(DOM.PM.enu.BewerkingDimensie).Lengte(), ##this ) + + #dim LBXTOBactief As %Boolean = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefLBXTOB("Intern") + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this, "Inkorten synchronisatiestang TIP-ON BLUMOTION", // ActiviteitNaam "TBLBVOORMONT", // KostenPlaats @@ -503,23 +507,51 @@ ..MultiplierFixedNul, // Variabele ..MultiplierFixedEen, // Factor 0, // VariabeleKost - 30, // VasteKost + $select(LBXTOBactief=1:20,1:30), // VasteKost 0, // MinimumKost ProductieWijzeMultiplier // AantalMultiplier ).GebruikEvaluator(BevatSynchronisatieStangEvaluator, SynchronisatieStangIsBewerktEvaluator) - Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this, - "Picking en transport TIP-ON BLUMOTION onderdelen", // ActiviteitNaam - "TBLBOND", // KostenPlaats - 66, // ActiviteitNr - 1, // Aantal - ..MultiplierFixedNul, // Variabele - ..MultiplierFixedEen, // Factor - 0, // VariabeleKost - 10, // VasteKost - 0, // MinimumKost - ProductieWijzeMultiplier // AantalMultiplier - ).GebruikEvaluator(OnderdeelVanTOBMeegeleverdEvaluator) + if LBXTOBactief = 0 { + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this, + "Picking en transport TIP-ON BLUMOTION onderdelen", // ActiviteitNaam + "TBLBOND", // KostenPlaats + 66, // ActiviteitNr + 1, // Aantal + ..MultiplierFixedNul, // Variabele + ..MultiplierFixedEen, // Factor + 0, // VariabeleKost + 10, // VasteKost + 0, // MinimumKost + ProductieWijzeMultiplier // AantalMultiplier + ).GebruikEvaluator(OnderdeelVanTOBMeegeleverdEvaluator) + } else { + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this, + "Picking en transport TIP-ON BLUMOTION koppelstuk", // ActiviteitNaam + "TBLBOND", // KostenPlaats + 66, // ActiviteitNr + 1, // Aantal + ..MultiplierFixedNul, // Variabele + ..MultiplierFixedEen, // Factor + 0, // VariabeleKost + 3, // VasteKost + 0, // MinimumKost + ProductieWijzeMultiplier // AantalMultiplier + ).GebruikEvaluator(OnderdeelVanTOBMeegeleverdEvaluator) + + Do ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this, + "Picking en transport TIP-ON BLUMOTION eenheid en meenemer", // ActiviteitNaam + "TBLBOND", // KostenPlaats + 66, // ActiviteitNr + 1, // Aantal + ..MultiplierFixedNul, // Variabele + ..MultiplierFixedEen, // Factor + 0, // VariabeleKost + 3, // VasteKost + 0, // MinimumKost + ProductieWijzeMultiplier // AantalMultiplier + ).GebruikEvaluator(OnderdeelVanTOBMeegeleverdEvaluator) + } ]]> Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHalffabBuilderBase.cls.xml =================================================================== diff -u -r29059 -r33048 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHalffabBuilderBase.cls.xml (.../TestHalffabBuilderBase.cls.xml) (revision 29059) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/TestHalffabBuilderBase.cls.xml (.../TestHalffabBuilderBase.cls.xml) (revision 33048) @@ -1,6 +1,7 @@ +1 vhUnitTest.DOM.PM.Maatwerk.HF.ITestHalffabBuilder Index: DOM/PM/Maatwerk/Calc/Kost/IKostItemBuilder.cls.xml =================================================================== diff -u -r29059 -r33048 --- DOM/PM/Maatwerk/Calc/Kost/IKostItemBuilder.cls.xml (.../IKostItemBuilder.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/IKostItemBuilder.cls.xml (.../IKostItemBuilder.cls.xml) (revision 33048) @@ -49,7 +49,7 @@ -SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder="" 1 1 %Status Index: vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml =================================================================== diff -u --- vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml (revision 0) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/Kost/impl/LBX/Builder/KostZijlijnv001/Test.cls.xml (revision 33048) @@ -0,0 +1,70 @@ + + + +vhUnitTest.TestCase + + +DOM.PM.Maatwerk.Calc.Kost.KostContext +1 + + + + + + + + + + + +SamengesteldKostItem:DOM.PM.Maatwerk.Calc.Kost.KostItem,TeZoeken:%String + + + + +Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol +1 +DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem + + + + +1 +DOM.PM.Maatwerk.Calc.Kost.KostContext + + + + +1 +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie + + + + + +