Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml =================================================================== diff -u -r51466 -r51469 --- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml (.../HalffabGeleider.cls.xml) (revision 51466) +++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider.cls.xml (.../HalffabGeleider.cls.xml) (revision 51469) @@ -60,10 +60,18 @@ %String @@ -84,9 +92,10 @@ #dim KlantID As DOM.VKP.VanHoeckeKlantID = "K||1000" #dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance() - #dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality) Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing()) + + #dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext Set HalffabContext = ..ProductService.GeefHalffabContext(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.Variant).LegraboxPure(),BerekeningsSpecificatie) Set Lijst = ##class(%ListOfObjects).%New() Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/Test.cls.xml =================================================================== diff -u -r51466 -r51469 --- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/Test.cls.xml (.../Test.cls.xml) (revision 51466) +++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Halffab/HalffabGeleider/Test.cls.xml (.../Test.cls.xml) (revision 51469) @@ -82,6 +82,19 @@ ]]> + + + + HalffabGeleider:DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabGeleider,DeAndereGeleiderTechnologie:%String 1