Index: vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml
===================================================================
diff -u -r56501 -r56524
--- vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 56501)
+++ vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 56524)
@@ -424,20 +424,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Not IsWegwerppallet">
+<Method name="Test: Bij default is IsWegwerppallet False">
 <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()
+	#dim Batch As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(13,##class(APPS.Halux.common.enu.Categorie).Tandembox())
+	Do Batch.Save()
 	
-	Do $$$AssertFalse(Batch1.IsWegwerppallet)
+	Do $$$AssertFalse(Batch.IsWegwerppallet)
 	
-	Do Batch1.Delete()
+	Do Batch.Delete()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: IsWegwerppallet">
+<Method name="Test: IsWegwerppallet is False omdat het een klant is die GEEN wegwerppalletten wilt">
 <Implementation><![CDATA[
+	#define KlantIdVanKlantDieGeenWegwerppallettenWilt "K||3042"
+	
 	#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)
@@ -446,24 +448,54 @@
 	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("GeefKlantID").DanReturn($$$KlantIdVanKlantDieGeenWegwerppallettenWilt)
 	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()
+	#dim Batch As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(13,##class(APPS.Halux.common.enu.Categorie).Tandembox())
+	Do Batch.VoegToeToelevering(ToeleveringStub)
+	Do Batch.Save()
 	
-	Do $$$AssertTrue(Batch1.IsWegwerppallet)
+	Do $$$AssertFalse(Batch.IsWegwerppallet)
 	
-	Do Batch1.Delete()
+	Do Batch.Delete()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: IsWegwerppallet is True omdat het een klant is die wegwerppalletten wilt">
+<Implementation><![CDATA[
+	#define KlantIdVanKlantDieWegwerppallettenWilt "K||7833"
+	
+	#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($$$KlantIdVanKlantDieWegwerppallettenWilt)
+	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 Batch As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(13,##class(APPS.Halux.common.enu.Categorie).Tandembox())
+	Do Batch.VoegToeToelevering(ToeleveringStub)
+	Do Batch.Save()
+	
+	Do $$$AssertTrue(Batch.IsWegwerppallet)
+	
+	Do Batch.Delete()
+]]></Implementation>
+</Method>
+
 <Method name="CreateTestData">
 <Private>1</Private>
 <Implementation><![CDATA[