Index: vhUnitTest/APPS/Halux/common/impl/BatchImpl/WisOnbestaandeToeleveringen/BatchMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/BatchImpl/WisOnbestaandeToeleveringen/BatchMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/BatchImpl/WisOnbestaandeToeleveringen/BatchMock.cls.xml	(revision 57122)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.BatchImpl.WisOnbestaandeToeleveringen.BatchMock">
+<Super>APPS.Halux.common.impl.BatchImpl,Tools.Mock.MockClassBase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Alle nodige methods mogen mockable gemaakt worden, behalve de te testen method WisOnbestaandeToeleveringen() 
+
+]]></Content>
+</UDLText>
+
+<Method name="%OnNew">
+<FormalSpec>Lijn:APPS.Halux.common.enu.ProductieLijn="",ToeleveringIds:%ListOfDataTypes=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If $IsObject(ToeleveringIds) {
+		Set ..Toeleveringen = ToeleveringIds
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefID")
+]]></Implementation>
+</Method>
+
+<Method name="IsReedsGestart">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsReedsGestart")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToeleveringViaID">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerwijderToeleveringViaID",ToeleveringID)
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Save")
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>BatchMockDefaultData</DefaultData>
+<Data name="BatchMockDefaultData">
+<Subscript>"BatchMock"</Subscript>
+<Value name="1">
+<Value>FormalSpecParser</Value>
+</Value>
+<Value name="2">
+<Value>MethodCallStubs</Value>
+</Value>
+<Value name="3">
+<Value>IsMethodCallVerwacht</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/common/impl/BatchImpl/WisOnbestaandeToeleveringen/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/common/impl/BatchImpl/WisOnbestaandeToeleveringen/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/common/impl/BatchImpl/WisOnbestaandeToeleveringen/Test.cls.xml	(revision 57122)
@@ -0,0 +1,105 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.common.impl.BatchImpl.WisOnbestaandeToeleveringen.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Bij batch zonder toeleveringen kan niets gewist worden">
+<Implementation><![CDATA[
+	Set BatchMock = ##class(vhUnitTest.APPS.Halux.common.impl.BatchImpl.WisOnbestaandeToeleveringen.BatchMock).%New("","")
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn($$$False)
+	Do BatchMock.VerwachtMethodCall("VerwijderToeleveringViaID",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
+	Do BatchMock.VerwachtMethodCall("Save").DanDoeNiks()
+	
+	#dim Batch As APPS.Halux.common.impl.BatchImpl = BatchMock   ; De te testen method "WisOnbestaandeToeleveringen" staat op dezelfde klasse als de uit te mocken methods "IsReedsGestart" en andere.
+	Do Batch.WisOnbestaandeToeleveringen()
+	
+	Do BatchMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij batch met enkel bestaande toeleveringen, wordt niets gewist">
+<Implementation><![CDATA[
+	#dim ToeleveringIds As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(222222,222223,222224)
+	
+	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ToeleveringApiMock.VerwachtMethodCall("BestaatToelevering",222222).DanReturn($$$True)
+	Do ToeleveringApiMock.VerwachtMethodCall("BestaatToelevering",222223).DanReturn($$$True)
+	Do ToeleveringApiMock.VerwachtMethodCall("BestaatToelevering",222224).DanReturn($$$True)
+	
+	Set BatchMock = ##class(vhUnitTest.APPS.Halux.common.impl.BatchImpl.WisOnbestaandeToeleveringen.BatchMock).%New("",ToeleveringIds)
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn($$$False)
+	Do BatchMock.VerwachtMethodCall("VerwijderToeleveringViaID",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
+	Do BatchMock.VerwachtMethodCall("Save").ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim Batch As APPS.Halux.common.impl.BatchImpl = BatchMock
+	Do Batch.WisOnbestaandeToeleveringen()
+	
+	Do BatchMock.Verifieer()
+	Do ToeleveringApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij batch met een onbestaande toelevering, wordt die toelevering gewist">
+<Implementation><![CDATA[
+	#dim ToeleveringIds As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(222222,222223,222224)
+	
+	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering",222222).DanReturn($$$True)
+	Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering",222223).DanReturn($$$False)
+	Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering",222224).DanReturn($$$True)
+	
+	Set BatchMock = ##class(vhUnitTest.APPS.Halux.common.impl.BatchImpl.WisOnbestaandeToeleveringen.BatchMock).%New("",ToeleveringIds)
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn($$$False)
+	Do BatchMock.VerwachtMethodCall("GeefID").DanReturn("UT_BatchID")
+	Do BatchMock.VerwachtMethodCall("VerwijderToeleveringViaID",222223).DanDoeNiks()
+	Do BatchMock.VerwachtMethodCall("Save").ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim Batch As APPS.Halux.common.impl.BatchImpl = BatchMock
+	Do Batch.WisOnbestaandeToeleveringen()
+	
+	Do BatchMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij batch met slecht 1 toelevering, die niet bestaat, wordt die toelevering gewist">
+<Description><![CDATA[
+Deze method om te tonen wat er gebeurt wanneer de laatste (enige) toelevering wordt gewist --> momenteel niks bijzonder. ]]></Description>
+<Implementation><![CDATA[
+	#dim ToeleveringIds As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(222222)
+	
+	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering",222222).DanReturn($$$False)
+	
+	Set BatchMock = ##class(vhUnitTest.APPS.Halux.common.impl.BatchImpl.WisOnbestaandeToeleveringen.BatchMock).%New("",ToeleveringIds)
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn($$$False)
+	Do BatchMock.VerwachtMethodCall("GeefID").DanReturn("UT_BatchID")
+	Do BatchMock.VerwachtMethodCall("VerwijderToeleveringViaID",222222).DanDoeNiks()
+	Do BatchMock.VerwachtMethodCall("Save").ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim Batch As APPS.Halux.common.impl.BatchImpl = BatchMock
+	Do Batch.WisOnbestaandeToeleveringen()
+	
+	Do BatchMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij gestarte batch wordt niets gewist">
+<Implementation><![CDATA[
+	#dim ToeleveringIds As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(222222,222223,222224)
+	
+	Set BatchMock = ##class(vhUnitTest.APPS.Halux.common.impl.BatchImpl.WisOnbestaandeToeleveringen.BatchMock).%New("",ToeleveringIds)
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").DanReturn($$$True)
+	Do BatchMock.VerwachtMethodCall("GeefID").DanReturn("UT_BatchID")
+	Do BatchMock.VerwachtMethodCall("VerwijderToeleveringViaID",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
+	Do BatchMock.VerwachtMethodCall("Save").ExactAantalKeer(0).DanDoeNiks()
+	
+	#dim Batch As APPS.Halux.common.impl.BatchImpl = BatchMock
+	Do Batch.WisOnbestaandeToeleveringen()
+	
+	Do BatchMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>