Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r52358 -r56499
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 52358)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 56499)
@@ -105,6 +105,14 @@
 <Type>APPS.Halux.Planning.enu.ToeleveringSorteerType</Type>
 </Property>
 
+<Property name="IsWegwerppallet">
+<Type>%Boolean</Type>
+<Calculated>1</Calculated>
+<Private>1</Private>
+<SqlComputeCode>	Set {*}=##class(APPS.Halux.common.impl.BatchImpl).%OpenId({ID}).IsWegwerppallet()</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Lijn:APPS.Halux.common.enu.ProductieLijn=""</FormalSpec>
 <Private>1</Private>
@@ -623,6 +631,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsWegwerppallet">
+<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()) {
+		#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()) {
+			Set IsWegwerppallet = $$$True
+		}
+	}
+	
+	Quit IsWegwerppallet
+]]></Implementation>
+</Method>
+
 <Method name="ZetStatusEnSave">
 <FormalSpec>Status:APPS.Halux.common.enu.BatchStatus</FormalSpec>
 <Implementation><![CDATA[
@@ -684,6 +712,9 @@
 <Value name="10">
 <Value>ToeleveringSorteerType</Value>
 </Value>
+<Value name="11">
+<Value>IsWegwerppallet</Value>
+</Value>
 </Data>
 <Data name="ToeleveringenIndex">
 <Attribute>ToeleveringenIndex</Attribute>