Index: vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml
===================================================================
diff -u -r1866 -r2783
--- vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml	(.../TestCaptureHelper.cls.xml)	(revision 1866)
+++ vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml	(.../TestCaptureHelper.cls.xml)	(revision 2783)
@@ -11,6 +11,10 @@
 <Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
 </Property>
 
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <Description>
 Opzetten van de VHossBuilder</Description>
@@ -27,7 +31,12 @@
 	Set QueueList = "418581;3;1.1\418582;2;1.1\418588;4;1.1\418589;4;1.1\418609;5;1.1\418703;2;1.1\418704;1;1.1\418715;4;1.1\"
 	Set QueueList = QueueList _"427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2"
 	
-	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
+	/// Toelevering opzetten
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set LeverancierID = ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
+	Set ..ToeleveringID = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList)
+	
+	Do QueueBuilder.Initialize(BatchID,SlotLabel,..ToeleveringID,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
 	Set VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
 	Set Capture=VHossBuilder.CorrectVHoss(1,1)
@@ -37,6 +46,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
+	k ^UPRCP("B","TB")
+	Quit ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestStatusLight">
 <Implementation><![CDATA[