Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml =================================================================== diff -u -r3990 -r3996 --- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 3990) +++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml (.../TestPlanningService.cls.xml) (revision 3996) @@ -631,12 +631,14 @@ Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent) // Vroeger inplannen van een stockprobleem + Set VerplaatsOpmerking = "Een opmerking" Set ToeleveringNummers = ##class(%ListOfDataTypes).%New() Do ToeleveringNummers.Insert(ToeleveringNummer) - Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", "2011-01-09 17:00:00", ToeleveringNummers) + Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", VerplaatsOpmerking, "2011-01-09 17:00:00", ToeleveringNummers) Set ToeleveringDetail = Service.GeefToeleveringDetail(ToeleveringNummer) + Do $$$AssertEquals(ToeleveringDetail.VerplaatsOpmerking,VerplaatsOpmerking,"De verplaatsopmerking") Do $$$AssertTrue(ToeleveringDetail.ActieInfoLijst.Count()>0,"Er zijn actie info objecten aangemaakt") Do $$$AssertTrue(ToeleveringDetail.StockProbleemInfoLijst.Count()>0,"Er zijn stockprobleem info objecten aangemaakt")