Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.MAG.Inventaris.TestInventarisService") 1 vhUnitTest.TestCase 0 0,"Er zijn redenen ingevuld") Set GrootVerpakking = CycleCountInfo.GrootVerpakking Do $$$AssertEquals(GrootVerpakking.AantalVerpakkingen,0,"Aantal grootverpakkingen") Do $$$AssertEquals(GrootVerpakking.AantalInVerpakking,0,"Aantal in grootverpakking") Set NormaalVerpakking = CycleCountInfo.NormaalVerpakking Do $$$AssertEquals(NormaalVerpakking.AantalVerpakkingen,85,"Aantal normaalverpakkingen") Do $$$AssertEquals(NormaalVerpakking.AantalInVerpakking,2,"Aantal in normaalverpakking") Set KleinVerpakking = CycleCountInfo.KleinVerpakking Do $$$AssertEquals(KleinVerpakking.AantalVerpakkingen,0,"Aantal Kleinverpakkingen") Do $$$AssertEquals(KleinVerpakking.AantalInVerpakking,0,"Aantal in Kleinverpakking") ]]> %Status %Status s:%String %Status s:%String %Status SQL:%String %Status