Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r57874 -r62410
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 57874)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 62410)
@@ -670,17 +670,17 @@
 </Method>
 
 <Method name="GeefIsWegwerpPallet">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsWegwerppallet As %Boolean = $$$False
 	
 	#dim ToeleveringIterator As TECH.Iterator = ..GeefToeleveringIterator()
-	// Kijkt enkel naar de Klant van de 1e toelevering => Klanten die wegwerppalletten willen worden apart in batches gestoken
-	If (ToeleveringIterator.HasNext()) {
+	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		#dim Klant As DOM.VKP.Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Toelevering.GeefKlantID())
 		#dim KlantOrderInstellingen As DOM.VKP.KlantOrderInstellingen = Klant.GeefKlantOrderInstellingen()
-		If (KlantOrderInstellingen.MoetOpWegwerppallet()) {
+		If (KlantOrderInstellingen.MoetOpWegwerppallet() && (ToeleveringId = Toelevering.GeefID())) {
 			Set IsWegwerppallet = $$$True
 		}
 	}