TECH.RegisteredObject,TECH.Mockable %String 1 %String 1 %Integer 1 AXimpl.Admin.Common.HerverpakteSoprService.KindProductService 1 DOM.PM.ProductAPI 1 DOM.PM.ProductRolAPI 1 ProductApi:DOM.PM.ProductAPI,ProductRolApi:DOM.PM.ProductRolAPI,KindProductService:AXimpl.Admin.Common.HerverpakteSoprService.KindProductService 1 1 %Status 1 Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().IsHerverpakteSopr() OPGELET: Dit gaat ervan uit dat er slechts 1 kind mag zijn (dat een Sopr moet zijn die een SoprKind heeft), wat volgens de huidige business-logic het geval is. ProductId:%Integer %Boolean Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefProductIdVanKindSoprDatSoprKindHeeft() OPGELET: Dit gaat ervan uit dat er slechts 1 kind mag zijn (dat een Sopr moet zijn die een SoprKind heeft), wat volgens de huidige business-logic het geval is. ProductId:%Integer %String Write ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New()GeefAantalHerverpakt() OPGELET: Dit gaat ervan uit dat er slechts 1 kind mag zijn (dat een Sopr moet zijn die een SoprKind heeft), wat volgens de huidige business-logic het geval is. ProductId:%Integer %Integer 0) ..AantalHerverpakt } Quit ..KindProductService.GeefAantalHerverpakt(ProductId) ]]> Set L = ##class(AXimpl.Admin.Common.HerverpakteSoprService).%New().GeefLijstHerverpakteSoprs() Opgelet: Duurt erg lang (+- 6 min) OPGELET: Dit gaat ervan uit dat er slechts 1 kind mag zijn (dat een Sopr moet zijn die een SoprKind heeft), wat volgens de huidige business-logic het geval is. %ListOfDataTypes