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 @@