Index: APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml
===================================================================
diff -u -r57301 -r57446
--- APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml	(.../WerktijdCalculator.cls.xml)	(revision 57301)
+++ APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml	(.../WerktijdCalculator.cls.xml)	(revision 57446)
@@ -19,7 +19,7 @@
 <Type>%Decimal</Type>
 </Property>
 
-<Property name="ResourceId">
+<Property name="Resource">
 <Type>%String</Type>
 </Property>
 
@@ -32,7 +32,7 @@
 </Property>
 
 <Property name="ResourcePitched">
-<Type>APPS.Halux.Planning.Pitching.impl.ResourcePitched</Type>
+<Type>APPS.Halux.Planning.Pitching.dto.ResourcePitched</Type>
 </Property>
 
 <Property name="Debug">
@@ -48,15 +48,15 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..Debug=1
+	Set ..Debug=0
 	Set ..NodeVroeger=-1*NodeTest
 	Set ..NodeLater=1*NodeTest
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefHuidigeTijdstip">
-<FormalSpec>ResourceId</FormalSpec>
+<FormalSpec>Resource</FormalSpec>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
 	#dim Tijdstip=$H
@@ -65,10 +65,10 @@
 </Method>
 
 <Method name="StretchTijdslotNaarLater">
-<FormalSpec>ResourcePitched:APPS.Halux.Planning.Pitching.impl.ResourcePitched</FormalSpec>
+<FormalSpec>ResourcePitched:APPS.Halux.Planning.Pitching.dto.ResourcePitched</FormalSpec>
 <Implementation><![CDATA[
 	Set ..ResourcePitched=ResourcePitched
-	Set ..ResourceId=$zcvt(ResourcePitched.ResourceId,"U")
+	Set ..Resource=$zcvt(ResourcePitched.Resource,"U")
 	
 	If ..ResourcePitched.StartTijdstip'=""
 	{
@@ -80,10 +80,10 @@
 </Method>
 
 <Method name="StretchTijdslotNaarVroeger">
-<FormalSpec>ResourcePitched:APPS.Halux.Planning.Pitching.impl.ResourcePitched</FormalSpec>
+<FormalSpec>ResourcePitched:APPS.Halux.Planning.Pitching.dto.ResourcePitched</FormalSpec>
 <Implementation><![CDATA[
 	Set ..ResourcePitched=ResourcePitched
-	Set ..ResourceId=$zcvt(ResourcePitched.ResourceId,"U")
+	Set ..Resource=$zcvt(ResourcePitched.Resource,"U")
 
 	If ..ResourcePitched.EindTijdstip'=""
 	{
@@ -151,22 +151,22 @@
 	Set ..CapStartTijd=""
 	Set ..CapEindTijd=""
 	
-	If $D(^Halux.GeplandeCapaciteit(-1,..ResourceId,..RefDatum,..RefTijd))
+	If $D(^Halux.GeplandeCapaciteit(-1,..Resource,..RefDatum,..RefTijd))
 	{
 		Set ..CapEindTijd=..RefTijd
 		w:..Debug 1,"bingo",!
 	}
 	Else 
 	{
-		Set ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum,..RefTijd),+1) ;eerst latere
-		If (..CapEindTijd="") || ($LI(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum,..CapEindTijd),1)>..RefTijd) ; valt in een pauze of na einde werkdag
+		Set ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,..RefTijd),+1) ;eerst latere
+		If (..CapEindTijd="") || ($LI(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,..CapEindTijd),1)>..RefTijd) ; valt in een pauze of na einde werkdag
 		{   ; niet binnen een tijdslot
-			Set ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum,..RefTijd),-1) ; eerst vroegere tijdslot
+			Set ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,..RefTijd),-1) ; eerst vroegere tijdslot
 			If (..CapEindTijd="") ; er zijn geen latere
 			{
 				w:..Debug 4,"volgende datum",!
-				Set ..RefDatum=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum),-1) ; eerst vorige datum
-				Set:..RefDatum ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum,""),-1)
+				Set ..RefDatum=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum),-1) ; eerst vorige datum
+				Set:..RefDatum ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,""),-1)
 				Set ..RefTijd=..CapEindTijd
 			}
 			Else
@@ -195,22 +195,22 @@
 	Set ..CapStartTijd=""
 	Set ..CapEindTijd=""
 	
-	If $D(^Halux.GeplandeCapaciteit(..ResourceId,..RefDatum,..RefTijd))
+	If $D(^Halux.GeplandeCapaciteit(..Resource,..RefDatum,..RefTijd))
 	{
 		w:..Debug 1,"bingo",!
 		Set ..CapStartTijd=..RefTijd
 	}
 	Else 
 	{
-		Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,..RefTijd),-1) ;eerst vroegere
-		If (..CapStartTijd="") || ($LI(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,..CapStartTijd),1)<..RefTijd) ; valt in een pauze of na einde werkdag
+		Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,..RefTijd),-1) ;eerst vroegere
+		If (..CapStartTijd="") || ($LI(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,..CapStartTijd),1)<..RefTijd) ; valt in een pauze of na einde werkdag
 		{   ; niet binnen een tijdslot
-			Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,..RefTijd)) ; eerst latere tijdslot
+			Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,..RefTijd)) ; eerst latere tijdslot
 			If (..CapStartTijd="") ; er zijn geen latere
 			{
 				w:..Debug 4,"vorige datum",!
-				Set ..RefDatum=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum)) ; eerst volgende datum
-				Set:..RefDatum ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,""))
+				Set ..RefDatum=$O(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum)) ; eerst volgende datum
+				Set:..RefDatum ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,""))
 				Set ..RefTijd=..CapStartTijd
 			}
 			Else
@@ -235,8 +235,8 @@
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	Quit:..CapStartTijd $LI(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..RefDatum,..CapStartTijd),2)
-	Quit:..CapEindTijd $LI(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..RefDatum,..CapEindTijd),2)
+	Quit:..CapStartTijd $LI(^Halux.GeplandeCapaciteit(..NodeLater,..Resource,..RefDatum,..CapStartTijd),2)
+	Quit:..CapEindTijd $LI(^Halux.GeplandeCapaciteit(..NodeVroeger,..Resource,..RefDatum,..CapEindTijd),2)
 	Quit ""
 ]]></Implementation>
 </Method>
@@ -259,7 +259,7 @@
 <Method name="BuildTijdstip">
 <FormalSpec>Datum,Tijd</FormalSpec>
 <Implementation><![CDATA[
-	Quit:'Datum||'Tijd ""
+	Quit:(+Datum<1)||(+Tijd<0) ""
 	Quit $zdt(Datum_","_Tijd,3)
 ]]></Implementation>
 </Method>