Index: vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml
===================================================================
diff -u -r2079 -r2783
--- vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml	(.../TestVHossCaptureHelper.cls.xml)	(revision 2079)
+++ vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml	(.../TestVHossCaptureHelper.cls.xml)	(revision 2783)
@@ -19,6 +19,10 @@
 <Default>APPS.VisiDot.impl.VHossFrameDetectionHelper</Default>
 </Parameter>
 
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <Description>
 Opzetten van de VHossBuilder</Description>
@@ -28,13 +32,17 @@
 	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()	
 	Set BatchID=99999
 	Set SlotLabel=0
-	Set TOENr=234567
 	Set KLNr=1239
 	Set SequenceNr=0
 	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)
@@ -44,6 +52,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="GeefDetectie">
 <FormalSpec>DetectieNr:%Integer,CameraNr:%Integer=1</FormalSpec>
 <Private>1</Private>