Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml =================================================================== diff -u -r734 -r802 --- DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 734) +++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 802) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.PM.ProductAPI,%RegisteredObject -62118,54137.020493 +62128,79297.344134 0 @@ -63,15 +63,21 @@ If (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) { Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem) + Set PRNr = ProductCreator.GeefPRNr() + Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLadeKenmerkenCreator).%New(PRNr,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom) } Else { Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem) + Set PRNr = ProductCreator.GeefPRNr() + Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderKenmerkenCreator).%New(PRNr,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom) } - // TODO: Productnummer opvragen van de creator en teruggeven - Quit ..GeefProduct(ProductCreator.GeefPRNr()) + + Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem) + + Quit ..GeefProduct(PRNr) ]]> - +