Index: APPS/VisiDot/enu/ResultCodes.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/enu/ResultCodes.cls.xml	(revision 0)
+++ APPS/VisiDot/enu/ResultCodes.cls.xml	(revision 1749)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.enu.ResultCodes">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,OK,ERROR</Default>
+</Parameter>
+
+<Method name="Goed">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["OK"
+]]></Implementation>
+</Method>
+
+<Method name="Fout">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["ERROR"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 1749)
@@ -109,7 +109,7 @@
 <Method name="InitCache">
 <FormalSpec>BatchID,VHossSeqNr,VHossZijkant</FormalSpec>
 <Implementation><![CDATA[
-	Set it=..BatchService.GeefQueueIterator(BatchID)
+	Set it=..GeefBatchIterator(BatchID)
 	
 	Set ..QueueLijst=##class(%ListOfObjects).%New()
 	While it.HasNext()
@@ -130,6 +130,7 @@
 		Set QueueHelper=it.Next()
 		Continue:('QueueHelper.IsModified())
 		Set sc=QueueHelper.Save()
+
 		If $$$ISERR(sc) $$$ThrowErrorStatus($$$errSaveFailed,"Queue:"_QueueHelper.GeefID(),sc)
 	}
 ]]></Implementation>
@@ -145,5 +146,11 @@
 <Implementation><![CDATA[	Quit ##class(QueueHelper).%New(QueueElement)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBatchIterator">
+<FormalSpec>BatchID</FormalSpec>
+<Implementation><![CDATA[	Quit ..BatchService.GeefQueueIterator(BatchID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VisiDot/enu/FoutCodes.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/enu/FoutCodes.cls.xml	(revision 0)
+++ APPS/VisiDot/enu/FoutCodes.cls.xml	(revision 1749)
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.enu.FoutCodes">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,0,5001,5011,5012,5002,5025,5026,5024</Default>
+</Parameter>
+
+<Method name="OK">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["0"
+]]></Implementation>
+</Method>
+
+<Method name="VHossFoutiefVak">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5001"
+]]></Implementation>
+</Method>
+
+<Method name="VHossReedsGedetecteerd">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5011"
+]]></Implementation>
+</Method>
+
+<Method name="VHossNoInfo">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5012"
+]]></Implementation>
+</Method>
+
+<Method name="VHossOntbrekend">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5002"
+]]></Implementation>
+</Method>
+
+<Method name="VHossGeenFrameID">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5025"
+]]></Implementation>
+</Method>
+
+<Method name="VHossOnbekend">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5026"
+]]></Implementation>
+</Method>
+
+<Method name="VHossDubbelFrame">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5024"
+]]></Implementation>
+</Method>
+
+<Method name="VHossOntbrekendeFrame">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5100"
+]]></Implementation>
+</Method>
+
+<Method name="VHossGeenBatchID">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5202"
+]]></Implementation>
+</Method>
+
+<Method name="VHossGeenLaden">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["5201"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrioriteit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FoutCode</FormalSpec>
+<Implementation><![CDATA[	Quit FoutCode
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 1749)
@@ -13,6 +13,25 @@
 <Super>APPS.VisiDot.Controleur</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="BatchID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="All">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="NotCaptured">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="Captured">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ActionType:%String,CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -29,7 +48,7 @@
 <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><![CDATA[	Quit $S(ActionType=##class(APPS.VisiDot.enu.ActionCodes).VHossEnd():1,1:0)
 ]]></Implementation>
 </Method>
 
@@ -38,8 +57,95 @@
 </Description>
 <FormalSpec><![CDATA[&ResultDesc:%String,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	Set ..BatchID=..CaptureHelper.GeefDirectorSleutelWaarde("OrderID") ; opgeslagen in de ERP gedeelte van de CaptureData
+	If ..BatchID=""
+	{
+		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Geen batch","BatchId is niet ingevuld door een vorige verwerking")
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossGeenBatchID())
+	}
+	Else
+	{
+		Do ..ControleOntbrekend()
+		Do ..BepaalVolledigOntbrekend()
+	}
+	Do ..BepaalResultaat(.ResultDesc,.ProcessedData)
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalResultaat">
+<FormalSpec><![CDATA[&ResultDesc,&ProcessedData]]></FormalSpec>
+<Implementation><![CDATA[
+	Set ErrorCode=..CaptureHelper.GeefFoutCode()
+	If (ErrorCode="")||(ErrorCode=##class(APPS.VisiDot.enu.FoutCodes).OK()) 
+	{
+	 	Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).OK())
+		Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Goed()
+	}
+	Else 
+	{
+		Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Fout()		
+	}
+	Set ProcessedData=..CaptureHelper.GeefData()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolledigOntbrekend">
+<Implementation><![CDATA[
+	Kill All Merge All=..All
+	Set it=##class(TECH.ArrayIterator).%New(.All)
+	While it.HasNext()
+	{
+		Set AndereVHossSeqEnZijkant=it.Next()
+		Set VHossSeqEnZijkant=it.Key()
+		Continue:$D(..Captured(VHossSeqEnZijkant))
+		If $D(..Captured(AndereVHossSeqEnZijkant))
+		{
+			; andere zijkant wel
+			Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","Zijkant met sequentie "_VHossSeqEnZijkant_" is niet ingelezen, de andere kant echter wel")
+		}
+		ElseIf $D(..NotCaptured(AndereVHossSeqEnZijkant))
+		{
+			; andere zijkant ook niet
+			Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","Zijkant met sequentie "_VHossSeqEnZijkant_" is niet ingelezen, de andere kant ook niet")
+		}
+		Else
+		{
+			; heeft geen andere zijkant
+			Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","Zijkant met sequentie "_VHossSeqEnZijkant_" is niet ingelezen (een andere kant is er niet)")
+
+		}
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekendeFrame())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleOntbrekend">
+<FormalSpec>BatchID</FormalSpec>
+<Implementation><![CDATA[
+	;w "ControleOntbrekend",!
+
+	Set it=..ProductionHelper.GeefBatchIterator(..BatchID)
+	While it.HasNext()
+	{
+		Set QueueElement=it.Next()
+		Set QueueHelper=..ProductionHelper.GeefQueueHelper(QueueElement)
+		
+		Set VHossSeqEnZijkant=QueueHelper.GeefVHossSeqEnZijkant()
+		;w "VHossSeqEnZijkant ",VHossSeqEnZijkant,!
+		Set ..All(VHossSeqEnZijkant)=QueueHelper.GeefAndereVHossSeqEnZijkant(VHossSeqEnZijkant)
+		If QueueHelper.GeefFrameID()=""
+		{
+			;w QueueElement.%Id()," NOTcaptured ",VHossSeqEnZijkant,!
+			Set ..NotCaptured(VHossSeqEnZijkant,QueueHelper.GeefVHossSlotNr())=""
+		}
+		Else
+		{
+			;w QueueElement.%Id(),"    captured ",VHossSeqEnZijkant,!
+			Set ..Captured(VHossSeqEnZijkant)=""
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VisiDot/enu/ActionCodes.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/enu/ActionCodes.cls.xml	(revision 0)
+++ APPS/VisiDot/enu/ActionCodes.cls.xml	(revision 1749)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.enu.ActionCodes">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,READVHOSS,ENDVHOSS</Default>
+</Parameter>
+
+<Method name="VHossRead">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["READVHOSS"
+]]></Implementation>
+</Method>
+
+<Method name="VHossEnd">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["ENDVHOSS"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1749)
@@ -56,7 +56,7 @@
 <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><![CDATA[	Quit $S(ActionType=##class(APPS.VisiDot.enu.ActionCodes).VHossRead():1,1:0)
 ]]></Implementation>
 </Method>
 
@@ -68,35 +68,70 @@
 <Implementation><![CDATA[
 
 	; Stap 1
-	W "   *** BepaalIDs ***",!
+	;W "   *** BepaalIDs ***",!
 	Do ..BepaalVHossIDs()
-	W ..BatchID," ",..VHossVolgNr," ",..VHossZijkant,!
+	;W ..BatchID," ",..VHossVolgNr," ",..VHossZijkant,!
 	
 	If (..BatchID) && (..VHossVolgNr) && (..VHossZijkant) && (..FrameDetectionHelper)
 	{
 		; Stap 2
-		W "   *** AanwezigeLades ***",!
+		;W "   *** AanwezigeLades ***",!
 		Do ..ProductionHelper.InitCache(..BatchID,..VHossVolgNr,..VHossZijkant)
 		Do ..ControleAanwezigeLades()	
 		Do ..ProductionHelper.SaveCache()
 		
 		; Stap 3
-		W "   *** OntbrekendeLades ***",!
+		;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())
+		Do ..CaptureHelper.ZetDirectorSleutelWaarde("OrderID",..BatchID) ; wordt gebruikt bij een volgende controle
+		Do ..CaptureHelper.ZetERPSleutelWaarde("BatchID",..BatchID) ; wordt gebruikt bij een volgende controle
+		Do ..CaptureHelper.ZetERPSleutelWaarde("VHossSequentie",..VHossVolgNr_"."_..VHossZijkant)
+		Do ..CaptureHelper.ZetERPSleutelWaarde("FrameID",..FrameDetectionHelper.GeefID())
 	}
-	
-	Set ResultDesc=1
-	Set ProcessedData=..CaptureHelper.GeefData()
-	
+	Do ..BepaalResultaat(.ResultDesc,.ProcessedData)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalResultaat">
+<FormalSpec><![CDATA[&ResultDesc,&ProcessedData]]></FormalSpec>
+<Implementation><![CDATA[
+	Set ErrorCode=..CaptureHelper.GeefFoutCode()
+	If (ErrorCode="")||(ErrorCode=##class(APPS.VisiDot.enu.FoutCodes).OK()) 
+	{
+	 	Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).OK())
+		Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Goed()
+	}
+	Else 
+	{
+		Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Fout()		
+	}
+	Set ProcessedData=..CaptureHelper.GeefData()
+]]></Implementation>
+</Method>
+
+<Method name="ControleOntbrekendeLades">
+<Implementation><![CDATA[
+	Set LegeSlots=""
+	Set it=..ProductionHelper.GeefQueueIterator()
+	While it.HasNext()
+	{
+		Set QueueHelper=it.Next()
+		If QueueHelper.GeefFrameID()=""
+		{
+			; Lege Detection opzoeken voor markering
+			; indien niet te vinden dan toevoegen aan legeslots
+			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)
+	Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend())
+]]></Implementation>
+</Method>
+
 <Method name="ControleAanwezigeLades">
 <Implementation><![CDATA[
 	Set it=..CaptureHelper.GeefLadeDetectionIterator()
@@ -151,16 +186,19 @@
 				Else 
 				{
 					Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Blauw(),"Lade in foutief vak")
+					Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossFoutiefVak())
 				}
 			}
 			Else
 			{
 				Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Lade reeds gedetecteerd in ander frame "_FrameID_" "_QueueHelper.GeefTijdStip)
+				Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossReedsGedetecteerd())
 			} 
 		}
 		Else
 		{
 			Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Geen informatie gevonden over deze lade")
+			Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossNoInfo())
 		}
 	}
 ]]></Implementation>
@@ -190,26 +228,9 @@
 ]]></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 ..BatchID=..CaptureHelper.GeefDirectorSleutelWaarde("OrderID") ; opgeslagen in de ERP gedeelte van de CaptureData
 	Set ..VHossVolgNr=""
 	Set ..VHossZijkant=""
 	Set ..FrameDetectionHelper=""
@@ -232,9 +253,21 @@
 		}
 	}
 	
-	If ..FrameDetectionHelper=""
+	If ..BatchID=""
 	{
+		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Geen batch ingevuld","BatchID is niet ingevuld door een vorige verwerking of door lade-barcodes")
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossGeenBatchID())
+	}
+	ElseIf ..VHossVolgNr=""
+	{
+		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Geen VHoss-lade gevonden","Geen enkele barcode gevonden van een VHoss-lade")
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossGeenLaden())
+	}
+	ElseIf ..FrameDetectionHelper=""
+	{
 		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekend frame code","Geen enkele frame identificatie gedetecteerd")
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossGeenFrameID())
+
 	}
 ]]></Implementation>
 </Method>
@@ -260,6 +293,7 @@
 	{
 		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")
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossDubbelFrame())
 	}
 ]]></Implementation>
 </Method>
@@ -271,6 +305,7 @@
 	If $L(DetectionHelper.GeefID())
 	{
 		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Oranje(),"Onbekende detection")
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOnbekend())
 	}
 ]]></Implementation>
 </Method>
Index: APPS/VisiDot/impl/QueueHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/QueueHelper.cls.xml	(.../QueueHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/QueueHelper.cls.xml	(.../QueueHelper.cls.xml)	(revision 1749)
@@ -30,7 +30,7 @@
 </Method>
 
 <Method name="IsModified">
-<Implementation><![CDATA[	Quit ..QueueElement.%IsModified()
+<Implementation><![CDATA[	Quit ..QueueElement.%IsModified()||..QueueElement.WPVerpak.%IsModified()
 ]]></Implementation>
 </Method>
 
@@ -62,6 +62,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVHossSeqEnZijkant">
+<Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.UnitNr_"."_..QueueElement.WPVerpak.SubNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefAndereVHossSeqEnZijkant">
+<FormalSpec>VHossSeqEnZijkant</FormalSpec>
+<Implementation><![CDATA[	Quit $P(VHossSeqEnZijkant,".")_"."_..GeefAndereVHossZijkant($P(VHossSeqEnZijkant,".",2))
+]]></Implementation>
+</Method>
+
+<Method name="GeefAndereVHossZijkant">
+<FormalSpec>Zijkant</FormalSpec>
+<Implementation><![CDATA[	Quit $S(Zijkant=1:2,1:1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefVHossSlotNr">
 <Implementation><![CDATA[	Quit ..QueueElement.WPVerpak.SlotNr
 ]]></Implementation>
Index: APPS/VisiDot/enu/FoutTypes.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/enu/FoutTypes.cls.xml	(.../FoutTypes.cls.xml)	(revision 1717)
+++ APPS/VisiDot/enu/FoutTypes.cls.xml	(.../FoutTypes.cls.xml)	(revision 1749)
@@ -30,5 +30,16 @@
 <Implementation><![CDATA["SYSTEM"
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPrioriteit">
+<ClassMethod>1</ClassMethod>
+<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>
 </Class>
 </Export>
Index: APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml	(.../VHossLadeDetectionHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml	(.../VHossLadeDetectionHelper.cls.xml)	(revision 1749)
@@ -29,9 +29,9 @@
 
 <Method name="GeefSlotNr">
 <Implementation><![CDATA[
-		Set Director=..Detection.Director.GetAt(1)
-		Quit:'$isObject(Director) ""
-		Quit Director.AssetID
+		Set Dual=..Detection.DUAL.GetAt(1)
+		Quit:'$isObject(Dual) ""
+		Quit (Dual.RowInPallet-1)*10+Dual.ColInPallet
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/impl/VHossCaptureHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1749)
@@ -12,24 +12,16 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo,ProductionHelper:ProductionHelper</FormalSpec>
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo,ProductionHelper:ProductionHelper=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ProductionHelper=ProductionHelper
+	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[
Index: APPS/VisiDot/impl/DetectionHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 1749)
@@ -40,7 +40,7 @@
 <Method name="ZetStatus">
 <FormalSpec>Kleur,ToolTip</FormalSpec>
 <Implementation><![CDATA[
-	Write:Kleur'="GREEN" "!!!Detection ",..Detection.Id,":",Kleur," ",$G(ToolTip),!
+	;Write:Kleur'="GREEN" "!!!Detection Zetstatus ",..Detection.Id,":",Kleur," ",$G(ToolTip),!
 
 	Set ..Detection.Color=Kleur
 	Set ..Detection.ToolTip=$G(ToolTip)
Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1717 -r1749
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1717)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1749)
@@ -12,10 +12,12 @@
 
 <Property name="CaptureInfo">
 <Type>APPS.VisiDot.dto.CaptureInfo</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="VorigFoutType">
 <Type>APPS.VisiDot.enu.FoutTypes</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
@@ -71,7 +73,7 @@
 <Implementation><![CDATA[
 	Do ..AddErrorMessage(Titel, Omschrijving)
 	Do ..ZetStatusLight(FoutType)
-	Write "Capture zet error: ",FoutType," ",Titel," ",Omschrijving,!
+	;Write "Capture zet error: ",FoutType," ",Titel," ",Omschrijving,!
 ]]></Implementation>
 </Method>
 
@@ -86,7 +88,7 @@
 		Do ERP.StatusLight.Insert(StatusLight)
 	}
 	
-	If ..FoutType2Prioriteit(..VorigFoutType)<..FoutType2Prioriteit(FoutType)
+	If ##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(..VorigFoutType)<##class(APPS.VisiDot.enu.FoutTypes).GeefPrioriteit(FoutType)
 	{
 		If FoutType=##class(APPS.VisiDot.enu.FoutTypes).Systeem()
 		{
@@ -113,16 +115,6 @@
 ]]></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[
@@ -135,6 +127,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetFoutCode">
+<FormalSpec>FoutCode:APPS.VisiDot.enu.FoutCodes</FormalSpec>
+<Implementation><![CDATA[
+	Quit:##class(APPS.VisiDot.enu.FoutCodes).GeefPrioriteit(..GeefERPSleutelWaarde("FoutCode"))>##class(APPS.VisiDot.enu.FoutCodes).GeefPrioriteit(FoutCode)
+	Do ..ZetERPSleutelWaarde("FoutCode",FoutCode)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutCode">
+<ReturnType>APPS.VisiDot.enu.FoutCodes</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefERPSleutelWaarde("FoutCode")
+]]></Implementation>
+</Method>
+
 <Method name="GeefERP">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -154,38 +160,63 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekSleutel">
-<FormalSpec>List,Sleutel</FormalSpec>
+<Method name="GeefDirector">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Quit:'$isObject(List) ""
-	Set it=##class(TECH.ListIterator).%New(List)
-	Set Found=0
-	While (it.HasNext()) && ('Found)
+	If '$isobject(..CaptureInfo.Director)
 	{
-		Set ReadData=it.Next()
-		Continue:'$isobject(ReadData)
-		Set:ReadData.Name=Sleutel Found=1
+		 Set ..CaptureInfo.Director=##class(%ListOfObject).%New()
 	}
-	Quit:'Found ""
-	Quit ReadData
+	
+	Set Director=..CaptureInfo.Director.GetAt(1)
+	
+	If '$isObject(Director)
+	{
+		Set Director=##class(APPS.VisiDot.dto.Director).%New()
+		Do ..CaptureInfo.Director.Insert(Director)
+	}
+	Quit Director
 ]]></Implementation>
 </Method>
 
-<Method name="GeefSleutelWaarde">
+<Method name="GeefDirectorSleutelWaarde">
 <FormalSpec>Sleutel</FormalSpec>
 <Implementation><![CDATA[
+	Quit:'$isobject(..CaptureInfo.Director) ""
+	Set Director=..CaptureInfo.Director.GetAt(1)
+	Quit:'$isObject(Director) ""
+	Quit:'$isObject(Director.ReadData) ""
+	
+	Set ReadData=..ZoekSleutel(Director.ReadData,Sleutel)
+	Quit:'$isObject(ReadData) ""
+	Quit ReadData.Value
+]]></Implementation>
+</Method>
+
+<Method name="ZetDirectorSleutelWaarde">
+<FormalSpec>Sleutel,Waarde</FormalSpec>
+<Implementation><![CDATA[
+	Set Director=..GeefDirector()
+	Set:'$isObject(Director.ReadData) Director.ReadData=##class(%ListOfObject).%New()
+	Do ..AddSleutelWaarde(Director.ReadData,Sleutel,Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefERPSleutelWaarde">
+<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
+	Set ReadData=..ZoekSleutel(ERP.ReadData,Sleutel)
+	Quit:'$isObject(ReadData) ""
+	Quit ReadData.Value
 ]]></Implementation>
 </Method>
 
-<Method name="ZetSleutelWaarde">
+<Method name="ZetERPSleutelWaarde">
 <FormalSpec>Sleutel,Waarde</FormalSpec>
 <Implementation><![CDATA[
 	Set ERP=..GeefERP()
@@ -194,10 +225,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekSleutel">
+<FormalSpec>List,Sleutel</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:'$isObject(List) ""
+	Set it=##class(TECH.ListIterator).%New(List)
+	Set Found=0
+	While (it.HasNext()) && ('Found)
+	{
+		Set ReadData=it.Next()
+		Continue:'$isobject(ReadData)
+		Set:ReadData.Name=Sleutel Found=1
+	}
+	Quit:'Found ""
+	Quit ReadData
+]]></Implementation>
+</Method>
+
 <Method name="AddSleutelWaarde">
 <FormalSpec>List,Sleutel,Waarde</FormalSpec>
 <Implementation><![CDATA[
-
 	Set ReadData=..ZoekSleutel(List,Sleutel)
 	If $isobject(ReadData)
 	{