FishEye: Tag 954 refers to a dead (removed) revision in file `APPS/Halux/Planning/impl/RGDataMapTBX.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 946)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 954)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-18 13:15:43">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 16:43:38">
 <Class name="APPS.Halux.common.impl.BatchImpl">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,APPS.Halux.common.Batch</Super>
-<TimeChanged>62168,47823.883823</TimeChanged>
+<TimeChanged>62174,60304.400541</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Batch">
@@ -26,7 +26,7 @@
 		}
 		Else
 		{
-			Set Status = 0
+			Set Status = $$$ERROR($$$GeneralError,"Batch is niet aanwezig in het systeem")
 		}
 	}
 	Else
@@ -127,24 +127,7 @@
 <FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set IsAanwezig = 0
-	
-	Set ResultSet=##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM PPS.Batch")
-	Do ResultSet.Execute()
-	While (('IsAanwezig) && ResultSet.Next()) {
-		Set ID = ResultSet.Data("ID")
-		Set Batch = ##class(DS.PPS.TBX.Batch).%OpenId(ID)
-		Set i = 0
-		While (('IsAanwezig) && (i < Batch.Toeleveringen.Count()))
-		{
-			Set i = i + 1
-			Set IsAanwezig = $Piece(Batch.Toeleveringen.GetAt(i),"||",2) = Toelevering.GeefToeNr()
-		}
-	}
-	
-	Quit IsAanwezig
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering) '= ""
 ]]></Implementation>
 </Method>
 
@@ -178,5 +161,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2048509074"/>
+<Checksum value="3907581299"/>
 </Export>
FishEye: Tag 954 refers to a dead (removed) revision in file `APPS/Halux/Planning/impl/RGDataMapALU.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/Planning/enu/Categorie.cls.xml
===================================================================
diff -u -r917 -r954
--- APPS/Halux/Planning/enu/Categorie.cls.xml	(.../Categorie.cls.xml)	(revision 917)
+++ APPS/Halux/Planning/enu/Categorie.cls.xml	(.../Categorie.cls.xml)	(revision 954)
@@ -1,17 +1,17 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-22 08:45:47">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 13:21:41">
 <Class name="APPS.Halux.Planning.enu.Categorie">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%String</Super>
-<TimeChanged>62144,31608.888315</TimeChanged>
+<TimeChanged>62174,48187.180247</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>,Hoekkasten,Servodrive,TBXLadeStd1,TBXLadeStd2,TBXLadeStd3,TBXLadeStd4,TBXLadeStd5,TBXLadeStd6,TBXBurobox,TBXKeller,Kaderdeuren,Mondo,ProductenOpMaat,Verlichting,Banco,MDS,InkortenReling,Matten,Verlichtingsbodems</Default>
+<Default>,Hoekkast,Servodrive,Tandembox,Kaderdeur,Mondo,ProductOpMaat,Verlichting,Banco,MDS,InkortenReling,Mat,Verlichtingsbodem,Onbepaald</Default>
 </Parameter>
 
-<Method name="HoekKasten">
+<Method name="Hoekkast">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
 <Implementation><![CDATA[	Quit "Hoekkasten"
@@ -25,80 +25,31 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TBXLadeStd1">
+<Method name="Tandembox">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "TBXLadeStd1"
+<Implementation><![CDATA[	Quit "Tandembox"
 ]]></Implementation>
 </Method>
 
-<Method name="TBXLadeStd2">
+<Method name="Kaderdeur">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "TBXLadeStd2"
+<Implementation><![CDATA[	Quit "Kaderdeur"
 ]]></Implementation>
 </Method>
 
-<Method name="TBXLadeStd3">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "TBXLadeStd3"
-]]></Implementation>
-</Method>
-
-<Method name="TBXLadeStd4">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "TBXLadeStd4"
-]]></Implementation>
-</Method>
-
-<Method name="TBXLadeStd5">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "TBXLadeStd5"
-]]></Implementation>
-</Method>
-
-<Method name="TBXLadeStd6">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "TBXLadeStd6"
-]]></Implementation>
-</Method>
-
-<Method name="TBXBurobox">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "TBXBurobox"
-]]></Implementation>
-</Method>
-
-<Method name="TBXKeller">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "TBXKeller"
-]]></Implementation>
-</Method>
-
-<Method name="Kaderdeuren">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "Kaderdeuren"
-]]></Implementation>
-</Method>
-
 <Method name="Mondo">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
 <Implementation><![CDATA[	Quit "Mondo"
 ]]></Implementation>
 </Method>
 
-<Method name="ProductenOpMaat">
+<Method name="ProductOpMaat">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "ProductenOpMaat"
+<Implementation><![CDATA[	Quit "ProductOpMaat"
 ]]></Implementation>
 </Method>
 
@@ -130,19 +81,26 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Matten">
+<Method name="Mat">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "Matten"
+<Implementation><![CDATA[	Quit "Mat"
 ]]></Implementation>
 </Method>
 
-<Method name="Verlichtingsbodems">
+<Method name="Verlichtingsbodem">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
-<Implementation><![CDATA[	Quit "Verlichtingsbodems"
+<Implementation><![CDATA[	Quit "Verlichtingsbodem"
 ]]></Implementation>
 </Method>
+
+<Method name="Onbepaald">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
+<Implementation><![CDATA[	Quit "Onbepaald"
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1809104133"/>
+<Checksum value="669945840"/>
 </Export>
Index: APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml	(revision 0)
+++ APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml	(revision 954)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 15:57:26">
+<Class name="APPS.Halux.Planning.impl.ActiviteitInfoALU">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62174,57532.007615</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Product">
+<Type>DOM.PM.MaatwerkProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Product = Product
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefActiviteitInfoIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set ActiviteitLijst = ##class(%ListOfObjects).%New()
+	Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Kaderdeur productie",0)
+	Do ActiviteitLijst.Insert(ActiviteitInfo)
+	Set ResourceGebruikMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik)
+	
+	&SQL(SELECT SchaduwVersion INTO :SchaduwVersie FROM Prod_GAData.Template WHERE Code = "KADBasis")
+	If (..Product.GeefSchaduwVersie() '= SchaduwVersie)
+	{
+		//Do ##class(Prod.GADef.KaderDeur).KPRCreateSchaduwViaPRNr(Product.GeefPRNr())
+	}
+
+	Set KostBouwstenenIterator = ..Product.GeefKostSchaduwBouwstenenIt()
+	While (KostBouwstenenIterator.HasNext())
+	{
+		Set KostBouwsteen = KostBouwstenenIterator.Next()
+		Set ResourceGebruikData = ResourceGebruikMap.GetAt(KostBouwsteen.Omschrijving)
+		Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + KostBouwsteen.TijdPlanning
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(ActiviteitLijst)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalResourceGebruikMap">
+<FormalSpec>ResourceGebruik:APPS.Halux.Planning.impl.ResourceGebruik</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set ResourceGebruikMap = ##class(%ArrayOfObjects).%New()
+	
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUZaag,"Zagen - Hoogte - klein")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUZaag,"Zagen - Breedte - klein")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUZaag,"Zagen - Los profiel - klein")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUZaag,"Zagen - Hoogte - groot")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUZaag,"Zagen - Breedte - groot")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUZaag,"Zagen - Los profiel - groot")
+	
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUFrees,"FreesTool - tekenen")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUFrees,"Frezen New Calc")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUFrees,"Frezen init+afhandelen")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUFrees,"Boren")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUFrees,"Boren Los profiel")
+	
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Dichting")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Dichting Los profiel")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Dichting Kleef")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Monteren - standaard")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Monteren - zonder glas")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Opkuisen en controle")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Opkuisen en controle Losse onderdelen")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Opkuisen en controle Los profiel")
+	
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Verpakken Krimp")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Verpakken Los kader")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Verpakken Los profiel")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Verpakken Bulk")
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUOperator,"Verpakken Export")
+	
+	Quit ResourceGebruikMap
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3643293281"/>
+</Export>
Index: APPS/Halux/Planning/impl/Queries.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/Planning/impl/Queries.cls.xml	(.../Queries.cls.xml)	(revision 946)
+++ APPS/Halux/Planning/impl/Queries.cls.xml	(.../Queries.cls.xml)	(revision 954)
@@ -1,67 +1,43 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-16 13:47:21">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 09:44:28">
 <Class name="APPS.Halux.Planning.impl.Queries">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62166,49720.597406</TimeChanged>
+<TimeChanged>62175,35155.092653</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Query name="qGeefPlanningOverzicht">
 <Type>%SQLQuery</Type>
 <FormalSpec>Van:%Date,Tot:%Date</FormalSpec>
-<SqlQuery><![CDATA[	SELECT
-	 Sum(ALUFrees) As ALUFrees,
-	 Sum(ALUOperator) As ALUOperator,
-	 Sum(ALUZaag) As ALUZaag,
-	 Sum(CorpusMontageVerpakken) As CorpusMontageVerpakken,
-	 Sum(CorpusVoorbereiding) As CorpusVoorbereiding,
-	 Sum(KartonMachine) As KartonMachine,
-	 Sum(TBXBoxpressKeller) As TBXBoxpressKeller,
-	 Sum(TBXBoxpressLijn1) As TBXBoxpressLijn1,
-	 Sum(TBXBoxpressLijn2) As TBXBoxpressLijn2,
-	 Sum(TBXSpecialsMontage) As TBXSpecialsMontage,
-	 Sum(TBXVoormontage) As TBXVoormontage,
-	 Sum(TBXZaag) As TBXZaag,
-	 CAST(TO_DATE(Gepland,'YYYY-MM-DD') As Date) As Datum
-	 
-	 FROM APPS_Halux_Planning_impl.PlanningDataItem
-	 WHERE TO_Date(:Van,'YYYY-MM-DD') < Gepland AND Gepland < TO_Date(:Tot,'YYYY-MM-DD')
-	 GROUP BY TO_DATE(Gepland,'YYYY-MM-DD')]]></SqlQuery>
+<SqlQuery><![CDATA[	SELECT PI.Categorie, TI.Dag, COALESCE(Sum(ALUFrees->Hoeveelheid)*PI.Aantal,0) As ALUFrees, COALESCE(Sum(ALUOperator->Hoeveelheid)*PI.Aantal,0) As ALUOperator, COALESCE(Sum(ALUZaag->Hoeveelheid)*PI.Aantal,0) As ALUZaag, COALESCE(Sum(Bewerkingscenter->Hoeveelheid)*PI.Aantal,0) As Bewerkingscenter, COALESCE(Sum(HoekkastInpak->Hoeveelheid)*PI.Aantal,0) As HoekkastInpak, COALESCE(Sum(HoekkastMontage->Hoeveelheid)*PI.Aantal,0) As HoekkastMontage, COALESCE(Sum(HoekkastZaag->Hoeveelheid)*PI.Aantal,0) As HoekkastZaag, COALESCE(Sum(Houtzaag->Hoeveelheid)*PI.Aantal,0) As Houtzaag, COALESCE(Sum(KartonMachine->Hoeveelheid)*PI.Aantal,0) As KartonMachine, COALESCE(Sum(TBXPers1->Hoeveelheid)*PI.Aantal,0) As TBXPers1, COALESCE(Sum(TBXPers2->Hoeveelheid)*PI.Aantal,0) As TBXPers2, COALESCE(Sum(TBXPers3->Hoeveelheid)*PI.Aantal,0) As TBXPers3, COALESCE(Sum(TBXPicking->Hoeveelheid)*PI.Aantal,0) As TBXPicking, COALESCE(Sum(Voormontage->Hoeveelheid)*PI.Aantal,0) As Voormontage
+	 FROM APPS_Halux_Planning_impl.ToeleveringInfo TI
+	 JOIN APPS_Halux_Planning_impl.ToeleveringInfo_ProductInfoLijst PIL ON TI.ID = PIL.ToeleveringInfo
+	 JOIN APPS_Halux_Planning_impl.ProductInfo PI ON PI.ID = PIL.ProductInfoLijst
+	 JOIN APPS_Halux_Planning_impl.ProductInfo_ActiviteitInfoLijst AIL ON PI.ID = AIL.ProductInfo
+	 JOIN APPS_Halux_Planning_impl.ActiviteitInfo AI ON AI.ID = AIL.ActiviteitInfoLijst
+	 JOIN APPS_Halux_Planning_impl.ResourceGebruik RG ON AI.ResourceGebruik = RG.ID
+	 WHERE :Van < TI.Dag AND TI.Dag < :Tot
+	 GROUP BY TI.Dag]]></SqlQuery>
 </Query>
 
 <Query name="qGeefPlanningDetail">
 <Type>%SQLQuery</Type>
 <FormalSpec>Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie</FormalSpec>
-<SqlQuery>	SELECT
-	 ToeleveringsNummer,
-	 IsASAP,
-	 Categorie,
-	 DueOut,
-	 Klant,
-	 IngegevenDoor,
-	 CASE WHEN DueOut = Gepland THEN 0 ELSE 1 END As IsExplicietGepland,
- 	 ALUFrees,
- 	 ALUOperator,
- 	 ALUZaag,
- 	 CorpusMontageVerpakken,
- 	 CorpusVoorbereiding,
- 	 KartonMachine,
- 	 TBXBoxpressKeller,
- 	 TBXBoxpressLijn1,
- 	 TBXBoxpressLijn2,
- 	 TBXSpecialsMontage,
- 	 TBXVoormontage,
- 	 TBXZaag,
- 	 CAST(TO_DATE(Gepland,'YYYY-MM-DD') As Date) As Datum
- 	 
- 	 FROM APPS_Halux_Planning_impl.PlanningDataItem
- 	 WHERE TO_DATE(Gepland,'YYYY-MM-DD') = TO_Date(:Datum,'YYYY-MM-DD')</SqlQuery>
+<SqlQuery><![CDATA[	SELECT AI.Naam As Activiteit, AI.Fase As ActiviteitFase, PI.Categorie, TI.Dag, TI.DueOut, TI.GeplandStatus, TI.IngegevenDoor, TI.IsASAP, TI.Klant, TI.ProductieStatus, TI.ToeleveringNummer, PI.Aantal, PI.ProductCode, PI.StockProbleem, COALESCE(Sum(ALUFrees->Hoeveelheid)*PI.Aantal,0) As ALUFrees, COALESCE(Sum(ALUOperator->Hoeveelheid)*PI.Aantal,0) As ALUOperator, COALESCE(Sum(ALUZaag->Hoeveelheid)*PI.Aantal,0) As ALUZaag, COALESCE(Sum(Bewerkingscenter->Hoeveelheid)*PI.Aantal,0) As Bewerkingscenter, COALESCE(Sum(HoekkastInpak->Hoeveelheid)*PI.Aantal,0) As HoekkastInpak, COALESCE(Sum(HoekkastMontage->Hoeveelheid)*PI.Aantal,0) As HoekkastMontage, COALESCE(Sum(HoekkastZaag->Hoeveelheid)*PI.Aantal,0) As HoekkastZaag, COALESCE(Sum(Houtzaag->Hoeveelheid)*PI.Aantal,0) As Houtzaag, COALESCE(Sum(KartonMachine->Hoeveelheid)*PI.Aantal,0) As KartonMachine, COALESCE(Sum(TBXPers1->Hoeveelheid)*PI.Aantal,0) As TBXPers1, COALESCE(Sum(TBXPers2->Hoeveelheid)*PI.Aantal,0) As TBXPers2, COALESCE(Sum(TBXPers3->Hoeveelheid)*PI.Aantal,0) As TBXPers3, COALESCE(Sum(TBXPicking->Hoeveelheid)*PI.Aantal,0) As TBXPicking, COALESCE(Sum(Voormontage->Hoeveelheid)*PI.Aantal,0) As Voormontage
+	 FROM APPS_Halux_Planning_impl.ToeleveringInfo TI
+	 JOIN APPS_Halux_Planning_impl.ToeleveringInfo_ProductInfoLijst PIL ON TI.ID = PIL.ToeleveringInfo
+	 JOIN APPS_Halux_Planning_impl.ProductInfo PI ON PI.ID = PIL.ProductInfoLijst
+	 JOIN APPS_Halux_Planning_impl.ProductInfo_ActiviteitInfoLijst AIL ON PI.ID = AIL.ProductInfo
+	 JOIN APPS_Halux_Planning_impl.ActiviteitInfo AI ON AI.ID = AIL.ActiviteitInfoLijst
+	 JOIN APPS_Halux_Planning_impl.ResourceGebruik RG ON AI.ResourceGebruik = RG.ID
+	 WHERE TI.Dag = :Datum AND ((:Categorie is null) OR (PI.Categorie = :Categorie))
+	 GROUP BY TI.Dag, AI.Naam, PI.ProductCode]]></SqlQuery>
 </Query>
 
 <Query name="qGeefUniekeToeleveringen">
 <Type>%SQLQuery</Type>
-<SqlQuery>	SELECT DISTINCT ToeleveringsNummer FROM APPS_Halux_Planning_impl.PlanningDataItem ORDER BY ToeleveringsNummer ASC</SqlQuery>
+<SqlQuery>	SELECT DISTINCT ToeleveringNummer FROM APPS_Halux_Planning_impl.ToeleveringInfo ORDER BY ToeleveringNummer ASC</SqlQuery>
 </Query>
 </Class>
-<Checksum value="2349690320"/>
+<Checksum value="940421098"/>
 </Export>
Index: APPS/Halux/Planning/enu/GeplandStatus.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/enu/GeplandStatus.cls.xml	(revision 0)
+++ APPS/Halux/Planning/enu/GeplandStatus.cls.xml	(revision 954)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 14:29:37">
+<Class name="APPS.Halux.Planning.enu.GeplandStatus">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<TimeChanged>62174,52263.042793</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,Vroeger,Later,Impliciet</Default>
+</Parameter>
+
+<Method name="Vroeger">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Planning.enu.GeplandStatus</ReturnType>
+<Implementation><![CDATA[	Quit "Vroeger"
+]]></Implementation>
+</Method>
+
+<Method name="Later">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "Later"
+]]></Implementation>
+</Method>
+
+<Method name="Impliciet">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "Impliciet"
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2358691722"/>
+</Export>
Index: APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 946)
+++ APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 954)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-09 15:28:02">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 11:13:21">
 <Class name="APPS.Halux.common.BatchService">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62159,55755.955894</TimeChanged>
+<TimeChanged>62174,40487.602047</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefBatch">
@@ -36,6 +36,33 @@
 <Implementation><![CDATA[	Quit ##class(DS.PPS.TBX.Batch).%DeleteId(BatchID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBijhorendeBatch">
+<Description>
+Geeft de batch waar een toelevering in zit. Indien niet in een batch dan geeft het leeg terug</Description>
+<FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
+<ReturnType>APPS.Halux.common.Batch</ReturnType>
+<Implementation><![CDATA[
+	Set GevondenBatch = ""
+	Set ResultSet=##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID FROM PPS.Batch")
+	Do ResultSet.Execute()
+	While ((GevondenBatch = "") && ResultSet.Next()) {
+		Set ID = ResultSet.Data("ID")
+		Set Batch = ##class(DS.PPS.TBX.Batch).%OpenId(ID)
+		Set i = 0
+		While ((GevondenBatch = "") && (i < Batch.Toeleveringen.Count()))
+		{
+			Set i = i + 1
+			If ($Piece(Batch.Toeleveringen.GetAt(i).Toelevering,"||",2) = Toelevering.GeefToeNr())
+			{
+				Set GevondenBatch = ..GeefBatch(Batch.%Id())
+			}
+		}
+	}
+	Quit GevondenBatch
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="2411138713"/>
+<Checksum value="4001108744"/>
 </Export>
Index: APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml	(revision 0)
+++ APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml	(revision 954)
@@ -0,0 +1,165 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 11:28:04">
+<Class name="APPS.Halux.Planning.impl.ToeleveringInfo">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<TimeChanged>62175,41370.902453</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Dag">
+<Type>%Date</Type>
+</Property>
+
+<Property name="DueOut">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="GeplandStatus">
+<Type>APPS.Halux.Planning.enu.GeplandStatus</Type>
+</Property>
+
+<Property name="IngegevenDoor">
+<Type>%String</Type>
+</Property>
+
+<Property name="IsASAP">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Klant">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductieStatus">
+<Type>%String</Type>
+</Property>
+
+<Property name="ToeleveringNummer">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ExplicietePlanningen">
+<Type>APPS.Halux.Planning.impl.ExplicietePlanning</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="ProductInfoLijst">
+<Type>APPS.Halux.Planning.impl.ProductInfo</Type>
+<Collection>list</Collection>
+</Property>
+
+<Index name="ToeleveringIndex">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>ToeleveringNummer</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="VerplaatsToelevering">
+<FormalSpec>Gebruiker:%String,Opmerking:%String,Datum:%Date</FormalSpec>
+<Implementation><![CDATA[
+	Set ExplicietePlanning = ##class(APPS.Halux.Planning.impl.ExplicietePlanning).%New(Gebruiker, Opmerking, ..Dag)
+	Do ..ExplicietePlanningen.Insert(ExplicietePlanning)
+	Set ..Dag = Datum
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLaatsteVerplaatsing">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Gelukt = 0
+	If (..ExplicietePlanningen.Count() > 0)
+	{
+		Set VorigeExplicietePlanning = ..ExplicietePlanningen.GetAt(..ExplicietePlanningen.Count())
+		Set ..Dag = VorigeExplicietePlanning.VerplaatstVan
+		Do ..ExplicietePlanningen.RemoveAt(..ExplicietePlanningen.Count())
+		Set Gelukt = 1
+	}
+	Quit Gelukt
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderAlleVerplaatsingen">
+<Implementation><![CDATA[
+	If (..ExplicietePlanningen.Count() > 0)
+	{
+		Set VorigeExplicietePlanning = ..ExplicietePlanningen.GetAt(1)
+		Set ..Dag = VorigeExplicietePlanning.VerplaatstVan
+		Do ..ExplicietePlanningen.Clear()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="DagSet">
+<FormalSpec>Dag:%Date</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (Dag < $zdh(..DueOut,3))
+	{
+		Set ..GeplandStatus = ##class(APPS.Halux.Planning.enu.GeplandStatus).Vroeger()
+	}
+	ElseIf (Dag > $zdh(..DueOut,3))
+	{
+		Set ..GeplandStatus = ##class(APPS.Halux.Planning.enu.GeplandStatus).Later()
+	}
+	Else
+	{
+		Set ..GeplandStatus = ##class(APPS.Halux.Planning.enu.GeplandStatus).Impliciet()
+	}
+	Set i%Dag = Dag
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux8A9.ToeleveringI610D</DataLocation>
+<DefaultData>ToeleveringInfoDefaultData</DefaultData>
+<IdLocation>^APPS.Halux8A9.ToeleveringI610D</IdLocation>
+<IndexLocation>^APPS.Halux8A9.ToeleveringI610I</IndexLocation>
+<StreamLocation>^APPS.Halux8A9.ToeleveringI610S</StreamLocation>
+<Data name="ProductInfoLijst">
+<Attribute>ProductInfoLijst</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"ProductInfoLijst"</Subscript>
+</Data>
+<Data name="ToeleveringInfoDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Dag</Value>
+</Value>
+<Value name="3">
+<Value>DueOut</Value>
+</Value>
+<Value name="4">
+<Value>ExplicietePlanningen</Value>
+</Value>
+<Value name="5">
+<Value>GeplandStatus</Value>
+</Value>
+<Value name="6">
+<Value>IngegevenDoor</Value>
+</Value>
+<Value name="7">
+<Value>IsASAP</Value>
+</Value>
+<Value name="8">
+<Value>Klant</Value>
+</Value>
+<Value name="9">
+<Value>ProductieStatus</Value>
+</Value>
+<Value name="10">
+<Value>Toelevering</Value>
+</Value>
+<Value name="11">
+<Value>Producten</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="1893875256"/>
+</Export>
Index: APPS/Halux/Planning/impl/ProductInfo.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/impl/ProductInfo.cls.xml	(revision 0)
+++ APPS/Halux/Planning/impl/ProductInfo.cls.xml	(revision 954)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 11:27:33">
+<Class name="APPS.Halux.Planning.impl.ProductInfo">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<TimeChanged>62175,41339.995895</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Categorie">
+<Type>APPS.Halux.Planning.enu.Categorie</Type>
+</Property>
+
+<Property name="ProductCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="StockProbleem">
+<Type>%String</Type>
+</Property>
+
+<Property name="VerpakkingType">
+<Type>%String</Type>
+</Property>
+
+<Property name="ActiviteitInfoLijst">
+<Type>APPS.Halux.Planning.impl.ActiviteitInfo</Type>
+<Collection>list</Collection>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.Plan8A9.ProductInfoD</DataLocation>
+<DefaultData>ProductInfoDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.Plan8A9.ProductInfoD</IdLocation>
+<IndexLocation>^APPS.Halux.Plan8A9.ProductInfoI</IndexLocation>
+<StreamLocation>^APPS.Halux.Plan8A9.ProductInfoS</StreamLocation>
+<Data name="ActiviteitInfoLijst">
+<Attribute>ActiviteitInfoLijst</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"ActiviteitInfoLijst"</Subscript>
+</Data>
+<Data name="ProductInfoDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Aantal</Value>
+</Value>
+<Value name="4">
+<Value>Categorie</Value>
+</Value>
+<Value name="5">
+<Value>ProductCode</Value>
+</Value>
+<Value name="6">
+<Value>StockProbleem</Value>
+</Value>
+<Value name="7">
+<Value>VerpakkingType</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="1415955947"/>
+</Export>
Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 946)
+++ APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 954)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-22 15:17:36">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 10:01:07">
 <Class name="APPS.Halux.Planning.impl.EventCatcher">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62172,55140.1952</TimeChanged>
+<TimeChanged>62175,36153.948292</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="InitSubscriptions">
@@ -28,14 +28,9 @@
 	If (Toelevering.GeefLeverancierNummer() = 6332) // Halux
 	{
 		Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(Toelevering)
-		Set PlanningDataItems = Calculator.BerekenPlanningDataItems()
-		Set Iterator = ##class(TECH.ListIterator).%New(PlanningDataItems)
-		While (Iterator.HasNext())
-		{
-			Set PlanningDataItem = Iterator.Next()
-			Set Status = PlanningDataItem.%Save()
-			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Aangemaakte toeleveringslijn kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$c(10)_$c(13)_"Lijnnummer: "_PlanningDataItem.ToeleveringsLijn_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
-		}
+		Set ToeleveringInfo = Calculator.BerekenToeleveringInfo()
+		Set Status = ToeleveringInfo.%Save()
+		If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Aangemaakte ToeleveringInfo object kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
 	}
 ]]></Implementation>
 </Method>
@@ -47,21 +42,10 @@
 	Set Toelevering = Event.Data.Toelevering
 	If (Toelevering.GeefLeverancierNummer() = 6332) // Halux
 	{
-		Set ToeleveringsNummer = Toelevering.GeefToeNr()
-		&SQL(SELECT Gepland INTO :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
-		&SQL(DELETE FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
-		
 		Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(Toelevering)
-		Set PlanningDataItems = Calculator.BerekenPlanningDataItems($Get(Gepland))
-		Set Iterator = ##class(TECH.ListIterator).%New(PlanningDataItems)
-		While (Iterator.HasNext())
-		{
-			Set PlanningDataItem = Iterator.Next()
-			Set Status = PlanningDataItem.%Save()
-			If ($$$ISERR(Status)) { 
-			 	Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Gewijzigde toeleveringslijn kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$c(10)_$c(13)_"Lijnnummer: "_PlanningDataItem.ToeleveringsLijn_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) 
-			}
-		}
+		Set ToeleveringInfo = Calculator.BerekenToeleveringInfo()
+		Set Status = ToeleveringInfo.%Save()
+		If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Gewijzigde ToeleveringInfo object kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
 	}
 ]]></Implementation>
 </Method>
@@ -71,10 +55,11 @@
 <FormalSpec>Event:TECH.Events.ToeleveringDeletedEvent</FormalSpec>
 <Implementation><![CDATA[
 	Set ToeleveringsNummer = Event.Data.ToeleveringNummer
-	&SQL(DELETE FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
-	&SQL(DELETE FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	Do ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%DeleteId(ToeleveringsNummer)
+	//&SQL(DELETE FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	//&SQL(DELETE FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = :ToeleveringsNummer)
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1841201560"/>
+<Checksum value="4149618244"/>
 </Export>
Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml	(revision 0)
+++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml	(revision 954)
@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 10:43:55">
+<Class name="APPS.Halux.Planning.impl.ActiviteitInfoTBX">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor</Super>
+<TimeChanged>62175,38722.215105</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ActiviteitenMap">
+<Type>%ArrayOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>DOM.PM.MaatwerkProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikteActiviteiten">
+<Type>%ArrayOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Product:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Product = Product
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefActiviteitInfoIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Do ..BepaalActiviteitenMap()
+	Do ..GebruikteActiviteiten.Clear()
+
+	Set BerekeningService = ##class(APPS.PM.Maatwerk.BerekeningService).%New(..Product)
+
+	Set HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	
+	If (..Product.BevatInTeKortenFrontReling())
+	{
+		Set Item = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontReling())
+		Set Item.Aantal = 1
+		Do Item.ZetAfwijkendKenmerk("Lengte",0)
+		Do HalffabItemsBoom.AddHalffabItem(Item)
+	}
+	
+	If (..Product.BevatInTeKortenFront())
+	{
+		Set Item = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Front())
+		Set Item.Aantal = 1
+		Do Item.ZetAfwijkendKenmerk("Lengte",0)
+		Do HalffabItemsBoom.AddHalffabItem(Item)
+	}
+	
+	If (..Product.BevatInTeKortenReling())
+	{
+		Set Item = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).ZijReling())
+		Set Item.Aantal = ..Product.GeefAantalRelingen()
+		Do Item.ZetAfwijkendKenmerk("Lengte",0)
+		Do HalffabItemsBoom.AddHalffabItem(Item)
+	}
+	
+	If (..Product.BevatInTeKortenAntislipmat())
+	{
+		Set Item = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Antislipmat())
+		Set Item.Aantal = 1
+		Do Item.ZetAfwijkendKenmerk("Lengte",0)
+		Do HalffabItemsBoom.AddHalffabItem(Item)
+	}
+	
+	If (..Product.BevatInTeKortenGlas())
+	{
+		Set Item = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("",##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement())
+		Set Item.Aantal = ..Product.BevatInTeKortenFrontGlas() + ..Product.BevatInTeKortenZijkantGlas() * 2
+		Do Item.ZetAfwijkendKenmerk("Lengte",0)
+		Do HalffabItemsBoom.AddHalffabItem(Item)
+	}
+	
+	Set BerekeningsSpecificatie = ..Product.GeefBerekeningsSpecificatie()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(BerekeningsSpecificatie.GeefHoeveelheid(),BerekeningsSpecificatie.GeefKlantID(),BerekeningsSpecificatie.GeefPersonality(),"Planning")
+
+	Set KostItem = BerekeningService.BerekenKostItemsBoom(HalffabItemsBoom,BerekeningsSpecificatie)
+
+	Do KostItem.Accept(##this)
+	
+	Quit ##class(TECH.ListIterator).%New(..GebruikteActiviteiten)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkActiviteitKostItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ActiviteitInfo = ..ActiviteitenMap.GetAt(Item.GeefActiviteitNummer())
+	Do ..GebruikteActiviteiten.SetAt(ActiviteitInfo, ActiviteitInfo.Naam)
+	Set ResourcGebruikDataMap = ..BepaalResourceGebruikMap(ActiviteitInfo.ResourceGebruik)
+	Set ResourceGebruikData = ResourcGebruikDataMap.GetAt(Item.GeefActiviteitNummer())
+	Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + Item.GeefTijd()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalResourceGebruikMap">
+<FormalSpec>ResourceGebruik:APPS.Halux.Planning.impl.ResourceGebruik</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set ResourceGebruikMap = ##class(%ArrayOfObjects).%New()
+	
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Houtzaag ,1)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Bewerkingscenter, 5)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Bewerkingscenter, 6)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers3, 7)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers1, 8)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPers2, 9)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.KartonMachine, 11)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.KartonMachine, 12)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPicking, 13)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.TBXPicking, 14)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 15)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 16)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 17)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 18)
+	Do ResourceGebruikMap.SetAt(ResourceGebruik.Voormontage, 19)
+	
+	Quit ResourceGebruikMap
+]]></Implementation>
+</Method>
+
+<Method name="BepaalActiviteitenMap">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lade zagen",1) ,1)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX TIP-ON bewerkingen",1), 5)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX spoelbak/sifon bewerkingen",1), 6)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX spoelbak/sifon bewerkingen",1), 7)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",1), 8)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",1), 9)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX verpakking V1",1), 11)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",1), 12)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX zijkanten",1), 13)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",1), 14)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten relingen",1), 15)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten relingen",1), 16)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten fronten",1), 17)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten inschuifelement",1), 18)
+	Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX inkorten matjes",1), 19)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="527520952"/>
+</Export>
Index: APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml	(revision 0)
+++ APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml	(revision 954)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 08:38:55">
+<Class name="APPS.Halux.Planning.impl.ProductPlanningUtils">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62175,31221.916197</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefCategorie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<ReturnType>APPS.Halux.Planning.enu.Categorie</ReturnType>
+<Implementation><![CDATA[
+	Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Onbepaald()
+	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Tandembox()
+	}
+	ElseIf (Product.%Extends("DOM.PM.KADProduct.KADKaderdeur"))
+	{
+		Set Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Kaderdeur()
+	}
+	Quit Categorie
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1471139007"/>
+</Export>
Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 946)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 954)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-18 12:00:28">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 07:59:29">
 <Class name="APPS.Halux.Planning.PlanningService">
 <Description>
 Service voor de Halux planningstool.
 Ondersteunt het visulaliseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62168,43309.773643</TimeChanged>
+<TimeChanged>62175,28856.089924</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="ApplicatieNaam">
@@ -183,15 +183,19 @@
 	While (Iterator.HasNext())
 	{
 		Set ToeleveringsNummer = Iterator.Next()
-		Set VerplaatstVan = ""
-		&SQL(SELECT Gepland Into :VerplaatstVan FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
-		If ($Get(VerplaatstVan))
+		Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+		If ($IsObject(ToeleveringInfo))
 		{ 
-			Set ExplicietePlanning = ##class(APPS.Halux.Planning.impl.ExplicietePlanning).%New(Gebruiker, Opmerking, VerplaatstVan, ToeleveringsNummer)
-			Set Status = ExplicietePlanning.%Save()
-			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Expliciete planningsobject kon niet gesaved worden!","Toelevering: "_ToeleveringsNummer_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
-			&SQL(UPDATE APPS_Halux_Planning_impl.PlanningDataItem SET Gepland = :Datum WHERE ToeleveringsNummer = :ToeleveringsNummer)
-			Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
+			Do ToeleveringInfo.VerplaatsToelevering(Gebruiker,Opmerking,Datum)
+			Set Status = ToeleveringInfo.%Save()
+			If ($$$ISOK(Status))
+			{
+				Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
+			}
+			Else
+			{
+				Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
+			}
 		}
 		Else
 		{
@@ -209,31 +213,22 @@
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat).%New()
 	
-	TSTART
-	&SQL(UPDATE APPS_Halux_Planning_impl.PlanningDataItem SET Gepland = (SELECT VerplaatstVan FROM APPS_Halux_Planning_impl.ExplicietePlanning P
-	 			WHERE ToeleveringsNummer = :ToeleveringsNummer AND ID = (SELECT Max(ID) FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE P.ToeleveringsNummer = ToeleveringsNummer)) WHERE ToeleveringsNummer = :ToeleveringsNummer)
-	If ('%ROWCOUNT)
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+	If ($IsObject(ToeleveringInfo))
 	{
-		Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
-		TROLLBACK
-		Do ##class(vhLib.Logger).%New("Halux planningstool").Warning("Verplaatsing van toelevering gefaald.","Bij het verwijderen van de laatste verplaatsing voor toeleveringsnummer "_ToeleveringsNummer_" kon het planningsitem niet geupdate worden.")
-	}
-	Else
-	{
-		&SQL(DELETE FROM APPS_Halux_Planning_impl.ExplicietePlanning P
-	 			WHERE ToeleveringsNummer = :ToeleveringsNummer AND ID = (SELECT Max(ID) FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE P.ToeleveringsNummer = ToeleveringsNummer))
-		If ('%ROWCOUNT)
+		If (ToeleveringInfo.VerwijderLaatsteVerplaatsing())
 		{
-			Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
-			TROLLBACK
-			Do ##class(vhLib.Logger).%New("Halux planningstool").Warning("Verplaatsing van toelevering gefaald.","Bij het verwijderen van de laatste verplaatsing voor toeleveringsnummer "_ToeleveringsNummer_" kon het expliciete geplande item niet verwijderd worden.")	
+			Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
 		}
 		Else
 		{
-			Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
-			TCOMMIT
+			Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
 		}
 	}
+	Else
+	{
+		Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
+	}
 	
 	Quit Resultaat
 ]]></Implementation>
@@ -245,18 +240,17 @@
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat).%New()
 	
-	&SQL(UPDATE APPS_Halux_Planning_impl.PlanningDataItem SET Gepland = DueOut WHERE ToeleveringsNummer = :ToeleveringsNummer)
-	If (%ROWCOUNT)
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+	If ($IsObject(ToeleveringInfo))
 	{
-		&SQL(DELETE FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = :ToeleveringsNummer)
-		If ('%ROWCOUNT)
-		{
-			Do ##class(vhLib.Logger).%New("Halux planningstool").Warning("Verwijder alle verplaatsingen OUT OF SYNC.","Alle verplaatsingen voor toeleveringsnummer "_ToeleveringsNummer_" werden verwijderd, maar er waren geen expliciete planningitems aanwezig")		
-		}
+		Do ToeleveringInfo.VerwijderAlleVerplaatsingen()
+		Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
 	}
+	Else
+	{
+		Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
+	}
 	
-	Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
-	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
@@ -277,7 +271,7 @@
 	Set ResultSet=##class(%ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefUniekeToeleveringen")
 	Do ResultSet.Execute()
 	While ResultSet.Next() {
-		Set DataToeNr = ResultSet.Data("ToeleveringsNummer")
+		Set DataToeNr = ResultSet.Data("ToeleveringNummer")
 		If (Index < GlobalToeleveringen.Count())
 		{
 			Set Index = Index + 1
@@ -336,5 +330,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1266469817"/>
+<Checksum value="1947870590"/>
 </Export>
Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 946)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 954)
@@ -1,113 +1,150 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-23 07:43:16">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 11:30:07">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikCalculator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62173,27881.765969</TimeChanged>
+<TimeChanged>62175,41494.04427</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Toelevering">
 <Type>DOM.LEV.Toelevering</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringInfo">
+<Type>APPS.Halux.Planning.impl.ToeleveringInfo</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Toelevering = Toelevering
+
+	If (##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(Toelevering.GeefToeNr()))
+	{
+		Set ..ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(Toelevering.GeefToeNr())
+	}
+	Else
+	{
+		Set ..ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%New()
+		If (Toelevering.GeefDueOutTime() '= "")
+		{
+			Set ..ToeleveringInfo.ToeleveringNummer = Toelevering.GeefToeNr()
+			Set ..ToeleveringInfo.Dag = $Piece(Toelevering.GeefDueOutTime(),",")
+		}
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenPlanningDataItems">
-<FormalSpec>PlanningDatum:%TimeStamp=""</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
+<Method name="BerekenToeleveringInfo">
+<ReturnType>APPS.Halux.Planning.impl.ToeleveringInfo</ReturnType>
 <Implementation><![CDATA[
-	Set PlanningDataItems = ##class(%ListOfObjects).%New()
+	Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(..Toelevering)
+	If ($IsObject(Batch))
+	{
+		Set ..ToeleveringInfo.ProductieStatus = "Batch "_Batch.GeefBatchID()
+	}
 	
-	Set ToeleveringLijnIterator = ..Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
-	While (ToeleveringLijnIterator.HasNext())
+	If (..Toelevering.GeefDueOutTime() '= "")
 	{
-		Set ProductToeleveringsLijn = ToeleveringLijnIterator.Next()
-				
-		Set ResourceGebruik = ..BepaalResourceGebruikProduct(ProductToeleveringsLijn.GeefProduct())
-		
-		Set PlanningDataItem = ##class(APPS.Halux.Planning.impl.PlanningDataItem).%New()
-		
-		Set PlanningDataItem.ALUFrees = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.ALUFrees.Hoeveelheid
-		Set PlanningDataItem.ALUOperator = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.ALUOperator.Hoeveelheid
-		Set PlanningDataItem.ALUZaag = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.ALUZaag.Hoeveelheid
-		Set PlanningDataItem.CorpusMontageVerpakken = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.CorpusMontageVerpakken.Hoeveelheid
-		Set PlanningDataItem.CorpusVoorbereiding = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.CorpusVoorbereiding.Hoeveelheid
-		Set PlanningDataItem.KartonMachine = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.KartonMachine.Hoeveelheid
-		Set PlanningDataItem.TBXBoxpressKeller = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXBoxpressKeller.Hoeveelheid
-		Set PlanningDataItem.TBXBoxpressLijn1 = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXBoxpressLijn1.Hoeveelheid
-		Set PlanningDataItem.TBXBoxpressLijn2 = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXBoxpressLijn2.Hoeveelheid
-		Set PlanningDataItem.TBXSpecialsMontage = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXSpecialsMontage.Hoeveelheid
-		Set PlanningDataItem.TBXVoormontage = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXVoormontage.Hoeveelheid
-		Set PlanningDataItem.TBXZaag = ProductToeleveringsLijn.GeefAantal() * ResourceGebruik.TBXZaag.Hoeveelheid
-		
-		Set PlanningDataItem.Categorie = ##class(APPS.Halux.Planning.enu.Categorie).TBXLadeStd1()
-		Set PlanningDataItem.ToeleveringsNummer = ..Toelevering.GeefToeNr()
-		Set PlanningDataItem.ToeleveringsLijn = ProductToeleveringsLijn.GeefLijnNr()
-		If (..Toelevering.GeefDueOutTime() '= "")
+		Set ..ToeleveringInfo.DueOut = $zdt(..Toelevering.GeefDueOutTime(),3)
+	}
+	
+	Set Order = ..Toelevering.GeefOrder()
+	If ($IsObject(Order))
+	{
+		Set ..ToeleveringInfo.IsASAP = Order.IsASAP()
+		Set ..ToeleveringInfo.IngegevenDoor = Order.GeefIngegevenDoor()
+		Set ..ToeleveringInfo.Klant = Order.GeefKlant().GeefNaam()
+	}
+	Else
+	{
+		Set ..ToeleveringInfo.IsASAP = 0
+		Set ..ToeleveringInfo.IngegevenDoor = ""
+		Set ..ToeleveringInfo.Klant = "Stock"
+	}
+	
+	Do ..BerekenProductInfo(..Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product()))
+	
+	Quit ..ToeleveringInfo
+]]></Implementation>
+</Method>
+
+<Method name="BerekenProductInfo">
+<FormalSpec>ProductToeleveringLijnIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ToeleveringInfo.ProductInfoLijst.Clear()
+	Set Producten = ##class(%ArrayOfObjects).%New()
+	While (ProductToeleveringLijnIterator.HasNext())
+	{
+		Set ProductLijn = ProductToeleveringLijnIterator.Next()
+		Set Product = ProductLijn.GeefProduct()
+		If ('Producten.IsDefined(Product.GeefPRNr()))
 		{
-			Set PlanningDataItem.DueOut = $zdt(..Toelevering.GeefDueOutTime(),3)
+			Do Producten.SetAt(##class(%ListOfObjects).%New(),Product.GeefPRNr())
 		}
-		
-		If (PlanningDatum = "")
+		Do Producten.GetAt(Product.GeefPRNr()).Insert(ProductLijn)
+	}
+	Set ProductIterator = ##class(TECH.ListIterator).%New(Producten)
+	While (ProductIterator.HasNext())
+	{
+		Set ProductLijnen = ProductIterator.Next()
+		Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen)
+		Set ActiviteitInfoLijst = ..BerekenActiviteitInfo(ProductLijn.GeefProduct())
+		While (ProductLijnIterator.HasNext())
 		{
-			Set PlanningDataItem.Gepland = PlanningDataItem.DueOut
+			Set ProductLijn = ProductLijnIterator.Next()
+			Set ProductInfo = ##class(APPS.Halux.Planning.impl.ProductInfo).%New()
+			
+			Set ProductInfo.Aantal = ProductLijn.GeefAantal()
+			Set ProductInfo.ProductCode = ProductLijn.GeefProduct().GeefKorttekst()
+			If (ProductLijn.HeeftFysiekStockProbleem())
+			{
+				Set ProductInfo.StockProbleem = "!"
+			}
+			Set ProductInfo.Categorie = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefCategorie(ProductLijn.GeefProduct())
+			
+			Set ProductInfo.ActiviteitInfoLijst = ActiviteitInfoLijst
+			Do ..ToeleveringInfo.ProductInfoLijst.Insert(ProductInfo)
 		}
-		Else
-		{
-			Set PlanningDataItem.Gepland = PlanningDatum
-		}
-		
-		
-		Set Order = ..Toelevering.GeefOrder()
-		If ($IsObject(Order))
-		{
-			Set PlanningDataItem.IsASAP = Order.IsASAP()
-			Set PlanningDataItem.IngegevenDoor = Order.GeefIngegevenDoor()
-			Set PlanningDataItem.Klant = Order.GeefKlant().GeefNaam()
-		}
-		Else
-		{
-			Set PlanningDataItem.IsASAP = 0
-			Set PlanningDataItem.IngegevenDoor = ""
-			Set PlanningDataItem.Klant = "Stock"
-		}
-		
-		Do PlanningDataItems.Insert(PlanningDataItem)
 	}
-	
-	Quit PlanningDataItems
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalResourceGebruikProduct">
+<Method name="BerekenActiviteitInfo">
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.Planning.impl.ResourceGebruik</ReturnType>
+<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New()
-	
+	Set ActiviteitInfoLijst = ##class(%ListOfObjects).%New()
+	Set ActiviteitInfoIterator = ""
 	If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
 	{
-		Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.RGDataMapTBX).%New(Product).GeefResourceGebruik()
+		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(Product).GeefActiviteitInfoIterator()
 	}
 	ElseIf (Product.%Extends("DOM.PM.KADProduct.KADKaderdeur"))
 	{
-		Set ResourceGebruik = ##class(APPS.Halux.Planning.impl.RGDataMapALU).%New(Product).GeefResourceGebruik()
+		Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoALU).%New(Product).GeefActiviteitInfoIterator()
 	}
 	
-	Quit ResourceGebruik
+	If (ActiviteitInfoIterator '= "")
+	{	
+		While (ActiviteitInfoIterator.HasNext())
+		{
+			Set Activiteit = ActiviteitInfoIterator.Next()
+			Do ActiviteitInfoLijst.Insert(Activiteit)
+		}
+	}
+	Quit ActiviteitInfoLijst
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="173757180"/>
+<Checksum value="2647478293"/>
 </Export>
Index: APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml	(revision 0)
+++ APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml	(revision 954)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 15:32:49">
+<Class name="APPS.Halux.Planning.impl.ActiviteitInfo">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<TimeChanged>62174,56055.159214</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Fase">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Property name="ResourceGebruik">
+<Type>APPS.Halux.Planning.impl.ResourceGebruik</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Naam:%String,Fase:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Naam = Naam
+	Set ..Fase = Fase
+	Set ..ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.P8A9.ActiviteitInfoD</DataLocation>
+<DefaultData>ActiviteitInfoDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.P8A9.ActiviteitInfoD</IdLocation>
+<IndexLocation>^APPS.Halux.P8A9.ActiviteitInfoI</IndexLocation>
+<StreamLocation>^APPS.Halux.P8A9.ActiviteitInfoS</StreamLocation>
+<Data name="ActiviteitInfoDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Fase</Value>
+</Value>
+<Value name="3">
+<Value>Naam</Value>
+</Value>
+<Value name="4">
+<Value>ResourceGebruik</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="1193700925"/>
+</Export>
Index: APPS/Halux/Planning/impl/ExplicietePlanning.cls.xml
===================================================================
diff -u -r917 -r954
--- APPS/Halux/Planning/impl/ExplicietePlanning.cls.xml	(.../ExplicietePlanning.cls.xml)	(revision 917)
+++ APPS/Halux/Planning/impl/ExplicietePlanning.cls.xml	(.../ExplicietePlanning.cls.xml)	(revision 954)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-28 14:24:25">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 16:30:32">
 <Class name="APPS.Halux.Planning.impl.ExplicietePlanning">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62150,51931.204442</TimeChanged>
+<TimeChanged>62174,59517.45301</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Gebruiker">
@@ -18,7 +18,7 @@
 <Property name="VerplaatstVan">
 <Description>
 De datum die het item had vóór de verplaatsing</Description>
-<Type>%TimeStamp</Type>
+<Type>%Date</Type>
 </Property>
 
 <Property name="VerplaatstOp">
@@ -27,20 +27,15 @@
 <Type>%TimeStamp</Type>
 </Property>
 
-<Property name="ToeleveringsNummer">
-<Type>%Integer</Type>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>Gebruiker:%String,Opmerking:%String,VerplaatstVan:%TimeStamp,ToeleveringsNummer:%Integer</FormalSpec>
+<FormalSpec>Gebruiker:%String,Opmerking:%String,VerplaatstVan:%Date</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Gebruiker = Gebruiker
 	Set ..Opmerking = Opmerking
 	Set ..VerplaatstVan = VerplaatstVan
-	Set ..ToeleveringsNummer = ToeleveringsNummer
 	Set ..VerplaatstOp = $zdt($h,3)
 	Quit $$$OK
 ]]></Implementation>
@@ -77,5 +72,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="424275157"/>
+<Checksum value="1192891362"/>
 </Export>
Index: APPS/Halux/Planning/impl/ResourceGebruik.cls.xml
===================================================================
diff -u -r917 -r954
--- APPS/Halux/Planning/impl/ResourceGebruik.cls.xml	(.../ResourceGebruik.cls.xml)	(revision 917)
+++ APPS/Halux/Planning/impl/ResourceGebruik.cls.xml	(.../ResourceGebruik.cls.xml)	(revision 954)
@@ -1,9 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-07 11:29:44">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 14:42:42">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruik">
+<ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62129,41432.692107</TimeChanged>
+<Super>%Persistent</Super>
+<TimeChanged>62174,53048.669597</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ALUFrees">
@@ -18,42 +19,58 @@
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
-<Property name="CorpusMontageVerpakken">
+<Property name="Houtzaag">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
-<Property name="CorpusVoorbereiding">
+<Property name="Bewerkingscenter">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
 <Property name="KartonMachine">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
-<Property name="TBXBoxpressKeller">
+<Property name="TBXPers1">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
-<Property name="TBXBoxpressLijn1">
+<Property name="TBXPers2">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
-<Property name="TBXBoxpressLijn2">
+<Property name="TBXPers3">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
-<Property name="TBXSpecialsMontage">
+<Property name="TBXPicking">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
-<Property name="TBXVoormontage">
+<Property name="Voormontage">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
-<Property name="TBXZaag">
+<Property name="HoekkastZaag">
 <Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
 </Property>
 
+<Property name="HoekkastMontage">
+<Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
+</Property>
+
+<Property name="HoekkastInpak">
+<Type>APPS.Halux.Planning.impl.ResourceGebruikData</Type>
+</Property>
+
+<Property name="Categorie">
+<Type>APPS.Halux.Planning.enu.Categorie</Type>
+</Property>
+
+<Property name="Activiteit">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -62,19 +79,21 @@
 	Set ..ALUFrees = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
 	Set ..ALUOperator = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
 	Set ..ALUZaag = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
-	Set ..CorpusMontageVerpakken = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
-	Set ..CorpusVoorbereiding = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..Houtzaag = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..Bewerkingscenter = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
 	Set ..KartonMachine = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
-	Set ..TBXBoxpressKeller = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
-	Set ..TBXBoxpressLijn1 = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
-	Set ..TBXBoxpressLijn2 = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
-	Set ..TBXSpecialsMontage = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
-	Set ..TBXVoormontage = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
-	Set ..TBXZaag = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..TBXPers1 = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..TBXPers2 = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..TBXPers3 = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..TBXPicking = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..Voormontage = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..HoekkastZaag = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..HoekkastMontage = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
+	Set ..HoekkastInpak = ##class(APPS.Halux.Planning.impl.ResourceGebruikData).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4213352377"/>
+<Checksum value="1391897044"/>
 </Export>
Index: APPS/Halux/Planning/impl/ResourceGebruikData.cls.xml
===================================================================
diff -u -r917 -r954
--- APPS/Halux/Planning/impl/ResourceGebruikData.cls.xml	(.../ResourceGebruikData.cls.xml)	(revision 917)
+++ APPS/Halux/Planning/impl/ResourceGebruikData.cls.xml	(.../ResourceGebruikData.cls.xml)	(revision 954)
@@ -1,13 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-07 08:55:03">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 14:42:59">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikData">
 <Description>
 Informatie over resourcegebruik. 
 We houden bij hoe groot het resourcegebruik is (property Hoeveelheid)
 en wanneer in de tijd de resource gebruikt wordt (property Wanneer).</Description>
+<ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62129,32152.061004</TimeChanged>
+<Super>%Persistent</Super>
+<TimeChanged>62174,53065.178237</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Hoeveelheid">
@@ -25,5 +26,5 @@
 <Type>%Float</Type>
 </Property>
 </Class>
-<Checksum value="1561902461"/>
+<Checksum value="606946626"/>
 </Export>
FishEye: Tag 954 refers to a dead (removed) revision in file `APPS/Halux/Planning/impl/PlanningDataItem.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?