do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestPlanningService") 1 vhUnitTest.TestCase 62168,39788.499721 0 %Status %Status 0 Do $$$AssertTrue(Bestaat, "De data voor de expliciete planning is bewaard") &SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer) Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is gepland op de nieuwe datum") Set Bestaat = "" &SQL(SELECT ID INTO :Bestaat FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = 133333) Set Bestaat = $Get(Bestaat,0) > 0 Do $$$AssertFalse(Bestaat, "De data voor de expliciete planning is niet bewaard") Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer) Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData) Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent) ]]> 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) ]]>