Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71847 -r71850
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71847)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71850)
@@ -15,9 +15,8 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit 0
-	;#dim Verpakking As DOM.PM.enu.LBXVerpakkingType = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefLegraboxProduct(ProductId).GeefVerpakking()
-	;Quit (Verpakking = ##class(DOM.PM.enu.LBXVerpakkingType).VHoss())
+	#dim Verpakking As DOM.PM.enu.TBXVerpakking = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefTandemboxProduct(ProductId).GeefVerpakking()
+	Quit (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71827 -r71850
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71827)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71850)
@@ -138,7 +138,6 @@
 		Set IndexToelevering = IndexToelevering + 1
 		
 		If (..IsAantalLadesToegestaan(Toelevering.GeefAantalProducten(), Batch.GeefID(), ##class(TECH.ListUtils).IteratorToList(UitvoeringInfoLijstIterator), ToeleveringId)) {
-		
 			#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering)
 			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering))
 			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))