Index: APPS/VisiDot/dto/Detection.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/Detection.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/Detection.cls.xml	(revision 1717)
@@ -0,0 +1,171 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.Detection">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="XMLNAME">
+<Default>Detection</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Coordinate">
+<Type>APPS.VisiDot.dto.Coordinate</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Coordinate"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="DUAL">
+<Type>APPS.VisiDot.dto.DUAL</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="DUAL"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="CrateCoordinate">
+<Type>APPS.VisiDot.dto.CrateCoordinate</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="CrateCoordinate"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Director">
+<Type>APPS.VisiDot.dto.Director</Type>
+<Collection>list</Collection>
+<Parameter name="XMLELEMENTREF" value="1"/>
+<Parameter name="XMLNAME" value="Director"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="ReadData">
+<Type>APPS.VisiDot.dto.ReadData</Type>
+<Collection>list</Collection>
+<Parameter name="XMLELEMENTREF" value="1"/>
+<Parameter name="XMLNAME" value="Read_Data"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Id">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="X1">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="X1"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Y1">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Y1"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="X2">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="X2"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Y2">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Y2"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Angle">
+<Type>%xsd.double</Type>
+<Parameter name="XMLNAME" value="Angle"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Radius">
+<Type>%xsd.double</Type>
+<Parameter name="XMLNAME" value="Radius"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ExternalCode">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="ExternalCode"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Status"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Processed">
+<Type>%String</Type>
+<Parameter name="XMLPROJECTION" value="NONE"/>
+</Property>
+
+<Property name="Type">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Type"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="TypeDesc">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Type_Desc"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Selected">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Selected"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="PalletID">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Pallet_ID"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ToolTip">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="ToolTip"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Color">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Color"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="EnlargeRatioX">
+<Type>%xsd.float</Type>
+<Parameter name="XMLNAME" value="EnlargeRatioX"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="EnlargeRatioY">
+<Type>%xsd.float</Type>
+<Parameter name="XMLNAME" value="EnlargeRatioY"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(revision 1717)
@@ -0,0 +1,278 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossControleurZijkant">
+<Description>
+Controle of de zijkant correct is geproduceerd : de juiste lade is het juiste vak.
+De queue datastructuur wordt aangevuld met de VisiDot data.
+
+Mogelijke detail fouten :
+- Lade teveel
+- Lade ontbreekt
+- Foutieve lade in vak
+
+Mogelijke algemene fouten :
+- Lade in vHoss komt niet overeen met opgestarte batch
+- vHoss reeds ingescand
+- geen lade informatie gevonden (lege vHoss)
+- geen vHoss ID gevonden
+
+Als er een fout is dan wordt ook de signaalverlichting aangestuurd</Description>
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VisiDot.Controleur</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="BatchID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VHossVolgNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VHossZijkant">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="FrameDetectionHelper">
+<Type>VHossFrameDetectionHelper</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ActionType:%String,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductionHelper=##class(VHossProductionHelper).%New()
+	Set ..CaptureHelper=##class(VHossCaptureHelper).%New(CaptureInfo,..ProductionHelper)
+	;w ..ProductionHelper,!
+	;w ..CaptureHelper,!
+	Quit ##super(ActionType,CaptureInfo)
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwerker">
+<Description>
+Bepaald of deze classe geschikt als verwerker</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $S(ActionType="READ":1,1:0)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateData">
+<Description>
+</Description>
+<FormalSpec><![CDATA[&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+
+	; Stap 1
+	W "   *** BepaalIDs ***",!
+	Do ..BepaalVHossIDs()
+	W ..BatchID," ",..VHossVolgNr," ",..VHossZijkant,!
+	
+	If (..BatchID) && (..VHossVolgNr) && (..VHossZijkant) && (..FrameDetectionHelper)
+	{
+		; Stap 2
+		W "   *** AanwezigeLades ***",!
+		Do ..ProductionHelper.InitCache(..BatchID,..VHossVolgNr,..VHossZijkant)
+		Do ..ControleAanwezigeLades()	
+		Do ..ProductionHelper.SaveCache()
+		
+		; Stap 3
+		W "   *** OntbrekendeLades ***",!
+		Do ..ControleOntbrekendeLades()
+		
+		; toevoegen extra info
+		Do ..CaptureHelper.ZetSleutelWaarde("BatchID",..BatchID) ; wordt gebruikt bij een volgende controle
+		Do ..CaptureHelper.ZetSleutelWaarde("VHossSequentie",..VHossVolgNr_"."_..VHossZijkant)
+		Do ..CaptureHelper.ZetSleutelWaarde("FrameID",..FrameDetectionHelper.GeefID())
+	}
+	
+	Set ResultDesc=1
+	Set ProcessedData=..CaptureHelper.GeefData()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ControleAanwezigeLades">
+<Implementation><![CDATA[
+	Set it=..CaptureHelper.GeefLadeDetectionIterator()
+	While it.HasNext()
+	{
+		Set DetectionHelper=it.Next()
+		Do ..ControleAanwezigeLade(DetectionHelper)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleAanwezigeLade">
+<FormalSpec>DetectionHelper</FormalSpec>
+<Implementation><![CDATA[
+	;w DetectionHelper.GeefID()," ",DetectionHelper.GeefSlotNr(),!
+
+	Set BatchID=DetectionHelper.GeefBatchID()
+	Set VHossVolgNr=DetectionHelper.GeefVHossVolgNr()
+	Set VHossZijkant=DetectionHelper.GeefVHossZijkant()
+	
+	; controle op foutieve batch
+	If ..BatchID'=BatchID
+	{
+		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Lade van batch "_BatchID_" behoort niet tot geselecteerde batch "_..BatchID)
+	}
+	; controle op foutieve VHoss
+	ElseIf (..VHossVolgNr'=VHossVolgNr)||(..VHossZijkant'=VHossZijkant)
+	{
+		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"VHosszijkanten")
+	}
+	Else ; controle lade in juiste slot
+	{
+		Set ProductNr=DetectionHelper.GeefProduct()
+		Set VHossSlotNr=DetectionHelper.GeefSlotNr()
+	
+		Set QueueHelper=..ZoekQueueElement(BatchID,VHossVolgNr,VHossZijkant,VHossSlotNr,ProductNr)
+		
+		If $isObject(QueueHelper)
+		{
+			; extra info toevoegen
+			Do QueueHelper.GeefInfo(.Toelevering,.DossierNr,.Omschrijving)
+			Do DetectionHelper.ZetInfo(Toelevering,DossierNr,Omschrijving)
+
+			Set FrameID=QueueHelper.GeefFrameID()
+			If (FrameID="")||(FrameID=..FrameDetectionHelper.GeefID())
+			{
+				If VHossSlotNr=QueueHelper.GeefVHossSlotNr()
+				{
+					Do QueueHelper.ZetFrameID(..FrameDetectionHelper.GeefID())
+					Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Groen())
+				}
+				Else 
+				{
+					Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Blauw(),"Lade in foutief vak")
+				}
+			}
+			Else
+			{
+				Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Lade reeds gedetecteerd in ander frame "_FrameID_" "_QueueHelper.GeefTijdStip)
+			} 
+		}
+		Else
+		{
+			Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Geen informatie gevonden over deze lade")
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZoekQueueElement">
+<FormalSpec>BatchID,VHossSeqNr,VHossZijkant,VHossSlotNr,ProductNr</FormalSpec>
+<Implementation><![CDATA[
+	Set it=..ProductionHelper.GeefQueueIterator()
+	Set Stop=0
+	While it.HasNext()&&'Stop
+	{
+		Set QueueHelper=it.Next()
+		If (QueueHelper.GeefBatchID()'=BatchID)||(QueueHelper.GeefVHossSeqNr()'=VHossSeqNr)||(QueueHelper.GeefVHossZijkant()'=VHossZijkant)
+		{
+			Set Stop=1
+			Set ResultQueueHelper=""
+		}
+		Continue:Stop
+		If (QueueHelper.GeefProductNr()=ProductNr)&&(QueueHelper.GeefVHossSlotNr()=VHossSlotNr)
+		{
+			Set Stop=1
+			Set ResultQueueHelper=QueueHelper
+		}
+	}
+	Quit $G(ResultQueueHelper)
+]]></Implementation>
+</Method>
+
+<Method name="ControleOntbrekendeLades">
+<Implementation><![CDATA[
+	Set LegeSlots=""
+	Set it=..ProductionHelper.GeefQueueIterator()
+	While it.HasNext()
+	{
+		Set QueueHelper=it.Next()
+		If QueueHelper.GeefFrameID()=""
+		{
+			Set LegeSlots=$S(LegeSlots="":"",1:LegeSlots_";")_QueueHelper.GeefVHossSlotNr()
+		}
+	}
+	Quit:LegeSlots=""
+	Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing(),"Ontbrekende laden","Er ontbreken laden in volgende vakken : "_LegeSlots)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVHossIDs">
+<Implementation><![CDATA[
+	Set ..BatchID=..CaptureHelper.GeefSleutelWaarde("BatchID") ; opgeslagen in de ERP gedeelte van de CaptureData
+	Set ..VHossVolgNr=""
+	Set ..VHossZijkant=""
+	Set ..FrameDetectionHelper=""
+	
+	Set it=..CaptureHelper.GeefDetectionIterator()
+	While it.HasNext()
+	{
+		Set Detection=it.Next()
+		If ..CaptureHelper.IsFrameDetection(Detection)
+		{
+			Do ..BepaalFrame(Detection)
+		}
+		ElseIf ..CaptureHelper.IsLadeDetection(Detection)
+		{
+			Do ..BepaalBatchEnVHoss(Detection)
+		}
+		Else  ; onbekend type
+		{
+			Do ..ControleOnbekende(Detection)
+		}
+	}
+	
+	If ..FrameDetectionHelper=""
+	{
+		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekend frame code","Geen enkele frame identificatie gedetecteerd")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalBatchEnVHoss">
+<FormalSpec>Detection</FormalSpec>
+<Implementation><![CDATA[
+	Set DetectionHelper=..CaptureHelper.GeefDetectionHelper(Detection)
+
+	; De eerste ladedetection bepaalt Batch en VHossVolgNr
+	Set:..BatchID="" ..BatchID=DetectionHelper.GeefBatchID()
+	Set:..VHossVolgNr="" ..VHossVolgNr=DetectionHelper.GeefVHossVolgNr()
+	Set:..VHossZijkant="" ..VHossZijkant=DetectionHelper.GeefVHossZijkant()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalFrame">
+<FormalSpec>Detection</FormalSpec>
+<Implementation><![CDATA[
+	Set DetectionHelper=..CaptureHelper.GeefDetectionHelper(Detection)
+	Set:..FrameDetectionHelper="" ..FrameDetectionHelper=DetectionHelper
+	If DetectionHelper.GeefID()'=..FrameDetectionHelper.GeefID()
+	{
+		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).SysteemFout(),"Meerdere Frame code","De frame bevat meerdere verschillende frame "_DetectionHelper.GeefID()_"<->"_..FrameDetectionHelper.GeefID())
+		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Dubbel")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleOnbekende">
+<FormalSpec>Detection</FormalSpec>
+<Implementation><![CDATA[
+	Set DetectionHelper=##class(DetectionHelper).%New(Detection)
+	If $L(DetectionHelper.GeefID())
+	{
+		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Oranje(),"Onbekende detection")
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/ReadData.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/ReadData.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/ReadData.cls.xml	(revision 1717)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.ReadData">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Read_Data</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLTYPE">
+<Default>Read_Data</Default>
+</Parameter>
+
+<Property name="Name">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Name"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Value">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Value"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossFrameDetectionHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossFrameDetectionHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossFrameDetectionHelper.cls.xml	(revision 1717)
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossFrameDetectionHelper">
+<Description>
+Encapsulatie van de VisiDot detection dataobject voor de VHoss frame</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DetectionHelper</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossLadeIterator.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossLadeIterator.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossLadeIterator.cls.xml	(revision 1717)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossLadeIterator">
+<Description><![CDATA[
+Loopen door de Detection elementen, 
+maar er worden 2 beelden genomen van een VHoss 
+daarom loopen over meerdere nivos: Camera->Photo->Detection]]></Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DetectionIterator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CaptureHelper">
+<Type>APPS.VisiDot.impl.CaptureHelper</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo,CaptureHelper:APPS.VisiDot.impl.CaptureHelper</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..CaptureHelper=CaptureHelper
+	Do ##super(CaptureInfo)
+	Do:'..IsLade() ..OrderLade()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<Description>
+Returns true if the iteration has more elements.</Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ''..CameraNbr
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Description>
+Returns the next element in the iteration.
+Only returns a valid element if HasNext() returns true
+Causes an error if HasNext() returns false</Description>
+<ReturnType>APPS.VisiDot.dto.Detection</ReturnType>
+<Implementation><![CDATA[
+	Quit:'..HasNext() ""
+	;w !,"Next",..CameraNbr," ",..PhotoNbr," ",..DetectionNbr
+	Set Detection=..CaptureHelper.GeefDetectionHelper(..Detection)
+	
+	Do ..OrderLade()
+	Quit Detection
+]]></Implementation>
+</Method>
+
+<Method name="IsLade">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..CaptureHelper.IsLadeID(..Detection.Id)
+]]></Implementation>
+</Method>
+
+<Method name="OrderLade">
+<Implementation><![CDATA[
+	Do ..Order()
+	While ..HasNext()&&'..IsLade()
+	{
+		Do ..Order()
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/enu/DetectionKleur.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/enu/DetectionKleur.cls.xml	(revision 0)
+++ APPS/VisiDot/enu/DetectionKleur.cls.xml	(revision 1717)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.enu.DetectionKleur">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,RED,ORANGE,GREEN,BLUE</Default>
+</Parameter>
+
+<Method name="Rood">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["RED"
+]]></Implementation>
+</Method>
+
+<Method name="Oranje">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["ORANGE"
+]]></Implementation>
+</Method>
+
+<Method name="Groen">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["GREEN"
+]]></Implementation>
+</Method>
+
+<Method name="Blauw">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["BLUE"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(revision 1717)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossControleurEnd">
+<Description>
+Bij het einde van een reeks wordt er een boodeschap gestuurd met als bericht 'END'
+Dan moeten voor de opgegeven batch gecontroleerd worden of alle laden werden ingelezen.
+
+Mogelijke fouten :
+- vHoss sequence ontbreekt
+- Lade x,y,z,... ontbreekt
+- Geen BatchID opgegeven</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VisiDot.Controleur</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>ActionType:%String,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductionHelper=##class(VHossProductionHelper).%New()
+	Set ..CaptureHelper=##class(VHossCaptureHelper).%New(CaptureInfo,..ProductionHelper)
+	Quit ##super(ActionType,CaptureInfo)
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwerker">
+<Description>
+Bepaald of deze classe geschikt als verwerker</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $S(ActionType="END":1,1:0)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateData">
+<Description>
+</Description>
+<FormalSpec><![CDATA[&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/DetectionHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/DetectionHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/DetectionHelper.cls.xml	(revision 1717)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.DetectionHelper">
+<Description>
+Encapsulatie van de VisiDot detection dataobject voor de VHoss frame</Description>
+<IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Detection">
+<Type>APPS.VisiDot.dto.Detection</Type>
+</Property>
+
+<Property name="CaptureHelper">
+<Type>APPS.VisiDot.impl.CaptureHelper</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Detection:APPS.VisiDot.dto.Detection,CaptureHelper:APPS.VisiDot.impl.CaptureHelper=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Detection = Detection 
+	Set ..CaptureHelper = CaptureHelper
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<Implementation><![CDATA[	Quit ..Detection.Id
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<ReturnType>APPS.VisiDot.dto.CaptureInfo</ReturnType>
+<Implementation><![CDATA[	Quit ..Detection
+]]></Implementation>
+</Method>
+
+<Method name="ZetStatus">
+<FormalSpec>Kleur,ToolTip</FormalSpec>
+<Implementation><![CDATA[
+	Write:Kleur'="GREEN" "!!!Detection ",..Detection.Id,":",Kleur," ",$G(ToolTip),!
+
+	Set ..Detection.Color=Kleur
+	Set ..Detection.ToolTip=$G(ToolTip)
+]]></Implementation>
+</Method>
+
+<Method name="ZetData">
+<FormalSpec>Sleutel,Waarde</FormalSpec>
+<Implementation><![CDATA[
+	Set:'$isObject(..Detection.ReadData) ..Detection.ReadData=##class(%ListOfObject).%New()
+	Do ..CaptureHelper.AddSleutelWaarde(..Detection.ReadData,Sleutel,Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="Object2String">
+<Implementation><![CDATA[	Quit ..Detection.Id
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml	(revision 1717)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossLadeDetectionHelper">
+<Description>
+Encapsulatie van de VisiDot detection dataobject voor de VHoss frame</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DetectionHelper</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefBatchID">
+<Implementation><![CDATA[		Quit ..CaptureHelper.ProductionHelper.GeefBatchVanLadeID(..GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossVolgNr">
+<Implementation><![CDATA[		Quit ..CaptureHelper.ProductionHelper.GeefVHossVolgNrVanLadeID(..GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossZijkant">
+<Implementation><![CDATA[		Quit ..CaptureHelper.ProductionHelper.GeefVHossZijkantVanLadeID(..GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefProduct">
+<Implementation><![CDATA[		Quit ..CaptureHelper.ProductionHelper.GeefProductVanLadeID(..GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefSlotNr">
+<Implementation><![CDATA[
+		Set Director=..Detection.Director.GetAt(1)
+		Quit:'$isObject(Director) ""
+		Quit Director.AssetID
+]]></Implementation>
+</Method>
+
+<Method name="ZetInfo">
+<FormalSpec>Toelevering,Dossier,Omschrijving</FormalSpec>
+<Implementation><![CDATA[
+		Do ..ZetData("Toelevering",Toelevering)
+		Do ..ZetData("Dossier",Dossier)
+		Do ..ZetData("Omschrijving",Omschrijving)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/Reader.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/Reader.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/Reader.cls.xml	(revision 1717)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.Reader">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Reader</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Sequence">
+<Type>APPS.VisiDot.dto.Sequence</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Sequence"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Alias">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Alias"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="MachineName">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Machine_Name"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(revision 1717)
@@ -0,0 +1,216 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.CaptureHelper">
+<Description>
+Encapsulatie van de VisiDot CaptureInfo dataobject 
+Moet eerst geinitialiseerd worden, voor gebruikt omdat de CaptureInfo datastruct moet toegewezen worden</Description>
+<Abstract>1</Abstract>
+<IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CaptureInfo">
+<Type>APPS.VisiDot.dto.CaptureInfo</Type>
+</Property>
+
+<Property name="VorigFoutType">
+<Type>APPS.VisiDot.enu.FoutTypes</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..CaptureInfo = CaptureInfo
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<ReturnType>APPS.VisiDot.dto.CaptureInfo</ReturnType>
+<Implementation><![CDATA[	Quit ..CaptureInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefDetectionIterator">
+<ReturnType>APPS.VisiDot.impl.DetectionIterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DetectionIterator).%New(..CaptureInfo)
+]]></Implementation>
+</Method>
+
+<Method name="HasDetectionData">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:'$isObject(..CaptureInfo.VRRead) 0
+	Quit:..CaptureInfo.VRRead.Count() 0
+	Set VRRead=..CaptureInfo.VRRead.Get(1)
+	Quit:VRRead.Reader.Count() 0
+	Set Reader=VRRead.Reader.Get(1)
+	Quit:Reader.Sequence.Count() 0
+	
+	Set Sequence=Reader.Sequence.Get(1)
+	Quit:Sequence.Camera.Count() 0
+	
+	Quit 1
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+	<ERP ReadStatus="OK" >
+		<ErrorMessage Message="There are 2 extra products in pallet!" MessageTitle="Extra Items"/>
+		<StatusLight Color="Red" Time="2000" BuzzerStatus="Yes" BuzzerTime="2000"/>
+*/
+]]></Content>
+</UDLText>
+
+<Method name="ZetError">
+<FormalSpec>FoutType,Titel,Omschrijving</FormalSpec>
+<Implementation><![CDATA[
+	Do ..AddErrorMessage(Titel, Omschrijving)
+	Do ..ZetStatusLight(FoutType)
+	Write "Capture zet error: ",FoutType," ",Titel," ",Omschrijving,!
+]]></Implementation>
+</Method>
+
+<Method name="ZetStatusLight">
+<FormalSpec>FoutType</FormalSpec>
+<Implementation><![CDATA[
+	Set ERP=..GeefERP()
+	Set StatusLight=ERP.StatusLight.GetAt(1)
+	If '$isObject(StatusLight)
+	{
+		Set StatusLight=##class(APPS.VisiDot.dto.StatusLight).%New()
+		Do ERP.StatusLight.Insert(StatusLight)
+	}
+	
+	If ..FoutType2Prioriteit(..VorigFoutType)<..FoutType2Prioriteit(FoutType)
+	{
+		If FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem()
+		{
+			Set StatusLight.Color="Red"
+			Set StatusLight.Time=10000
+			Set StatusLight.BuzzerStatus="Yes" 
+			Set StatusLight.BuzzerTime="2000"
+		}
+		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"
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="FoutType2Prioriteit">
+<FormalSpec>FoutType</FormalSpec>
+<Implementation><![CDATA[
+	Quit:FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem() 9
+	Quit:FoutType=##class(APPS.VisiDot.enu.FoutTypes).Fout() 5
+	Quit:FoutType=##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing() 2
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="AddErrorMessage">
+<FormalSpec>Titel,Omschrijving</FormalSpec>
+<Implementation><![CDATA[
+	Set ErrorMessage=##class(APPS.VisiDot.dto.ErrorMessage).%New()
+	Set ErrorMessage.Message=Omschrijving
+	Set ErrorMessage.MessageTitle=Titel
+
+	Set ERP=..GeefERP()
+	Do ERP.ErrorMessage.Insert(ErrorMessage)
+]]></Implementation>
+</Method>
+
+<Method name="GeefERP">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If '$isobject(..CaptureInfo.ERP)
+	{
+		 Set ..CaptureInfo.ERP=##class(%ListOfObject).%New()
+	}
+	
+	Set ERP=..CaptureInfo.ERP.GetAt(1)
+	
+	If '$isObject(ERP)
+	{
+		Set ERP=##class(APPS.VisiDot.dto.ERP).%New()
+		Do ..CaptureInfo.ERP.Insert(ERP)
+	}
+	Quit ERP
+]]></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="GeefSleutelWaarde">
+<FormalSpec>Sleutel</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isobject(..CaptureInfo.ERP) ""
+	Set ERP=..CaptureInfo.ERP.GetAt(1)
+	Quit:'$isObject(ERP) ""
+	Quit:'$isObject(ERP.ReadData) ""
+	
+	Set ReadData=..ZoekSleutel(List,Sleutel)
+	Quit ReadData.Waarde
+]]></Implementation>
+</Method>
+
+<Method name="ZetSleutelWaarde">
+<FormalSpec>Sleutel,Waarde</FormalSpec>
+<Implementation><![CDATA[
+	Set ERP=..GeefERP()
+	Set:'$isObject(ERP.ReadData) ERP.ReadData=##class(%ListOfObject).%New()
+	Do ..AddSleutelWaarde(ERP.ReadData,Sleutel,Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="AddSleutelWaarde">
+<FormalSpec>List,Sleutel,Waarde</FormalSpec>
+<Implementation><![CDATA[
+
+	Set ReadData=..ZoekSleutel(List,Sleutel)
+	If $isobject(ReadData)
+	{
+		Set ReadData.Value=Waarde
+	}
+	Else
+	{
+		Set ReadData=##class(APPS.VisiDot.dto.ReadData).%New()
+		Set ReadData.Name=Sleutel
+		Set ReadData.Value=Waarde
+		Do List.Insert(ReadData)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/Coordinate.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/Coordinate.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/Coordinate.cls.xml	(revision 1717)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.Coordinate">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Coordinate</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="X">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="X"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Y">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Y"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml	(revision 1717)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VisiDot.TestVHoss">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VisiDot")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="VHossBuilder">
+<Type>%String</Type>
+</Property>
+
+<Property name="WebService">
+<Type>%String</Type>
+</Property>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
+	Do QueueBuilder.Initialize()
+	Set BatchID=QueueBuilder.BuildBatch()
+	Set ..VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildCapture).%New(BatchID)
+	Set ..WebService = ##class(WS.VisiDot.OperatorServer).%New()
+]]></Implementation>
+</Method>
+
+<Method name="All">
+<Implementation><![CDATA[
+	Write !,"### GOOD CAPTURE ###",!
+	Do ..TestGoodCapture()
+	Write !,"### PLUSONE ###",!
+	Do ..TestPlusOne()
+	Write !,"### MINUS ONE ###",!
+	Do ..TestMinusOne()
+	Write !,"### TEST DUBBEL ###",!
+	Do ..TestDubbel()
+]]></Implementation>
+</Method>
+
+<Method name="TestGoodCapture">
+<Description>
+do ##class(vhUnitTest.APPS.VisiDot.TestVHoss).%New("").All()</Description>
+<Implementation><![CDATA[
+	Do ..Init()
+	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
+	Write "**** CONTROLE ****",!
+	Do ..WebService.UpdateData("READ", Capture, .ResultDesc, .ProcessedData)
+	
+	Set ERP=ProcessedData.ERP.GetAt(1)
+	Do ERP.XMLExport(,"literal,indent")
+	
+	;Do $$$AssertTrue(ResultDesc,"CaptureOK")
+]]></Implementation>
+</Method>
+
+<Method name="TestPlusOne">
+<Implementation><![CDATA[
+	Do ..Init()
+	Set Capture=..VHossBuilder.CorrectVHossPlusOne(1,1)
+	Write "**** CONTROLE ****",!
+	Do ..WebService.UpdateData("READ", Capture, .ResultDesc, .ProcessedData)
+	;Do $$$AssertTrue(ResultDesc,"CaptureOK")
+]]></Implementation>
+</Method>
+
+<Method name="TestMinusOne">
+<Implementation><![CDATA[
+	Do ..Init()
+	Set Capture=..VHossBuilder.CorrectVHossMinusOne(1,1)
+	Write "**** CONTROLE ****",!
+	Do ..WebService.UpdateData("READ", Capture, .ResultDesc, .ProcessedData)
+	;Do $$$AssertTrue(ResultDesc,"CaptureOK")
+]]></Implementation>
+</Method>
+
+<Method name="TestDubbel">
+<Implementation><![CDATA[
+	Do ..Init()
+	Set Capture=..VHossBuilder.CorrectVHossMinusOne(1,1)
+	Write "**** CONTROLE ****",!
+	Do ..WebService.UpdateData("READ", Capture, .ResultDesc, .ProcessedData)
+	
+	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
+	Write "**** CONTROLE ****",!
+	Do ..WebService.UpdateData("READ", Capture, .ResultDesc, .ProcessedData)
+	
+	Set ERP=ProcessedData.ERP.GetAt(1)
+	Do ERP.XMLExport(,"literal,indent")
+	;Do $$$AssertTrue(ResultDesc,"CaptureOK")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/DetectionIterator.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/DetectionIterator.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/DetectionIterator.cls.xml	(revision 1717)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.DetectionIterator">
+<Description><![CDATA[
+Loopen door de Detection elementen, 
+maar er worden 2 beelden genomen van een VHoss 
+daarom loopen over meerdere nivos: Camera->Photo->Detection]]></Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Iterator,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Sequence">
+<Type>APPS.VisiDot.dto.Sequence</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CameraNbr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Camera">
+<Type>APPS.VisiDot.dto.Camera</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PhotoNbr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Photo">
+<Type>APPS.VisiDot.dto.Photo</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DetectionNbr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Detection">
+<Type>APPS.VisiDot.dto.Detection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+		Quit:'$isObject(Data.VRRead) $$$OK
+		Quit:'Data.VRRead.Count() $$$OK
+		Set VRRead=Data.VRRead.GetAt(1) 
+		Quit:'VRRead.Reader.Count() $$$OK
+		Set Reader=VRRead.Reader.GetAt(1)
+		Quit:'Reader.Sequence.Count() $$$OK
+		Set ..Sequence=Reader.Sequence.GetAt(1)
+		; First
+		Quit:'..Sequence.Camera.Count() $$$OK
+		
+		Do ..Order()
+		Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<Description>
+Returns true if the iteration has more elements.</Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ''..CameraNbr
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Description>
+Returns the next element in the iteration.
+Only returns a valid element if HasNext() returns true
+Causes an error if HasNext() returns false</Description>
+<ReturnType>APPS.VisiDot.dto.Detection</ReturnType>
+<Implementation><![CDATA[
+	Quit:'..HasNext() ""
+	;w !,"Next",..CameraNbr," ",..PhotoNbr," ",..DetectionNbr
+	Set Detection=..Detection
+	
+	Do ..Order()
+	Quit Detection
+]]></Implementation>
+</Method>
+
+<Method name="Order">
+<Implementation><![CDATA[
+	;w !,"***Order"
+	
+	If '..PhotoNbr 
+	{
+		Set Nbr=..CameraNbr
+		Set ..Camera=..Sequence.Camera.GetNext(.Nbr)	
+		Set ..CameraNbr=Nbr
+	;w " cam:",Nbr," "
+	}
+	Quit:'..CameraNbr
+	If '..DetectionNbr 
+	{
+		Set Nbr=..PhotoNbr
+		Set ..Photo=..Camera.Photo.GetNext(.Nbr)	
+		Set ..PhotoNbr=Nbr
+	;w " photo:",Nbr, " "
+	}
+	If '..PhotoNbr Do ..Order() Quit
+	Quit:'..CameraNbr 
+	
+	Set Nbr=..DetectionNbr
+	Set ..Detection=..Photo.Detection.GetNext(.Nbr)	
+	Set ..DetectionNbr=Nbr
+	;w " det:",Nbr," "
+	If '..DetectionNbr Do ..Order()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/Camera.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/Camera.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/Camera.cls.xml	(revision 1717)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.Camera">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Camera</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Photo">
+<Type>APPS.VisiDot.dto.Photo</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Photo"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Name">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Name"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Id">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Side">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Side"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Row">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Row"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Column">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Column"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="OffsetX">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="OffsetX"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="OffsetY">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="OffsetY"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/Director.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/Director.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/Director.cls.xml	(revision 1717)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.Director">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Director</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="ReadData">
+<Type>APPS.VisiDot.dto.ReadData</Type>
+<Collection>list</Collection>
+<Parameter name="XMLELEMENTREF" value="1"/>
+<Parameter name="XMLNAME" value="Read_Data"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="PalletID">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="PalletID"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ReadID">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="ReadID"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="OperatorMachineName">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="OperatorMachineName"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="UserName">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="UserName"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="SubPallets">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="SubPallets"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="AssetID">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Asset_ID"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="AssetType">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Asset_Type"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="TypeLevel">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Type_Level"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ProductionDate">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Production_Date"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: vhUnitTest/APPS/VisiDot/impl/BuildCapture.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VisiDot/impl/BuildCapture.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VisiDot/impl/BuildCapture.cls.xml	(revision 1717)
@@ -0,0 +1,205 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VisiDot.impl.BuildCapture">
+<IncludeCode>BL.PPS.TBX.Common</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="QueueList">
+<Description>
+format PRNr;Aantal;VHOSS.Zijkant</Description>
+<Default>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\427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2</Default>
+</Parameter>
+
+<Property name="BatchID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VHossID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="SlotLabel">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="SequenceNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VHoss">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+</Property>
+
+<Property name="Capture">
+<Type>APPS.VisiDot.dto.CaptureInfo</Type>
+</Property>
+
+<Property name="Sequence">
+<Type>APPS.VisiDot.dto.Sequence</Type>
+</Property>
+
+<Property name="ProductionHelper">
+<Type>APPS.VisiDot.impl.ProductionHelper</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BatchID</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductionHelper=##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
+	Set ..BatchService=##class(APPS.Halux.common.BatchService).%New()
+	Set ..BatchID=BatchID
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="CorrectVHoss">
+<FormalSpec>VHossNr,Zijkant</FormalSpec>
+<Implementation><![CDATA[
+	Do ..BuildCapture()
+	Do ..AddCamera() ; Onderste
+	Do ..AddCamera() ; Bovenste
+	
+	Set QueueIterator=..BatchService.GeefQueueIterator(..BatchID)
+
+	Set Detection=..BuildFrameDetection($S(VHossNr=1:77,1:99),Zijkant)
+	Do ..AddDetection2Capture(Detection,0)
+	
+	While QueueIterator.HasNext()
+	{
+		Set Queue=QueueIterator.Next()
+		Continue:(Queue.WPVerpak.UnitNr'=VHossNr)||(Queue.WPVerpak.SubNr'=Zijkant)
+		Set Detection=..BuildDetectionFromQueue(Queue)
+		Do ..AddDetection2Capture(Detection,Queue.WPVerpak.SlotNr)
+	}
+	Quit ..Capture
+]]></Implementation>
+</Method>
+
+<Method name="CorrectVHossPlusOne">
+<FormalSpec>VHossNr,Zijkant</FormalSpec>
+<Implementation><![CDATA[
+	Set Capture=..CorrectVHoss(VHossNr, Zijkant)
+	Set Detection=..BuildExtraDetection(VHossNr, Zijkant)
+	Do ..AddDetection2Capture(Detection,30)
+	Quit ..Capture
+]]></Implementation>
+</Method>
+
+<Method name="CorrectVHossMinusOne">
+<FormalSpec>VHossNr,Zijkant</FormalSpec>
+<Implementation><![CDATA[
+	Set Capture=..CorrectVHoss(VHossNr, Zijkant)
+	Do ..DeleteLastDetection2Capture()
+	Quit ..Capture
+]]></Implementation>
+</Method>
+
+<Method name="BuildCapture">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Capture=##class(APPS.VisiDot.dto.CaptureInfo).%New()
+	Set VRRead=##class(APPS.VisiDot.dto.VRRead).%New()
+	Do ..Capture.VRRead.Insert(VRRead)
+	Set Reader=##class(APPS.VisiDot.dto.Reader).%New()
+	Do VRRead.Reader.Insert(Reader)
+	Set ..Sequence=##class(APPS.VisiDot.dto.Sequence).%New()
+	Do Reader.Sequence.Insert(..Sequence)
+]]></Implementation>
+</Method>
+
+<Method name="AddCamera">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Camera=##class(APPS.VisiDot.dto.Camera).%New()
+	Do ..Sequence.Camera.Insert(Camera)
+	Set Photo=##class(APPS.VisiDot.dto.Photo).%New()
+	Do Camera.Photo.Insert(Photo)
+]]></Implementation>
+</Method>
+
+<Method name="BuildFrameDetection">
+<FormalSpec>VHossID,ZijkantNr</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Detection=##class(APPS.VisiDot.dto.Detection).%New()
+	Set Detection.Id=..ProductionHelper.BuildVHossID(VHossID,ZijkantNr)
+	; Director
+	Set Director=##class(APPS.VisiDot.dto.Director).%New()
+	Set Director.AssetType="VHossFrame"
+	Do Detection.Director.Insert(Director)
+	;Write !,Director.AssetType,*9,Detection.Id,!
+	Quit Detection
+]]></Implementation>
+</Method>
+
+<Method name="BuildDetectionFromQueue">
+<FormalSpec>Queue</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Detection=##class(APPS.VisiDot.dto.Detection).%New()
+	Set Detection.Id=..ProductionHelper.BuildLadeID(Queue.BatchID, Queue.WPVerpak.UnitNr, Queue.WPVerpak.SubNr, Queue.ProductGetObjectId())
+	Set Director=..BuildDirectorFromQueue(Queue)
+	Do Detection.Director.Insert(Director)
+	;w Director.AssetType,*9,Detection.Id,*9,Director.AssetID,!
+	Quit Detection
+]]></Implementation>
+</Method>
+
+<Method name="BuildDirectorFromQueue">
+<FormalSpec>Queue</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	;XML <Director Production_Date="25-FEB-09" Type_Level="PRODUCT" Asset_Type="166141" Asset_ID="41843"/>
+	Set Director=##class(APPS.VisiDot.dto.Director).%New()
+	Set Director.AssetID=Queue.WPVerpak.SlotNr
+	Set Director.AssetType="VHossSlot"
+	Quit Director
+]]></Implementation>
+</Method>
+
+<Method name="AddDetection2Capture">
+<FormalSpec>Detection,UnitNr</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Camera=..Sequence.Camera.GetAt($S(UnitNr>10:2,1:1))
+	Set Photo=Camera.Photo.GetAt(1)
+	Do Photo.Detection.Insert(Detection)
+]]></Implementation>
+</Method>
+
+<Method name="DeleteLastDetection2Capture">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Camera=..Sequence.Camera.GetAt(1)
+	Set Photo=Camera.Photo.GetAt(1)
+	If Photo.Detection.Count()>0
+	{
+		Do Photo.Detection.RemoveAt(Photo.Detection.Count())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BuildExtraDetection">
+<FormalSpec>VHossNr,Zijkant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Detection=##class(APPS.VisiDot.dto.Detection).%New()
+	Set Detection.Id=..ProductionHelper.BuildLadeID(..BatchID, VHossNr, Zijkant, 3551)
+	Set Director=##class(APPS.VisiDot.dto.Director).%New()
+	Set Director.AssetID=30
+	Set Director.AssetType="VHossSlot"
+	Do Detection.Director.Insert(Director)
+	Quit Detection
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: PV VisiDot.prj.xml
===================================================================
diff -u
--- PV VisiDot.prj.xml	(revision 0)
+++ PV VisiDot.prj.xml	(revision 1717)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="PV VisiDot" LastModified="2011-07-22 17:12:09">
+  <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.dto.Camera" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.CaptureInfo" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.Coordinate" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.CrateCoordinate" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.DUAL" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.DUALData" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.Detection" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.Director" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.ERP" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.ErrorMessage" 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"/>
+    <ProjectItem name="APPS.VisiDot.dto.ReadXMLStages" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.Reader" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.Sequence" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.StatusLight" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.dto.VRRead" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.enu.DetectionKleur" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.enu.FoutTypes" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.CaptureHelper" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.DetectionHelper" type="CLS"/>
+    <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.VHossCaptureHelper" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossControleurEnd" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossControleurZijkant" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossFrameDetectionHelper" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossLadeDetectionHelper" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossLadeIterator" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.VHossProductionHelper" 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.TestVHoss" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildCapture" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildQueue" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: APPS/VisiDot/dto/DUALData.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/DUALData.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/DUALData.cls.xml	(revision 1717)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.DUALData">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>DUALData</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="SubPallets">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="SubPallets"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(revision 1717)
@@ -0,0 +1,149 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossProductionHelper">
+<Description><![CDATA[
+<font color="#ff0000"><b>FrameID</b></font>
+Formaat : 10 alfanumeriek TTSVVVVVVV
+- O1 : type : O1 is VHOSS01
+- S : zijkant : A of B
+- VVVVVVV : volgnummer
+
+<font color="#ff0000"><b>LadeID</b></font>
+Formaat : 16 numeriek bbbbbvvvpppppppp
+- bbbbb : is het batchnummer (5 cijfers met leading zero)
+- vvv : is de vhoss volgnummer (3 cijfers met leading zero), 1 per
+zijkant
+- pppppppp : is het internproductnummer (8 cijfers met leading zero)]]></Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>ProductionHelper</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+</Property>
+
+<Property name="QueueLijst">
+<Type>%ListOfObjects</Type>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..BatchService=##class(APPS.Halux.common.BatchService).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BuildLadeID">
+<Description>
+</Description>
+<FormalSpec>Batch:%Integer,VHossSeqNr:%List,VHossZijkant:%String,Product:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Justify(Batch,5)_..Justify(VHossSeqNr,2)_..Justify(VHossZijkant,1)_..Justify(Product,8)
+]]></Implementation>
+</Method>
+
+<Method name="BuildVHossID">
+<FormalSpec>VHossNr,Zijkant</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "O1"_Zijkant_..Justify(VHossNr,7)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchVanLadeID">
+<FormalSpec>LadeID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit +$E(LadeID,1,5)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductVanLadeID">
+<FormalSpec>LadeID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit +$E(LadeID,9,16)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossVolgNrVanLadeID">
+<FormalSpec>LadeID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit +$E(LadeID,6,7)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossZijkantVanLadeID">
+<FormalSpec>LadeID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit +$E(LadeID,8)
+]]></Implementation>
+</Method>
+
+<Method name="IsFrameID">
+<Description>
+</Description>
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ID?1"O1"1N7N
+]]></Implementation>
+</Method>
+
+<Method name="IsLadeID">
+<Description>
+</Description>
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ID?16N
+]]></Implementation>
+</Method>
+
+<Method name="Justify">
+<FormalSpec>Val,Len</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Val= $TR($J(Val,Len)," ",0)
+	Set:$L(Val)>Len Val=$E(Val,$L(Val)-Len,$L(Val))
+	Quit Val
+]]></Implementation>
+</Method>
+
+<Method name="InitCache">
+<FormalSpec>BatchID,VHossSeqNr,VHossZijkant</FormalSpec>
+<Implementation><![CDATA[
+	Set it=..BatchService.GeefQueueIterator(BatchID)
+	
+	Set ..QueueLijst=##class(%ListOfObjects).%New()
+	While it.HasNext()
+	{
+		Set Queue=it.Next()
+		Continue:(Queue.WPVerpak.UnitNr'=VHossSeqNr)||(Queue.WPVerpak.SubNr'=VHossZijkant)
+		Do ..QueueLijst.Insert(..GeefQueueHelper(Queue))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SaveCache">
+<Implementation><![CDATA[
+	Set it=..GeefQueueIterator()
+	
+	While it.HasNext()
+	{
+		Set QueueHelper=it.Next()
+		Continue:('QueueHelper.IsModified())
+		Set sc=QueueHelper.Save()
+		If $$$ISERR(sc) $$$ThrowErrorStatus($$$errSaveFailed,"Queue:"_QueueHelper.GeefID(),sc)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefQueueIterator">
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..QueueLijst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefQueueHelper">
+<FormalSpec>QueueElement</FormalSpec>
+<Implementation><![CDATA[	Quit ##class(QueueHelper).%New(QueueElement)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/ERP.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/ERP.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/ERP.cls.xml	(revision 1717)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.ERP">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>ERP</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="ErrorMessage">
+<Type>APPS.VisiDot.dto.ErrorMessage</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="ErrorMessage"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="StatusLight">
+<Type>APPS.VisiDot.dto.StatusLight</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="StatusLight"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="ReadData">
+<Type>APPS.VisiDot.dto.ReadData</Type>
+<Collection>list</Collection>
+<Parameter name="XMLELEMENTREF" value="1"/>
+<Parameter name="XMLNAME" value="Read_Data"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="ReadStatus">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="ReadStatus"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/ControleurFactory.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/ControleurFactory.cls.xml	(revision 0)
+++ APPS/VisiDot/ControleurFactory.cls.xml	(revision 1717)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.ControleurFactory">
+<Description>
+Geef de controleur om een zijkant of einde te controleren.
+Momenteel alleen controleurs voor vHossen later kan dit uitgebreid
+worden naar andere stapelingen</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefControleur">
+<Description>
+</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>Controleur</ReturnType>
+<Implementation><![CDATA[
+	If ##class(APPS.VisiDot.impl.VHossControleurZijkant).IsVerwerker(ActionType,Data)
+	{
+		Set Controleur=##class(APPS.VisiDot.impl.VHossControleurZijkant).%New(ActionType,Data)
+	}
+	ElseIf  ##class(APPS.VisiDot.impl.VHossControleurEnd).IsVerwerker(ActionType,Data)
+	{
+		Set Controleur=##class(APPS.VisiDot.impl.VHossControleurEnd).%New(ActionType,Data)		
+	}
+	Quit $G(Controleur)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/VRRead.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/VRRead.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/VRRead.cls.xml	(revision 1717)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.VRRead">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>VRRead</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Reader">
+<Type>APPS.VisiDot.dto.Reader</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Reader"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="DUALData">
+<Type>APPS.VisiDot.dto.DUALData</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="DUAL_Data"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Id">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="Id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ExternalId">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="ExternalId"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Result">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Result"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="CommandTime">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="CommandTime"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="EndTime">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="EndTime"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="PalletsList">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Pallets_List"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/QueueHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/QueueHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/QueueHelper.cls.xml	(revision 1717)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.QueueHelper">
+<Description>
+Encapsulatie van de VisiDot detection dataobject voor de VHoss frame</Description>
+<IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="QueueElement">
+<Type>DS.PPS.TBX.Queue</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueueElement:DS.PPS.TBX.Queue,ProductAPI</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..QueueElement = QueueElement
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[
+	Set:..QueueElement.WPVerpak.FirstChanged="" ..QueueElement.WPVerpak.FirstChanged=$$$Timestamp($H)
+	Set ..QueueElement.WPVerpak.LastChanged=$$$Timestamp($H)
+	Quit ..QueueElement.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="IsModified">
+<Implementation><![CDATA[	Quit ..QueueElement.%IsModified()
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<Implementation><![CDATA[	Quit ..QueueElement.%Id()
+]]></Implementation>
+</Method>
+
+<Method name="GeefData">
+<ReturnType>APPS.VisiDot.dto.CaptureInfo</ReturnType>
+<Implementation><![CDATA[	Quit ..QueueElement
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchID">
+<Description>
+If (Queue.BatchID'=BatchID)||(Queue.WPVerpak.UnitNr'=VHossSeqNr)||(Queue.WPVerpak.SubNr'=VHossZijkant)</Description>
+<Implementation><![CDATA[	Quit ..QueueElement.BatchID
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossSeqNr">
+<Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.UnitNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossZijkant">
+<Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.SubNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefVHossSlotNr">
+<Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.SlotNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductNr">
+<Implementation><![CDATA[	Quit ..QueueElement.ProductGetObjectId()
+]]></Implementation>
+</Method>
+
+<Method name="GeefFrameID">
+<Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.FrameID
+]]></Implementation>
+</Method>
+
+<Method name="ZetFrameID">
+<FormalSpec>FrameID</FormalSpec>
+<Implementation><![CDATA[	Set ..QueueElement.WPVerpak.FrameID=FrameID
+]]></Implementation>
+</Method>
+
+<Method name="GeefTijdStip">
+<Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.LastChanged
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfo">
+<FormalSpec><![CDATA[&Toelevering,&DossierCode,&Omschrijving]]></FormalSpec>
+<Implementation><![CDATA[
+	Set Toelevering=..QueueElement.TOENr
+	Set DossierCode=..QueueElement.DOSNr
+	Set Product=##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(..GeefProductNr())
+	Set Omschrijving=Product.GeefLangtekst()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/ReadXMLStages.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/ReadXMLStages.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/ReadXMLStages.cls.xml	(revision 1717)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.ReadXMLStages">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>ReadXMLStages</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="ReadStage">
+<Type>APPS.VisiDot.dto.ReadStage</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Read_Stage"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/Sequence.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/Sequence.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/Sequence.cls.xml	(revision 1717)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.Sequence">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="XMLNAME">
+<Default>Sequence</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Camera">
+<Type>APPS.VisiDot.dto.Camera</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Camera"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="SequenceID">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="SequenceID"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="SeqTime">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="SeqTime"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/ErrorMessage.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/ErrorMessage.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/ErrorMessage.cls.xml	(revision 1717)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.ErrorMessage">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>ErrorMessage</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Message">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Message"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="MessageTitle">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="MessageTitle"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r1477 -r1717
--- APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 1477)
+++ APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 1717)
@@ -48,6 +48,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefQueueIterator">
+<FormalSpec>BatchID</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set QueueLijst = ##class(%ListOfObjects).%New()
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID FROM PPS.TBX_Queue WHERE BatchID=?")
+	Do ResultSet.Execute(BatchID)
+	While (ResultSet.Next())
+	{
+		Set Queue =##class(DS.PPS.TBX.Queue).%OpenId(ResultSet.Data("ID"))
+		Do QueueLijst.Insert(Queue)
+	}
+	Quit ##class(TECH.ListIterator).%New(QueueLijst)
+]]></Implementation>
+</Method>
+
 <Method name="GeefActieveBatchIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
Index: APPS/VisiDot/dto/StatusLight.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/StatusLight.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/StatusLight.cls.xml	(revision 1717)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.StatusLight">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>StatusLight</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Color">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Color"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Time">
+<Type>%String</Type>
+<SqlFieldName>_Time</SqlFieldName>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Time"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="BuzzerStatus">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="BuzzerStatus"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="BuzzerTime">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="BuzzerTime"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/enu/FoutTypes.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/enu/FoutTypes.cls.xml	(revision 0)
+++ APPS/VisiDot/enu/FoutTypes.cls.xml	(revision 1717)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.enu.FoutTypes">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,SYSTEM,ERROR,WARNING</Default>
+</Parameter>
+
+<Method name="Fout">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["ERROR"
+]]></Implementation>
+</Method>
+
+<Method name="Waarschuwing">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["WARNING"
+]]></Implementation>
+</Method>
+
+<Method name="Systeem">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["SYSTEM"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/CrateCoordinate.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/CrateCoordinate.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/CrateCoordinate.cls.xml	(revision 1717)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.CrateCoordinate">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>CrateCoordinate</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="X">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="X"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Y">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Y"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/ProductionHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/ProductionHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/ProductionHelper.cls.xml	(revision 1717)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.ProductionHelper">
+<Description><![CDATA[
+<font color="#ff0000"><b>FrameID</b></font>
+Formaat : 10 alfanumeriek TTSVVVVVVV
+- O1 : type : O1 is VHOSS01
+- S : zijkant : A of B
+- VVVVVVV : volgnummer
+
+<font color="#ff0000"><b>LadeID</b></font>
+Formaat : 16 numeriek bbbbbvvvpppppppp
+- bbbbb : is het batchnummer (5 cijfers met leading zero)
+- vvv : is de vhoss volgnummer (3 cijfers met leading zero), 1 per
+zijkant
+- pppppppp : is het internproductnummer (8 cijfers met leading zero)]]></Description>
+<Abstract>1</Abstract>
+<IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/Photo.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/Photo.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/Photo.cls.xml	(revision 1717)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.Photo">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Photo</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Detection">
+<Type>APPS.VisiDot.dto.Detection</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Detection"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="File">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="File"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="URL">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="URL"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="OriginalFile">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="OriginalFile"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Width">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Width"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Height">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="Height"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Capturetime">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Capture_time"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: WS/VisiDot/OperatorServer.cls.xml
===================================================================
diff -u
--- WS/VisiDot/OperatorServer.cls.xml	(revision 0)
+++ WS/VisiDot/OperatorServer.cls.xml	(revision 1717)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.VisiDot.OperatorServer">
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Description>
+Name of the WebService.</Description>
+<Default>VisiDotService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://vhisie.vanhoecke.be/V3</Default>
+</Parameter>
+
+<Property name="Controleur">
+<Type>APPS.VisiDot.Controleur</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GetStatus">
+<Description>
+</Description>
+<FormalSpec><![CDATA[Data:%String,&Desc:%String]]></FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Set Desc=1
+]]></Implementation>
+</Method>
+
+<Method name="PingTest">
+<Description>
+</Description>
+<FormalSpec/>
+<WebMethod>1</WebMethod>
+</Method>
+
+<Method name="UpdateData">
+<Description>
+</Description>
+<FormalSpec><![CDATA[ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo,&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Do ..GeefControleur(ActionType,Data)
+	Do ..Controleur.UpdateData(.ResultDesc,.ProcessedData)
+]]></Implementation>
+</Method>
+
+<Method name="GeefControleur">
+<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VisiDot.Controleur</ReturnType>
+<Implementation><![CDATA[
+	Set ..Controleur=##class(APPS.VisiDot.ControleurFactory).GeefControleur(ActionType,Data)
+	If '$isObject(..Controleur) $$$ThrowError($$$errGeneralError,"VisiDot:Geen controleur beschikbaar")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/CaptureInfo.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/CaptureInfo.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/CaptureInfo.cls.xml	(revision 1717)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.CaptureInfo">
+<Description>
+Root klasse van de data uitwisseling met VisiDot</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="XMLNAME">
+<Default>Capture_Info</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLTYPE">
+<Default>Capture_Info</Default>
+</Parameter>
+
+<Property name="Director">
+<Type>APPS.VisiDot.dto.Director</Type>
+<Collection>list</Collection>
+<Parameter name="XMLELEMENTREF" value="1"/>
+<Parameter name="XMLNAME" value="Director"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="ERP">
+<Type>APPS.VisiDot.dto.ERP</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="ERP"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="GUI">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="GUI"/>
+</Property>
+
+<Property name="VRRead">
+<Type>APPS.VisiDot.dto.VRRead</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="VR_Read"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="ReadXMLStages">
+<Type>APPS.VisiDot.dto.ReadXMLStages</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="Read_XML_Stages"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="ControllerAlias">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="ControllerAlias"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ControllerName">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="ControllerName"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="PhotosInXmlDir">
+<Type>%Boolean</Type>
+<Parameter name="XMLNAME" value="PhotosInXmlDir"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/DUAL.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/DUAL.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/DUAL.cls.xml	(revision 1717)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.DUAL">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>DUAL</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="CodeWidthMM">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="CodeWidthMM"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ColInPallet">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="ColInPallet"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="RowInPallet">
+<Type>%xsd.int</Type>
+<Parameter name="XMLNAME" value="RowInPallet"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="CrateType">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="CrateType"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="CodeType">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="CodeType"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>
Index: DS/PPS/TBX/sub/emWPVerpak.cls.xml
===================================================================
diff -u -r1074 -r1717
--- DS/PPS/TBX/sub/emWPVerpak.cls.xml	(.../emWPVerpak.cls.xml)	(revision 1074)
+++ DS/PPS/TBX/sub/emWPVerpak.cls.xml	(.../emWPVerpak.cls.xml)	(revision 1717)
@@ -34,6 +34,12 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="FrameID">
+<Description>
+Wordt ingevuld door het VisiDot systeem</Description>
+<Type>%String</Type>
+</Property>
+
 <Property name="KlantSort">
 <Description>
 Volgorde waarin de klant de producten wenst</Description>
@@ -94,6 +100,9 @@
 <Value name="13">
 <Value>UnitNr</Value>
 </Value>
+<Value name="14">
+<Value>FrameID</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml	(revision 1717)
@@ -0,0 +1,118 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VisiDot.impl.BuildQueue">
+<IncludeCode>BL.PPS.TBX.Common</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="QueueList">
+<Description>
+format PRNr;Aantal;VHOSS.Zijkant</Description>
+<Default>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\427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2</Default>
+</Parameter>
+
+<Property name="BatchID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VHossID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="SlotLabel">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="TOENr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="SequenceNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KLNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VHoss">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+</Property>
+
+<Method name="Initialize">
+<Implementation><![CDATA[
+
+	Set ..BatchID=99999
+	Set ..VHossID=""
+	Set ..SlotLabel=0
+	Set ..TOENr=234567
+	Set ..KLNr=1239
+	Set ..SequenceNr=0
+	Do ..DeleteBatch()
+]]></Implementation>
+</Method>
+
+<Method name="BuildBatch">
+<Implementation><![CDATA[
+	Set QueueList=..#QueueList
+	For I=1:1:$L(QueueList,"\") 
+	{
+		Set PRNr=$P($P(QueueList,"\",I),";",1)
+		Set Aantal=$P($P(QueueList,"\",I),";",2)
+		Set VHossID=$P($P(QueueList,"\",I),";",3)
+		;w "I",I,!
+		Do ..BuildQueueElement(VHossID,PRNr,Aantal)
+	}
+	Quit ..BatchID
+]]></Implementation>
+</Method>
+
+<Method name="DeleteBatch">
+<Implementation><![CDATA[
+	Set BatchID=..BatchID
+	&sql(
+	Delete FROM PPS.TBX_Queue WHERE BatchID=:BatchID
+	)
+]]></Implementation>
+</Method>
+
+<Method name="BuildQueueElement">
+<FormalSpec>VHossID,PRNr,Aantal</FormalSpec>
+<Implementation><![CDATA[
+	If VHossID'=..VHossID
+	{
+		 Set ..SlotLabel=0
+		 Set ..VHossID=VHossID
+	}
+	For J=1:1:Aantal 
+	{
+		;w "loop:",PRNr," ",J,!
+		Set ..SequenceNr=..SequenceNr+1
+		Set ..SlotLabel=..SlotLabel+1
+		;
+		Set oQ=##class(DS.PPS.TBX.Queue).%New()
+		Do oQ.ProductSetObjectId(PRNr)
+		Set oQ.TOENr=..TOENr
+		Set oQ.TLUNr=1
+		Do oQ.KlantSetObjectId(..KLNr)
+		Set oQ.DOSNr=$P($G(^KPR(PRNr,"G")),"\",1) ; dossier
+		Set oQ.Sequence=..SequenceNr
+		Set oQ.TotaalAantal=Aantal
+		Set oQ.DeelAantal=J
+		Set oQ.BatchID=..BatchID
+		Set oQ.Status=$$$tsWachtend
+		Set oQ.WPVerpak=##class(BL.PPS.TBX.WPVerpak).CreateVHoss(..KLNr,oQ.TOENr,oQ.TLUNr,PRNr,1,$P(VHossID,"."),$P(VHossID,".",2),..SlotLabel,..SequenceNr)
+		Set Status=oQ.%Save() D:$$$ISERR(Status) WE^vhDBG(Status,"PPSTBX AddBatch")
+		;w $$ParseStatus^vhLib(Status)
+		;Set ..VHoss($P(VHossID,"."),$P(VHossID,".",2),oQ.%Id())=""
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/zTryout.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/zTryout.cls.xml	(revision 0)
+++ APPS/VisiDot/zTryout.cls.xml	(revision 1717)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.zTryout">
+<Description>
+ Importeren van de XML gedefinieerd door de optimizer en deze opslaan in de basistabellen</Description>
+<IncludeCode>BL.Prod.OptiBox,%Prod.Product,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Error.ErrorAdaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="it">
+<Description>
+D ##class(APPS.VisiDot.zTryout).%New().it()</Description>
+<Implementation><![CDATA[
+	Set Data=..Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
+		Set VRRead=Data.VRRead.GetAt(1) 
+		Set Reader=VRRead.Reader.GetAt(1)
+		Set Sequence=Reader.Sequence.GetAt(1)
+		Set Camera=Sequence.Camera.GetAt(2)
+		Set Photo=Camera.Photo.GetAt(1)
+		Set Photo.Detection=""
+	Set it=##class(APPS.VisiDot.impl.VHossLadeIterator).%New(Data)
+		
+	While it.HasNext()
+	{
+		Set Detection=it.Next()
+		;Do Detection.XMLExport()
+		Write !
+	}
+	Quit $$$OK
+]]></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[
+	#include %occStatus
+	
+
+	Set reader = ##class(%XML.Reader).%New()
+	// Begin processing of the XML input
+	Set sc=reader.OpenFile(Dir_FileName)
+	
+	If $$$ISERR(sc)	do ParseStatus^vhLib(sc) Do WEIP^vhDBG(15,sc,"Openfile: "_Dir_FileName) ;AddErrorToLog^BL.EC.Common("VISIDOT", "Diverse", sc,"Openfile: "_Dir_FileName) Quit ""
+
+	Do reader.Correlate("Capture_Info","APPS.VisiDot.dto.CaptureInfo") ;Associate a class name with the XML element name
+	
+	Quit:'reader.Next(.CaptureInfo,.sc)
+
+	Quit:$$$ISERR(sc) ""
+	Quit $G(CaptureInfo)
+]]></Implementation>
+</Method>
+
+<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")
+	do ##class(WS.VisiDot.OperatorServer).%New().UpdateData("READ", Data, .ResultDesc, .ProcessedData)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="End">
+<Description>
+D ##class(APPS.VisiDot.zTryout).%New().End()</Description>
+<Implementation><![CDATA[
+	Set Data=..Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
+	Set Data.VRRead="" ; geen beeld info
+	do ##class(WS.VisiDot.OperatorServer).%New().UpdateData("END", Data, .ResultDesc, .ProcessedData)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/Controleur.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/Controleur.cls.xml	(revision 0)
+++ APPS/VisiDot/Controleur.cls.xml	(revision 1717)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.Controleur">
+<Abstract>1</Abstract>
+<IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CaptureHelper">
+<Type>APPS.VisiDot.impl.CaptureHelper</Type>
+</Property>
+
+<Property name="ProductionHelper">
+<Type>APPS.VisiDot.impl.ProductionHelper</Type>
+</Property>
+
+<Property name="CaptureInfo">
+<Type>APPS.VisiDot.dto.CaptureInfo</Type>
+</Property>
+
+<Property name="ActionType">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ActionType:%String,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ActionType=ActionType
+	Set ..CaptureInfo=CaptureInfo
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwerker">
+<Description>
+Bepaald of deze classe geschikt als verwerker</Description>
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActionType:%String,Data:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="UpdateData">
+<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>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossCaptureHelper.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(revision 1717)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossCaptureHelper">
+<Description>
+Encapsulatie van de VisiDot detection dataobject voor de VHoss frame</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>CaptureHelper</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProductionHelper">
+<Type>ProductionHelper</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo,ProductionHelper:ProductionHelper</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductionHelper=ProductionHelper
+	Do ##super(CaptureInfo)
+	;w "capturehelper new ",..ProductionHelper,!
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchID">
+<Implementation><![CDATA[	Quit
+]]></Implementation>
+</Method>
+
+<Method name="ZetBatchID">
+</Method>
+
+<Method name="GeefDetectionHelper">
+<FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
+<Implementation><![CDATA[
+	If ..IsFrameDetection(Detection) Quit ##class(VHossFrameDetectionHelper).%New(Detection,##this)
+	If ..IsLadeDetection(Detection) Quit ##class(VHossLadeDetectionHelper).%New(Detection,##this)
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="IsLadeDetection">
+<FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
+<Implementation><![CDATA[	Quit ..IsLadeID(Detection.Id)
+]]></Implementation>
+</Method>
+
+<Method name="IsFrameDetection">
+<FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
+<Implementation><![CDATA[		Quit ..IsFrameID(Detection.Id)
+]]></Implementation>
+</Method>
+
+<Method name="IsLadeID">
+<FormalSpec>ID</FormalSpec>
+<Implementation><![CDATA[	Quit ..ProductionHelper.IsLadeID(ID)
+]]></Implementation>
+</Method>
+
+<Method name="IsFrameID">
+<FormalSpec>ID</FormalSpec>
+<Implementation><![CDATA[	Quit ..ProductionHelper.IsFrameID(ID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeDetectionIterator">
+<ReturnType>APPS.VisiDot.impl.DetectionIterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(VHossLadeIterator).%New(..CaptureInfo, ##this)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/dto/ReadStage.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/dto/ReadStage.cls.xml	(revision 0)
+++ APPS/VisiDot/dto/ReadStage.cls.xml	(revision 1717)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.dto.ReadStage">
+<Description>
+Created from: c:/stage4.xsd</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>ReadStage</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="Name">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Name"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="File">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="File"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Exists">
+<Type>%String</Type>
+<SqlFieldName>_Exists</SqlFieldName>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Exists"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="OriginalFile">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="OriginalFile"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+</Export>