vhUnitTest.TestCase Wijzig de nodige properties van deze IngegevenKenmerken // Set IkidNew = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New().BewaarIngegevenKenmerken(kenm) // Write IkidNew.%Id() // 3. Kopieer deze waarde naar de classmethod ##class(vhTest.Dummy.DOM.PM.Maatwerk).GeefIKID() // 4. Let op de DATA moet wel aangepast worden op Cache01 :-P #dim ClassNameIterator As TECH.Iterator = ##class(vhTest.Utils.ClassUtils).GetDerivedClassIterator("DOM.PM.MaatwerkProduct") while ClassNameIterator.HasNext() { #dim ClassName As %String = ClassNameIterator.Next() continue:ClassName=##class(DOM.PM.ASMProduct.impl.ASMAntislipmatImpl).%ClassName(1) continue:ClassName=##class(DOM.PM.ASMProduct.impl.TBXAntislipmatImpl).%ClassName(1) continue:ClassName=##class(DOM.PM.KADProduct.impl.KADKaderdeurImpl).%ClassName(1) continue:##class(TECH.StringUtils).StartsWith(ClassName,"DOM.PM.TBXProduct") continue:ClassName=##class(DOM.PM.impl.MaatwerkProductImpl).%ClassName(1) continue:ClassName=##class(DOM.PM.MVXProduct.impl.MVXLadeImpl).%ClassName(1) continue:ClassName=##class(DOM.PM.INKProduct.impl.INKIngekort).%ClassName(1) #dim PrijsBerekening As DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).PrijsBerekening() #dim ProductieAansturing As DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze = ##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing() Do ..AssertBoomInstantieIsGelijk(PrijsBerekening,ProductieAansturing,$$$False,ClassName) Do ..AssertBoomInstantieIsGelijk(ProductieAansturing,PrijsBerekening,$$$False,ClassName) Do ..AssertBoomInstantieIsGelijk(ProductieAansturing,ProductieAansturing,$$$True,ClassName) Do ..AssertBoomInstantieIsGelijk(PrijsBerekening,PrijsBerekening,$$$True,ClassName) } ]]> BerekeningWijze1:DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze,BerekeningWijze2:DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze,AreEqual:%String,ClassName:%String 1 ClassName:%String 1 DOM.PM.MaatwerkProduct ClassName:%String 1