do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestPlanningService") 1 vhUnitTest.TestCase 0 %String U 1 1 0,"Er zijn nieuwe dueouts voorgesteld") Set Alternatief2 = Alternatieven.Lijst.GetAt(2) Do $$$AssertEquals(Alternatief2.ToeleveringNummer,298209,"Alternatief voor toelevering 298209") Do $$$AssertTrue(Alternatief2.Data.Count()>0,"Er zijn nieuwe dueouts voorgesteld") ]]> 0,"Er zijn actie info objecten aangemaakt") Do $$$AssertTrue(ToeleveringDetail.StockProbleemInfoLijst.Count()>0,"Er zijn stockprobleem info objecten aangemaakt") Do $$$AssertTrue($Length(ToeleveringDetail.DisplayString)>0,"De display string is ingevuld") Do Service.VerwijderAlleVerplaatsingen(ToeleveringNummer) Do ..VerwijderToelevering296195() ]]> 1 1 1