Index: APPS/Halux/Planning/Activiteit/impl/RegistratieStartStop.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Activiteit/impl/RegistratieStartStop.cls.xml	(.../RegistratieStartStop.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Activiteit/impl/RegistratieStartStop.cls.xml	(.../RegistratieStartStop.cls.xml)	(revision 57548)
@@ -89,7 +89,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ResetApp">
+<Method name="PauzeerActiesVanApp">
 <FormalSpec>AppNaam:%String,ComputerNaam:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rsApp=##class(TECH.ResultSet).%New()
@@ -133,6 +133,7 @@
 Stapnummer 8 betekend dat het tot op de laatste machine voor dat onderdeel is geraakt.</Description>
 <FormalSpec>Batch,Resource,Activiteit</FormalSpec>
 <Implementation><![CDATA[
+	
 	Quit:'..IsAutoStatusMogelijk(Batch,Resource,Activiteit)
 	
 	Set rs=##class(TECH.ResultSet).%New()
Index: APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 57548)
@@ -84,6 +84,7 @@
 		Set GeplandeCapaciteit.Resource=Resource
 		Set GeplandeCapaciteit.BaseFactor=BaseFactor
 		Set GeplandeCapaciteit.CorrectieFactor=CorrectieFactor
+		Do ..BerekenCapaciteit(GeplandeCapaciteit)
 		Do GeplandeCapaciteit.Save()
 		If (Datum'<+$H) && (BaseFactor+CorrectieFactor)>0
 		{
@@ -92,6 +93,16 @@
 		}
 ]]></Implementation>
 </Method>
+
+<Method name="BerekenCapaciteit">
+<FormalSpec>GeplandeCapaciteit:APPS.Halux.Planning.Capaciteit.dto.GeplandeCapaciteit</FormalSpec>
+<Implementation><![CDATA[
+	Set Verschil=$$DIFFTIME^vhLib.DataTypes($zdth(GeplandeCapaciteit.TijdstipVan,3),$zdth(GeplandeCapaciteit.TijdstipTot,3),"S")
+	Set:(GeplandeCapaciteit.BaseFactor+GeplandeCapaciteit.CorrectieFactor)=0 Verschil=0 ; Geen capaciteit
+	Set GeplandeCapaciteit.AantalSeconden=Verschil
+	Set GeplandeCapaciteit.Capaciteit=Verschil*(GeplandeCapaciteit.BaseFactor+GeplandeCapaciteit.CorrectieFactor)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57548)
@@ -13,7 +13,7 @@
 	Set ..VerpakCode=..AXKenmerken.VerpakkingType
 	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
 	
-	/// SPECIAAL (Front only, te kleine of te gorte breedte, afgerond front voor klant Dibo
+	/// SPECIAAL (Front only, te kleine of te grote breedte, afgerond front voor klant Dibo
 	Set ..SpeciaalCode=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..PRNr,"ODSP"))
 	Set:..SpeciaalCode="V" ..SpeciaalCode=""
 	If ((..AXKenmerken.Internebreedte<79)||(..AXKenmerken.Internebreedte>1600)) && (..AXKenmerken.VerpakkingType="V1")
@@ -76,11 +76,11 @@
 
 <Method name="CreateResourceHoofdlijn">
 <Implementation><![CDATA[
-	Quit:..SpoelbakCode&&(..AantalCode>5)
+	Quit:..SpoelbakCode&&(..ProductieOrderLijn.Aantal>5)
 	Quit:..SpeciaalCode'=""
 	Set Lijn=$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 4")
 	Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode
-	Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","TBX",Selector,,1)
+	Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","TBX",Selector,,2) ; leading and pitched
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml	(.../BerekenActiviteitPerBatch.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml	(.../BerekenActiviteitPerBatch.cls.xml)	(revision 57548)
@@ -19,6 +19,10 @@
 <Type>RegistratieStartStop</Type>
 </Property>
 
+<Property name="TestStartedUsers">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <Description>
 d ##class(APPS.Halux.Planning.Activiteit.impl.BerekenActiviteitPerBatch).%New().Bereken()</Description>
@@ -31,6 +35,7 @@
 	Set ..RegistratieStartStop=##class(RegistratieStartStop).%New()
 	Set ..RecalcTijdstip=$ZDT($H,3)
 	Set ..Debug=1
+	Set ..TestStartedUsers=""
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -78,11 +83,16 @@
 <FormalSpec>Batch:%String,Resource:%String,Activiteit:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=..GeefResultSetActiviteitPerBatch(Batch, Resource, Activiteit)
-	While rs.Next()
+	
+	While rs.Next(.sc)
 	{
-		Set ActiviteitPerBatch=##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch).%OpenId(rs.Data("ID"))
-		Do ..ToevoegenStartStop(ActiviteitPerBatch)
-		Do ActiviteitPerBatch.Save()
+		If $$$ISERR(sc) Quit
+		If (rs.Data("ID")?1.N)
+		{
+			Set ActiviteitPerBatch=##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch).%OpenId(rs.Data("ID"))
+			Do ..ToevoegenStartStop(ActiviteitPerBatch)
+			Do ActiviteitPerBatch.Save()
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -92,8 +102,9 @@
 <FormalSpec>Batch:%String,Resource:%String,Activiteit:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=..GeefResultSetActiviteitPerBatch(Batch, Resource, Activiteit)
- 	If rs.Next()
+ 	If rs.Next(.sc)
  	{
+	 	If $$$ISERR(sc) Quit
 	 	Set ID=rs.Data("ID")
  	}
 	Quit $G(ID)'=""
@@ -136,6 +147,7 @@
 	Do ..ToevoegenVoorafTijdstippen(ActiviteitPerBatch)
 	Set ActiviteitPerBatch.RecalcTijdstip=..RecalcTijdstip
 	Do ..ToevoegenStartStop(ActiviteitPerBatch)
+	;w rs.Data("Batch")," ", rs.Data("Resource") ," ",rs.Data("Activiteit"),!
 	Do ActiviteitPerBatch.Save()
 	Quit ActiviteitPerBatch
 ]]></Implementation>
@@ -145,19 +157,26 @@
 <FormalSpec>ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Quit:ActiviteitPerBatch.Resource?1"Lijn "1N
 		/* TIJDELIJK PV */
+	Set User=$Random(10)
+	Set User=$S(User<4:"GBS",User<7:"JBO",1:"LNA")
 	Set Rnd=$Random(100)
 	If Rnd>95 ; pauze
 	{
-		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"P","PV","WP","PC")
+		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"P",User,"WP","PC")
 	}
 	elseIf Rnd>85
 	{
-		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"F","PV","WP","PC")
+		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"F",User,"WP","PC")
 	}
 	elseIf Rnd>70
 	{
-		Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"S","PV","WP","PC")
+		If (..TestStartedUsers'[User) && (ActiviteitPerBatch.Resource="Voormontage")
+		{
+			Do ..RegistratieStartStop.RegistreerActie(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit,"S",User,"WP","PC")
+			Set ..TestStartedUsers=..TestStartedUsers_";"_User
+		}
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Halux/Planning/Pitching/dto/ResourcePitched.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Pitching/dto/ResourcePitched.cls.xml	(.../ResourcePitched.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Pitching/dto/ResourcePitched.cls.xml	(.../ResourcePitched.cls.xml)	(revision 57548)
@@ -34,7 +34,11 @@
 </Property>
 
 <Property name="IsLeading">
-<Type>%Boolean</Type>
+<Description>
+IsLeading = 0 : Not leading
+            1 : Leading (non pitched)
+            2 : Leading and must be pitched</Description>
+<Type>%Integer</Type>
 </Property>
 
 <Property name="Pitchorde">
@@ -97,8 +101,6 @@
 <IndexLocation>^APPS.Halux4590.ResourcePit22A7I</IndexLocation>
 <StreamLocation>^APPS.Halux4590.ResourcePit22A7S</StreamLocation>
 <Data name="ResourcePitchedDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
Index: APPS/Halux/Planning/Capaciteit/dto/GeplandeCapaciteit.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Capaciteit/dto/GeplandeCapaciteit.cls.xml	(.../GeplandeCapaciteit.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Capaciteit/dto/GeplandeCapaciteit.cls.xml	(.../GeplandeCapaciteit.cls.xml)	(revision 57548)
@@ -29,6 +29,18 @@
 <Type>%Decimal</Type>
 </Property>
 
+<Property name="AantalSeconden">
+<Description>
+Verschil in seconden van TijdstipVan tot TijdstipTot</Description>
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Capaciteit">
+<Description>
+AantalSeconden * (BaseFactor+CorrectieFactor)</Description>
+<Type>%Decimal</Type>
+</Property>
+
 <Index name="PrimKey">
 <Properties>Datum,Resource</Properties>
 </Index>
@@ -41,8 +53,6 @@
 <IndexLocation>^APPS.HaluxCB43.GeplandeCap83EFI</IndexLocation>
 <StreamLocation>^APPS.HaluxCB43.GeplandeCap83EFS</StreamLocation>
 <Data name="GeplandeCapaciteitDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -64,6 +74,12 @@
 <Value name="7">
 <Value>CorrectieFactor</Value>
 </Value>
+<Value name="8">
+<Value>Capaciteit</Value>
+</Value>
+<Value name="9">
+<Value>AantalSeconden</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml	(.../ResourceLijn.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml	(.../ResourceLijn.cls.xml)	(revision 57548)
@@ -61,7 +61,11 @@
 </UDLText>
 
 <Property name="IsLeading">
-<Type>%Boolean</Type>
+<Description>
+IsLeading = 0 : Not leading
+           1 : Leading (non pitched)
+           2 : Leading and must be pitched</Description>
+<Type>%Integer</Type>
 </Property>
 
 <UDLText name="T">
@@ -176,8 +180,6 @@
 <IndexLocation>^APPS.Halux.Pl41A1.ResourceLijnI</IndexLocation>
 <StreamLocation>^APPS.Halux.Pl41A1.ResourceLijnS</StreamLocation>
 <Data name="ResourceLijnDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
Index: APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 57548)
@@ -19,6 +19,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PauzeerActiesVanApp">
+<FormalSpec>AppNaam:%String,ComputerNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set StartStop=##class(APPS.Halux.Planning.Activiteit.impl.RegistratieStartStop).%New()
+	Do StartStop.PauzeerActiesVanApp(AppNaam, ComputerNaam)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBatchLijstVoorLijn">
 <FormalSpec>Resource:%String,Activiteit:%String</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijke.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijke.cls.xml	(.../BerekenTijdenAfhankelijke.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijke.cls.xml	(.../BerekenTijdenAfhankelijke.cls.xml)	(revision 57548)
@@ -106,7 +106,7 @@
 	Set rs=##class(TECH.ResultSet).%New()
 	Set SQL="select batch as BatchID, ToeleveringNr,max(pitchorde) as Pitchorde"
 		_" from APPS_Halux_Planning_Pitching_dto.ResourcePitched"
-		_" where isleading=1"
+		_" where isleading>0"
 		_" group by batch, toeleveringnr"
 	Do rs.Prepare(SQL)
 	
@@ -154,7 +154,7 @@
 		Set (StartTijdstip,LeverenAanResource)=""
 		&SQL(Select min(StartTijdstip),Resource into :StartTijdstip,:LeverenAanResource 
 			from APPS_Halux_Planning_Pitching_dto.ResourcePitched 
-			where Batch=:BatchID and isLeading=1 group by Resource)
+			where Batch=:BatchID and isLeading>0 group by Resource)
 		Set ..BatchesStartTijdstip(BatchID)=StartTijdstip
 		Set ..BatchesLeverenAanResource(BatchID)=LeverenAanResource
 ]]></Implementation>
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)
 	
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)
 	
Index: APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatch.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatch.cls.xml	(.../ActiviteitPerBatch.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatch.cls.xml	(.../ActiviteitPerBatch.cls.xml)	(revision 57548)
@@ -44,7 +44,11 @@
 </Property>
 
 <Property name="IsLeading">
-<Type>%Boolean</Type>
+<Description>
+IsLeading = 0 : Not leading
+            1 : Leading (non pitched)
+            2 : Leading and must be pitched</Description>
+<Type>%Integer</Type>
 </Property>
 
 <Property name="StartVoorafTijdstip">
@@ -78,8 +82,7 @@
 </Property>
 
 <Index name="iBaReAc">
-<Properties>Batch,Resource,Activiteit,RecalcTijdstip</Properties>
-<Unique>1</Unique>
+<Properties>Batch,Resource,Activiteit</Properties>
 </Index>
 
 <UDLText name="T">
Index: APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 57548)
@@ -130,7 +130,7 @@
 </Method>
 
 <Method name="CreateOneResource">
-<FormalSpec>Resourcegroep:%String,Resource:%String,Activiteit:%String,Productgroep:%String,Selector:%String="",DefaultTijd:%Decimal=66,IsLeading:%Boolean=0</FormalSpec>
+<FormalSpec>Resourcegroep:%String,Resource:%String,Activiteit:%String,Productgroep:%String,Selector:%String="",DefaultTijd:%Decimal=66,IsLeading:%Integer=0</FormalSpec>
 <Implementation><![CDATA[
 	Do ..InitResourceContext()
 	
Index: APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml
===================================================================
diff -u -r57446 -r57548
--- APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57548)
@@ -17,7 +17,7 @@
 	Set ..VerpakCode=..AXKenmerken.VerpakkingType
 	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
 
-	/// SPECIAAL (Front only, te kleine of te gorte breedte, afgerond front voor klant Dibo
+	/// SPECIAAL (Front only, te kleine of te grote breedte, afgerond front voor klant Dibo
 	Set ..SpeciaalCode=..AXKenmerken.ProductieWijze
 	Set:..SpeciaalCode="V" ..SpeciaalCode=""
 	If ((..AXKenmerken.Internebreedte<79)||(..AXKenmerken.Internebreedte>1600)) && (..AXKenmerken.VerpakkingType="V1")
@@ -78,12 +78,12 @@
 
 <Method name="CreateResourceHoofdlijn">
 <Implementation><![CDATA[
-	Quit:..SpoelbakCode&&(..AantalCode>5)
+	Quit:..SpoelbakCode&&(..ProductieOrderLijn.Aantal>5)
 	Quit:..SpeciaalCode'=""
 
 	Set Lijn=$S(..VerpakCode="V1":"Lijn 1",1:"Lijn 2&3")
 	Set Selector="S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode
-	Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","LBX",Selector,,1)
+	Do ..CreateOneResource("LBX&TBX",Lijn,"Lade","LBX",Selector,,2) ; leading and pitched
 ]]></Implementation>
 </Method>