Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r1749 -r1808
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 1749)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 1808)
@@ -143,7 +143,7 @@
 
 <Method name="GeefQueueHelper">
 <FormalSpec>QueueElement</FormalSpec>
-<Implementation><![CDATA[	Quit ##class(QueueHelper).%New(QueueElement)
+<Implementation><![CDATA[	Quit ##class(APPS.VisiDot.impl.QueueHelper).%New(QueueElement)
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/dto/CaptureInfo.cls.xml
===================================================================
diff -u -r1791 -r1808
--- APPS/VisiDot/dto/CaptureInfo.cls.xml	(.../CaptureInfo.cls.xml)	(revision 1791)
+++ APPS/VisiDot/dto/CaptureInfo.cls.xml	(.../CaptureInfo.cls.xml)	(revision 1808)
@@ -12,7 +12,9 @@
 </Parameter>
 
 <Parameter name="XMLSEQUENCE">
-<Default>1</Default>
+<Description>
+JBL : XMLSEQUENCE uitgezet omdat volgorde van oude testbestanden niet overeenkwam met volgorde van tags in nieuwe testbestanden.</Description>
+<Default>0</Default>
 </Parameter>
 
 <Parameter name="XMLTYPE">
Index: APPS/VisiDot/zTryout.cls.xml
===================================================================
diff -u -r1768 -r1808
--- APPS/VisiDot/zTryout.cls.xml	(.../zTryout.cls.xml)	(revision 1768)
+++ APPS/VisiDot/zTryout.cls.xml	(.../zTryout.cls.xml)	(revision 1808)
@@ -31,12 +31,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Import">
-<Description>
-D ##class(APPS.VisiDot.zTryout).%New().Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
-D ##class(APPS.VisiDot.zTryout).%New().End("c:\","Stage_1_Reader_Source.xml")</Description>
-<FormalSpec>Dir,FileName</FormalSpec>
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/// D ##class(APPS.VisiDot.zTryout).%New().Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
+/// D ##class(APPS.VisiDot.zTryout).%New().End("c:\","Stage_1_Reader_Source.xml")
+Method Import(Dir, FileName)
+{
 	#include %occStatus
 	
 
@@ -52,15 +53,19 @@
 
 	If $$$ISERR(sc) w $$ParseStatus^vhLib(sc),!  q ""
 	Quit $G(CaptureInfo)
-]]></Implementation>
-</Method>
+}
+*/
+]]></Content>
+</UDLText>
 
 <Method name="Zijkant">
 <Description>
 D ##class(APPS.VisiDot.zTryout).%New().Zijkant()</Description>
 <Implementation><![CDATA[
-	Set Data=..Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
+	Set Data=..Import("C:\Share\VisiDot\","Stage_3_After_DUAL_Before_ERP.xml")
 	do ##class(WS.VisiDot.OperatorServer).%New().UpdateData("READ", Data, .ResultDesc, .ProcessedData)
+	Set CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	w "Zijkant ErrorCode : "_CaptureHelper.GeefFoutCode(),!
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -75,5 +80,83 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="Import">
+<FormalSpec>Dir,FileName</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VisiDot.dto.CaptureInfo</ReturnType>
+<Implementation><![CDATA[
+	#include %occStatus	
+	
+	Set reader = ##class(%XML.Reader).%New()
+	// Begin processing of the XML input
+	Set Dir = Dir
+	
+	set FullName = ##class(TECH.Files).AppendFile(Dir,FileName)
+	Set sc=reader.OpenFile(FullName)
+	
+	If $$$ISERR(sc)	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon XML bestand '"_FullName_"' niet openen : "_$$ParseStatus^vhLib(sc))) 
+
+	Do reader.Correlate("Capture_Info","APPS.VisiDot.dto.CaptureInfo") ;Associate a class name with the XML element name
+	
+	Set result=reader.Next(.CaptureInfo,.sc)
+
+	If $$$ISERR(sc)	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon XML bestand '"_FullName_"' niet lezen : "_$$ParseStatus^vhLib(sc))) 
+	
+	Quit $G(CaptureInfo)
+]]></Implementation>
+</Method>
+
+<Method name="Finish">
+<FormalSpec>ProcessedData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	Quit CaptureHelper.GeefFoutCode()
+]]></Implementation>
+</Method>
+
+<Method name="ShowVHoss">
+<Description>
+JBL - hulp method om visueel overzicht op te vragen
+Set Dir = "E:\Svn\CACHE\CacheAdminAUnitTests\APPS.VisiDot\Stage2_NormalRead_AllOk\"
+Set File = "ReadResults_ReadID00000182_Controller_Gate1_Status00_Time_20110814_153423_890_DUAL_(Stage_3_Before_DB_Insertion).xml"
+Set CaptureInfo = ..Import(Dir, File)
+d ##class(APPS.VisiDot.zTryout).%New().ShowVHoss(CaptureInfo)</Description>
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[
+	Set WebService = ##class(WS.VisiDot.OperatorServer).%New()
+	Do WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfo, .ResultDesc, .ProcessedData)
+	
+	Set ErrorCode=..Finish(ProcessedData)	
+	
+	Set VRRead = ProcessedData.VRRead.GetAt(1)
+
+	Set VHoss(1,1) = ""
+	
+	Set DetIt = ##class(APPS.VisiDot.impl.DetectionIterator).%New(CaptureInfo)
+	While (DetIt.HasNext()){
+			Set Detection = DetIt.Next()			
+			If (Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Lade()){
+				Set Dual = Detection.DUAL.GetAt(1)	
+				Set VHoss(Dual.RowInPallet,Dual.ColInPallet) = Detection.Id
+			}
+	}
+	
+	w !
+	/// Vhoss is omgekeerd van rijen
+	For Row = 3 : -1 : 1
+	{
+		w "| "
+		For Col = 1 : 1 : 10	 
+		{
+			If $Data(VHoss(Row,Col)){ w VHoss(Row,Col) } Else { w "---missing---" }
+			w " | "
+		}
+		w "||",!
+	}
+	w !
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml
===================================================================
diff -u -r1791 -r1808
--- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 1791)
+++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 1808)
@@ -29,10 +29,10 @@
 	Set SlotLabel=0
 	Set TOENr=234567
 	Set KLNr=1239
-	Set SequenceNr=0
-	Set QueueList = "418715;1;1.1\418582;1;1.1\418589;1;1.1\418582;2;1.1\"	
-	Set QueueList = QueueList_"418703;2;1.1\418589;2;1.1\418582;1;1.1\"
-	Set QueueList = QueueList_"418589;3;1.1\418703;2;1.1"
+	Set SequenceNr=0	
+	Set QueueList = "418715;1;1.1\418582;1;1.1\418589;1;1.1\418582;2;1.1\418588;3;1.1\418581;1;1.1\418609;1;1.1\"
+	Set QueueList = QueueList_"418703;1;1.1\418589;2;1.1\418703;1;1.1\418582;1;1.1\418581;2;1.1\418582;1;1.1\418715;1;1.1\418588;1;1.1"
+	Set QueueList = QueueList_"418589;3;1.1\418703;2;1.1\418582;1;1.1\418703;1;1.1\418704;1;1.1\418715:1:1.1\418704;1;1.1"
 	
 	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
@@ -78,33 +78,118 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestFullFirstPallet">
+<Method name="TestUnmarshallingXML">
 <Implementation><![CDATA[
-	Set Dir = "01_FullFirstPallet\"
-	Set File = "ReadResults_ReadID00049264_Controller_Gate1_Status00_Time_20110721_170225_644_DUAL_(Stage_3_Before_DB_Insertion).xml"
+	Set Dir = "Stage2_NormalRead_AllOk\"
+	Set File = "ReadResults_ReadID00000182_Controller_Gate1_Status00_Time_20110814_153423_890_DUAL_(Stage_3_Before_DB_Insertion).xml"
 	Set CaptureInfo = ..Import(Dir, File)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfo, .ResultDesc, .ProcessedData)
 	Set ErrorCode=..Finish(ProcessedData)	
-	//d ProcessedData.XMLExport(,"literal,indent") r k
+	
+	/// Correctheid van data nakijken
+	Do $$$AssertTrue($IsObject(ProcessedData.VRRead),"VHRead is een object.")
+	
+	Do $$$AssertEquals(ProcessedData.VRRead.GetAt(1).Id,"182","VR_Read.Id is correct.")
+	Do $$$AssertEquals(ProcessedData.VRRead.GetAt(1).Result,"OK","VR_Read.Result is correct.")
+	Do $$$AssertEquals(ProcessedData.VRRead.GetAt(1).CommandTime,"2011/08/14_15:34:21","VR_Read.CommandTime is correct.")
+	Do $$$AssertEquals(ProcessedData.VRRead.GetAt(1).EndTime,"2011/08/14_15:34:23","VR_Read.EndTime is correct.")
+	
+	/// VR_Read.Reader
+	Do $$$AssertTrue($IsObject(ProcessedData.VRRead.GetAt(1).Reader),"VR_Read.Reader is een object.")
+	Do $$$AssertTrue($IsObject(ProcessedData.VRRead.GetAt(1).Reader.GetAt(1).Sequence),"VR_Read.Reader is een object")
+	Set Sequence = ProcessedData.VRRead.GetAt(1).Reader.GetAt(1).Sequence.GetAt(1)
+	Do $$$AssertEquals(Sequence.SequenceID,"1","VR_Read.Reader.Sequence.SequenceID is correct.")
+	Do $$$AssertEquals(Sequence.SeqTime,"12957809661890","VR_Read.Reader.Sequence.SeqTime is correct.")
+	
+	/// Camera
+	Do $$$AssertTrue($IsObject(Sequence.Camera.GetAt(1)),"VR_Read.Reader.Sequence.Camera is een object.") 
+	Set Camera = Sequence.Camera.GetAt(1)
+	Do $$$AssertEquals(Camera.Name,"CD6600.781002103","Camera.Name is correct.")
+	Do $$$AssertEquals(Camera.Id,"781002103","Camera.Id is correct.")
+	Do $$$AssertEquals(Camera.Side,"1","Camera.Side is correct.")
+	Do $$$AssertEquals(Camera.Row,"2","Camera.Row is correct.")
+	Do $$$AssertEquals(Camera.Column,"1","Camera.Column is correct.")
+	Do $$$AssertEquals(Camera.OffsetX,"0","Camera.OffsetX is correct.")
+	Do $$$AssertEquals(Camera.OffsetY,"1046","Camera.OffsetY is correct.")
+	
+	/// Photo
+	Do $$$AssertTrue($IsObject(Camera.Photo.GetAt(1)),"VR_Read.Reader.Sequence.Camera.Photo is een object.") 
+	Set Photo = Camera.Photo.GetAt(1)
+	Do $$$AssertEquals(Photo.File,"Scanner_781002103_15_34_21_906.jpg","Photo.File is correct.")
+	Do $$$AssertEquals(Photo.OriginalFile,"\\sff2003\Director_Root_VHK\Reader_Root\Photos\2011_08_14\Scanner_781002103_15_34_21_906.jpg","Photo.OriginalFile is correct.")
+	Do $$$AssertEquals(Photo.Width,"2208","Photo.Width is correct.")
+	Do $$$AssertEquals(Photo.Height,"3000","Photo.Height is correct.")
+	
+	/// Detection 1
+	Do $$$AssertTrue($IsObject(Photo.Detection.GetAt(1)),"VR_Read.Reader.Sequence.Camera.Photo.Detection 1 is een object.") 
+	Set Detection = Photo.Detection.GetAt(1)	
+	Do $$$AssertEquals(Detection.Id,"9999901100418589","Detection.Id is correct.")
+	Do $$$AssertEquals(Detection.X1,"112","Detection.X1 is correct.")
+	Do $$$AssertEquals(Detection.X2,"-1","Detection.X2 is correct.")
+	Do $$$AssertEquals(Detection.Y1,"1412","Detection.Y1 is correct.")
+	Do $$$AssertEquals(Detection.Y2,"-1","Detection.Y2 is correct.")
+	Do $$$AssertEquals(Detection.Status,"0","Detection.Status is correct.")
+	Do $$$AssertEquals(Detection.Type,"1","Detection.Type is correct.")
+	Do $$$AssertEquals(Detection.Selected,##class(APPS.VisiDot.enu.DetectionTypes).Lade(),"Detection.Selected is correct.")
+	
+	/// Detection 1 : DUAL 1
+	Do $$$AssertTrue($IsObject(Detection.DUAL.GetAt(1)),"VR_Read.Reader.Sequence.Camera.Photo.Detection.DUAL is een object.") 
+	Set Dual = Detection.DUAL.GetAt(1)	
+	Do $$$AssertEquals(Dual.CodeWidthMM,"20","Dual.CodeWidthMM is correct.")
+	Do $$$AssertEquals(Dual.ColInPallet,"1","Dual.ColInPallet is correct.")
+	Do $$$AssertEquals(Dual.RowInPallet,"1","Dual.RowInPallet is correct.")
+	Do $$$AssertEquals(Dual.SubPallet,"1","Dual.SubPallet is correct.")
+	Do $$$AssertEquals(Dual.CrateType,"10","Dual.CrateType is correct.")
+	Do $$$AssertEquals(Dual.CodeType,"Package","Dual.Package is correct.")
+	
+	/// Detection 2
+	Do $$$AssertTrue($IsObject(Photo.Detection.GetAt(2)),"VR_Read.Reader.Sequence.Camera.Photo.Detection 2 is een object.") 
+	Set Detection = Photo.Detection.GetAt(2)	
+	Do $$$AssertEquals(Detection.Id,"9999901100418703","Detection.Id is correct.")
+	Do $$$AssertEquals(Detection.X1,"136","Detection.X1 is correct.")
+	Do $$$AssertEquals(Detection.X2,"-1","Detection.X2 is correct.")
+	Do $$$AssertEquals(Detection.Y1,"546","Detection.Y1 is correct.")
+	Do $$$AssertEquals(Detection.Y2,"-1","Detection.Y2 is correct.")
+	Do $$$AssertEquals(Detection.Status,"0","Detection.Status is correct.")
+	Do $$$AssertEquals(Detection.Type,"1","Detection.Type is correct.")
+	Do $$$AssertEquals(Detection.Selected,"Dup","Detection.Selected is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestNormalReadAllOK">
+<Implementation><![CDATA[
+	Set Dir = "Stage2_NormalRead_AllOk\"
+	Set File = "ReadResults_ReadID00000182_Controller_Gate1_Status00_Time_20110814_153423_890_DUAL_(Stage_3_Before_DB_Insertion).xml"
+	Set CaptureInfo = ..Import(Dir, File)
+	
+	D ##class(APPS.VisiDot.zTryout).%New().ShowVHoss(CaptureInfo)
+	
+	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfo, .ResultDesc, .ProcessedData)
+	Set ErrorCode=..Finish(ProcessedData)	
+	d ProcessedData.XMLExport(,"literal,indent") 
 	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).OK(),"Capture moet correct zijn (zonder fouten)")
 ]]></Implementation>
 </Method>
 
 <Method name="TestMissingLabels">
 <Implementation><![CDATA[
-	Set Dir = "02_MissingLabels\"
-	Set File = "ReadResults_ReadID00049267_Controller_Gate1_Status00_Time_20110721_170704_972_DUAL_(Stage_3_Before_DB_Insertion).xml"
+	Set Dir = "Stage3_MissingLabel\"
+	Set File = "ReadResults_ReadID00000183_Controller_Gate1_Status00_Time_20110814_153456_593_DUAL_(Stage_3_Before_DB_Insertion).xml"
 	Set CaptureInfo = ..Import(Dir, File)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfo, .ResultDesc, .ProcessedData)
+	
+	w !,"Missing labels : ",!
+	D ##class(APPS.VisiDot.zTryout).%New().ShowVHoss(CaptureInfo)
+	
 	Set ErrorCode=..Finish(ProcessedData)	
 	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossLadeOntbrekend(),"Capture bevat een ontbrekende lade")
 ]]></Implementation>
 </Method>
 
 <Method name="TestReadAgain">
 <Implementation><![CDATA[
-	Set Dir = "03_ReadAgain\"
-	Set File = "ReadResults_ReadID00049269_Controller_Gate1_Status00_Time_20110721_170917_081_DUAL_(Stage_3_Before_DB_Insertion).xml"
+	Set Dir = "Stage4_ReadAgain\"
+	Set File = "ReadResults_ReadID00000184_Controller_Gate1_Status00_Time_20110814_153651_906_DUAL_(Stage_3_Before_DB_Insertion).xml"
 	Set CaptureInfo = ..Import(Dir, File)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfo, .ResultDesc, .ProcessedData)
 	Set ErrorCode=..Finish(ProcessedData)
@@ -113,8 +198,8 @@
 
 <Method name="TestEndOrder">
 <Implementation><![CDATA[
-	Set Dir = "04_EndOrder\"
-	Set File = "END_ORDER_Time_2011_07_21_18_01_48.xml"
+	Set Dir = "Stage5_EndOrder\"
+	Set File = "END_ORDER_Time_2011_08_14_15_37_57_To_ERP.xml"
 	Set CaptureInfo = ..Import(Dir, File)
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossEnd(), CaptureInfo, .ResultDesc, .ProcessedData)
 	Set ErrorCode=..Finish(ProcessedData)	
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r1791 -r1808
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1791)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1808)
@@ -39,7 +39,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ActionType:%String,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec>ActionType:APPS.VisiDot.enu.ActionCodes,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ProductionHelper=##class(VHossProductionHelper).%New()
@@ -54,7 +54,7 @@
 <Description>
 Bepaald of deze classe geschikt als verwerker</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec>ActionType:APPS.VisiDot.enu.ActionCodes,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit $S(ActionType=##class(APPS.VisiDot.enu.ActionCodes).VHossRead():1,1:0)
 ]]></Implementation>
@@ -63,7 +63,7 @@
 <Method name="UpdateData">
 <Description>
 </Description>
-<FormalSpec><![CDATA[&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
+<FormalSpec><![CDATA[&ResultDesc:APPS.VisiDot.enu.ActionCodes,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 
@@ -118,7 +118,7 @@
 		Set DetectionHelper=it.Next()
 		If ..CaptureHelper.IsLegeDetection(DetectionHelper.GeefData())
 		{
-			Do ..ControleLegeSlot(DetectionHelper)
+			//Do ..ControleLegeSlot(DetectionHelper)
 		}
 	}
 ]]></Implementation>
Index: PV VisiDot.prj.xml
===================================================================
diff -u -r1791 -r1808
--- PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 1791)
+++ PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 1808)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV VisiDot" LastModified="2011-08-11 15:18:18">
+<Project name="PV VisiDot" LastModified="2011-08-12 18:00:04">
   <Items>
     <ProjectItem name="APPS.Halux.common.BatchService" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.impl.BatchImpl" type="CLS"/>
@@ -17,7 +17,6 @@
     <ProjectItem name="APPS.VisiDot.dto.ERP" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.ErrorMessage" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.GUI" type="CLS"/>
-    <ProjectItem name="APPS.VisiDot.dto.JB" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.Photo" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.ReadData" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.ReadStage" type="CLS"/>
@@ -45,10 +44,12 @@
     <ProjectItem name="APPS.VisiDot.impl.VHossLadeIterator" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossProductionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossSlotDetectionHelper" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossSlotIterator" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.zTryout" type="CLS"/>
     <ProjectItem name="DS.PPS.TBX.Queue" type="CLS"/>
     <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.TestVHoss" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestVHossXML" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildQueue" type="CLS"/>
Index: APPS/VisiDot/Controleur.cls.xml
===================================================================
diff -u -r1717 -r1808
--- APPS/VisiDot/Controleur.cls.xml	(.../Controleur.cls.xml)	(revision 1717)
+++ APPS/VisiDot/Controleur.cls.xml	(.../Controleur.cls.xml)	(revision 1808)
@@ -24,7 +24,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ActionType:%String,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec>ActionType:APPS.VisiDot.enu.ActionCodes,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ActionType=ActionType
@@ -38,7 +38,7 @@
 Bepaald of deze classe geschikt als verwerker</Description>
 <Abstract>1</Abstract>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec>ActionType:APPS.VisiDot.enu.ActionCodes,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit 0
 ]]></Implementation>
@@ -48,7 +48,7 @@
 <Description>
 Controleren van de data en aanpassen van deze data met extra informatie</Description>
 <Abstract>1</Abstract>
-<FormalSpec>ResultDesc:%String,ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec>ResultDesc:APPS.VisiDot.enu.ActionCodes,ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1771 -r1808
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1771)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1808)
@@ -100,7 +100,7 @@
 	}	
 	 Set SQLStatement = SQLStatement_" PRNr In ( "_SQLPRNrs_" )"
 	
-	 //D WLIP^vhDBG(127,SQLStatement)
+	 D WLIP^vhDBG(127,SQLStatement)
 	 Do RS.Prepare(SQLStatement)		
 	 Set tmpStatus = RS.Execute()
 	 If $$$ISOK(tmpStatus)
Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1791 -r1808
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1791)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1808)
@@ -69,16 +69,23 @@
 </UDLText>
 
 <Method name="ZetError">
-<FormalSpec>FoutType,Titel,Omschrijving</FormalSpec>
+<FormalSpec>FoutType:APPS.VisiDot.enu.FoutTypes,Titel:%String,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..AddErrorMessage(Titel, Omschrijving)
 	Do ..ZetStatusLight(FoutType)
 	;Write "Capture zet error: ",FoutType," ",Titel," ",Omschrijving,!
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOK">
+<Implementation><![CDATA[
+	Do ..ZetReadStatus(##class(APPS.VisiDot.enu.ResultCodes).Goed())
+	Do ..ZetStatusLight()
+]]></Implementation>
+</Method>
+
 <Method name="ZetStatusLight">
-<FormalSpec>FoutType</FormalSpec>
+<FormalSpec>FoutType:APPS.VisiDot.enu.FoutTypes=""</FormalSpec>
 <Implementation><![CDATA[
 	Set ERP=..GeefERP()
 	Set StatusLight=ERP.StatusLight.GetAt(1)
@@ -88,29 +95,36 @@
 		Do ERP.StatusLight.Insert(StatusLight)
 	}
 	
-	If ##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(..VorigFoutType)<##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(FoutType)
-	{
-		If FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem()
+	If (FoutType '= ""){
+		If ##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(..VorigFoutType)<##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(FoutType)
 		{
-			Set StatusLight.Color="Red"
-			Set StatusLight.Time=10000
-			Set StatusLight.BuzzerStatus="Yes" 
-			Set StatusLight.BuzzerTime="2000"
+			If FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem()
+			{
+				Set StatusLight.Color=##class(APPS.VisiDot.enu.DetectionKleur).Rood()
+				Set StatusLight.Time=10000
+				Set StatusLight.BuzzerStatus="Yes" 
+				Set StatusLight.BuzzerTime="2000"
+			}
+			ElseIf FoutType=##class(APPS.VisiDot.enu.FoutTypes).Fout()
+			{
+				Set StatusLight.Color=##class(APPS.VisiDot.enu.DetectionKleur).Rood()
+				Set StatusLight.Time=5000
+				Set StatusLight.BuzzerStatus="Yes" 
+				Set StatusLight.BuzzerTime="500"
+			}
+			ElseIf FoutType=##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing() 
+			{
+				Set StatusLight.Color=##class(APPS.VisiDot.enu.DetectionKleur).Rood()
+				Set StatusLight.Time=5000
+				Set StatusLight.BuzzerStatus="No" 
+				Set StatusLight.BuzzerTime="0"
+			}
 		}
-		ElseIf FoutType=##class(APPS.VisiDot.enu.FoutTypes).Fout()
-		{
-			Set StatusLight.Color="Red"
-			Set StatusLight.Time=5000
-			Set StatusLight.BuzzerStatus="Yes" 
-			Set StatusLight.BuzzerTime="500"
-		}
-		ElseIf FoutType=##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing() 
-		{
-			Set StatusLight.Color="Red"
-			Set StatusLight.Time=5000
-			Set StatusLight.BuzzerStatus="No" 
-			Set StatusLight.BuzzerTime="0"
-		}
+	}Else{		
+		Set StatusLight.Color=##class(APPS.VisiDot.enu.DetectionKleur).Groen()
+		Set StatusLight.Time=""
+		Set StatusLight.BuzzerStatus="No" 
+		Set StatusLight.BuzzerTime="0"
 	}
 ]]></Implementation>
 </Method>
@@ -124,6 +138,9 @@
 
 	Set ERP=..GeefERP()
 	Do ERP.ErrorMessage.Insert(ErrorMessage)
+	
+	/// ERP ReadStatus instellen
+	Do ..ZetReadStatus(##class(APPS.VisiDot.enu.ResultCodes).Fout())
 ]]></Implementation>
 </Method>
 
@@ -262,5 +279,14 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ZetReadStatus">
+<FormalSpec>Status:APPS.VisiDot.enu.ResultCodes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ERP=..GeefERP()
+	Set ERP.ReadStatus = Status
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml	(revision 1808)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VisiDot.TestCaptureHelper">
+<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="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.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).BuzzerTime,"2000","StatusLight BuzzerTime correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).Color,##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"StatusLight color correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).Time,"10000","StatusLight Time correct.")
+	
+	Do ..CaptureHelper.ZetStatusLight(##class(APPS.VisiDot.enu.FoutTypes).Fout())	
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).BuzzerStatus,"Yes","StatusLight BuzzerStatus correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).BuzzerTime,"500","StatusLight BuzzerTime correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).Color,##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"StatusLight color correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).Time,"5000","StatusLight Time correct.")
+	
+	Do ..CaptureHelper.ZetStatusLight(##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing())	
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).BuzzerStatus,"No","StatusLight BuzzerStatus correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).BuzzerTime,"0","StatusLight BuzzerTime correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).Color,##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"StatusLight color correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).Time,"5000","StatusLight Time correct.")
+	
+	Do ..CaptureHelper.ZetStatusLight()	
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).BuzzerStatus,"No","StatusLight BuzzerStatus correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).BuzzerTime,"0","StatusLight BuzzerTime correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).Color,##class(APPS.VisiDot.enu.DetectionKleur).Groen(),"StatusLight color correct.")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).StatusLight.GetAt(1).Time,"","StatusLight Time correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestError">
+<Implementation><![CDATA[
+	
+	Set FoutType = ##class(APPS.VisiDot.enu.FoutTypes).Systeem()
+	Set Titel = "UnitTest Fout"
+	Set Omschrijving = "Beschrijving van de unit test fout."
+	Do ..CaptureHelper.ZetError(FoutType,Titel,Omschrijving)	
+	
+	Set Data = ..CaptureHelper.GeefData()
+	Set Error = Data.ERP.GetAt(1).ErrorMessage.GetAt(1)
+	Do $$$AssertEquals(Error.MessageTitle,Titel,"Titel is correct.")
+	Do $$$AssertEquals(Error.Message,Omschrijving,"Omschrijving is correct.")
+	
+	Do $$$AssertEquals(Data.ERP.GetAt(1).ReadStatus,##class(APPS.VisiDot.enu.ResultCodes).Fout(),"Read status op ERP is correct.")
+]]></Implementation>
+</Method>
+
+<Method name="TestFoutCode">
+<Implementation><![CDATA[
+	Set FoutCode = ##class(APPS.VisiDot.enu.FoutCodes).OK()	
+	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.")
+]]></Implementation>
+</Method>
+
+<Method name="TestDirectorSleutelWaarden">
+<Implementation><![CDATA[
+	Set Sleutel = "UnitTestKey"
+	Set Waarde = "UnitTestValue"
+	Do ..CaptureHelper.ZetDirectorSleutelWaarde(Sleutel,Waarde)
+	
+	Do $$$AssertEquals(..CaptureHelper.GeefDirectorSleutelWaarde(Sleutel),Waarde,"Sleutelwaarde opgehaald uit Director is correct.")
+	
+	Set Data = ..CaptureHelper.GeefData()
+	Do $$$AssertEquals(Data.Director.GetAt(1).ReadData.GetAt(1).Name,Sleutel,"Sleutel in Director is correct in XML")
+	Do $$$AssertEquals(Data.Director.GetAt(1).ReadData.GetAt(1).Value,Waarde,"Waarde in Director is correct in XML")
+]]></Implementation>
+</Method>
+
+<Method name="TestERPSleutelWaarden">
+<Implementation><![CDATA[
+	Set Sleutel = "UnitTestERPKey"
+	Set Waarde = "UnitTestERPValue"
+	Do ..CaptureHelper.ZetERPSleutelWaarde(Sleutel,Waarde)
+	
+	Do $$$AssertEquals(..CaptureHelper.GeefERPSleutelWaarde(Sleutel),Waarde,"Sleutelwaarde opgehaald uit ERP is correct.")
+	
+	Set Data = ..CaptureHelper.GeefData()
+	Do $$$AssertEquals(Data.ERP.GetAt(1).ReadData.GetAt(1).Name,Sleutel,"Sleutel in Director is correct in XML")
+	Do $$$AssertEquals(Data.ERP.GetAt(1).ReadData.GetAt(1).Value,Waarde,"Waarde in Director is correct in XML")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml
===================================================================
diff -u -r1754 -r1808
--- APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 1754)
+++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 1808)
@@ -33,11 +33,11 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ActionType:%String,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec>ActionType:APPS.VisiDot.enu.ActionCodes,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ProductionHelper=##class(VHossProductionHelper).%New()
-	Set ..CaptureHelper=##class(VHossCaptureHelper).%New(CaptureInfo,..ProductionHelper)
+	Set ..ProductionHelper=##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
+	Set ..CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(CaptureInfo,..ProductionHelper)
 	Quit ##super(ActionType,CaptureInfo)
 ]]></Implementation>
 </Method>
@@ -46,7 +46,7 @@
 <Description>
 Bepaald of deze classe geschikt als verwerker</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec>ActionType:APPS.VisiDot.enu.ActionCodes,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit $S(ActionType=##class(APPS.VisiDot.enu.ActionCodes).VHossEnd():1,1:0)
 ]]></Implementation>
@@ -55,7 +55,7 @@
 <Method name="UpdateData">
 <Description>
 </Description>
-<FormalSpec><![CDATA[&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
+<FormalSpec><![CDATA[&ResultDesc:APPS.VisiDot.enu.ActionCodes,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..BatchID=..CaptureHelper.GeefBatchID() ; opgeslagen in de CaptureData
@@ -81,6 +81,8 @@
 	{
 	 	Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).OK())
 		Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Goed()
+		Do ..CaptureHelper.ZetOK()
+		
 	}
 	Else 
 	{
Index: APPS/VisiDot/enu/FoutCodes.cls.xml
===================================================================
diff -u -r1764 -r1808
--- APPS/VisiDot/enu/FoutCodes.cls.xml	(.../FoutCodes.cls.xml)	(revision 1764)
+++ APPS/VisiDot/enu/FoutCodes.cls.xml	(.../FoutCodes.cls.xml)	(revision 1808)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>,0,5001,5011,5012,5002,5025,5026,5024</Default>
+<Default>,0,5001,5011,5012,5002,5003,5004,5024,5025,5026,5100,5201,5202</Default>
 </Parameter>
 
 <Method name="OK">
Index: APPS/VisiDot/dto/StatusLight.cls.xml
===================================================================
diff -u -r1717 -r1808
--- APPS/VisiDot/dto/StatusLight.cls.xml	(.../StatusLight.cls.xml)	(revision 1717)
+++ APPS/VisiDot/dto/StatusLight.cls.xml	(.../StatusLight.cls.xml)	(revision 1808)
@@ -5,6 +5,7 @@
 Created from: c:/stage4.xsd</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="XMLNAME">
 <Default>StatusLight</Default>
@@ -15,7 +16,7 @@
 </Parameter>
 
 <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: WS/VisiDot/OperatorServer.cls.xml
===================================================================
diff -u -r1791 -r1808
--- WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1791)
+++ WS/VisiDot/OperatorServer.cls.xml	(.../OperatorServer.cls.xml)	(revision 1808)
@@ -16,6 +16,23 @@
 <Default>http://www.imageid.zetes.com/OperatorWS/V1</Default>
 </Parameter>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Parameter CHARSET = "utf-8";
+
+Parameter CONTENTTYPE = "application/soap+xml"; 
+*/
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+//"text/xml";
+
+]]></Content>
+</UDLText>
+
 <Property name="Controleur">
 <Type>APPS.VisiDot.Controleur</Type>
 <Private>1</Private>
@@ -32,24 +49,28 @@
 
 <Method name="PingTest">
 <Description>
-</Description>
+When the Operator starts communicating with the WS, it first checks that this function returns some value. 
+The returned value is not validated, but it is written in the Log file of the Operator.</Description>
 <FormalSpec/>
+<ReturnType>%Integer</ReturnType>
 <WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
 </Method>
 
 <Method name="UpdateData">
 <Description>
 </Description>
-<FormalSpec><![CDATA[ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo,&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
+<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[
-	Do ..GeefControleur(ActionType,Data)
+	Do ..GeefControleur(ActionType,CaptureInfo)
 	Do ..Controleur.UpdateData(.ResultDesc,.ProcessedData)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefControleur">
-<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec>ActionType:APPS.VisiDot.enu.ActionCodes,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.VisiDot.Controleur</ReturnType>
 <Implementation><![CDATA[
Index: APPS/VisiDot/enu/FoutTypes.cls.xml
===================================================================
diff -u -r1749 -r1808
--- APPS/VisiDot/enu/FoutTypes.cls.xml	(.../FoutTypes.cls.xml)	(revision 1749)
+++ APPS/VisiDot/enu/FoutTypes.cls.xml	(.../FoutTypes.cls.xml)	(revision 1808)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>,SYSTEM,ERROR,WARNING</Default>
+<Default>,SYSTEM,ERROR,WARNING,OK</Default>
 </Parameter>
 
 <Method name="Fout">
Index: APPS/VisiDot/impl/DetectionHelper.cls.xml
===================================================================
diff -u -r1749 -r1808
--- APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 1749)
+++ APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 1808)
@@ -32,7 +32,7 @@
 </Method>
 
 <Method name="GeefData">
-<ReturnType>APPS.VisiDot.dto.CaptureInfo</ReturnType>
+<ReturnType>APPS.VisiDot.dto.Detection</ReturnType>
 <Implementation><![CDATA[	Quit ..Detection
 ]]></Implementation>
 </Method>
Index: APPS/VisiDot/dto/DUAL.cls.xml
===================================================================
diff -u -r1717 -r1808
--- APPS/VisiDot/dto/DUAL.cls.xml	(.../DUAL.cls.xml)	(revision 1717)
+++ APPS/VisiDot/dto/DUAL.cls.xml	(.../DUAL.cls.xml)	(revision 1808)
@@ -5,6 +5,7 @@
 Created from: c:/stage4.xsd</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="XMLNAME">
 <Default>DUAL</Default>
@@ -45,5 +46,12 @@
 <Parameter name="XMLNAME" value="CodeType"/>
 <Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
 </Property>
+
+<Property name="SubPallet">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="SubPallet"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
 </Class>
 </Export>