Index: DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory.cls.xml =================================================================== diff -u -r36807 -r36812 --- DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory.cls.xml (.../Factory.cls.xml) (revision 36807) +++ DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory.cls.xml (.../Factory.cls.xml) (revision 36812) @@ -37,28 +37,18 @@ 1 DOM.PM.Maatwerk.LadeInfo.Plaat iere: " _ Rol _ " |||" _ HalffabItem _ " ||| " _ LadeOnderdeel) - //Do ##class(Tools.Wlip).%New(42).Stack() - #dim PlaatHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem(Rol) - ;Do ##class(Tools.Wlip).%New(42).String("PlaatHalffabItem: " _ PlaatHalffabItem) - #dim Plaat As DOM.PM.Maatwerk.LadeInfo.Plaat = ..ObjectApi.New(KlasseNaam, LadeOnderdeel, PlaatHalffabItem, Kenmerken) + #dim PlaatHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem - ;Do ##class(Tools.Wlip).%New(42).String(Rol _ " ||||||||||||" _ Plaat) + If (Rol = ..Enum.Rol.ZijkantPlaat) { + Set PlaatHalffabItem = HalffabItem + } Else { + Set PlaatHalffabItem = HalffabItem.GeefHalffabItem(Rol) + } - Quit Plaat + Quit ..ObjectApi.New(KlasseNaam, LadeOnderdeel, PlaatHalffabItem, Kenmerken) ]]> - - -LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,HalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem,Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken -1 -DOM.PM.Maatwerk.LadeInfo.Plaat - - Index: vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml =================================================================== diff -u -r36790 -r36812 --- vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml (.../Test.cls.xml) (revision 36790) +++ vhUnitTest/DOM/PM/Maatwerk/LadeInfo/impl/Plaat/Factory/Test.cls.xml (.../Test.cls.xml) (revision 36812) @@ -49,11 +49,9 @@