Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r52134 -r52358
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 52134)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 52358)
@@ -519,8 +519,23 @@
 <Method name="GeefAantalNogTePersen">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set BatchID=..GeefID()
-	&SQL(Select count(*) into :Aantal from PPS.TBX_Queue where BatchID=:BatchID and WPPers_WPStatus='W')
+	If ..GeefCategorie()="Tandembox"
+	{
+		Set BatchID=..GeefID()
+		&SQL(Select count(*) into :Aantal from PPS.TBX_Queue where BatchID=:BatchID and WPPers_WPStatus='W')
+	} 
+	Else
+	{
+		Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
+		Set sc=result.Prepare("SELECT sum(case status when 'uitgevoerd'then 0 else 1 end) as TeVerwerken,count(*) as Totaal FROM APPS_Halux_PPS_Activiteit_dto.ProductieSequentieWerklijstItem where informatieid='PERSAANSTURING' and BatchID=?")
+		If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+		Set sc=result.Execute(..GeefID()) If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+		Do result.Next(.sc)
+		If $$$ISOK(sc)
+		{
+			Set Aantal = result.Data("TeVerwerken")
+		}
+	}
 	Quit $G(Aantal)
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml
===================================================================
diff -u -r50298 -r52358
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml	(.../Registratie.cls.xml)	(revision 50298)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml	(.../Registratie.cls.xml)	(revision 52358)
@@ -68,6 +68,10 @@
 <Properties>RegistratieCode</Properties>
 </Index>
 
+<Index name="PRNr">
+<Properties>PRNr</Properties>
+</Index>
+
 <Method name="%OnNew">
 <FormalSpec>Werkpost:%String,Familie:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
Index: APPS/Halux/Planning/Pitching/impl/Service.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/Service.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/Service.cls.xml	(revision 52358)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.Service">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BatchesInVerwerking">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="Batches">
+<Type>BatchVolgorde</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="PitchBatch">
+<Type>BatchVolgorde</Type>
+</Property>
+
+<Property name="VorigePitchBatch">
+<Type>BatchVolgorde</Type>
+</Property>
+
+<Property name="VolgordeBatchInVerwerking">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Pitching.impl.Service).%New().ImportEnBereken()</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ImportEnBereken">
+<Implementation><![CDATA[
+	Do ##class(APPS.Halux.Planning.Capaciteit.impl.ImportFromXLS).%New().ImportXLS()
+	Do ##class(APPS.Halux.Planning.Pitching.impl.ImportFromXLS).%New().ImportXLS()
+	Do ##class(APPS.Halux.Planning.Capaciteit.impl.BerekenWerktijden).%New($H).Bereken()	
+	Do ##class(APPS.Halux.Planning.Capaciteit.impl.BerekenWerktijden).%New($H+1).Bereken()	
+	Do ..Bereken()
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<Description>
+d ##class(APPS.Halux.Planning.Pitching.impl.Service).%New().Bereken()</Description>
+<Implementation><![CDATA[	Do ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdstippen).%New().Bereken()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdstippen.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/BerekenTijdstippen.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/BerekenTijdstippen.cls.xml	(revision 52358)
@@ -0,0 +1,304 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.BerekenTijdstippen">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BatchesInVerwerking">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="Batches">
+<Type>BatchVolgorde</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="PitchBatch">
+<Type>BatchVolgorde</Type>
+</Property>
+
+<Property name="VorigePitchBatch">
+<Type>BatchVolgorde</Type>
+</Property>
+
+<Property name="VolgordeBatchInVerwerking">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdstippen).%New().Bereken()</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..GeefLaatsteActiePerLijn()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<Implementation><![CDATA[
+	Set itLijnen=..GeefIteratorLijnen()
+	Set ..PitchBatch=""
+	While itLijnen.HasNext()
+	{
+		Do ..BerekenLijn(itLijnen.Next().Data("Lijn"))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BerekenLijn">
+<FormalSpec>Lijn:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Do ..OphalenBatches(Lijn)
+	Do ..BepaalTijdstippen()
+]]></Implementation>
+</Method>
+
+<Method name="OphalenBatches">
+<FormalSpec>LijnGepland</FormalSpec>
+<Implementation><![CDATA[
+	WRite !,"*** Lijn *** : ",LijnGepland,!
+	Set itBatches=..GeefIteratorBatchesPerLijn(LijnGepland)
+	Set VolgordeVerwerking=0
+	Set ..VolgordeBatchInVerwerking=""
+	Do ..Batches.Clear()
+	While itBatches.HasNext()
+	{
+		Set ID=itBatches.Next().Data("ID")
+		Set ..PitchBatch=##class(BatchVolgorde).%OpenId(ID)
+
+		Do ..ResetBatch()
+		Set VolgordeVerwerking=VolgordeVerwerking+1
+
+		Do ..Batches.Insert(..PitchBatch)
+		; In de lijst van batches (per lijn) de batch bepalen die in verwerking is (laatste status update van de pers)
+		Set LijnPers=..BatchesInVerwerking.GetAt(..PitchBatch.Batch.GeefID())
+		If $L(LijnPers) 
+		{ 
+			Set ..VolgordeBatchInVerwerking=VolgordeVerwerking
+			Set ..PitchBatch.InVerwerking=1
+		} Else {
+			Set ..PitchBatch.InVerwerking=0
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ResetBatch">
+<Implementation><![CDATA[
+	Set ..PitchBatch.Aantal=..PitchBatch.Batch.GeefAantalNogTePersen()
+	Set ..PitchBatch.Categorie=..PitchBatch.Batch.GeefCategorie()
+	Set ..PitchBatch.ProductieGroep=..PitchBatch.Batch.GeefProductieGroep()
+	Set ..PitchBatch.Gepland=""
+	Set ..PitchBatch.StartTijdstip=""
+	Set ..PitchBatch.EindeTijdstip=""
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTijdstippen">
+<Implementation><![CDATA[
+	Set itBatches=##class(TECH.ListIterator).%New(..Batches)
+	Set VolgordeVerwerking=0
+	Set ..PitchBatch=""
+	If ('..VolgordeBatchInVerwerking) Set ..VolgordeBatchInVerwerking=1
+	While itBatches.HasNext()
+	{
+
+		Set ..VorigePitchBatch=..PitchBatch
+		Set ..PitchBatch=itBatches.Next()
+		w !," Batch:",..PitchBatch.Batch.%Id()," Volgorde:",..PitchBatch.Volgorde," Aantal:",..PitchBatch.Aantal,!
+		Set VolgordeVerwerking=VolgordeVerwerking+1
+
+		If (VolgordeVerwerking = ..VolgordeBatchInVerwerking) 
+		{
+			Set ..PitchBatch.StartTijdstip=..BepaalEersteWerktijd()
+			If ..PitchBatch.StartTijdstip
+			{
+				Write "eerste werktijd",..PitchBatch.StartTijdstip,!
+				Do ..BepaalEindTijdstip()
+			}
+			Set ..PitchBatch.Status="Huidig"
+		}
+		ElseIf (VolgordeVerwerking > ..VolgordeBatchInVerwerking)
+		{
+			If ..VorigePitchBatch.Gepland
+			{
+				Set ..PitchBatch.StartTijdstip=..VorigePitchBatch.EindeTijdstip
+				Do ..BepaalEindTijdstip()
+			}
+			Set ..PitchBatch.Status="Toekomst"
+			}
+		Else ;(VolgordeVerwerking < ..VolgordeBatchInVerwerking)
+		{
+			Set ..PitchBatch.Status="Verleden"
+		}
+
+		If ..PitchBatch.%IsModified()
+		{
+			Do ..PitchBatch.Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalEindTijdstip">
+<Implementation><![CDATA[
+	Set Aantal=..PitchBatch.Aantal
+	Set Lijn=..PitchBatch.Lijn
+	Set StartTijdstip=$zdth(..PitchBatch.StartTijdstip,3,,6)
+	Set Datum=$P(StartTijdstip,",")
+	Set Uur=$P(StartTijdstip,",",2)\3600
+	Set Minuut=($P(StartTijdstip,",",2)-(Uur*3600))\60
+	;Do DumpObject^%apiOBJ(..PitchBatch)
+	w !,"Batchid:",..PitchBatch.Batch.%Id()," Volgorde:",..PitchBatch.Volgorde," ",Datum,  " uur:",Uur, " Min:",Minuut," Aantal:",Aantal,!
+	Set itPlanning=..GeefPlanningIterator(Lijn,Datum,Uur)
+	Set Categorie=..PitchBatch.Batch.GeefCategorie()
+	Set EindeTijdstip=""
+	If Aantal
+	{
+		While itPlanning.HasNext() && Aantal
+		{
+			Set Planning=##class(APPS.Halux.Planning.Capaciteit.impl.GeplandeCapaciteit).%OpenId(itPlanning.Next().Data("ID"))
+			Set itWerktijden=##class(TECH.ListIterator).%New(Planning.Werktijden)
+			While itWerktijden.HasNext()&& Aantal
+			{	
+				#dim Werktijd as APPS.Halux.Planning.Capaciteit.impl.Werktijd = itWerktijden.Next()
+				w !,"Wt Aantal:",Aantal," Minuut:",Minuut," >= Datum",Planning.Datum," uur:",Planning.Uur," EindMinuut",Werktijd.EindeMinuut,!
+				If Minuut>=Werktijd.EindeMinuut Continue
+				Set Capaciteit=+$J(Werktijd.Capaciteit * $S(Categorie="Tandembox":Werktijd.FactorTBX,1:1),0,0)
+				w " werktijd cap=",Capaciteit
+				If Minuut<Werktijd.BeginMinuut
+				{
+					Set Minuut=Werktijd.BeginMinuut
+					Write " volledige capaciteit beschikbaar",!
+				}
+				else
+				{  ; regel van 3 om de resterende capaciteit te kennen
+					Set Capaciteit=+$J(Capaciteit*(Werktijd.EindeMinuut-Minuut)/(Werktijd.EindeMinuut-Werktijd.BeginMinuut),0,0)
+					Write " resterende capaciteit",!
+				}
+				
+				If Aantal>Capaciteit
+				{
+					Set Aantal=Aantal-Capaciteit
+					Set Minuut=-1 ; van de eerste volgende werktijd de BeginMinuut nemen
+					Write " capaciteit ontoereiken voor aantal, rest aantal",Aantal,!
+				}
+				Else
+				{ 
+					Set Minuut=+$J(Werktijd.BeginMinuut+((Werktijd.EindeMinuut-Werktijd.BeginMinuut)*Aantal/Capaciteit),0,0)
+					Set EindeTijdstip=$$$Timestamp(Planning.Datum_","_((Planning.Uur*60+Minuut)*60))
+					w " rest van batch past binnen capaciteit Uur:", Planning.Uur ," Min:", Minuut,!
+					Set Aantal=0
+				}
+			}
+		}
+		If EindeTijdstip
+		{
+			Set ..PitchBatch.EindeTijdstip=EindeTijdstip
+			Set ..PitchBatch.Gepland=1
+		}
+	}
+	Else  ; geen lade meer te produceren
+	{
+		Set ..PitchBatch.EindeTijdstip=..PitchBatch.StartTijdstip
+		Set ..PitchBatch.Gepland=1
+
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalEersteWerktijd">
+<Implementation><![CDATA[
+	Set Lijn=..PitchBatch.Lijn
+	Set StartTijdstip=$H
+	Set Datum=$P(StartTijdstip,",")
+	Set Uur=$P(StartTijdstip,",",2)\3600
+	Set Minuut=($P(StartTijdstip,",",2)-(Uur*3600))\60
+
+	Set itPlanning=..GeefPlanningIterator(Lijn,Datum,Uur)
+	Set EersteWerktijd=""
+	While itPlanning.HasNext() && 'EersteWerktijd
+	{
+		Set Planning=##class(APPS.Halux.Planning.Capaciteit.impl.GeplandeCapaciteit).%OpenId(itPlanning.Next().Data("ID"))
+		Set itWerktijden=##class(TECH.ListIterator).%New(Planning.Werktijden)
+		While itWerktijden.HasNext() && 'EersteWerktijd
+		{	
+			#dim Werktijd as APPS.Halux.Planning.Capaciteit.impl.Werktijd = itWerktijden.Next()
+			If (Datum=Planning.Datum) && (Uur=Planning.Uur) && (Werktijd.EindeMinuut>Werktijd)
+			{
+				Continue
+			}
+			If (Datum=Planning.Datum) && (Uur=Planning.Uur) && (Minuut'<Werktijd.BeginMinuut) && (Minuut'>Werktijd.EindeMinuut)
+			{
+				Set EersteWerktijd=StartTijdstip
+			}
+			Else
+			{
+				Set EersteWerktijd=Planning.Datum_","_((Planning.Uur*60+Werktijd.BeginMinuut)*60)
+			}
+		}
+	}
+	
+	Quit $S(EersteWerktijd:$zdt(EersteWerktijd,3,,6),1:"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlanningIterator">
+<FormalSpec>Lijn:%Integer,VanafDatum:%Date,VanafUur:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select ID from APPS_HaLux_Planning_Capaciteit_impl.GeplandeCapaciteit where Lijn=? and ((Datum=? and Uur>=?) or (Datum>?)) order by Datum asc , Uur asc")
+	
+ 	Set sc=rs.Execute(Lijn,VanafDatum,VanafUur,VanafDatum)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="GeefIteratorLijnen">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select distinct Lijn from APPS_HaLux_Planning_Pitching_impl.BatchVolgorde where Actief=1 order by Lijn asc ")
+	
+ 	Set sc=rs.Execute()
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="GeefIteratorBatchesPerLijn">
+<FormalSpec>Lijn:%Integer</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select ID from APPS_HaLux_Planning_Pitching_impl.BatchVolgorde where Lijn=? and Actief=1 order by Volgorde asc ")
+	
+ 	Set sc=rs.Execute(Lijn)
+	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/Capaciteit/impl/GeplandeCapaciteitPerWerktijd.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Capaciteit/impl/GeplandeCapaciteitPerWerktijd.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Capaciteit/impl/GeplandeCapaciteitPerWerktijd.cls.xml	(revision 52358)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Capaciteit.impl.GeplandeCapaciteitPerWerktijd">
+<Super>%SerialObject</Super>
+
+<Property name="BeginMinuut">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="EindeMinuut">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Capaciteit">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="FactorTBX">
+<Type>%Decimal</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>GeplandeCapaciteitPerWerktijdState</State>
+<StreamLocation>^APPS.Halux8751.GeplandeCap5D44S</StreamLocation>
+<Data name="GeplandeCapaciteitPerWerktijdState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>BeginMinuut</Value>
+</Value>
+<Value name="2">
+<Value>EindeMinuut</Value>
+</Value>
+<Value name="3">
+<Value>Capaciteit</Value>
+</Value>
+<Value name="4">
+<Value>FactorTBX</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Capaciteit/impl/BerekenWerktijden.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Capaciteit/impl/BerekenWerktijden.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Capaciteit/impl/BerekenWerktijden.cls.xml	(revision 52358)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Capaciteit.impl.BerekenWerktijden">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Datum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Capaciteit">
+<Type>GeplandeCapaciteit</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Capaciteit.impl.BerekenWerktijden).%New().Bereken()</Description>
+<FormalSpec>Datum:%Date</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Datum=+$G(Datum,$H)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<Implementation><![CDATA[
+	Set itPlanning=..GeefPlanningIterator()
+	While itPlanning.HasNext()
+	{
+		Set rs=itPlanning.Next()
+		Set CapaciteitID=rs.Data("ID")
+		Set ..Capaciteit=##class(GeplandeCapaciteit).%OpenId(CapaciteitID)
+		Do ..BerekenWerktijden()
+		If ..Capaciteit.%IsModified()
+		{
+			Do ..Capaciteit.Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BerekenWerktijden">
+<Implementation><![CDATA[
+	Set Weekdag=$$EXTDATE^vhLib.DataTypes(..Capaciteit.Datum,"DWN")
+	Set IsVrijdag=(Weekdag=5)
+	
+	Do ..Capaciteit.Werktijden.Clear()
+	
+	/// uitzonderingen
+	If ..Capaciteit.Uur=9
+	{
+		Do ..VoegToeWerktijd(0,49)
+	}
+	ElseIf ..Capaciteit.Uur=12
+	{
+		Do ..VoegToeWerktijd(30,59)
+	}
+	ElseIf ((..Capaciteit.Uur=16)&&('IsVrijdag)) || ((..Capaciteit.Uur=15)&&(IsVrijdag))
+	{
+		If ..IsLatePloeg()
+		{
+			Do ..VoegToeWerktijd(0,49)
+		}
+		Else
+		{
+			Do ..VoegToeWerktijd(0,19)
+		}
+	}
+	ElseIf (..Capaciteit.Uur=18)
+	{
+		Do ..VoegToeWerktijd(30,59)
+	}
+	ElseIf ((..Capaciteit.Uur=21)&&('IsVrijdag)) || ((..Capaciteit.Uur=20)&&(IsVrijdag))
+	{
+		Do ..VoegToeWerktijd(0,19)
+	}
+	Else ; volledig uur
+	{
+		Do ..VoegToeWerktijd(0,59)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeWerktijd">
+<FormalSpec>Start:%Integer,Einde:%Integer,Capaciteit:%Integer=""</FormalSpec>
+<Implementation><![CDATA[
+	Set Werktijd=##class(Werktijd).%New()
+	Set Werktijd.BeginMinuut=Start
+	Set Werktijd.EindeMinuut=Einde
+	If Capaciteit="" Set Capaciteit=..Capaciteit.Capaciteit
+	Set Werktijd.Capaciteit=Capaciteit
+	If ..Capaciteit.Lijn=1
+	{
+		Set Werktijd.FactorTBX=1.08	
+	} else {
+		Set Werktijd.FactorTBX=1
+	}
+	Do ..Capaciteit.Werktijden.Insert(Werktijd)
+]]></Implementation>
+</Method>
+
+<Method name="IsLatePloeg">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	/// Wordt bepaald doordat de late ploeg nog een extra uur heeft in de databank
+	Set Key=..Capaciteit.Datum_"||"_(..Capaciteit.Uur+1)_"||"_..Capaciteit.Lijn
+	Quit ##class(GeplandeCapaciteit).%ExistsId(Key)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlanningIterator">
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New("%DynamicQuery:SQL")
+	Set Query="select ID FROM APPS_Halux_Planning_Capaciteit_impl.GeplandeCapaciteit where Datum = ? order by Lijn, Uur"
+	Set sc=rs.Prepare(Query)
+	Set sc=rs.Execute(..Datum)
+	Quit ##class(TECH.ResultSetIterator).%New(rs)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Pitching/impl/BatchVolgorde.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/BatchVolgorde.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/BatchVolgorde.cls.xml	(revision 52358)
@@ -0,0 +1,150 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.BatchVolgorde">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="BatchLastKar">
+<Type>%String</Type>
+</Property>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.impl.BatchImpl</Type>
+</Property>
+
+<Property name="Lijn">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Volgorde">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Actief">
+<Description>
+Na inladen nieuwe pitching worden de oude pitching op nonactief gezet en alleen de nieuwe toegevoegde blijven actief</Description>
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Status">
+<Description>
+Heeft de pichtingberekening voldoende geplande uren om de pitching te bereken
+</Description>
+<Type>%String</Type>
+<Parameter name="VALUELIST" value=";Verleden;Huidig;Toekomst"/>
+</Property>
+
+<Property name="Gepland">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="InVerwerking">
+<Description>
+Batch in verwerking op de productielijnen</Description>
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Opmerking">
+<Type>%String</Type>
+</Property>
+
+<Property name="Categorie">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductieGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="CreatieTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="StartTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="EindeTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="Index">
+<Properties>Actief,Lijn,Volgorde</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.P1A9E.BatchVolgordeD</DataLocation>
+<DefaultData>BatchVolgordeDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.P1A9E.BatchVolgordeD</IdLocation>
+<IndexLocation>^APPS.Halux.P1A9E.BatchVolgordeI</IndexLocation>
+<StreamLocation>^APPS.Halux.P1A9E.BatchVolgordeS</StreamLocation>
+<Data name="BatchVolgordeDefaultData">
+<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>Volgorde</Value>
+</Value>
+<Value name="5">
+<Value>Actief</Value>
+</Value>
+<Value name="6">
+<Value>CreatieTijdstip</Value>
+</Value>
+<Value name="7">
+<Value>Opmerking</Value>
+</Value>
+<Value name="8">
+<Value>BatchRef</Value>
+</Value>
+<Value name="9">
+<Value>BatchLastKar</Value>
+</Value>
+<Value name="10">
+<Value>AantalLaden</Value>
+</Value>
+<Value name="11">
+<Value>InVerwerking</Value>
+</Value>
+<Value name="12">
+<Value>StartTijdstip</Value>
+</Value>
+<Value name="13">
+<Value>EindeTijdstip</Value>
+</Value>
+<Value name="14">
+<Value>Aantal</Value>
+</Value>
+<Value name="15">
+<Value>Gepland</Value>
+</Value>
+<Value name="16">
+<Value>Categorie</Value>
+</Value>
+<Value name="17">
+<Value>ProductGroep</Value>
+</Value>
+<Value name="18">
+<Value>ProductieGroep</Value>
+</Value>
+<Value name="19">
+<Value>Status</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml	(revision 52358)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Capaciteit.impl.ImportFromXLS">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Reader">
+<Type>TECH.FileReader</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Capaciteit.impl.ImportFromXLS).%New().ImportXLS()</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..InitialiseReader()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InitialiseReader">
+<Implementation><![CDATA[
+	Set ..Reader=##class(TECH.FileReader).%New("\\notes01\shared\halux\planning\Productie planning.txt")
+	/// Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB
+	/// Do reader.SetHeaderRow(1) ; optioneel, default = 1
+	/// Do reader.SetFirstDataRow(2) ; optioneel, default = 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 Datum as %String
+	#dim Uur as %Integer
+	#dim Lijn as %Integer
+	#dim Capaciteit as %Decimal
+	
+	While ..Reader.Next()
+	{
+		Set Datum=$ZDH(..Reader.Column(1),1)
+		Set Uur=..Reader.Column(2)
+		For Lijn=1:1:4
+		{
+			Set Capaciteit=..Reader.Column(2+Lijn)
+			Do ..OpslaanRecord(Datum, Uur, Lijn, Capaciteit)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanRecord">
+<FormalSpec>Datum:%String,Uur:%Integer,Lijn:%Integer,Capaciteit:%Decimal</FormalSpec>
+<Implementation><![CDATA[
+		#dim Key as %String = Datum_"||"_Uur_"||"_Lijn
+		#dim GeplandeCapaciteit as GeplandeCapaciteit
+		If ##class(GeplandeCapaciteit).%ExistsId(Key)
+		{
+			If Capaciteit<1 
+			{
+				Set sc=##class(GeplandeCapaciteit).%DeleteId(Key)
+			}
+			Else
+			{
+				Set GeplandeCapaciteit=##class(GeplandeCapaciteit).%OpenId(Key)
+				Set GeplandeCapaciteit.Capaciteit=Capaciteit
+				Do GeplandeCapaciteit.Save()
+			}
+		}
+		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>
+
+
+</Export>
Index: APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml	(revision 52358)
@@ -0,0 +1,122 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.ImportFromXLS">
+<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.Pitching.impl.ImportFromXLS).%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 pitching.txt")
+	/// Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB
+	Do ..Reader.SetHeaderRow(2)
+	Do ..Reader.SetFirstDataRow(3)
+	/// 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 Lijn as %Integer
+	#dim Opmerking as %Decimal
+
+	#dim AantalVeldenPerLijn as %Integer=2
+	#dim Volgorde as %Integer=0
+	
+	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)
+			}
+		}
+	}
+    Do ..SwitchActief()
+    Do ..VerwijderOude()
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanRecord">
+<FormalSpec>Lijn:%Integer,Volgorde:%Integer,BatchLastKar:%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
+		{
+			Do GeplandeCapaciteit.BatchSetObjectId(BatchId)
+			Do GeplandeCapaciteit.Save()	
+		}
+]]></Implementation>
+</Method>
+
+<Method name="ZoekBatchFromLastKar">
+<FormalSpec>BatchLastKar:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New("%DynamicQuery:SQL")
+	Set Query="select ID FROM APPS_Halux_common_impl.BatchImpl where (categorie='Tandembox' or categorie='Legrabox') and id like ? order by aanmaaktijdstip  desc"
+	Set sc=rs.Prepare(Query)
+	Set sc=rs.Execute("%"_BatchLastKar)
+	If rs.Next()
+	{
+		Set BatchId=rs.Data("ID")
+	}
+	Quit $G(BatchId)
+]]></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)
+]]></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 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Capaciteit/impl/Werktijd.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Capaciteit/impl/Werktijd.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Capaciteit/impl/Werktijd.cls.xml	(revision 52358)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Capaciteit.impl.Werktijd">
+<Super>%SerialObject</Super>
+
+<Property name="BeginMinuut">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="EindeMinuut">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Capaciteit">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="FactorTBX">
+<Type>%Decimal</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>WerktijdState</State>
+<StreamLocation>^APPS.Halux.Planni8751.WerktijdS</StreamLocation>
+<Data name="WerktijdState">
+<Value name="1">
+<Value>BeginMinuut</Value>
+</Value>
+<Value name="2">
+<Value>EindeMinuut</Value>
+</Value>
+<Value name="3">
+<Value>Capaciteit</Value>
+</Value>
+<Value name="4">
+<Value>FactorTBX</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Capaciteit/impl/GeplandeCapaciteit.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Capaciteit/impl/GeplandeCapaciteit.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Capaciteit/impl/GeplandeCapaciteit.cls.xml	(revision 52358)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Capaciteit.impl.GeplandeCapaciteit">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="Datum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="Uur">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Werktijden">
+<Type>Werktijd</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Lijn">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Capaciteit">
+<Type>%Decimal</Type>
+</Property>
+
+<Index name="PrimKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Datum,Uur,Lijn</Properties>
+<Unique>1</Unique>
+</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>
+
+
+</Export>