do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestPlanningService") 1 vhUnitTest.TestCase 0 %Status %Status 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,"Een batch werd aangemaakt") Do $$$AssertTrue(Resultaat.IsGeslaagd,"De batch werd gemaakt") Do $$$AssertEquals(Resultaat.Errors.Count(),0,"Er zijn geen problemen") Do ##class(APPS.Halux.common.BatchService).%New().VerwijderBatch(Resultaat.BatchID) ]]> 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) Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringNummer) Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData) Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent) ]]>