Index: APPS/VisiDot/Tech.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/Tech.cls.xml	(revision 0)
+++ APPS/VisiDot/Tech.cls.xml	(revision 1839)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.Tech">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ZoekSleutel">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfObjects,Sleutel:%String</FormalSpec>
+</Method>
+
+<Method name="AddSleutelWaarde">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfObjects,Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0</FormalSpec>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1808 -r1839
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1808)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1839)
@@ -130,7 +130,7 @@
 </Method>
 
 <Method name="AddErrorMessage">
-<FormalSpec>Titel,Omschrijving</FormalSpec>
+<FormalSpec>Titel:%String,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ErrorMessage=##class(APPS.VisiDot.dto.ErrorMessage).%New()
 	Set ErrorMessage.Message=Omschrijving
@@ -141,6 +141,8 @@
 	
 	/// ERP ReadStatus instellen
 	Do ..ZetReadStatus(##class(APPS.VisiDot.enu.ResultCodes).Fout())
+	
+	Do ##class(vhLib.Logger).%New("APPS.VisiDot").Warning(Titel,Omschrijving)
 ]]></Implementation>
 </Method>
 
@@ -204,7 +206,7 @@
 	Quit:'$isObject(Director) ""
 	Quit:'$isObject(Director.ReadData) ""
 	
-	Set ReadData=..ZoekSleutel(Director.ReadData,Sleutel)
+	Set ReadData=##class(APPS.VisiDot.impl.Tech).ZoekSleutel(Director.ReadData,Sleutel)
 	Quit:'$isObject(ReadData) ""
 	Quit ReadData.Value
 ]]></Implementation>
@@ -215,7 +217,7 @@
 <Implementation><![CDATA[
 	Set Director=..GeefDirector()
 	Set:'$isObject(Director.ReadData) Director.ReadData=##class(%ListOfObject).%New()
-	Do ..AddSleutelWaarde(Director.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
+	Do ##class(APPS.VisiDot.impl.Tech).AddSleutelWaarde(Director.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
 ]]></Implementation>
 </Method>
 
@@ -227,7 +229,7 @@
 	Quit:'$isObject(ERP) ""
 	Quit:'$isObject(ERP.ReadData) ""
 	
-	Set ReadData=..ZoekSleutel(ERP.ReadData,Sleutel)
+	Set ReadData=##class(APPS.VisiDot.impl.Tech).ZoekSleutel(ERP.ReadData,Sleutel)
 	Quit:'$isObject(ReadData) ""
 	Quit ReadData.Value
 ]]></Implementation>
@@ -238,48 +240,10 @@
 <Implementation><![CDATA[
 	Set ERP=..GeefERP()
 	Set:'$isObject(ERP.ReadData) ERP.ReadData=##class(%ListOfObject).%New()
-	Do ..AddSleutelWaarde(ERP.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
+	Do ##class(APPS.VisiDot.impl.Tech).AddSleutelWaarde(ERP.ReadData,Sleutel,Waarde, BewaarVoorHergebruik)
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekSleutel">
-<FormalSpec>List,Sleutel</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Quit:'$isObject(List) ""
-	Set it=##class(TECH.ListIterator).%New(List)
-	Set Found=0
-	While (it.HasNext()) && ('Found)
-	{
-		Set ReadData=it.Next()
-		Continue:'$isobject(ReadData)
-		Set:ReadData.Name=Sleutel Found=1
-	}
-	Quit:'Found ""
-	Quit ReadData
-]]></Implementation>
-</Method>
-
-<Method name="AddSleutelWaarde">
-<FormalSpec>List,Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0</FormalSpec>
-<Implementation><![CDATA[
-	Set ReadData=..ZoekSleutel(List,Sleutel)
-	If $isobject(ReadData)
-	{
-		Set ReadData.Value=Waarde
-		Set ReadData.Value=Waarde
-	}
-	Else
-	{
-		Set ReadData=##class(APPS.VisiDot.dto.ReadData).%New()
-		Set ReadData.Name=Sleutel
-		Set ReadData.Value=Waarde
-		Set:(BewaarVoorHergebruik'=0) ReadData.Preserved=BewaarVoorHergebruik
-		Do List.Insert(ReadData)
-	}
-]]></Implementation>
-</Method>
-
 <Method name="ZetReadStatus">
 <FormalSpec>Status:APPS.VisiDot.enu.ResultCodes</FormalSpec>
 <Private>1</Private>
Index: APPS/VisiDot/impl/VHossCaptureHelper.cls.xml
===================================================================
diff -u -r1791 -r1839
--- APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1791)
+++ APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1839)
@@ -15,8 +15,7 @@
 <FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo,ProductionHelper:ProductionHelper=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ProductionHelper=
-	ProductionHelper
+	Set ..ProductionHelper=ProductionHelper
 	Do ##super(CaptureInfo)
 	Quit $$$OK
 ]]></Implementation>
@@ -68,12 +67,16 @@
 
 <Method name="IsLadeID">
 <FormalSpec>ID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..ProductionHelper.IsLadeID(ID)
 ]]></Implementation>
 </Method>
 
 <Method name="IsFrameID">
 <FormalSpec>ID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..ProductionHelper.IsFrameID(ID)
 ]]></Implementation>
 </Method>
@@ -91,6 +94,7 @@
 </Method>
 
 <Method name="GeefBatchID">
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	
 	//Quit ..GeefERPSleutelWaarde("BatchID")
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r1812 -r1839
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1812)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1839)
@@ -278,7 +278,7 @@
 		}
 		ElseIf ..CaptureHelper.IsSlotDetection(Detection)
 		{
-			; niets doen
+			Do ##class(vhLib.Logger).%New("APPS.VisiDot").Warning("BepaalVHossIDs","SlotDetection, maar geen specifieke implementatie van Frame of Lade ("_Detection.Selected_","_Detection.Id_")")
 		}
 		ElseIf ..CaptureHelper.IsDubbeleDetection(Detection)
 		{
Index: APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml
===================================================================
diff -u -r1791 -r1839
--- APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml	(.../VHossSlotDetectionHelper.cls.xml)	(revision 1791)
+++ APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml	(.../VHossSlotDetectionHelper.cls.xml)	(revision 1839)
@@ -8,6 +8,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefSlotNr">
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 		Set Dual=..Detection.DUAL.GetAt(1)
 		Quit:'$isObject(Dual) ""
Index: APPS/VisiDot/dto/Detection.cls.xml
===================================================================
diff -u -r1787 -r1839
--- APPS/VisiDot/dto/Detection.cls.xml	(.../Detection.cls.xml)	(revision 1787)
+++ APPS/VisiDot/dto/Detection.cls.xml	(.../Detection.cls.xml)	(revision 1839)
@@ -154,7 +154,7 @@
 Y : een correct ingelezen barcode
 Nonasset : een frame detectie van een VHhoss
 Unlabeled : geen barcode gevonden</Description>
-<Type>%String</Type>
+<Type>APPS.VisiDot.enu.DetectionTypes</Type>
 <Parameter name="MAXLEN"/>
 <Parameter name="XMLNAME" value="Selected"/>
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
@@ -175,7 +175,7 @@
 </Property>
 
 <Property name="Color">
-<Type>%String</Type>
+<Type>APPS.VisiDot.enu.DetectionKleur</Type>
 <Parameter name="MAXLEN"/>
 <Parameter name="XMLNAME" value="Color"/>
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
Index: PV VisiDot.prj.xml
===================================================================
diff -u -r1808 -r1839
--- PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 1808)
+++ PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 1839)
@@ -1,11 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV VisiDot" LastModified="2011-08-12 18:00:04">
+<Project name="PV VisiDot" LastModified="2011-08-19 15:59:55">
   <Items>
     <ProjectItem name="APPS.Halux.common.BatchService" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.impl.BatchImpl" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.Controleur" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.ControleurFactory" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.Tech" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.Camera" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.CaptureInfo" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.Coordinate" type="CLS"/>
@@ -36,6 +37,7 @@
     <ProjectItem name="APPS.VisiDot.impl.DetectionIterator" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.ProductionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.QueueHelper" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.Tech" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossCaptureHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossControleurEnd" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossControleurZijkant" type="CLS"/>
@@ -50,7 +52,9 @@
     <ProjectItem name="DS.PPS.TBX.sub.emWPVerpak" type="CLS"/>
     <ProjectItem name="WS.VisiDot.OperatorServer" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestCaptureHelper" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.VisiDot.TestDetectionHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestVHoss" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.VisiDot.TestVHossCaptureHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestVHossXML" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildQueue" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture" type="CLS"/>
Index: vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml	(revision 1839)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VisiDot.TestDetectionHelper">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","APPS.VisiDot.TestDetectionHelper")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CaptureHelper">
+<Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<Description>
+Opzetten van de VHossBuilder</Description>
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	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)
+	Set BatchID=QueueBuilder.BuildBatch()
+	Set VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
+	Set Capture=VHossBuilder.CorrectVHoss(1,1)
+	Set ..CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(Capture,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDetectie">
+<FormalSpec>DetectieNr:%Integer,CameraNr:%Integer=1</FormalSpec>
+<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)
+	Set Detection = Sequence.Camera.GetAt(CameraNr).Photo.GetAt(1).Detection.GetAt(DetectieNr)		
+	Quit Detection
+]]></Implementation>
+</Method>
+
+<Method name="TestZetStatus">
+<Implementation><![CDATA[
+	Set Detection = ..GeefDetectie(1)
+	Set DetectionHelper = ##class(APPS.VisiDot.impl.DetectionHelper).%New(Detection,..CaptureHelper)
+	
+	Do $$$AssertEquals(DetectionHelper.GeefID(),9999901100418589,"Correctie ID via DetectionHelper")
+	
+	Set Kleur = ##class(APPS.VisiDot.enu.DetectionKleur).Groen()
+	Set ToolTip = "UnitTest Tool Tip"
+	Do DetectionHelper.ZetStatus(Kleur,ToolTip)
+	
+	Set Detection = DetectionHelper.GeefData()
+	Do $$$AssertEquals(Detection.Color,Kleur,"Detection kleur is correct.")
+	Do $$$AssertEquals(Detection.ToolTip,ToolTip,"Detection ToolTip is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestZetData">
+<Implementation><![CDATA[
+	Set Detection = ..GeefDetectie(1)	
+	Set DetectionHelper = ##class(APPS.VisiDot.impl.DetectionHelper).%New(Detection,..CaptureHelper)
+	
+	Set Sleutel = "UnitTestKey"
+	Set Waarde = "UnitTestValue DetectionHelper"
+	Do DetectionHelper.ZetData(Sleutel,Waarde)
+	
+	Set Detection = DetectionHelper.GeefData()
+	
+	Set ReadData = Detection.ReadData.GetAt(1)
+	Do $$$AssertEquals(ReadData.Name,Sleutel,"Sleutel is correct.")
+	Do $$$AssertEquals(ReadData.Value,Waarde,"Waarde is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestFrameDetectionHelper">
+<Implementation><![CDATA[
+	Set Detection = ..GeefDetectie(1,2)
+	Set DetectionHelper = ##class(APPS.VisiDot.impl.VHossFrameDetectionHelper).%New(Detection,..CaptureHelper)		
+	Do $$$AssertEquals(DetectionHelper.GeefID(),"O110000077","Correct FrameID voor detectie.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSlotDetectionHelper">
+<Implementation><![CDATA[
+	Set Detection = ..GeefDetectie(1)
+	Set DetectionHelper = ##class(APPS.VisiDot.impl.VHossSlotDetectionHelper).%New(Detection,..CaptureHelper)		
+	Do $$$AssertEquals(DetectionHelper.GeefSlotNr(),11,"Correct SlotNr voor eerste detectie.")
+	
+	Set Detection = ..GeefDetectie(2)
+	Set DetectionHelper = ##class(APPS.VisiDot.impl.VHossSlotDetectionHelper).%New(Detection,..CaptureHelper)		
+	Do $$$AssertEquals(DetectionHelper.GeefSlotNr(),12,"Correct SlotNr voor tweede detectie.")
+	
+	Set Detection = ..GeefDetectie(11)
+	Set DetectionHelper = ##class(APPS.VisiDot.impl.VHossSlotDetectionHelper).%New(Detection,..CaptureHelper)		
+	Do $$$AssertEquals(DetectionHelper.GeefSlotNr(),21,"Correct SlotNr voor elfde detectie.")
+]]></Implementation>
+</Method>
+
+<Method name="TestLadeDetectionHelper">
+<Implementation><![CDATA[
+	Set Detection = ..GeefDetectie(1)
+	Set DetectionHelper = ##class(APPS.VisiDot.impl.VHossLadeDetectionHelper).%New(Detection,..CaptureHelper)		
+
+	Do $$$AssertEquals(DetectionHelper.GeefBatchID(),99999,"BatchID is correct voor eerste detectie.")
+	Do $$$AssertEquals(DetectionHelper.GeefVHossVolgNr(),1,"VHossVolgNr is correct voor eerste detectie.")
+	Do $$$AssertEquals(DetectionHelper.GeefVHossZijkant(),1,"VHossZijkant is correct voor eerste detectie.")
+
+	Set Detection = ..GeefDetectie(8,2)
+	Set DetectionHelper = ##class(APPS.VisiDot.impl.VHossLadeDetectionHelper).%New(Detection,..CaptureHelper)		
+
+	Do $$$AssertEquals(DetectionHelper.GeefBatchID(),99999,"BatchID is correct voor achtste detectie, camera2.")
+	Do $$$AssertEquals(DetectionHelper.GeefVHossVolgNr(),1,"VHossVolgNr is correct voor achtste detectie, camera2.")
+	Do $$$AssertEquals(DetectionHelper.GeefVHossZijkant(),1,"VHossZijkant is correct voor achtste detectie, camera2.")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/DetectionHelper.cls.xml
===================================================================
diff -u -r1808 -r1839
--- APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 1808)
+++ APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 1839)
@@ -27,6 +27,7 @@
 </Method>
 
 <Method name="GeefID">
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..Detection.Id
 ]]></Implementation>
 </Method>
@@ -38,20 +39,18 @@
 </Method>
 
 <Method name="ZetStatus">
-<FormalSpec>Kleur,ToolTip</FormalSpec>
+<FormalSpec>Kleur:APPS.VisiDot.enu.DetectionKleur,ToolTip:%String</FormalSpec>
 <Implementation><![CDATA[
-	;Write:Kleur'="GREEN" "!!!Detection Zetstatus ",..Detection.Id,":",Kleur," ",$G(ToolTip),!
-
 	Set ..Detection.Color=Kleur
 	Set ..Detection.ToolTip=$G(ToolTip)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetData">
-<FormalSpec>Sleutel,Waarde</FormalSpec>
+<FormalSpec>Sleutel:%String,Waarde:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set:'$isObject(..Detection.ReadData) ..Detection.ReadData=##class(%ListOfObject).%New()
-	Do ..CaptureHelper.AddSleutelWaarde(..Detection.ReadData,Sleutel,Waarde)
+	Do ##class(APPS.VisiDot.impl.Tech).AddSleutelWaarde(..Detection.ReadData,Sleutel,Waarde)
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/Tech.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/Tech.cls.xml	(revision 1839)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.Tech">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VisiDot.Tech</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ZoekSleutel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfObjects,Sleutel:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(List) ""
+	Set it=##class(TECH.ListIterator).%New(List)
+	Set Found=0
+	While (it.HasNext()) && ('Found)
+	{
+		Set ReadData=it.Next()
+		Continue:'$isobject(ReadData)
+		Set:ReadData.Name=Sleutel Found=1
+	}
+	Quit:'Found ""
+	Quit ReadData
+]]></Implementation>
+</Method>
+
+<Method name="AddSleutelWaarde">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfObjects,Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+	Set ReadData=..ZoekSleutel(List,Sleutel)
+	If $isobject(ReadData)
+	{
+		Set ReadData.Value=Waarde
+		Set ReadData.Value=Waarde
+	}
+	Else
+	{
+		Set ReadData=##class(APPS.VisiDot.dto.ReadData).%New()
+		Set ReadData.Name=Sleutel
+		Set ReadData.Value=Waarde
+		Set:(BewaarVoorHergebruik'=0) ReadData.Preserved=BewaarVoorHergebruik
+		Do List.Insert(ReadData)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WS/VisiDot/OperatorServer.cls.xml
===================================================================
diff -u -r1808 -r1839
--- WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1808)
+++ WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1839)
@@ -34,6 +34,9 @@
 </UDLText>
 
 <Property name="Controleur">
+<Description>
+Parameter XMLTYPE = "Action";
+Parameter WSADDRESSING = "AUTO";</Description>
 <Type>APPS.VisiDot.Controleur</Type>
 <Private>1</Private>
 </Property>
@@ -54,7 +57,12 @@
 <FormalSpec/>
 <ReturnType>%Integer</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit 1
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Set ComputerNaam = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
+	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("Ping IN", "["_ComputerNaam_"]")
+	$$$TECHErrorTrapOff
+	Quit 1
 ]]></Implementation>
 </Method>
 
@@ -64,8 +72,15 @@
 <FormalSpec><![CDATA[ActionType:APPS.VisiDot.enu.ActionCodes,CaptureInfo:APPS.VisiDot.dto.CaptureInfo(XMLNAME="Capture_Info"),&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Set ComputerNaam = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
+	Set XML = ""
+	Do CaptureInfo.XMLExportToString(.XML,,"literal")
+	Do ##class(vhLib.Logger).%New("WS.VisiDot").Info("CaptureInfo IN", "["_ComputerNaam_"] "_ActionType_" -> "_XML)
+	
 	Do ..GeefControleur(ActionType,CaptureInfo)
 	Do ..Controleur.UpdateData(.ResultDesc,.ProcessedData)
+	$$$TECHErrorTrapOff
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml	(revision 1839)
@@ -0,0 +1,148 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VisiDot.TestVHossCaptureHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CaptureHelper">
+<Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
+</Property>
+
+<Parameter name="LadeDetectionClassName">
+<Type>%String</Type>
+<Default>APPS.VisiDot.impl.VHossLadeDetectionHelper</Default>
+</Parameter>
+
+<Parameter name="FrameDetectionClassName">
+<Type>%String</Type>
+<Default>APPS.VisiDot.impl.VHossFrameDetectionHelper</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<Description>
+Opzetten van de VHossBuilder</Description>
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	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)
+	Set BatchID=QueueBuilder.BuildBatch()
+	Set VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
+	Set Capture=VHossBuilder.CorrectVHoss(1,1)
+	Set ..CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(Capture,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDetectie">
+<FormalSpec>DetectieNr:%Integer,CameraNr:%Integer=1</FormalSpec>
+<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)
+	Set Detection = Sequence.Camera.GetAt(CameraNr).Photo.GetAt(1).Detection.GetAt(DetectieNr)		
+	Quit Detection
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefDetectionHelper">
+<Implementation><![CDATA[
+	Set Detection = ..GeefDetectie(1)
+	Set DetectionHelper = ..CaptureHelper.GeefDetectionHelper(Detection)
+	Do $$$AssertEquals(DetectionHelper.%ClassName(1),..#LadeDetectionClassName,"Correcte DetectionHelper : Lade gekregen.")
+	
+	Set Detection = ..GeefDetectie(1,2)
+	Set DetectionHelper = ..CaptureHelper.GeefDetectionHelper(Detection)
+	Do $$$AssertEquals(DetectionHelper.%ClassName(1),..#FrameDetectionClassName,"Correcte DetectionHelper : Lade gekregen.")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsLadeDetection">
+<Implementation><![CDATA[
+	Set Detection = ##class(APPS.VisiDot.dto.Detection).%New()
+	Set Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Lade()
+	Set Detection.Id = "9999901100418589"		
+	Set IsLadeDetection = ..CaptureHelper.IsLadeDetection(Detection)	
+	Do $$$AssertTrue(IsLadeDetection,"IsLadeDetection heeft correct een detection als lade geïdentificeerd.")
+	
+	Set Detection.Id = "99999-11e041a589"		
+	Set IsLadeDetection = ..CaptureHelper.IsLadeDetection(Detection)	
+	Do $$$AssertFalse(IsLadeDetection,"IsLadeDetection heeft correct een detection als NIET-lade geïdentificeerd.")	
+	
+	Set Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Frame()
+	Set Detection.Id = "9999901100418589"		
+	Set IsLadeDetection = ..CaptureHelper.IsLadeDetection(Detection)	
+	Do $$$AssertFalse(IsLadeDetection,"IsLadeDetection heeft correct een detection als NIET-lade geïdentificeerd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsFrameDetection">
+<Implementation><![CDATA[
+	Set Detection = ##class(APPS.VisiDot.dto.Detection).%New()
+	Set Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Frame()
+	Set Detection.Id = "O110000077"		
+	Set IsFrameDetection = ..CaptureHelper.IsFrameDetection(Detection)	
+	Do $$$AssertTrue(IsFrameDetection,"IsFrameDetection heeft correct een detection als Frame geïdentificeerd.") 	
+	
+	Set Detection.Id = "1110000077"		
+	Set IsFrameDetection = ..CaptureHelper.IsFrameDetection(Detection)	
+	Do $$$AssertFalse(IsFrameDetection,"IsFrameDetection heeft correct een detection als NIET-Frame geïdentificeerd.") 	
+	
+	Set Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Lade()
+	Set Detection.Id = "O110000077"		
+	Set IsFrameDetection = ..CaptureHelper.IsFrameDetection(Detection)	
+	Do $$$AssertFalse(IsFrameDetection,"IsFrameDetection heeft correct een detection als NIET-Frame geïdentificeerd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsDubbeleDetection">
+<Implementation><![CDATA[
+	Set Detection = ##class(APPS.VisiDot.dto.Detection).%New()
+	Set Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Dubbel()
+	Set Detection.Id = "9999901100418589"		
+	Set IsDubbeleDetection = ..CaptureHelper.IsDubbeleDetection(Detection)	
+	Do $$$AssertTrue(IsDubbeleDetection,"IsDubbeleDetection heeft correct een detection als Dubbel geïdentificeerd.") 	
+	
+	Set Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Lade()
+	Set Detection.Id = "9999901100418589"		
+	Set IsDubbeleDetection = ..CaptureHelper.IsDubbeleDetection(Detection)	
+	Do $$$AssertFalse(IsDubbeleDetection,"IsDubbeleDetection heeft correct een detection als NIET-Dubbel geïdentificeerd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestIsLegeDetection">
+<Implementation><![CDATA[
+	Set Detection = ##class(APPS.VisiDot.dto.Detection).%New()
+	Set Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Leeg()
+	Set Detection.Id = "9999901100418589"		
+	Set IsLegeDetection = ..CaptureHelper.IsLegeDetection(Detection)	
+	Do $$$AssertTrue(IsLegeDetection,"IsLegeDetection heeft correct een detection als Leeg geïdentificeerd.") 	
+	
+	Set Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Lade()
+	Set Detection.Id = "9999901100418589"		
+	Set IsLegeDetection = ..CaptureHelper.IsLegeDetection(Detection)	
+	Do $$$AssertFalse(IsLegeDetection,"IsLegeDetection heeft correct een detection als NIET-Dubbel geïdentificeerd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestZetBatchID">
+<Implementation><![CDATA[
+	Set BatchID = 12312
+	Do ..CaptureHelper.ZetBatchID(BatchID)
+	
+	Do $$$AssertEquals(..CaptureHelper.GeefBatchID(),BatchID,"BatchID is correct gezet en uitgelezen.")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml
===================================================================
diff -u -r1808 -r1839
--- vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml	(.../TestCaptureHelper.cls.xml)	(revision 1808)
+++ vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml	(.../TestCaptureHelper.cls.xml)	(revision 1839)
@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.VisiDot.TestCaptureHelper">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/display=all/debug","APPS.VisiDot.TestCaptureHelper")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -38,7 +40,6 @@
 <Method name="TestStatusLight">
 <Implementation><![CDATA[
 	
-	
 	Do ..CaptureHelper.ZetStatusLight(##class(APPS.VisiDot.enu.FoutTypes).Systeem())	
 	Set Data = ..CaptureHelper.GeefData()
 	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).BuzzerStatus,"Yes","StatusLight BuzzerStatus correct.")
@@ -89,7 +90,6 @@
 	Do ..CaptureHelper.ZetFoutCode(FoutCode)	
 	Do $$$AssertEquals(..CaptureHelper.GeefFoutCode(),FoutCode,"FoutCode in ERP is correct.")
 	
-	
 	Set FoutCode = ##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend()	
 	Do ..CaptureHelper.ZetFoutCode(FoutCode)	
 	Do $$$AssertEquals(..CaptureHelper.GeefFoutCode(),FoutCode,"FoutCode in ERP is correct.")