Index: vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml
===================================================================
diff -u -r56700 -r61321
--- vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 56700)
+++ vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 61321)
@@ -424,78 +424,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Bij default is IsWegwerppallet False">
-<Implementation><![CDATA[
-	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.Save()
-	
-	Do $$$AssertFalse(Batch.GeefIsWegwerpPallet())
-	
-	Do Batch.Delete()
-]]></Implementation>
-</Method>
-
-<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)
-	
-	#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($$$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 Batch As APPS.Halux.common.Batch = BatchService.MaakNieuweLegeBatch(13,##class(APPS.Halux.common.enu.Categorie).Tandembox())
-	Do Batch.VoegToeToelevering(ToeleveringStub)
-	Do Batch.Save()
-	
-	Do $$$AssertFalse(Batch.GeefIsWegwerpPallet())
-	
-	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.GeefIsWegwerpPallet())
-	
-	Do Batch.Delete()
-]]></Implementation>
-</Method>
-
 <Method name="CreateTestData">
 <Private>1</Private>
 <Implementation><![CDATA[