Index: vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml
===================================================================
diff -u -r41134 -r56501
--- vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 41134)
+++ vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 56501)
@@ -424,6 +424,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Not IsWegwerppallet">
+<Implementation><![CDATA[
+	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
+	#dim Batch1 As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(13,##class(APPS.Halux.common.enu.Categorie).Tandembox())
+	Do Batch1.Save()
+	
+	Do $$$AssertFalse(Batch1.IsWegwerppallet)
+	
+	Do Batch1.Delete()
+]]></Implementation>
+</Method>
+
+<Method name="Test: IsWegwerppallet">
+<Implementation><![CDATA[
+	#dim ToeleveringLijnStub As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijnStub.IndienMethodCall("GeefProductID").DanReturn(1000)
+	Do ToeleveringLijnStub.IndienMethodCall("GeefAantal").DanReturn(1)
+	
+	#dim ProductLijnen As %ListOfObjects = ##class(%ListOfDataTypes).%New()
+	Do ProductLijnen.Insert(ToeleveringLijnStub)
+	
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding("L||6332", ProductLijnen)
+	Do ToeleveringStub.IndienMethodCall("GeefKlantID").DanReturn("K||7833")
+	Do ToeleveringStub.IndienMethodCall("GeefTypeToeleveringLijnIterator", ##class(DOM.AKP.enu.ToeleveringLijnType).Product()).DanReturn(##class(TECH.ListIterator).%New(ProductLijnen))
+	
+	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ToeleveringAPI.IndienMethodCall("BestaatToelevering", ToeleveringStub.GeefID()).DanReturn($$$True)
+	Do ToeleveringAPI.IndienMethodCall("GeefToelevering", ToeleveringStub.GeefID()).DanReturn(ToeleveringStub)
+	
+	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
+	#dim Batch1 As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(13,##class(APPS.Halux.common.enu.Categorie).Tandembox())
+	Do Batch1.VoegToeToelevering(ToeleveringStub)
+	Do Batch1.Save()
+	
+	Do $$$AssertTrue(Batch1.IsWegwerppallet)
+	
+	Do Batch1.Delete()
+]]></Implementation>
+</Method>
+
 <Method name="CreateTestData">
 <Private>1</Private>
 <Implementation><![CDATA[