Index: vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml
===================================================================
diff -u -r956 -r995
--- vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml	(.../TestEventCatcher.cls.xml)	(revision 956)
+++ vhUnitTest/APPS/Halux/Planning/TestEventCatcher.cls.xml	(.../TestEventCatcher.cls.xml)	(revision 995)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 16:23:21">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-29 13:10:55">
 <Class name="vhUnitTest.APPS.Halux.Planning.TestEventCatcher">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestEventCatcher")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62174,59087.103062</TimeChanged>
+<TimeChanged>62179,47455.541304</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -37,7 +37,7 @@
 	Set Bestaat = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(ToeleveringsNummer)
 	
 	Set Gepland = 62137
-	&SQL(UPDATE APPS_Halux_Planning_impl.ToeleveringInfo SET Dag = :Gepland WHERE ToeleveringNummer = :ToeleveringsNummer)
+	&SQL(UPDATE APPS_Halux_Planning_impl.ToeleveringInfo SET Gepland = :Gepland WHERE ToeleveringNummer = :ToeleveringsNummer)
 	
 	Do $$$AssertTrue(Bestaat,"Het data item voor de planning werd bewaard")
 	
@@ -50,21 +50,24 @@
  	
  	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringModEventListener(ToeleveringModifiedEvent)
  	
- 	&SQL(SELECT DueOut,Dag INTO :GevondenTijd,:GevondenGepland FROM APPS_Halux_Planning_impl.ToeleveringInfo WHERE ToeleveringNummer = :ToeleveringsNummer)
+ 	&SQL(SELECT DueOut,Gepland INTO :GevondenTijd,:GevondenGepland FROM APPS_Halux_Planning_impl.ToeleveringInfo WHERE ToeleveringNummer = :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")
+ 	Do $$$AssertEquals($zdt(Gepland,3)_" 00:00:00",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)
 
 	Set Bestaat = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(ToeleveringsNummer)
-		
-	Do $$$AssertFalse(Bestaat,"Het data item voor de planning werd verwijderd")
+	Do $$$AssertFalse(Bestaat,"Het toelevering info object voor de planning werd verwijderd")
+	
+	&SQL(SELECT ID INTO :ProductInfoID FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = :ToeleveringsNummer)
+	Set Bestaat = $Get(ID) > 0
+	Do $$$AssertFalse(Bestaat,"De product info objecten voor de planning werden verwijderd")
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1604929850"/>
+<Checksum value="398199556"/>
 </Export>