TECH.RegisteredObject,TECH.Mockable %Integer 1 %String 1 DOM.PM.ProductRolAPI 1 AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor 1 ProductRolApi:DOM.PM.ProductRolAPI,SoprProductConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor 1 1 %Status 1 OPGELET: Dit voorziet 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,MagMeerdereKinderenHebben:%Boolean %String ProductId:%Integer %Integer 0) ..AantalHerverpakt } Do ..GeefKindProductId(ProductId, $$$False) Quit:((..AantalHerverpakt = 0) || (..AantalHerverpakt = "")) 1 Quit ..AantalHerverpakt ]]>