Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml
===================================================================
diff -u -r917 -r946
--- APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 917)
+++ APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 946)
@@ -1,9 +1,9 @@
 <?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-02-22 12:58:58">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-22 15:17:36">
 <Class name="APPS.Halux.Planning.impl.EventCatcher">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62144,46799.409645</TimeChanged>
+<TimeChanged>62172,55140.1952</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="InitSubscriptions">
@@ -25,7 +25,6 @@
 <FormalSpec>Event:TECH.Events.ToeleveringCreatedEvent</FormalSpec>
 <Implementation><![CDATA[
 	Set Toelevering = Event.Data.Toelevering
-	d WLIP^vhDBG(191,"Created: "_Event.Data.Toelevering.GeefToeNr())
 	If (Toelevering.GeefLeverancierNummer() = 6332) // Halux
 	{
 		Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(Toelevering)
@@ -46,7 +45,6 @@
 <FormalSpec>Event:TECH.Events.ToeleveringModifiedEvent</FormalSpec>
 <Implementation><![CDATA[
 	Set Toelevering = Event.Data.Toelevering
-	d WLIP^vhDBG(191,"Modified: "_Event.Data.Toelevering.GeefToeNr())
 	If (Toelevering.GeefLeverancierNummer() = 6332) // Halux
 	{
 		Set ToeleveringsNummer = Toelevering.GeefToeNr()
@@ -60,7 +58,9 @@
 		{
 			Set PlanningDataItem = Iterator.Next()
 			Set Status = PlanningDataItem.%Save()
-			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Gewijzigde toeleveringslijn kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$c(10)_$c(13)_"Lijnnummer: "_PlanningDataItem.ToeleveringsLijn_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+			If ($$$ISERR(Status)) { 
+			 	Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Gewijzigde toeleveringslijn kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$c(10)_$c(13)_"Lijnnummer: "_PlanningDataItem.ToeleveringsLijn_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) 
+			}
 		}
 	}
 ]]></Implementation>
@@ -71,11 +71,10 @@
 <FormalSpec>Event:TECH.Events.ToeleveringDeletedEvent</FormalSpec>
 <Implementation><![CDATA[
 	Set ToeleveringsNummer = Event.Data.ToeleveringNummer
-	d WLIP^vhDBG(191,"Deleted: "_ToeleveringsNummer)
 	&SQL(DELETE FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
 	&SQL(DELETE FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = :ToeleveringsNummer)
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1555038993"/>
+<Checksum value="1841201560"/>
 </Export>