Index: APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml
===================================================================
diff -u -r3674 -r3699
--- APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml	(.../ActiviteitInfoALU.cls.xml)	(revision 3674)
+++ APPS/Halux/Planning/impl/ActiviteitInfoALU.cls.xml	(.../ActiviteitInfoALU.cls.xml)	(revision 3699)
@@ -33,8 +33,13 @@
 	While (KostBouwstenenIterator.HasNext())
 	{
 		Set KostBouwsteen = KostBouwstenenIterator.Next()
-		Set ResourceGebruikData = ResourceGebruikMap.GetAt(KostBouwsteen.Omschrijving)
-		Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + KostBouwsteen.TijdPlanning
+		Set ResourceGebruikDataLijst = ResourceGebruikMap.GetAt(KostBouwsteen.Omschrijving)
+		Set Iterator = ##class(TECH.ListIterator).%New(ResourceGebruikDataLijst)
+		While (Iterator.HasNext())
+		{
+			Set ResourceGebruikData = Iterator.Next()
+			Set ResourceGebruikData.Hoeveelheid = ResourceGebruikData.Hoeveelheid + KostBouwsteen.TijdPlanning
+		}
 	}
 	
 	If (..Product.GeefVerpakking() = ##class(DOM.PM.KADProduct.enu.KADVerpakking).Export())
@@ -53,34 +58,47 @@
 <Implementation><![CDATA[
 	Set ResourceGebruikMap = ##class(%ArrayOfObjects).%New()
 	
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUMontage,"Dichting")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUMontage,"Dichting Los profiel")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUMontage,"Dichting Kleef")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUMontage,"Monteren - standaard")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUMontage,"Monteren - zonder glas")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUMontage,"Opkuisen en controle")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUMontage,"Opkuisen en controle Losse onderdelen")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUMontage,"Opkuisen en controle Los profiel")
+	Set ALUMontage = ##class(%ListOfObjects).%New()
+	Do ALUMontage.Insert(ResourceGebruik.ALUMontage)
+	
+	Set ALUFrees = ##class(%ListOfObjects).%New()
+	Do ALUFrees.Insert(ResourceGebruik.ALUFrees)
+	
+	Set ALUTeam = ##class(%ListOfObjects).%New()
+	Do ALUTeam.Insert(ResourceGebruik.ALUTeam)
+	
+	Set ALUTeamEnFrees = ##class(%ListOfObjects).%New()
+	Do ALUTeamEnFrees.Insert(ResourceGebruik.ALUTeam)
+	Do ALUTeamEnFrees.Insert(ResourceGebruik.ALUFrees)
+	
+	Do ResourceGebruikMap.SetAt(ALUMontage,"Dichting")
+	Do ResourceGebruikMap.SetAt(ALUMontage,"Dichting Los profiel")
+	Do ResourceGebruikMap.SetAt(ALUMontage,"Dichting Kleef")
+	Do ResourceGebruikMap.SetAt(ALUMontage,"Monteren - standaard")
+	Do ResourceGebruikMap.SetAt(ALUMontage,"Monteren - zonder glas")
+	Do ResourceGebruikMap.SetAt(ALUMontage,"Opkuisen en controle")
+	Do ResourceGebruikMap.SetAt(ALUMontage,"Opkuisen en controle Losse onderdelen")
+	Do ResourceGebruikMap.SetAt(ALUMontage,"Opkuisen en controle Los profiel")
 		
-	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(ALUTeamEnFrees,"FreesTool - tekenen")
+	Do ResourceGebruikMap.SetAt(ALUTeamEnFrees,"Frezen New Calc")
+	Do ResourceGebruikMap.SetAt(ALUTeamEnFrees,"Frezen init+afhandelen")
 	
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Zagen - Hoogte - klein")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Zagen - Breedte - klein")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Zagen - Los profiel - klein")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Zagen - Hoogte - groot")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Zagen - Breedte - groot")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Zagen - Los profiel - groot")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Zagen - Hoogte - klein")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Zagen - Breedte - klein")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Zagen - Los profiel - klein")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Zagen - Hoogte - groot")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Zagen - Breedte - groot")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Zagen - Los profiel - groot")
 	
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Boren")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Boren Los profiel")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Boren")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Boren Los profiel")
 	
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Verpakken Krimp")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Verpakken Los kader")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Verpakken Los profiel")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Verpakken Bulk")
-	Do ResourceGebruikMap.SetAt(ResourceGebruik.ALUTeam,"Verpakken Export")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Verpakken Krimp")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Verpakken Los kader")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Verpakken Los profiel")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Verpakken Bulk")
+	Do ResourceGebruikMap.SetAt(ALUTeam,"Verpakken Export")
 	
 	Quit ResourceGebruikMap
 ]]></Implementation>