Index: vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml
===================================================================
diff -u -r29059 -r31183
--- vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml	(.../TestDetectionHelper.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml	(.../TestDetectionHelper.cls.xml)	(revision 31183)
@@ -1,21 +1,19 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.VisiDot.TestDetectionHelper">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","APPS.VisiDot.TestDetectionHelper")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="CaptureHelper">
-<Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
-</Property>
-
 <Parameter name="Type">
 <Type>%String</Type>
 <Default>I</Default>
 </Parameter>
 
+<Property name="CaptureHelper">
+<Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
+</Property>
+
 <Property name="ToeleveringID">
 <Type>%Integer</Type>
 </Property>
@@ -28,8 +26,9 @@
 <Description>
 Opzetten van de VHossBuilder</Description>
 <FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	do ##super(aTestName)
+	
 	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()	
 	#dim BatchID As %String = 99999
 	#dim SlotLabel As %String =0
@@ -51,18 +50,17 @@
 	Set VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
 	#dim Capture As APPS.VisiDot.dto.CaptureInfo = VHossBuilder.CorrectVHoss(1,1)
 	Set ..CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(Capture)
-	
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	do ##super(aTestName)
 	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
 	k ^UPRCP("B","TB")
+
+	do ##super(aTestName)
 ]]></Implementation>
 </Method>
 
@@ -71,8 +69,8 @@
 <Private>1</Private>
 <ReturnType>APPS.VisiDot.dto.Detection</ReturnType>
 <Implementation><![CDATA[
-	Set CaptureInfo = ..CaptureHelper.GeefData()
-	Set Sequence = CaptureInfo.VRRead.GetAt(1).Reader.GetAt(1).Sequence.GetAt(1)
+	#dim CaptureInfo As APPS.VisiDot.dto.CaptureInfo = ..CaptureHelper.GeefData()
+	#dim Sequence As APPS.VisiDot.dto.Reader = CaptureInfo.VRRead.GetAt(1).Reader.GetAt(1).Sequence.GetAt(1)
 	#dim Detection As APPS.VisiDot.dto.Detection = Sequence.Camera.GetAt(CameraNr).Photo.GetAt(1).Detection.GetAt(DetectieNr)		
 	Quit Detection
 ]]></Implementation>
@@ -85,8 +83,8 @@
 	
 	Do $$$AssertEquals(DetectionHelper.GeefID(),"99999011000"_..ProductID,"Correctie ID via DetectionHelper")
 	
-	Set Kleur = ##class(APPS.VisiDot.enu.DetectionKleur).Groen()
-	Set ToolTip = "UnitTest Tool Tip"
+	#dim Kleur As APPS.VisiDot.enu.DetectionKleur = ##class(APPS.VisiDot.enu.DetectionKleur).Groen()
+	#dim ToolTip As %String = "UnitTest Tool Tip"
 	Do DetectionHelper.ZetStatus(Kleur,ToolTip)
 	
 	Set Detection = DetectionHelper.GeefData()
@@ -106,7 +104,7 @@
 	
 	Set Detection = DetectionHelper.GeefData()
 	
-	Set AssetData = Detection.AssetData.GetAt(1)
+	#dim AssetData As APPS.VisiDot.dto.ReadData = Detection.AssetData.GetAt(1)
 	Do $$$AssertEquals(AssetData.Name,Sleutel,"Sleutel is correct.")
 	Do $$$AssertEquals(AssetData.Value,Waarde,"Waarde is correct.")
 ]]></Implementation>