Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml	(.../BerekenTijdenLeadingNotPitched.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml	(.../BerekenTijdenLeadingNotPitched.cls.xml)	(revision 57548)
@@ -38,6 +38,10 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsBatchNonPitched">
+<FormalSpec>rs:%ResultSet</FormalSpec>
+</Method>
+
 <Method name="BerekenProductieOrder">
 <FormalSpec>rsToelev:%ResultSet</FormalSpec>
 <Implementation><![CDATA[
@@ -76,7 +80,7 @@
 	Set ResourcePitched.Aantal=rsLijn.Data("Aantal")
 	;Set ResourcePitched.Pitchorde=rsToelev.Data("Pitchorde")
 	Do ..WerktijdCalc.StretchTijdslotNaarVroeger(ResourcePitched)
-	w:..Debug ResourcePitched.Resource," : ",..RefTijd," -> ",ResourcePitched.EindTijdstip,!
+	w:..Debug ResourcePitched.Resource," ",rsLijn.Data("IsLeading")," : ",..RefTijd," -> ",ResourcePitched.EindTijdstip,!
 
 	Do ResourcePitched.Save()
 	Quit ResourcePitched
@@ -88,7 +92,7 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
-	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 "
+	Set SQL="Select RL.Resourcegroep,RL.Resource, RL.Activiteit, RL.Productgroep,RL.ID ResourceLijnId,RL.ToeleveringNr, RL.UniekLijnNr, min(IsLeading) IsLeading, 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"
@@ -108,7 +112,6 @@
 	Set rs=##class(TECH.ResultSet).%New()
 	Set SQL="Select BatchImpl as BatchID, BT.Element_Key as ToeleveringNr,BatchImpl->DueOutTijdstip,BatchImpl->GeplandOp,BatchImpl->Categorie"
 		_" from APPS_Halux_common_impl.BatchImpl_ToeleveringenIndex BT"
-		_" where BatchImpl->categorie not in ('Tandembox','Legrabox','Kaderdeur')"
 
 	Do rs.Prepare(SQL)