Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml
===================================================================
diff -u -r56983 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 56983)
+++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 57301)
@@ -41,9 +41,10 @@
 </Method>
 
 <Method name="Verwerk">
+<FormalSpec>DeleteAll:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	Lock +ProductieResource:0 Else  Quit
-	;Do ..VerwijderAlles()
+	Do:DeleteAll ..VerwijderAlles()
 	Set ..itProductieOrder=##class(ProductieOrderIterator).%New()
 	
 	#dim PRNr as %String
@@ -102,6 +103,7 @@
 		Set GenTyp2=$P($$GENTYP^HAD(PRNr),"\",1,2)
 			;quit:'("DIV"[GenTyp&&(GenTyp2=""))
 		Set ..Cnt=..Cnt+1
+		;w GenTyp," ",PRNr,!
 		If GenTyp="TBX"
 		{   
 			Do ##class(ConvertTBX).%New(..ProductieOrderLijn).Converteer()
Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r57025 -r57301
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 57025)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 57301)
@@ -452,6 +452,7 @@
 				do Builder.AggregeerToeleveringInBatch(Toelevering, MaatwerkBatch)
 			}
 		} catch	{
+			Do ##class(Tools.Wlip).%New(207).String("Toelevering " _ Toelevering.GeefID())
 			do ##class(vhLib.Logger).%New().LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
 		}
 	}
FishEye: Tag 57301 refers to a dead (removed) revision in file `APPS/Halux/Planning/Capaciteit/impl/Werktijd.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml
===================================================================
diff -u -r56901 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml	(.../ConvertKAD.cls.xml)	(revision 56901)
+++ APPS/Halux/Planning/Resource/impl/ConvertKAD.cls.xml	(.../ConvertKAD.cls.xml)	(revision 57301)
@@ -20,7 +20,7 @@
 </Method>
 
 <Method name="CreateResourceLijn">
-<Implementation><![CDATA[	Do ..CreateOneResource("KAD","Lijn",..ToepassingCode)
+<Implementation><![CDATA[	Do ..CreateOneResource("KAD","Kad",..ToepassingCode,300)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml
===================================================================
diff -u -r56901 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(.../ConvertDIV.cls.xml)	(revision 56901)
+++ APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(.../ConvertDIV.cls.xml)	(revision 57301)
@@ -34,7 +34,7 @@
 <Method name="CreateResource">
 <Implementation><![CDATA[
 	;Quit:..MatCode=""
-	Do ..CreateOneResource("DIV",..ToepassingCode,"")
+	Do ..CreateOneResource("DIV","Div",..ToepassingCode,"")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml
===================================================================
diff -u -r57131 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml	(.../ConvertASM.cls.xml)	(revision 57131)
+++ APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml	(.../ConvertASM.cls.xml)	(revision 57301)
@@ -4,7 +4,12 @@
 <Super>ConvertProductAbstract</Super>
 
 <Method name="BuildResourceCodes">
-<Implementation><![CDATA[	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
+<Implementation><![CDATA[
+	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
+	//TODO MatCode via ingegevenkenmerken ophalen, deze worden nog niet geconverteerd
+	;Set ..MatCode=..IngegevenKenmerken.MatMateriaal
+
+	//TODO IsORGALIX bepalen omdat deze niet moeten verpakt worden zoals voor andere klant orders
 ]]></Implementation>
 </Method>
 
@@ -15,8 +20,10 @@
 
 <Method name="CreateResourceMat">
 <Implementation><![CDATA[
-	;Quit:..MatCode=""
-	Do ..CreateOneResource("MAT","Klantorder","")
+	Set SnijCode=..GeefMatAantalKeerSnijden()
+	Set:SnijCode="" SnijCode="STD"
+
+	Do ..CreateOneResource("MAT","Mat","Klantorder","F:"_$S(..MatCode="CV":"VILT",1:"STD")_";SN:"_SnijCode_";O:Klantorder")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/Resource/impl/ResourceLijn.cls.xml
===================================================================
diff -u -r56901 -r57301
--- APPS/Halux/Planning/Resource/impl/ResourceLijn.cls.xml	(.../ResourceLijn.cls.xml)	(revision 56901)
+++ APPS/Halux/Planning/Resource/impl/ResourceLijn.cls.xml	(.../ResourceLijn.cls.xml)	(revision 57301)
@@ -41,6 +41,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Subgroep">
+<Type>%String</Type>
+</Property>
+
 <Property name="Selector">
 <Type>%String</Type>
 </Property>
@@ -49,6 +53,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="IsLeading">
+<Type>%Boolean</Type>
+</Property>
+
 <Property name="BreedteCode">
 <Type>%Decimal</Type>
 </Property>
@@ -101,6 +109,10 @@
 <Type>%TimeStamp</Type>
 </Property>
 
+<Property name="TijdPerStuk">
+<Type>%Decimal</Type>
+</Property>
+
 <Index name="iToelev">
 <Properties>ToeleveringNr,UniekLijnNr</Properties>
 </Index>
@@ -207,6 +219,15 @@
 <Value name="30">
 <Value>Klant</Value>
 </Value>
+<Value name="31">
+<Value>Subgroep</Value>
+</Value>
+<Value name="32">
+<Value>IsLeading</Value>
+</Value>
+<Value name="33">
+<Value>TijdPerStuk</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Planning/Pitching/impl/BatchPitched.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/BatchPitched.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitched.cls.xml	(revision 57301)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.BatchPitched">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.impl.BatchImpl</Type>
+</Property>
+
+<Property name="Lijn">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ResourceId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Pitchorde">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Actief">
+<Description>
+Als de nieuwe ingelezen wordt deze per default op non actief gezet de oude staan actief.
+Daarna wordt de actief status geinverteerd waarna de oude, non-actieve verwijderd wordt.</Description>
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Opmerking">
+<Type>%String</Type>
+</Property>
+
+<Property name="DuurTijd">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="StartTijdstip">
+<Type>%Decimal</Type>
+</Property>
+
+<Index name="iBatch">
+<Properties>Batch</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.Pl1A9E.BatchPitchedD</DataLocation>
+<DefaultData>BatchPitchedDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.Pl1A9E.BatchPitchedD</IdLocation>
+<IndexLocation>^APPS.Halux.Pl1A9E.BatchPitchedI</IndexLocation>
+<StreamLocation>^APPS.Halux.Pl1A9E.BatchPitchedS</StreamLocation>
+<Data name="BatchPitchedDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Batch</Value>
+</Value>
+<Value name="3">
+<Value>Lijn</Value>
+</Value>
+<Value name="4">
+<Value>Pitchorde</Value>
+</Value>
+<Value name="5">
+<Value>Actief</Value>
+</Value>
+<Value name="6">
+<Value>Opmerking</Value>
+</Value>
+<Value name="7">
+<Value>DuurTijd</Value>
+</Value>
+<Value name="8">
+<Value>StartTijdstip</Value>
+</Value>
+<Value name="9">
+<Value>ResourceId</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/ResourcePitchingService.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/ResourcePitchingService.cls.xml	(revision 0)
+++ APPS/Halux/Planning/ResourcePitchingService.cls.xml	(revision 57301)
@@ -0,0 +1,142 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.ResourcePitchingService">
+<Description>
+Service voor de Halux pitching.
+Ondersteunt het visualiseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn.
+Import Pitching van Batches</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Online">
+<Description>
+D ##class(APPS.Halux.Planning.ResourcePitchingService).%New().VerwerkAll()</Description>
+<Type>%Boolean</Type>
+</Property>
+
+<Parameter name="ApplicatieNaam">
+<Default>Halux_Planning_ResourcePitchingService</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Online=1
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// SQL  Select * from APPS_Halux_Planning_Pitching_impl.ResourcePitched 
+
+]]></Content>
+</UDLText>
+
+<Method name="VerwerkAll">
+<Implementation><![CDATA[
+	Quit:'..Lock()
+	
+	Do ..ImportCapaciteit()
+	Do ..ImportResourceTijden()
+	Do ..ImportBatchPitching()
+	
+	Do ..BuildProductieOrderToResource()
+	Do ..BuildPitchingFromResourcesAndBatch()
+	
+	Do ..UnLock()
+]]></Implementation>
+</Method>
+
+<Method name="BuildPitchingFromResourcesAndBatch">
+<Implementation><![CDATA[
+	Write:..Online "Build Pitching From Resources And Batch",!
+	Write:..Online "    BerekenTijdenLeadingResources",!
+	/* SQL voor de leading resources
+    Select BP.ResourceId, Pitchorde, BatchImpl as BatchID, RL.Groep as ResourceId,RL.ID,RL.ToeleveringNr, RL.UniekLijnNr, sum(RL.TijdPerStuk*TL.Aantal) Tijd,  sum(TL.Aantal) Aantal 
+	 from APPS_Halux_common_impl.BatchImpl_ToeleveringenIndex BT 
+	 join APPS_Halux_Planning_Pitching_impl.BatchPitched BP on BP.Batch=BT.BatchImpl 
+	 join APPS_Halux_Planning_Resource_impl.Resourcelijn RL on RL.ToeleveringNr=BT.Element_Key 
+	 join Flow_Toelev.Lijn TL on RL.ToeleveringNr=TL.ToeleveringNr and RL.UniekLijnNr=(TL.UniekLijnNr\100*100) 
+	where isleading=1 
+	group by BP.ResourceId,Pitchorde,BatchImpl , RL.Groep,RL.ToeleveringNr, RL.UniekLijnNr 
+	order by BP.ResourceId,BP.pitchorde
+	*/
+	Do ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenLeadingResources).%New().Bereken()
+
+	Write:..Online "    BerekenTijdenAfhankelijkeResources",!
+	/* SQL voor de afhankelijke resources
+    Select BatchImpl as BatchID, PitchOrde,RL.Groep as ResourceId,RL.ID,RL.ToeleveringNr, RL.UniekLijnNr, sum(RL.TijdPerStuk*TL.Aantal) Tijd,  sum(TL.Aantal) Aantal 
+	 from APPS_Halux_common_impl.BatchImpl_ToeleveringenIndex BT 
+	 join APPS_Halux_Planning_Pitching_impl.BatchPitched BP on BP.Batch=BT.BatchImpl 
+	 join APPS_Halux_Planning_Resource_impl.Resourcelijn RL on RL.ToeleveringNr=BT.Element_Key 
+	 join Flow_Toelev.Lijn TL on RL.ToeleveringNr=TL.ToeleveringNr and RL.UniekLijnNr=(TL.UniekLijnNr\100*100) 
+	where isleading=0 
+	group by BatchImpl, RL.Groep, RL.ToeleveringNr, RL.UniekLijnNr 
+	order by BatchImpl ,RL.Groep 
+    */
+    /* Werktijd calculator 
+    	zw ^Halux.GeplandeCapaciteit(1)
+    	zw ^Halux.GeplandeCapaciteit(-1)
+    */
+	Do ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenAfhankelijkeResources).%New().Bereken()
+]]></Implementation>
+</Method>
+
+<Method name="BuildProductieOrderToResource">
+<Description>
+SQL   Select * from APPS_Halux_Planning_Resource_impl.ResourceLijn</Description>
+<Implementation><![CDATA[
+	Write:..Online "Build Productieorder to resource",!
+	
+	Do ##class(APPS.Halux.Planning.Resource.impl.ConvertAll).%New().Verwerk()
+]]></Implementation>
+</Method>
+
+<Method name="ImportCapaciteit">
+<Description>
+SQL   Select * from APPS_Halux_Planning_Capaciteit_impl.GeplandeCapaciteit</Description>
+<Implementation><![CDATA[
+	Write:..Online "Import capacteit en uurschema per resource",!
+
+	Do ##class(APPS.Halux.Planning.Capaciteit.impl.ImportFromXLS).%New().ImportXLS()
+]]></Implementation>
+</Method>
+
+<Method name="ImportResourceTijden">
+<Description>
+SQL   Select * from APPS_Halux_Planning_Resource_impl.ResourceTijd</Description>
+<Implementation><![CDATA[
+	Write:..Online "Import resource tijden per activiteit",!
+
+	Do ##class(APPS.Halux.Planning.Resource.impl.ImportTijdenFromXLS).%New().ImportXLS()
+]]></Implementation>
+</Method>
+
+<Method name="ImportBatchPitching">
+<Description>
+SQL   Select * from APPS_Halux_Planning_Pitching_impl.BatchPitched</Description>
+<Implementation><![CDATA[
+	Write:..Online "Import batch pitching",!
+
+	Do ##class(APPS.Halux.Planning.Pitching.impl.ImportFromXLS).%New().ImportXLS()
+]]></Implementation>
+</Method>
+
+<Method name="Lock">
+<Implementation><![CDATA[
+	Lock +ResourcePitchingService:0
+	Else  Quit 0
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="UnLock">
+<Implementation><![CDATA[	Lock -ResourcePitchingService
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingResources.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingResources.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingResources.cls.xml	(revision 57301)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.BerekenTijdenLeadingResources">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Debug">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="WerktijdCalc">
+<Type>APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenLeadingResources).%New().Bereken()</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	//Do ..GeefLaatsteActiePerLijn()
+	Set ..Debug=1
+	Set ..WerktijdCalc=##class(APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CleanResourcePitched">
+<Implementation><![CDATA[	Do ##class(ResourcePitched).%DeleteExtent()
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<Implementation><![CDATA[
+	Do ..CleanResourcePitched()
+	#dim RefTijd ,StartTijd, EndTijd as %Date
+	#dim Tijd  as %Decimal
+	#dim MemResourceId, ResourceId as %String
+	#dim rs as %ResultSet
+	
+	Set itLijnen=..GeefIteratorProductieOrderPerLijn()
+	Set MemResourceId=""
+	Set Tijd=""
+	While itLijnen.HasNext()
+	{
+		Set rs=itLijnen.Next()
+		Set ResourceId=rs.Data("ResourceId") ; De gepitched resource heeft voorrang 
+		If ResourceId'=MemResourceId
+		{
+			Set RefTijd=..WerktijdCalc.GeefHuidigeTijdstip()
+			Set MemResourceId=ResourceId
+		}
+		Set ResourcePitched=..CreateResourcePitched(rs,ResourceId,RefTijd)
+		Set RefTijd=ResourcePitched.EindTijdstip	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourcePitched">
+<FormalSpec>rs:%ResultSet,ResourceId:%String,Tijdstip:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[
+	Set ResourcePitched=##class(ResourcePitched).%New()
+	Do ResourcePitched.BatchSetObjectId(rs.Data("BatchID"))
+	Do ResourcePitched.ResourceLijnSetObjectId(rs.Data("ResourceLijnId"))
+	Set ResourcePitched.ResourceId=ResourceId
+	Set ResourcePitched.DuurTijd=rs.Data("Tijd")
+	Set ResourcePitched.StartTijdstip=Tijdstip
+	Set ResourcePitched.Aantal=rs.Data("Aantal")
+	Set ResourcePitched.Pitchorde=rs.Data("Pitchorde")
+	Set ResourcePitched.ToeleveringNr=rs.Data("ToeleveringNr")
+	Set ResourcePitched.UniekLijnNr=rs.Data("UniekLijnNr")
+	Do ..WerktijdCalc.StretchTijdslotNaarLater(ResourcePitched)
+	w:..Debug ResourceId," ",Tijdstip," -> ",ResourcePitched.StartTijdstip,!
+
+	Do ResourcePitched.Save()
+	Quit ResourcePitched
+]]></Implementation>
+</Method>
+
+<Method name="GeefIteratorProductieOrderPerLijn">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Set SQL="Select BP.ResourceId, Pitchorde, BatchImpl as BatchID, RL.Groep as ResourceId2,RL.ID ResourceLijnId,RL.ToeleveringNr, RL.UniekLijnNr, sum(RL.TijdPerStuk*TL.Aantal) Tijd,  sum(TL.Aantal) Aantal "
+	_" from APPS_Halux_common_impl.BatchImpl_ToeleveringenIndex BT "
+	_" join APPS_Halux_Planning_Pitching_impl.BatchPitched BP on BP.Batch=BT.BatchImpl "
+	_" join APPS_Halux_Planning_Resource_impl.Resourcelijn RL on RL.ToeleveringNr=BT.Element_Key "
+	_" join Flow_Toelev.Lijn TL on RL.ToeleveringNr=TL.ToeleveringNr and RL.UniekLijnNr=(TL.UniekLijnNr\100*100) "
+	_"where isleading=1 "
+	_"group by BP.ResourceId,Pitchorde,BatchImpl , RL.Groep,RL.ToeleveringNr, RL.UniekLijnNr "
+	_"order by BP.ResourceId,BP.pitchorde "
+	Do rs.Prepare(SQL)
+	
+ 	Set sc=rs.Execute()
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="GeefLaatsteActiePerLijn">
+<Implementation><![CDATA[
+ /*	Do ..BatchesInVerwerking.Clear()
+	
+	Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
+	Set sc=result.Prepare("SELECT * FROM APPS_Halux_Opvolging_impl.LaatsteActie order by Lijn, ProdGrp")
+	If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+	Set sc=result.Execute() If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+	While result.Next(.sc) {
+		If $$$ISERR(sc) Quit
+		Do ..BatchesInVerwerking.SetAt(result.Data("Lijn"),result.Data("BatchID"))
+	}
+*/
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml	(revision 57301)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ImportTijdenFromXLS">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Reader">
+<Type>TECH.FileReader</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CreatieTijdstip">
+<Type>%TimeStamp</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Resource.impl.ImportTijdenFromXLS).%New().ImportXLS()</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..InitialiseReader()
+	Set ..CreatieTijdstip=$$$CurrentTimeStamp
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InitialiseReader">
+<Implementation><![CDATA[
+	Set ..Reader=##class(TECH.FileReader).%New("\\notes01\shared\halux\planning\Productie resource tijden.txt")
+	/// Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB
+	Do ..Reader.SetHeaderRow(1)
+	Do ..Reader.SetFirstDataRow(2)
+	/// Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0
+	/// Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie
+]]></Implementation>
+</Method>
+
+<Method name="ImportXLS">
+<Implementation><![CDATA[
+	#dim Hoofdgroep as %String
+	#dim Groep as %String
+	#dim Selector as %String
+	#dim Tijd as %Decimal
+	Do ..VerwijderOude()
+	
+	While ..Reader.Next()
+	{
+		Set Hoofdgroep=..Reader.Data("Hoofdgroep")
+		Set:$E(Hoofdgroep)="""" Hoofdgroep=$P(Hoofdgroep,"""",2)
+		Set Groep=..Reader.Data("Groep")
+		Set:$E(Groep)="""" Groep=$P(Groep,"""",2)
+		Set Selector=..Reader.Data("Selector")
+		Set:$E(Selector)="""" Selector=$P(Selector,"""",2)
+		Set Tijd=..Reader.Data("Tijd")
+		Do ..OpslaanRecord(Hoofdgroep, Groep, Selector,Tijd)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanRecord">
+<FormalSpec>Hoofdgroep:%String,Groep:%String,Selector:%String,Tijd:%Decimal</FormalSpec>
+<Implementation><![CDATA[
+	#dim ResourceTijd as ResourceTijd
+	Set ResourceTijd=##class(ResourceTijd).%New()
+	Set ResourceTijd.Hoofdgroep=Hoofdgroep
+	Set ResourceTijd.Groep=Groep
+	Set ResourceTijd.Selector=Selector
+	Set ResourceTijd.Tijd=Tijd
+	Do ResourceTijd.Save()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOude">
+<Implementation><![CDATA[	D ##class(ResourceTijd).%DeleteExtent()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml
===================================================================
diff -u -r52358 -r57301
--- APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 52358)
+++ APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 57301)
@@ -30,64 +30,56 @@
 
 <Method name="InitialiseReader">
 <Implementation><![CDATA[
-	Set ..Reader=##class(TECH.FileReader).%New("\\notes01\shared\halux\planning\Productie pitching.txt")
+	Set ..Reader=##class(TECH.FileReader).%New("\\notes01\shared\halux\planning\Batch sequentie export from XLS.txt")
 	/// Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB
-	Do ..Reader.SetHeaderRow(2)
-	Do ..Reader.SetFirstDataRow(3)
+	Do ..Reader.SetHeaderRow(1)
+	Do ..Reader.SetFirstDataRow(2)
 	/// Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0
 	/// Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie
 ]]></Implementation>
 </Method>
 
 <Method name="ImportXLS">
-<FormalSpec>BatchID:TECH.String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Batch as %String
+	#dim BatchId as %String
 	#dim Lijn as %Integer
-	#dim Opmerking as %Decimal
-
-	#dim AantalVeldenPerLijn as %Integer=2
-	#dim Volgorde as %Integer=0
+	#dim Pitchorde as %Integer=0
+	#dim Opmerking as %String
+	Do ..ActiefActiveerAllen()
 	
 	While ..Reader.Next()
 	{
-		Set Volgorde=Volgorde+1
-		For Lijn=1:1:4
-		{
-			Set Batch=..Reader.Column((Lijn-1)*AantalVeldenPerLijn+1)
-			Set Opmerking=..Reader.Column((Lijn-1)*AantalVeldenPerLijn+2)
-			If Batch?3.N
-			{
-				Do ..OpslaanRecord(Lijn, Volgorde, Batch,Opmerking)
-			}
-		}
+		Set BatchId=..Reader.Data("BatchID")
+		Set Lijn=..Reader.Data("Lijn")
+		Set Pitchorde=..Reader.Data("VolgNummer")
+		Set Opmerking=""
+		Do ..OpslaanRecord(Lijn, Pitchorde, BatchId,Opmerking)
 	}
-    Do ..SwitchActief()
+    Do ..ActiefInverteerAllen()
     Do ..VerwijderOude()
 ]]></Implementation>
 </Method>
 
 <Method name="OpslaanRecord">
-<FormalSpec>Lijn:%Integer,Volgorde:%Integer,BatchLastKar:%String,Opmerking:%String</FormalSpec>
+<FormalSpec>Lijn:%Integer,Pitchorde:%Integer,BatchId:%String,Opmerking:%String</FormalSpec>
 <Implementation><![CDATA[
-		#dim BatchVolgorde as BatchVolgorde
-		Set GeplandeCapaciteit=##class(BatchVolgorde).%New()
-		Set GeplandeCapaciteit.Lijn=Lijn
-		Set GeplandeCapaciteit.Volgorde=Volgorde
-		Set GeplandeCapaciteit.CreatieTijdstip=..CreatieTijdstip
-		Set GeplandeCapaciteit.BatchLastKar=BatchLastKar
-		Set GeplandeCapaciteit.Opmerking=Opmerking
-		Set GeplandeCapaciteit.Actief=0
-		Set BatchId=..ZoekBatchFromLastKar(BatchLastKar)
-		If BatchId
+		#dim BatchPitching as BatchPitched
+		If ##class(APPS.Halux.common.impl.BatchImpl).%ExistsId(BatchId)
 		{
-			Do GeplandeCapaciteit.BatchSetObjectId(BatchId)
-			Do GeplandeCapaciteit.Save()	
+			Set BatchPitching=##class(BatchPitched).%New()
+			Do BatchPitching.BatchSetObjectId(BatchId)
+			Set BatchPitching.Actief=0
+			Set BatchPitching.Lijn=Lijn
+			Set BatchPitching.ResourceId=$S(Lijn?1N:"Lijn "_Lijn,1:Lijn)
+			Set BatchPitching.Pitchorde=Pitchorde
+			Do BatchPitching.Save()	
 		}
 ]]></Implementation>
 </Method>
 
 <Method name="ZoekBatchFromLastKar">
+<Description>
+overbodig, er wordt geen verkorte ingave gedaan van de batch id</Description>
 <FormalSpec>BatchLastKar:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New("%DynamicQuery:SQL")
@@ -102,18 +94,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SwitchActief">
-<Implementation><![CDATA[
-	Set Tijdstip=..CreatieTijdstip
-	&SQL( update APPS_HaLux_Planning_Pitching_impl.BatchVolgorde set Actief = case when CreatieTijdstip=:Tijdstip then 1 else 0 END)
+<Method name="ActiefActiveerAllen">
+<Implementation><![CDATA[	&SQL(Update APPS_Halux_Planning_Pitching_impl.BatchPitched Set Actief=1)
 ]]></Implementation>
 </Method>
 
+<Method name="ActiefInverteerAllen">
+<Implementation><![CDATA[	&SQL(Update APPS_Halux_Planning_Pitching_impl.BatchPitched Set Actief=case Actief when 1 then 0 else 1 end)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderOude">
 <Implementation><![CDATA[
 	Set Tijdstip=$$$Timestamp($h-1)
 
-	;&SQL( delete APPS_HaLux_Planning_Pitching_impl.BatchVolgorde where CreatieTijdstip<:Tijdstip and Actief=0 )
+	&SQL( delete APPS_HaLux_Planning_Pitching_impl.BatchPitched where Actief=0 )
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/Pitching/impl/ResourcePitched.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/ResourcePitched.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/ResourcePitched.cls.xml	(revision 57301)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.ResourcePitched">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.impl.BatchImpl</Type>
+</Property>
+
+<Property name="ResourceLijn">
+<Type>APPS.Halux.Planning.Resource.impl.ResourceLijn</Type>
+</Property>
+
+<Property name="ResourceId">
+<Type>%String</Type>
+</Property>
+
+<Property name="Pitchorde">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ToeleveringNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="UniekLijnNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="DuurTijd">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="StretchFactor">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="CapaciteitStartTijd">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="StartTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="EindTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="iBatch">
+<Properties>Batch</Properties>
+</Index>
+
+<Index name="iResourceLijn">
+<Properties>ResourceLijn</Properties>
+</Index>
+
+<Index name="iToelevering">
+<Properties>ToeleveringNr,UniekLijnNr</Properties>
+</Index>
+
+<Index name="iResource">
+<Properties>ResourceId</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux1A9E.ResourcePit22A7D</DataLocation>
+<DefaultData>ResourcePitchedDefaultData</DefaultData>
+<IdLocation>^APPS.Halux1A9E.ResourcePit22A7D</IdLocation>
+<IndexLocation>^APPS.Halux1A9E.ResourcePit22A7I</IndexLocation>
+<StreamLocation>^APPS.Halux1A9E.ResourcePit22A7S</StreamLocation>
+<Data name="ResourcePitchedDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Batch</Value>
+</Value>
+<Value name="3">
+<Value>Werkpost</Value>
+</Value>
+<Value name="4">
+<Value>Pitchorde</Value>
+</Value>
+<Value name="5">
+<Value>ToeleveringNr</Value>
+</Value>
+<Value name="6">
+<Value>UniekLijnNr</Value>
+</Value>
+<Value name="7">
+<Value>DuurTijd</Value>
+</Value>
+<Value name="8">
+<Value>StartTijdstip</Value>
+</Value>
+<Value name="9">
+<Value>EindTijdstip</Value>
+</Value>
+<Value name="10">
+<Value>Aantal</Value>
+</Value>
+<Value name="11">
+<Value>ResourceId</Value>
+</Value>
+<Value name="12">
+<Value>StretchFactor</Value>
+</Value>
+<Value name="13">
+<Value>CapaciteitStartTijd</Value>
+</Value>
+<Value name="14">
+<Value>ResourceLijn</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijkeResources.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijkeResources.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenAfhankelijkeResources.cls.xml	(revision 57301)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.BerekenTijdenAfhankelijkeResources">
+<Super>BerekenTijdenLeadingResources</Super>
+
+<Property name="BatchesStartTijdstip">
+<Type>%Date</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Method name="CleanResourcePitched">
+<Description>
+d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenAfhankelijkeResources).%New().Bereken()</Description>
+<Implementation><![CDATA[	//Do ##class(ResourcePitched).%DeleteExtent()
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<Implementation><![CDATA[
+	#dim RefTijd ,StartTijd, EndTijd as %Date
+	#dim Tijd  as %Decimal
+	#dim MemResourceId, ResourceId as %String
+	#dim rs as %ResultSet
+	
+	Set itLijnen=..GeefIteratorProductieOrderPerLijn()
+	Set MemResourceId=""
+	Set Tijd=""
+	While itLijnen.HasNext()
+	{
+		Set rs=itLijnen.Next()
+		Set ResourceId=rs.Data("ResourceId")
+		If ResourceId'=MemResourceId
+		{
+			Set RefTijd=..GeefVroegsteDatum(rs.Data("BatchID"),ResourceId)
+			Set MemResourceId=ResourceId
+		}
+		If RefTijd
+		{
+			Set ResourcePitched=..CreateResourcePitched(rs,ResourceId,RefTijd)
+			Set RefTijd=ResourcePitched.EindTijdstip			}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreateResourcePitched">
+<FormalSpec>rs:%ResultSet,ResourceId:%String,Tijdstip:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[
+	Set ResourcePitched=##class(ResourcePitched).%New()
+	Do ResourcePitched.BatchSetObjectId(rs.Data("BatchID"))
+	Do ResourcePitched.ResourceLijnSetObjectId(rs.Data("ResourceLijnId"))
+	Set ResourcePitched.ResourceId=ResourceId
+	Set ResourcePitched.DuurTijd=rs.Data("Tijd")
+	Set ResourcePitched.EindTijdstip=Tijdstip
+	Set ResourcePitched.Aantal=rs.Data("Aantal")
+	Set ResourcePitched.Pitchorde=rs.Data("Pitchorde")
+	Set ResourcePitched.ToeleveringNr=rs.Data("ToeleveringNr")
+	Set ResourcePitched.UniekLijnNr=rs.Data("UniekLijnNr")
+	Do ..WerktijdCalc.StretchTijdslotNaarVroeger(ResourcePitched)
+	w:..Debug ResourceId," ",Tijdstip," -> ",ResourcePitched.EindTijdstip,!
+
+	Do ResourcePitched.Save()
+	Quit ResourcePitched
+]]></Implementation>
+</Method>
+
+<Method name="GeefVroegsteDatum">
+<FormalSpec>BatchID:%String,ResourceId:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $D(..BatchesStartTijdstip(BatchID))
+	{
+		Set StartTijdstip=..BatchesStartTijdstip(BatchID)
+	}
+	Else
+	{
+		Set StartTijdstip=""
+		&SQL(Select min(StartTijdstip) into :StartTijdstip from APPS_Halux_Planning_Pitching_impl.ResourcePitched where Batch=:BatchID)
+		Set ..BatchesStartTijdstip(BatchID)=StartTijdstip
+	}
+	
+	If $G(ResourceId)||1
+	{
+		;w "voor: ",StartTijdstip
+		Set StartTijdstip=..WerktijdCalc.VerminderMetSeconden(StartTijdstip,..AfhankelijkeVroegerDanLeading(ResourceId))
+		;w " na: ",StartTijdstip,!
+		;r k
+	}
+	Quit StartTijdstip
+]]></Implementation>
+</Method>
+
+<Method name="AfhankelijkeVroegerDanLeading">
+<FormalSpec>ResourceId:%String</FormalSpec>
+<Implementation><![CDATA[	Quit 600 ; 10min
+]]></Implementation>
+</Method>
+
+<Method name="GeefIteratorProductieOrderPerLijn">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Set SQL="Select BatchImpl as BatchID, PitchOrde,RL.Groep as ResourceId,RL.ID ResourceLijnId,RL.ToeleveringNr, RL.UniekLijnNr, sum(RL.TijdPerStuk*TL.Aantal) Tijd,  sum(TL.Aantal) Aantal "
+	_" from APPS_Halux_common_impl.BatchImpl_ToeleveringenIndex BT "
+	_" join APPS_Halux_Planning_Pitching_impl.BatchPitched BP on BP.Batch=BT.BatchImpl "
+	_" join APPS_Halux_Planning_Resource_impl.Resourcelijn RL on RL.ToeleveringNr=BT.Element_Key "
+	_" join Flow_Toelev.Lijn TL on RL.ToeleveringNr=TL.ToeleveringNr and RL.UniekLijnNr=(TL.UniekLijnNr\100*100) "
+	_"where isleading=0 "
+	_"group by BatchImpl, RL.Groep, RL.ToeleveringNr, RL.UniekLijnNr "
+	_"order by BatchImpl ,RL.Groep "
+	
+
+	Do rs.Prepare(SQL)
+	
+ 	Set sc=rs.Execute()
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculator.cls.xml	(revision 57301)
@@ -0,0 +1,305 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="RefDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="RefTijd">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="CapStartTijd">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="CapEindTijd">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="ResourceId">
+<Type>%String</Type>
+</Property>
+
+<Property name="NodeVroeger">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="NodeLater">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ResourcePitched">
+<Type>APPS.Halux.Planning.Pitching.impl.ResourcePitched</Type>
+</Property>
+
+<Property name="Debug">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator).%New().Test()</Description>
+<FormalSpec>NodeTest=1</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Debug=1
+	Set ..NodeVroeger=-1*NodeTest
+	Set ..NodeLater=1*NodeTest
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeTijdstip">
+<FormalSpec>ResourceId</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim Tijdstip=$H
+	Quit $zdt(Tijdstip,3)
+]]></Implementation>
+</Method>
+
+<Method name="StretchTijdslotNaarLater">
+<FormalSpec>ResourcePitched:APPS.Halux.Planning.Pitching.impl.ResourcePitched</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ResourcePitched=ResourcePitched
+	Set ..ResourceId=$zcvt(ResourcePitched.ResourceId,"U")
+	
+	If ..ResourcePitched.StartTijdstip'=""
+	{
+		Do ..BerekenVolgendStartTijdstip() ;meestal verandert hier niets met het starttijdstip behalve bij de start van de huidigewerktijd
+		Set ..ResourcePitched.StretchFactor=..GeefFactor()
+		Do ..BerekenVolgendEindTijdstip()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="StretchTijdslotNaarVroeger">
+<FormalSpec>ResourcePitched:APPS.Halux.Planning.Pitching.impl.ResourcePitched</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ResourcePitched=ResourcePitched
+	Set ..ResourceId=$zcvt(ResourcePitched.ResourceId,"U")
+
+	If ..ResourcePitched.EindTijdstip'=""
+	{
+		Do ..BerekenVorigEindTijdstip() ;meestal verandert hier niets
+		Set ..ResourcePitched.StretchFactor=..GeefFactor()
+		Do ..BerekenVorigStartTijdstip()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BerekenVorigEindTijdstip">
+<Implementation><![CDATA[
+	Do ..SplitDatumEnTijdToRef(..ResourcePitched.EindTijdstip)
+
+	Set ..ResourcePitched.EindTijdstip= ..VindVorigTijdstip()
+]]></Implementation>
+</Method>
+
+<Method name="BerekenVorigStartTijdstip">
+<Implementation><![CDATA[
+	Do ..SplitDatumEnTijdToRef(..ResourcePitched.EindTijdstip)
+	
+	If ..ResourcePitched.StretchFactor>0
+	{
+		Do ..MinSeconden(..ResourcePitched.DuurTijd/..ResourcePitched.StretchFactor)
+		Set ..ResourcePitched.StartTijdstip=..VindVorigTijdstip()
+		Set ..ResourcePitched.CapaciteitStartTijd=..CapStartTijd
+	}
+	Else
+	{
+		Set ..ResourcePitched.StartTijdstip=""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BerekenVolgendEindTijdstip">
+<Implementation><![CDATA[
+	Do ..SplitDatumEnTijdToRef(..ResourcePitched.StartTijdstip)
+	If ..ResourcePitched.StretchFactor>0
+	{
+		Do ..AddSeconden(..ResourcePitched.DuurTijd/..ResourcePitched.StretchFactor)
+		Set ..ResourcePitched.EindTijdstip= ..VindVolgendTijdstip()
+	}
+	Else
+	{
+		Set ..ResourcePitched.EindTijdstip=""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BerekenVolgendStartTijdstip">
+<Implementation><![CDATA[
+	Do ..SplitDatumEnTijdToRef(..ResourcePitched.StartTijdstip)
+	
+	Set ..ResourcePitched.StartTijdstip=..VindVolgendTijdstip()
+	Set ..ResourcePitched.CapaciteitStartTijd=..CapStartTijd
+]]></Implementation>
+</Method>
+
+<Method name="VindVorigTijdstip">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim VorigTijdstip as %Date
+	;w "rt",..RefTijd," "
+	Set ..CapStartTijd=""
+	Set ..CapEindTijd=""
+	
+	If $D(^Halux.GeplandeCapaciteit(-1,..ResourceId,..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
+		{   ; niet binnen een tijdslot
+			Set ..CapEindTijd=$O(^Halux.GeplandeCapaciteit(..NodeVroeger,..ResourceId,..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 ..RefTijd=..CapEindTijd
+			}
+			Else
+			{
+				w:..Debug 3,"volgend interval",!
+				Set ..RefTijd=..CapEindTijd
+			}
+
+		}
+		Else
+		{
+			w:..Debug 2,"in interval",!
+			;Set ..RefTijd=..CapEindTijd
+		}
+	}
+	Set:..RefDatum VorigTijdstip=..BuildTijdstip(..RefDatum,..RefTijd)
+	Quit $G(VorigTijdstip)
+]]></Implementation>
+</Method>
+
+<Method name="VindVolgendTijdstip">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim VolgendTijdstip as %Date
+	
+	Set ..CapStartTijd=""
+	Set ..CapEindTijd=""
+	
+	If $D(^Halux.GeplandeCapaciteit(..ResourceId,..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
+		{   ; niet binnen een tijdslot
+			Set ..CapStartTijd=$O(^Halux.GeplandeCapaciteit(..NodeLater,..ResourceId,..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 ..RefTijd=..CapStartTijd
+			}
+			Else
+			{
+				w:..Debug 3,"vorig interval",!
+				Set ..RefTijd=..CapStartTijd
+			}
+		}
+		Else
+		{   ; in interval
+			w:..Debug 2,"in interval",!
+			;Set ..RefTijd=..CapStartTijd
+		}
+	}
+	
+	Set:..RefDatum VolgendTijdstip=..BuildTijdstip(..RefDatum,..RefTijd)
+	Quit $G(VolgendTijdstip)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFactor">
+<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 ""
+]]></Implementation>
+</Method>
+
+<Method name="SplitDatumEnTijdToRef">
+<FormalSpec>Tijdstip</FormalSpec>
+<Implementation><![CDATA[
+	If Tijdstip=""
+	{
+		Set ..RefDatum=""
+		Set ..RefTijd=""
+	} Else {
+		Set Tijdstip=$zdth(Tijdstip,3)
+		Set ..RefDatum=$P(Tijdstip,",")
+		Set ..RefTijd=$P(Tijdstip,",",2)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BuildTijdstip">
+<FormalSpec>Datum,Tijd</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'Datum||'Tijd ""
+	Quit $zdt(Datum_","_Tijd,3)
+]]></Implementation>
+</Method>
+
+<Method name="AddSeconden">
+<FormalSpec>Seconden:%Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..RefTijd=..RefTijd+Seconden
+	While ..RefTijd>86399 
+	{
+		Set ..RefDatum=..RefDatum+1
+		Set ..RefTijd=..RefTijd-86399
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerminderMetSeconden">
+<FormalSpec>Tijdstip,Seconden</FormalSpec>
+<Implementation><![CDATA[
+	Do ..SplitDatumEnTijdToRef(Tijdstip)
+	Do ..MinSeconden(Seconden)
+	Quit ..BuildTijdstip(..RefDatum,..RefTijd)
+]]></Implementation>
+</Method>
+
+<Method name="MinSeconden">
+<FormalSpec>Seconden:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	Set ..RefTijd=..RefTijd-Seconden
+	While ..RefTijd<0 
+	{
+		Set ..RefDatum=..RefDatum-1
+		Set ..RefTijd=..RefTijd+86399
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml
===================================================================
diff -u -r57131 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57131)
+++ APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57301)
@@ -9,7 +9,8 @@
 	Set ..BreedteCode=$S(..IngegevenKenmerken.Internebreedte>600:2,1:1)
 	Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1)
 	Set ..SpoelbakCode=$S(..IngegevenKenmerken.Toepassing="L":"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
-	Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
+	Set VoorWandType=$zcvt(..IngegevenKenmerken.VoorWandTypeVanCBinnenlade_..IngegevenKenmerken.VoorWandTypeVanKBinnenlade_..IngegevenKenmerken.VoorWandTypeVanMBinnenlade,"U")
+	Set ..FrontCode=$S($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(VoorWandType["GLAS":"GLAS",VoorWandType["RELING":"RELING",1:"BASIS"),1:"")
 	Set ..MatCode=..IngegevenKenmerken.MatMateriaal
 	Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType
 	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
@@ -37,6 +38,7 @@
 		Do ..CreateResourceVoormontage()
 		Do ..CreateResourceSpoelbak()
 		Do ..CreateResourceSpeciaal()
+		Do ..CreateInkorten()
 	}
 	Else
 	{	Set ..SpeciaalCode="ZNDR KENMERK"
@@ -45,44 +47,73 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CreateInkorten">
+<Implementation><![CDATA[
+ 
+	If $D(^PRBS("BS",..PRNr,"TOBSYS.001"))
+	{
+		Set KPRNr=$P(^PRBS("BS",..PRNr,"TOBSYS.001"),"\")
+		If KPRNr=1297240 ; T60.1125W Syncro stang om in te korten
+		{
+			Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn","INK:TIPON")	
+		}
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"DWARSV.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","INK:DWARSV")	
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","INK:ZIJSTAB")	
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceHoofdlijn">
 <Implementation><![CDATA[
 	Quit:..SpoelbakCode&&(..AantalCode>5)
 	Quit:..SpeciaalCode'=""
 
 	Set Lijn=$S(..VerpakCode="V1":"L1",1:"L2&3")
-	Do ..CreateOneResource("LBX&TBX",Lijn,"F:LBX;S:"_..SpoelbakCode_";B:"_..BreedteCode)
+	Do ..CreateOneResource("LBX&TBX",Lijn,"LBX","F:LBX;S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode,,1)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceMat">
 <Implementation><![CDATA[
 	Quit:..MatCode=""
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("MAT","Intern","")
+
+	Set SnijCode=..GeefMatAantalKeerSnijden()
+	Set:SnijCode="" SnijCode="STD"
+	Set:..SpoelbakCode SnijCode="SPOEL"
+
+	Do ..CreateOneResource("MAT","Mat","Intern","F:"_$S(..MatCode="CV":"VILT",1:"STD")_";SN:"_SnijCode_";O:Intern")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceVoormontage">
 <Implementation><![CDATA[
-	Quit:'..FrontCode
+	Quit:..FrontCode=""
 	Quit:(..SpeciaalCode'="F")&&(..SpeciaalCode'="")
-	Do ..CreateOneResource("LBX&TBX","Voormontage","")
+	Do ..CreateOneResource("LBX&TBX","Voormontage","Front","F:LBX;FT:"_..FrontCode)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpoelbak">
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("LBX&TBX","Spoelbak","S:"_..SpoelbakCode)
+	Do ..CreateOneResource("LBX&TBX","Spoelbak","LBX","F:LBX;S:"_..SpoelbakCode,,(..AantalCode>5))
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpeciaal">
 <Implementation><![CDATA[
 	Quit:..SpeciaalCode=""
-	Do ..CreateOneResource("LBX&TBX","Special","X:"_..SpeciaalCode)
+	Do ..CreateOneResource("LBX&TBX","Special","LBX","X:"_..SpeciaalCode)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/Capaciteit/impl/GeplandeCapaciteit.cls.xml
===================================================================
diff -u -r52358 -r57301
--- APPS/Halux/Planning/Capaciteit/impl/GeplandeCapaciteit.cls.xml	(.../GeplandeCapaciteit.cls.xml)	(revision 52358)
+++ APPS/Halux/Planning/Capaciteit/impl/GeplandeCapaciteit.cls.xml	(.../GeplandeCapaciteit.cls.xml)	(revision 57301)
@@ -9,49 +9,29 @@
 <Type>%Date</Type>
 </Property>
 
-<Property name="Uur">
+<Property name="TijdstipVan">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Werktijden">
-<Type>Werktijd</Type>
-<Collection>list</Collection>
+<Property name="TijdstipTot">
+<Type>%Integer</Type>
 </Property>
 
-<Property name="Lijn">
-<Type>%Integer</Type>
+<Property name="ResourceId">
+<Type>%String</Type>
 </Property>
 
-<Property name="Capaciteit">
+<Property name="BaseFactor">
 <Type>%Decimal</Type>
 </Property>
 
+<Property name="CorrectieFactor">
+<Type>%Decimal</Type>
+</Property>
+
 <Index name="PrimKey">
-<IdKey>1</IdKey>
-<PrimaryKey>1</PrimaryKey>
-<Properties>Datum,Uur,Lijn</Properties>
-<Unique>1</Unique>
+<Properties>Datum,ResourceId</Properties>
 </Index>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^APPS.Halux8751.GeplandeCap83EFD</DataLocation>
-<DefaultData>GeplandeCapaciteitDefaultData</DefaultData>
-<IdLocation>^APPS.Halux8751.GeplandeCap83EFD</IdLocation>
-<IndexLocation>^APPS.Halux8751.GeplandeCap83EFI</IndexLocation>
-<StreamLocation>^APPS.Halux8751.GeplandeCap83EFS</StreamLocation>
-<Data name="GeplandeCapaciteitDefaultData">
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>Capaciteit</Value>
-</Value>
-<Value name="8">
-<Value>Werktijden</Value>
-</Value>
-</Data>
-</Storage>
 </Class>
 
 
Index: APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml
===================================================================
diff -u -r52358 -r57301
--- APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 52358)
+++ APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 57301)
@@ -23,7 +23,7 @@
 
 <Method name="InitialiseReader">
 <Implementation><![CDATA[
-	Set ..Reader=##class(TECH.FileReader).%New("\\notes01\shared\halux\planning\Productie planning.txt")
+	Set ..Reader=##class(TECH.FileReader).%New("\\notes01\shared\halux\planning\Capaciteit per resource en uur export from XLS.txt")
 	/// Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB
 	/// Do reader.SetHeaderRow(1) ; optioneel, default = 1
 	/// Do reader.SetFirstDataRow(2) ; optioneel, default = 2
@@ -32,54 +32,58 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderAlles">
+<Implementation><![CDATA[
+	Do ##class(GeplandeCapaciteit).%DeleteExtent()
+	Kill ^Halux.GeplandeCapaciteit
+]]></Implementation>
+</Method>
+
 <Method name="ImportXLS">
 <FormalSpec>BatchID:TECH.String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Datum as %String
-	#dim Uur as %Integer
-	#dim Lijn as %Integer
-	#dim Capaciteit as %Decimal
-	
+	Do ..VerwijderAlles()
+	#dim Datum as %Date
+	#dim TijdstipVan as %Integer
+	#dim TijdstipTot as %Integer
+	#dim KolomNr as %Integer
+	#dim ResourceNaam as %String
+	#dim BaseFactor as %Decimal
+	#dim CorrectieFactor as %Decimal
 	While ..Reader.Next()
 	{
-		Set Datum=$ZDH(..Reader.Column(1),1)
-		Set Uur=..Reader.Column(2)
-		For Lijn=1:1:4
+		Set Datum=$ZDH(..Reader.Column(1),4)
+		Set TijdstipVan=$ZTH(..Reader.Column(2))
+		Set TijdstipTot=$ZTH(..Reader.Column(3))
+		For KolomNr=4:2:..Reader.GetColumnCount()
 		{
-			Set Capaciteit=..Reader.Column(2+Lijn)
-			Do ..OpslaanRecord(Datum, Uur, Lijn, Capaciteit)
+			Set BaseFactor=$TR(..Reader.Column(KolomNr),",",".")
+			Set CorrectieFactor=$TR($G(..Reader.Column(KolomNr+1)),",",".")
+			Set ResourceNaam=$tr(..Reader.GetColumnHeader(KolomNr),"""")
+			Set:ResourceNaam?1N ResourceNaam="Lijn "_ResourceNaam
+			Do ..OpslaanRecord(Datum, TijdstipVan, TijdstipTot, ResourceNaam, BaseFactor, CorrectieFactor)
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="OpslaanRecord">
-<FormalSpec>Datum:%String,Uur:%Integer,Lijn:%Integer,Capaciteit:%Decimal</FormalSpec>
+<FormalSpec>Datum:%Date,TijdstipVan:%Integer,TijdstipTot:%Integer,ResourceId:%String,BaseFactor:%Decimal,CorrectieFactor:%Decimal</FormalSpec>
 <Implementation><![CDATA[
-		#dim Key as %String = Datum_"||"_Uur_"||"_Lijn
 		#dim GeplandeCapaciteit as GeplandeCapaciteit
-		If ##class(GeplandeCapaciteit).%ExistsId(Key)
+		Set GeplandeCapaciteit=##class(GeplandeCapaciteit).%New()
+		Set GeplandeCapaciteit.Datum=Datum
+		Set GeplandeCapaciteit.TijdstipVan=TijdstipVan
+		Set GeplandeCapaciteit.TijdstipTot=TijdstipTot
+		Set GeplandeCapaciteit.ResourceId=ResourceId
+		Set GeplandeCapaciteit.BaseFactor=BaseFactor
+		Set GeplandeCapaciteit.CorrectieFactor=CorrectieFactor
+		Do GeplandeCapaciteit.Save()
+		If (Datum'<+$H) && (BaseFactor+CorrectieFactor)>0
 		{
-			If Capaciteit<1 
-			{
-				Set sc=##class(GeplandeCapaciteit).%DeleteId(Key)
-			}
-			Else
-			{
-				Set GeplandeCapaciteit=##class(GeplandeCapaciteit).%OpenId(Key)
-				Set GeplandeCapaciteit.Capaciteit=Capaciteit
-				Do GeplandeCapaciteit.Save()
-			}
+			Set ^Halux.GeplandeCapaciteit(1,$zcvt(ResourceId,"U"),Datum,TijdstipVan)=$LB(TijdstipTot,(BaseFactor+CorrectieFactor))
+			Set ^Halux.GeplandeCapaciteit(-1,$zcvt(ResourceId,"U"),Datum,TijdstipTot)=$LB(TijdstipVan,(BaseFactor+CorrectieFactor))
 		}
-		ElseIf Capaciteit>0
-		{
-				Set GeplandeCapaciteit=##class(GeplandeCapaciteit).%New()
-				Set GeplandeCapaciteit.Datum=Datum
-				Set GeplandeCapaciteit.Uur=Uur
-				Set GeplandeCapaciteit.Lijn=Lijn
-				Set GeplandeCapaciteit.Capaciteit=Capaciteit
-				Do GeplandeCapaciteit.Save()
-		}
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculatorTester.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculatorTester.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Capaciteit/impl/WerktijdCalculatorTester.cls.xml	(revision 57301)
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculatorTester">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ResourceId">
+<Type>%String</Type>
+</Property>
+
+<Property name="WerktijdCalc">
+<Type>APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculatorTester).%New().Test()</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..WerktijdCalc=##class(APPS.Halux.Planning.Capaciteit.impl.WerktijdCalculator).%New(2)
+	Set ..ResourceId="L1"
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Do ..BuildTestCap()
+	Do ..TestVroeger1()
+	;Do ..TestVroeger2()
+	Do ..TestLater1()
+	;Do ..TestLater2()
+	Do ..DeleteTestCap()
+]]></Implementation>
+</Method>
+
+<Method name="TestLater1">
+<Implementation><![CDATA[
+	Do ..TestLater("44444,20000",50)
+	Do ..TestLater("44444,30000",50)
+	Do ..TestLater("44444,44000",50)
+	Do ..TestLater("44444,60000",50)
+]]></Implementation>
+</Method>
+
+<Method name="TestLater2">
+<Implementation><![CDATA[
+	Do ..TestLater("44444,20000",10000)
+	Do ..TestLater("44444,30000",10000)
+	Do ..TestLater("44444,44000",10000)
+	Do ..TestLater("44444,60000",10000)
+	Do ..TestLater("44444,20000",50000)
+]]></Implementation>
+</Method>
+
+<Method name="TestVroeger1">
+<Implementation><![CDATA[
+	Do ..TestVroeger("44444,20000",50)
+	Do ..TestVroeger("44444,30000",50)
+	Do ..TestVroeger("44444,44000",50)
+	Do ..TestVroeger("44444,60000",50)
+]]></Implementation>
+</Method>
+
+<Method name="TestVroeger2">
+<Implementation><![CDATA[
+	Do ..TestVroeger("44444,20000",10000)
+	Do ..TestVroeger("44444,30000",10000)
+	Do ..TestVroeger("44444,44000",10000)
+	Do ..TestVroeger("44444,60000",10000)
+	Do ..TestVroeger("44444,20000",50000)
+]]></Implementation>
+</Method>
+
+<Method name="TestVroeger">
+<FormalSpec>Tijdstip,DuurTijd</FormalSpec>
+<Implementation><![CDATA[
+	Set ResourcePitched=##class(APPS.Halux.Planning.Pitching.impl.ResourcePitched).%New()
+	Set ResourcePitched.ResourceId=..ResourceId
+	Set ResourcePitched.DuurTijd=DuurTijd
+	Set ResourcePitched.EindTijdstip=$zdt(Tijdstip,3)
+	Write "Vervroegen",!
+	Write "before ",ResourcePitched.EindTijdstip," " W:ResourcePitched.EindTijdstip'="" $zdth(ResourcePitched.EindTijdstip,3) w !
+	Do ..WerktijdCalc.StretchTijdslotNaarVroeger(ResourcePitched)
+	Write "after ",ResourcePitched.EindTijdstip," " W:ResourcePitched.EindTijdstip'="" $zdth(ResourcePitched.EindTijdstip,3) w !
+	Write "cap    ",ResourcePitched.CapaciteitStartTijd,!
+	Write "factor ",ResourcePitched.DuurTijd," / ",ResourcePitched.StretchFactor," = ",$S(ResourcePitched.StretchFactor:ResourcePitched.DuurTijd/ResourcePitched.StretchFactor,1:""),!
+	Write "start ",ResourcePitched.StartTijdstip," " W:ResourcePitched.StartTijdstip'="" $zdth(ResourcePitched.StartTijdstip,3) w !
+	write !
+]]></Implementation>
+</Method>
+
+<Method name="TestLater">
+<FormalSpec>Tijdstip,DuurTijd</FormalSpec>
+<Implementation><![CDATA[
+	Set ResourcePitched=##class(APPS.Halux.Planning.Pitching.impl.ResourcePitched).%New()
+	Set ResourcePitched.ResourceId=..ResourceId
+	Set ResourcePitched.DuurTijd=DuurTijd
+	Set ResourcePitched.StartTijdstip=$zdt(Tijdstip,3)
+	Write "Verlaten",!
+	Write "before ",ResourcePitched.StartTijdstip," " W:ResourcePitched.StartTijdstip'="" $zdth(ResourcePitched.StartTijdstip,3) w !
+	Do ..WerktijdCalc.StretchTijdslotNaarLater(ResourcePitched)
+	Write "after  ",ResourcePitched.StartTijdstip," " W:ResourcePitched.StartTijdstip'="" $zdth(ResourcePitched.StartTijdstip,3) w !
+	Write "cap    ",ResourcePitched.CapaciteitStartTijd,!
+	Write "factor ",ResourcePitched.DuurTijd," / ",ResourcePitched.StretchFactor," = ",$S(ResourcePitched.StretchFactor:ResourcePitched.DuurTijd/ResourcePitched.StretchFactor,1:""),!
+	Write "eind ",ResourcePitched.EindTijdstip," " W:ResourcePitched.EindTijdstip'="" $zdth(ResourcePitched.EindTijdstip,3) w !
+	Write !
+]]></Implementation>
+</Method>
+
+<Method name="BuildTestCap">
+<Implementation><![CDATA[
+	Set Datum=44444
+	Do ..BuildOneTestCap(Datum,"8:00","9:50",.5)
+	Do ..BuildOneTestCap(Datum,"10:00","12:00",.5)
+	Do ..BuildOneTestCap(Datum,"12:30","16:20",.5)
+	Set Datum=44445
+	Do ..BuildOneTestCap(Datum,"8:00","9:50",.5)
+	Do ..BuildOneTestCap(Datum,"10:00","12:00",.5)
+	Do ..BuildOneTestCap(Datum,"12:30","16:20",.5)
+]]></Implementation>
+</Method>
+
+<Method name="BuildOneTestCap">
+<FormalSpec>Datum,Van,Tot,Factor</FormalSpec>
+<Implementation><![CDATA[
+	Set Van=Van_":00"
+	Set Tot=Tot_":00"
+	w "CAP ",Datum," ",$zth(Van),"..",$zth(Tot),!
+	Set ^Halux.GeplandeCapaciteit(..WerktijdCalc.NodeLater,..ResourceId,Datum,$zth(Van))=$LB($zth(Tot),Factor)
+	Set ^Halux.GeplandeCapaciteit(..WerktijdCalc.NodeVroeger,..ResourceId,Datum,$zth(Tot))=$LB($zth(Van),Factor)
+]]></Implementation>
+</Method>
+
+<Method name="DeleteTestCap">
+<Implementation><![CDATA[
+	Kill ^Halux.GeplandeCapaciteit(..WerktijdCalc.NodeLater)
+	Kill ^Halux.GeplandeCapaciteit(..WerktijdCalc.NodeVroeger)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml
===================================================================
diff -u -r57131 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(.../ConvertTAX.cls.xml)	(revision 57131)
+++ APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(.../ConvertTAX.cls.xml)	(revision 57301)
@@ -32,6 +32,7 @@
 		Do ..CreateResourceMat()
 		Do ..CreateResourceLaserLogo()
 		Do ..CreateResourceSpoelbak()
+		Do ..CreateInkorten()
 	}
 	Else
 	{
@@ -41,29 +42,57 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CreateInkorten">
+<Implementation><![CDATA[
+	If $D(^PRBS("BS",..PRNr,"TOBSYS.001"))
+	{
+		Set KPRNr=$P(^PRBS("BS",..PRNr,"TOBSYS.001"),"\")
+		If KPRNr=1297240 ; T60.1125W Syncro stang om in te korten
+		{
+			Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn","INK:TIPON")	
+		}
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"PRTOSTANG.001")) ; OLD TIPON syncstang
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn ALU","INK:TIPON ALU")	
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","INK:ZIJSTAB")	
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceHoofdlijn">
-<Implementation><![CDATA[	Do ..CreateOneResource("TAX","Lijn","")
+<Implementation><![CDATA[	Do ..CreateOneResource("TAX","Tax","TAX","")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceMat">
 <Implementation><![CDATA[
 	Quit:..MatCode=""
-	Do ..CreateOneResource("MAT","Intern","")
+	
+	Set SnijCode=..GeefMatAantalKeerSnijden()
+	Set:SnijCode="" SnijCode="STD"
+	Set:..SpoelbakCode SnijCode="SPOEL"
+
+	Do ..CreateOneResource("MAT","Mat","Intern","F:"_$S(..MatCode="CV":"VILT",1:"STD")_";SN:"_SnijCode_";O:Intern")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceLaserLogo">
 <Implementation><![CDATA[
 	Quit:'..LogoCode
-	Do ..CreateOneResource("TAX","LaserLogo","")
+	Do ..CreateOneResource("TAX","LaserLogo","TAX","")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpoelbak">
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
-	Do ..CreateOneResource("TAX","Spoelbak","S:"_..SpoelbakCode)
+	Do ..CreateOneResource("TAX","Spoelbak","TAX","S:"_..SpoelbakCode)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/Resource/impl/ResourceTijd.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/ResourceTijd.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/ResourceTijd.cls.xml	(revision 57301)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.ResourceTijd">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="Hoofdgroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="Groep">
+<Type>%String</Type>
+</Property>
+
+<Property name="Selector">
+<Type>%String</Type>
+</Property>
+
+<Property name="Tijd">
+<Type>%Decimal</Type>
+</Property>
+
+<Index name="iToelev">
+<Properties>Hoofdgroep,Groep,Selector</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.PlCE5B.ResourceTijdD</DataLocation>
+<DefaultData>ResourceTijdDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.PlCE5B.ResourceTijdD</IdLocation>
+<IndexLocation>^APPS.Halux.PlCE5B.ResourceTijdI</IndexLocation>
+<StreamLocation>^APPS.Halux.PlCE5B.ResourceTijdS</StreamLocation>
+<Data name="ResourceTijdDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Hoofdgroep</Value>
+</Value>
+<Value name="3">
+<Value>Groep</Value>
+</Value>
+<Value name="4">
+<Value>Selector</Value>
+</Value>
+<Value name="5">
+<Value>Tijd</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u -r57131 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57131)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57301)
@@ -8,7 +8,7 @@
 	Set ..BreedteCode=$S(..IngegevenKenmerken.Internebreedte>600:2,1:1)
 	Set ..DiepteCode=$S(..IngegevenKenmerken.LadeDiepte>550:2,1:1)
 	Set ..SpoelbakCode=$S("L"[..IngegevenKenmerken.Toepassing:"",$zcvt(..IngegevenKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
-	Set ..FrontCode=$zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE"
+	Set ..FrontCode=$s($zcvt(..IngegevenKenmerken.IsBinnenlade,"U")="TRUE":$S(..HoogteCode?1(1"D",1"C",1"B"):"RELING",1:"BASIS"),1:"")
 	Set ..MatCode=..IngegevenKenmerken.MatMateriaal
 	Set ..VerpakCode=..IngegevenKenmerken.VerpakkingType
 	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
@@ -42,6 +42,7 @@
 		Do ..CreateResourceVoormontage()
 		Do ..CreateResourceSpoelbak()
 		Do ..CreateResourceSpeciaal()
+		Do ..CreateInkorten()
 	}
 	Else
 	{	Set ..SpeciaalCode="ZNDR KENMERK"
@@ -50,43 +51,68 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CreateInkorten">
+<Implementation><![CDATA[
+ 
+	If $D(^PRBS("BS",..PRNr,"PRTOBSTG.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","TipOn","INK:TIPON")	
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"DWARSV.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","INK:DWARSV")	
+	}
+	
+	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","F:LBX;INK:ZIJSTAB")	
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceHoofdlijn">
 <Implementation><![CDATA[
 	Quit:..SpoelbakCode&&(..AantalCode>5)
 	Quit:..SpeciaalCode'=""
 	Set Lijn=$S(..VerpakCode="V1":"L1",1:"L4")
-	Do ..CreateOneResource("LBX&TBX",Lijn,"F:TBX;S:"_$S(..SpoelbakCode:1,1:0)_";B:"_..BreedteCode)
+	Do ..CreateOneResource("LBX&TBX",Lijn,"TBX","F:TBX;S:"_$S(..SpoelbakCode="":0,1:1)_";B:"_..BreedteCode,,1)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceMat">
 <Implementation><![CDATA[
 	Quit:..MatCode=""
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("MAT","Intern","")
+	
+	Set SnijCode=..GeefMatAantalKeerSnijden()
+	Set:SnijCode="" SnijCode="STD"
+	Set:..SpoelbakCode SnijCode="SPOEL"
+
+	Do ..CreateOneResource("MAT","Mat","Intern","F:"_$S(..MatCode="CV":"VILT",1:"STD")_";SN:"_SnijCode_";O:Intern")
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceVoormontage">
 <Implementation><![CDATA[
-	Quit:'..FrontCode
+	Quit:..FrontCode=""
 	Quit:(..SpeciaalCode'="F")&&(..SpeciaalCode'="")
-	Do ..CreateOneResource("LBX&TBX","Voormontage","")
+	Do ..CreateOneResource("LBX&TBX","Voormontage","Front","F:TBX;FT:"_..FrontCode)
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpoelbak">
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("LBX&TBX","Spoelbak","S:"_..SpoelbakCode)
+	Do ..CreateOneResource("LBX&TBX","Spoelbak","TBX","F:TBX;S:"_..SpoelbakCode,,(..AantalCode>5))
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResourceSpeciaal">
 <Implementation><![CDATA[
 	Quit:..SpeciaalCode=""
-	Do ..CreateOneResource("LBX&TBX","Special","X:"_..SpeciaalCode)
+	Do ..CreateOneResource("LBX&TBX","Special","TBX","X:"_..SpeciaalCode)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r56901 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 56901)
+++ APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 57301)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Planning.Resource.impl.ConvertProductAbstract">
+<IncludeCode>Prod.Product</IncludeCode>
 <Super>%RegisteredObject</Super>
 
 <Property name="BreedteCode">
@@ -117,17 +118,18 @@
 </Method>
 
 <Method name="CreateOneResource">
-<FormalSpec>Hoofdgroep:%String,Groep:%String,Selector:%String,Lijn:%String=""</FormalSpec>
+<FormalSpec>Hoofdgroep:%String,Groep:%String,Subgroep:%String,Selector:%String,DefaultTijd:%Decimal=66,IsLeading:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	Do ..InitResourceContext()
 	
 	Do ..CopyResourceCodes()
 	
 	Set ..ResourceLijn.Hoofdgroep=Hoofdgroep
 	Set ..ResourceLijn.Groep=Groep
+	Set ..ResourceLijn.Subgroep=Subgroep
 	Set ..ResourceLijn.Selector=Selector
-	Set ..ResourceLijn.Lijn=Lijn
-	
+	Set ..ResourceLijn.IsLeading=IsLeading
+	Do ..VoegtoeTijd(DefaultTijd)
 	Do ..ResourceLijn.%Save()
 	;Write "  ",Hoofdgroep, " ",Groep, " ",Selector,!
 	;Do DumpObject^%apiOBJ(..ResourceLijn)
@@ -140,6 +142,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegtoeTijd">
+<FormalSpec>DefaultTijd</FormalSpec>
+<Implementation><![CDATA[
+	Set Hoofdgroep=..ResourceLijn.Hoofdgroep
+	Set Groep=..ResourceLijn.Groep
+	Set Selector=..ResourceLijn.Selector
+	Set TijdPerStuk=DefaultTijd
+	&SQL(Select Tijd into :TijdPerStuk from APPS_Halux_Planning_Resource_impl.ResourceTijd where Hoofdgroep=:Hoofdgroep and Groep=:Groep and Selector=:Selector)
+	Set ..ResourceLijn.TijdPerStuk=TijdPerStuk
+]]></Implementation>
+</Method>
+
 <Method name="InitResourceContext">
 <Implementation><![CDATA[
 	Set ..ResourceLijn=##class(APPS.Halux.Planning.Resource.impl.ResourceLijn).%New()
@@ -165,6 +179,30 @@
 	Set ..ResourceLijn.AantalCode=..AantalCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMatAantalKeerSnijden">
+<Implementation><![CDATA[
+	Set BSKey=$O(^PRBS("BS",..PRNr,""))
+	Set AantalSneden=""
+	While BSKey'=""
+	{
+		If ($E($P(^PRBS("BS",..PRNr,BSKey),"\",13),1,7)="Snijden") && ($P(^PRBS("BS",..PRNr,BSKey),"\",13)["mat")
+		{
+			Set AantalSneden=$S($P(^PRBS("BS",..PRNr,BSKey),"\",7)'>20:1,1:2)
+		}
+		
+		If AantalSneden
+		{
+			Set BSKey=""
+		}
+		Else 
+		{
+			Set BSKey=$O(^PRBS("BS",..PRNr,BSKey))
+		}
+	} 
+	Quit AantalSneden
+]]></Implementation>
+</Method>
 </Class>