Index: APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml
===================================================================
diff -u -r60793 -r60795
--- APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 60793)
+++ APPS/Halux/PPS/Document/impl/common/OnderdelenPicking.cls.xml	(.../OnderdelenPicking.cls.xml)	(revision 60795)
@@ -170,15 +170,15 @@
 	If $IsObject(GesorteerdeOnderdeelPickingsVoor1Toelevering){
 		Set ..Document = ""
 		#dim DataVoorVorigeLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = ""
-		#dim GesorteerdeUitvoeringInfoIt As TECH.Iterator = GesorteerdeOnderdeelPickingsVoor1Toelevering.GeefKindIterator()	
+		#dim GesorteerdeUitvoeringInfoIterator As TECH.Iterator = GesorteerdeOnderdeelPickingsVoor1Toelevering.GeefKindIterator()	
 		
 		If ((Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) && (Productiegroep = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())) {
-			Set GesorteerdeUitvoeringInfoIt =  ..GeefIteratorVanLijstMetSamengeteldeGeleiders(GesorteerdeUitvoeringInfoIt)
-			Set GesorteerdeUitvoeringInfoIt =  ..GeefIteratorVanLijstZonderBodemplaten(GesorteerdeUitvoeringInfoIt)			//Bodemplaten horen niet thuis op een pickinglijst
+			Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenMetSamengeteldeGeleiders(GesorteerdeUitvoeringInfoIterator)
+			Set GesorteerdeUitvoeringInfoIterator =  ..GeefAlleProductenBehalveBodemplatenIterator(GesorteerdeUitvoeringInfoIterator)			//Bodemplaten horen niet thuis op een pickinglijst
 		} 
 		
-		While GesorteerdeUitvoeringInfoIt.HasNext() {
-			#dim DataVoorLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIt.Next()	
+		While GesorteerdeUitvoeringInfoIterator.HasNext() {
+			#dim DataVoorLijn As APPS.Halux.PPS.Document.impl.common.OnderdelenPicking.OnderdeelPickingBinaireKnoop = GesorteerdeUitvoeringInfoIterator.Next()	
 			#dim IsTussenlijnNodig As %Boolean = ..IsTussenlijnNodig(DataVoorVorigeLijn,DataVoorLijn)
 			If IsTussenlijnNodig {
 				Do ..Document.VoegLegeLijnToe()
@@ -206,7 +206,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIteratorVanLijstZonderBodemplaten">
+<Method name="GeefAlleProductenBehalveBodemplatenIterator">
 <FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -225,7 +225,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIteratorVanLijstMetSamengeteldeGeleiders">
+<Method name="GeefAlleProductenMetSamengeteldeGeleiders">
 <FormalSpec>GesorteerdeUitvoeringInfoIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>