Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingPitched.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingPitched.cls.xml	(.../BerekenTijdenLeadingPitched.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingPitched.cls.xml	(.../BerekenTijdenLeadingPitched.cls.xml)	(revision 57548)
@@ -20,23 +20,10 @@
 <Type>%TimeStamp</Type>
 </Property>
 
-<Method name="%OnNew">
+<Method name="Bereken">
 <Description>
 d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenLeadingPitched).%New().Bereken()</Description>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	//Do ..GeefLaatsteActiePerLijn()
-	Set ..Debug=0
-	Set ..WerktijdCalc=##class(APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator).%New()
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<Implementation><![CDATA[
 	Set ..MemResource=""
 	#dim rs as %ResultSet
 	
@@ -85,7 +72,7 @@
 	Set ResourcePitched.Resource=rsToelev.Data("Resource") ; PITCHED resource !
 	Set ResourcePitched.Activiteit=rsLijn.Data("Activiteit")
 	Set ResourcePitched.Productgroep=rsLijn.Data("Productgroep")
-	Set ResourcePitched.IsLeading=1
+	Set ResourcePitched.IsLeading=2
 	;
 	Set ResourcePitched.DuurTijd=rsLijn.Data("Tijd")
 	Set ResourcePitched.StartTijdstip=..RefTijd
@@ -107,7 +94,7 @@
 	Set SQL="Select RL.Resourcegroep,RL.Resource, RL.Activiteit, RL.Productgroep,RL.ID ResourceLijnId,RL.ToeleveringNr, RL.UniekLijnNr, sum(RL.TijdPerStuk*TL.Aantal) Tijd,  sum(TL.Aantal) Aantal "
 	_" From  APPS_Halux_Planning_Resource_dto.Resourcelijn RL"
 	_" join Flow_Toelev.Lijn TL on RL.ToeleveringNr=TL.ToeleveringNr and RL.UniekLijnNr=(TL.UniekLijnNr\100*100) "
-	_" where isleading=1 and rl.ToeleveringNr=? and TL.Leverancier=6332"
+	_" where isleading=2 and rl.ToeleveringNr=? and TL.Leverancier=6332"
 	_" group by %EXACT(RL.Resourcegroep),%EXACT(RL.Resource),%EXACT(RL.Activiteit),%EXACT(RL.Productgroep), RL.UniekLijnNr "
 	Do rs.Prepare(SQL)