do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestEventCatcher") 1 vhUnitTest.TestCase 62144,29867.008511 0 %Status 0) Set Gepland = "2011-02-11 12:00:00" &SQL(UPDATE APPS_Halux_Planning_impl.PlanningDataItem SET Gepland = :Gepland WHERE ToeleveringsNummer = :ToeleveringsNummer) Do $$$AssertTrue(Bestaat,"Het data item voor de planning werd bewaard") Set NieuweDueOut = "62136,43200" Set ^KTO(6332,296195,1)="\02.02.11\KOMM. OPTIMA PACK\\\6332\118153\6279\\\\\\\\\\EUR\"_NieuweDueOut_"\\\2\\\\" Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringsNummer) Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering) Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData) Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringModEventListener(ToeleveringModifiedEvent) &SQL(SELECT DueOut,Gepland INTO :GevondenTijd,:GevondenGepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer) Do $$$AssertEquals($zdt(NieuweDueOut,3),GevondenTijd,"De tijd werd niet overschreven bij het herberekenen") Do $$$AssertEquals(Gepland,GevondenGepland,"De geplande tijd is niet gewijzigd") 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) &SQL(SELECT ID INTO :DELID FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer) Do $$$AssertEquals(DELID,"","Het data item voor de planning werd verwijderd") ]]>