Index: APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml
===================================================================
diff -u -r2091 -r2494
--- APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml	(.../VHossLadeDetectionHelper.cls.xml)	(revision 2091)
+++ APPS/VisiDot/impl/VHossLadeDetectionHelper.cls.xml	(.../VHossLadeDetectionHelper.cls.xml)	(revision 2494)
@@ -9,6 +9,7 @@
 
 <Method name="BewerkOmschrijving">
 <FormalSpec>Omschrijving</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set Omschrijving=""
 	Set Dual=..Detection.DUAL.GetAt(1)
Index: APPS/VisiDot/Tech.cls.xml
===================================================================
diff -u -r1839 -r2494
--- APPS/VisiDot/Tech.cls.xml	(.../Tech.cls.xml)	(revision 1839)
+++ APPS/VisiDot/Tech.cls.xml	(.../Tech.cls.xml)	(revision 2494)
@@ -16,5 +16,13 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>List:%ListOfObjects,Sleutel:%String,Waarde:%String,BewaarVoorHergebruik:%Boolean=0</FormalSpec>
 </Method>
+
+<Method name="ShowVHoss">
+<Description>
+hulp method om visueel overzicht op te vragen</Description>
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+</Method>
 </Class>
 </Export>
Index: APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml
===================================================================
diff -u -r2037 -r2494
--- APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml	(.../VHossEtiketPrinter.cls.xml)	(revision 2037)
+++ APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml	(.../VHossEtiketPrinter.cls.xml)	(revision 2494)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="APPS.VisiDot.impl.VHossEtiketPrinter">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>APPS.VisiDot.EtiketPrinter</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="LabelPrinter">
Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml
===================================================================
diff -u -r2047 -r2494
--- APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 2047)
+++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 2494)
@@ -100,6 +100,7 @@
 </Method>
 
 <Method name="BepaalVolledigOntbrekend">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Kill All Merge All=..All
 	Set it=##class(TECH.ArrayIterator).%New(.All)
@@ -131,26 +132,22 @@
 
 <Method name="ControleOntbrekend">
 <FormalSpec>BatchID</FormalSpec>
+<Private>1</Private>
 <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)=""
 		}
 	}
Index: zTryout/JBL/VisiDot/Tryout.cls.xml
===================================================================
diff -u
--- zTryout/JBL/VisiDot/Tryout.cls.xml	(revision 0)
+++ zTryout/JBL/VisiDot/Tryout.cls.xml	(revision 2494)
@@ -0,0 +1,155 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.JBL.VisiDot.Tryout">
+<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="Try">
+<Description>
+D ##class(Tryout.JBL.VisiDot.Tryout).%New().Try()</Description>
+<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.BuildVHossCapture).%New(BatchID)
+	Set Capture=VHossBuilder.CorrectVHoss(1,1)
+	Do ObjToXMLFile^vhLib(Capture,"c:\CaptureGenerated.xml",,"literal,indent") 
+	
+	Set Capture = ..Import("C:\","VisiDotRead.xml")
+	Quit:Capture=""
+	Set WebService = ##class(WS.VisiDot.OperatorServer).%New()
+	Do WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
+	
+	w ResultDesc,!
+	Do ObjToXMLFile^vhLib(ProcessedData,"c:\TryProcessed.xml",,"literal,indent") 
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/// D ##class(Tryout.JBL.VisiDot.Tryout).%New().Import("c:\","Stage_3_After_DUAL_Before_ERP.xml")
+/// D ##class(Tryout.JBL.VisiDot.Tryout).%New().End("c:\","Stage_1_Reader_Source.xml")
+Method Import(Dir, FileName)
+{
+	#include %occStatus
+	
+
+	Set reader = ##class(%XML.Reader).%New()
+	// Begin processing of the XML input
+	Set sc=reader.OpenFile(Dir_FileName)
+	
+	If $$$ISERR(sc)	w $$ParseStatus^vhLib(sc),!  q ""  ;Do WEIP^vhDBG(15,sc,"Openfile: "_Dir_FileName) Quit "" ;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
+	
+	Set result=reader.Next(.CaptureInfo,.sc)
+
+	If $$$ISERR(sc) w $$ParseStatus^vhLib(sc),!  q ""
+	Quit $G(CaptureInfo)
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="Zijkant">
+<Description>
+D ##class(Tryout.JBL.VisiDot.Tryout).%New().Zijkant()</Description>
+<Implementation><![CDATA[
+	Set Data=..Import("C:\Share\VisiDot\","Stage_3_After_DUAL_Before_ERP.xml")
+	do ##class(WS.VisiDot.OperatorServer).%New().UpdateData("READ", Data, .ResultDesc, .ProcessedData)
+	Set CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	w "Zijkant ErrorCode : "_CaptureHelper.GeefFoutCode(),!
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="End">
+<Description>
+D ##class(Tryout.JBL.VisiDot.Tryout).%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>
+
+<Method name="Import">
+<FormalSpec>Dir,FileName</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VisiDot.dto.CaptureInfo</ReturnType>
+<Implementation><![CDATA[
+	#include %occStatus	
+	
+	Set reader = ##class(%XML.Reader).%New()
+	// Begin processing of the XML input
+	Set Dir = Dir
+	
+	set FullName = ##class(TECH.Files).AppendFile(Dir,FileName)
+	Set sc=reader.OpenFile(FullName)
+	
+	If $$$ISERR(sc)	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon XML bestand '"_FullName_"' niet openen : "_$$ParseStatus^vhLib(sc))) 
+
+	Do reader.Correlate("Capture_Info","APPS.VisiDot.dto.CaptureInfo") ;Associate a class name with the XML element name
+	
+	Set result=reader.Next(.CaptureInfo,.sc)
+
+	If $$$ISERR(sc)	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon XML bestand '"_FullName_"' niet lezen : "_$$ParseStatus^vhLib(sc))) 
+	
+	Quit $G(CaptureInfo)
+]]></Implementation>
+</Method>
+
+<Method name="Finish">
+<FormalSpec>ProcessedData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set CaptureHelper=##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	Quit CaptureHelper.GeefFoutCode()
+]]></Implementation>
+</Method>
+
+<Method name="ShowVHoss">
+<Description>
+JBL - hulp method om visueel overzicht op te vragen
+Set Dir = "E:\Svn\CACHE\CacheAdminAUnitTests\APPS.VisiDot\Stage2_NormalRead_AllOk\"
+Set File = "ReadResults_ReadID00000182_Controller_Gate1_Status00_Time_20110814_153423_890_DUAL_(Stage_3_Before_DB_Insertion).xml"
+Set CaptureInfo = ..Import(Dir, File)
+d ##class(Tryout.JBL.VisiDot.Tryout).%New().ShowVHoss(CaptureInfo)</Description>
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[
+	Set VHoss(1,1) = ""
+	
+	Set DetIt = ##class(APPS.VisiDot.impl.DetectionIterator).%New(CaptureInfo)
+	While (DetIt.HasNext()){
+			Set Detection = DetIt.Next()			
+			If (Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Lade()){
+				Set Dual = Detection.DUAL.GetAt(1)	
+				Set VHoss(Dual.RowInPallet,Dual.ColInPallet) = Detection.Id
+			}
+	}
+	
+	w !
+	/// Vhoss is omgekeerd van rijen
+	For Row = 3 : -1 : 1
+	{
+		w "| "
+		For Col = 1 : 1 : 10	 
+		{
+			If $Data(VHoss(Row,Col)){ w VHoss(Row,Col) } Else { w "     missing    " }
+			w " | "
+		}
+		w "||",!
+	}
+	w !
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r2397 -r2494
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2397)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2494)
@@ -44,8 +44,6 @@
 <Implementation><![CDATA[
 	Set ..ProductionHelper=##class(VHossProductionHelper).%New()
 	Set ..CaptureHelper=##class(VHossCaptureHelper).%New(CaptureInfo,..ProductionHelper)
-	;w ..ProductionHelper,!
-	;w ..CaptureHelper,!
 	Quit ##super(ActionType,CaptureInfo)
 ]]></Implementation>
 </Method>
@@ -125,6 +123,7 @@
 </Method>
 
 <Method name="ControleLegeSlots">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set it=..CaptureHelper.GeefSlotDetectionIterator()
 	While it.HasNext()
@@ -140,6 +139,7 @@
 
 <Method name="ControleLegeSlot">
 <FormalSpec>DetectionHelper</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set VHossSlotNr=DetectionHelper.GeefSlotNr()
 	Set it=..ProductionHelper.GeefQueueIterator()
@@ -159,6 +159,7 @@
 </Method>
 
 <Method name="ControleOntbrekendeLaden">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set LegeSlots=""
 	Set it=..ProductionHelper.GeefQueueIterator()
@@ -180,6 +181,7 @@
 </Method>
 
 <Method name="ControleAanwezigeLades">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set it=..CaptureHelper.GeefLadeDetectionIterator()
 	While it.HasNext()
@@ -192,6 +194,7 @@
 
 <Method name="ControleAanwezigeLade">
 <FormalSpec>DetectionHelper</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchID=DetectionHelper.GeefBatchID()	
 	Set VHossVolgNr=DetectionHelper.GeefVHossVolgNr()
@@ -253,10 +256,7 @@
 			} 
 		}
 		Else
-		{
-			//d WLIP^vhDBG(127,"Controle aanwezig: QueueHelper : BatchID:"_BatchID_",VolgNr:"_VHossVolgNr)
-			//d WLIP^vhDBG(127,",Zijkant:"_VHossZijkant_",SlotNr:"_VHossSlotNr_",PRNr:"_ProductNr)
-			
+		{			
 			Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),ExtraInfo_"Geen informatie gevonden over deze lade. BatchID:"_BatchID_", VHossVolgNr:"_VHossVolgNr_", VHossZijkant:"_VHossZijkant_", VHossSlotNr:"_VHossSlotNr_", ProductNr:"_ProductNr)
 			Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossNoInfo())
 		}
@@ -266,33 +266,27 @@
 
 <Method name="ZoekQueueElement">
 <FormalSpec>BatchID,VHossSeqNr,VHossZijkant,VHossSlotNr,ProductNr</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set it=..ProductionHelper.GeefQueueIterator()
 	Set Stop=0
-	;Write "Zoek:",BatchID," ",VHossSeqNr," ",VHossZijkant," ",VHossSlotNr," ",ProductNr,!
 	While it.HasNext()&&($G(ResultQueueHelper)="")
 	{
 		Set QueueHelper=it.Next()
-		;Write "  Queue:",QueueHelper.GeefBatchID()," ",QueueHelper.GeefVHossSeqNr()," ",QueueHelper.GeefVHossZijkant()," ",QueueHelper.GeefVHossSlotNr()," ",QueueHelper.GeefProductNr(),!
 		If (QueueHelper.GeefBatchID()=BatchID)&&(QueueHelper.GeefVHossSeqNr()=VHossSeqNr)&&(QueueHelper.GeefVHossZijkant()=VHossZijkant)
 		{
 			If (QueueHelper.GeefProductNr()=ProductNr)&&(QueueHelper.GeefVHossSlotNr()=VHossSlotNr)
 			{
 				Set ResultQueueHelper=QueueHelper
 			}
-			Else{
-				//d WLIP^vhDBG(127,"ZoekQueueElement ! ProductNr of SlotNr verkeerd !")	
-				//d WLIP^vhDBG(127,QueueHelper.GeefProductNr()_"="_ProductNr_" &&  "_QueueHelper.GeefVHossSlotNr()_"="_VHossSlotNr)
-			}
-		}Else{
-			//d WLIP^vhDBG(127,"ZoekQueueElement ! BatchID, VhossSeqNr of VHosszijkant verkeerd !")	
 		}
 	}
 	Quit $G(ResultQueueHelper)
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalVHossIDs">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set ..BatchID=..CaptureHelper.GeefBatchID() ; opgeslagen in de CaptureData
 	Set ..VHossVolgNr=""
@@ -347,6 +341,7 @@
 
 <Method name="BepaalBatchEnVHoss">
 <FormalSpec>Detection</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set DetectionHelper=..CaptureHelper.GeefDetectionHelper(Detection)
 
@@ -359,6 +354,7 @@
 
 <Method name="BepaalFrame">
 <FormalSpec>Detection</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set DetectionHelper=..CaptureHelper.GeefDetectionHelper(Detection)
 	Set:..FrameDetectionHelper="" ..FrameDetectionHelper=DetectionHelper
@@ -373,6 +369,7 @@
 
 <Method name="ControleOnbekend">
 <FormalSpec>Detection</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set DetectionHelper=##class(DetectionHelper).%New(Detection)
 	Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Oranje(),"Onbekende detection")
Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml
===================================================================
diff -u -r2079 -r2494
--- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2079)
+++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2494)
@@ -146,7 +146,7 @@
 	Set Dir = "Stage2_NormalRead_AllOk\"
 	Set File = "ReadResults_ReadID00000182_Controller_Gate1_Status00_Time_20110814_153423_890_DUAL_(Stage_3_Before_DB_Insertion).xml"
 	Set CaptureInfo = ..Import(Dir, File)
-	D ##class(APPS.VisiDot.zTryout).%New().ShowVHoss(CaptureInfo)
+	D ##class(APPS.VisiDot.impl.Tech).ShowVHoss(CaptureInfo)
 	
 	Set Status = CaptureInfo.XMLExportToStream(.CaptureInfoStream,,"literal")	
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfoStream, .ResultDesc, .ProcessedData)
@@ -165,7 +165,7 @@
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfoStream, .ResultDesc, .ProcessedData)
 	
 	w !,"Missing labels : ",!
-	D ##class(APPS.VisiDot.zTryout).%New().ShowVHoss(CaptureInfo)
+	D ##class(APPS.VisiDot.impl.Tech).ShowVHoss(CaptureInfo)
 	
 	Set ErrorCode=..Finish(ProcessedData)	
 	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossLadeOntbrekend(),"Capture bevat een ontbrekende lade")
Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r2260 -r2494
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2260)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2494)
@@ -125,18 +125,21 @@
 </Method>
 
 <Method name="GeefQueueIterator">
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..QueueLijst)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefQueueHelper">
 <FormalSpec>QueueElement</FormalSpec>
+<ReturnType>APPS.VisiDot.impl.QueueHelper</ReturnType>
 <Implementation><![CDATA[	Quit ##class(APPS.VisiDot.impl.QueueHelper).%New(QueueElement)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBatchIterator">
 <FormalSpec>BatchID</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.Sequencer).GeefQueueIterator(BatchID)
 ]]></Implementation>
 </Method>
Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u -r1861 -r2494
--- APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 1861)
+++ APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 2494)
@@ -43,5 +43,42 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ShowVHoss">
+<Description>
+JBL - hulp method om visueel overzicht op te vragen
+Set Dir = "E:\Svn\CACHE\CacheAdminAUnitTests\APPS.VisiDot\Stage2_NormalRead_AllOk\"
+Set File = "ReadResults_ReadID00000182_Controller_Gate1_Status00_Time_20110814_153423_890_DUAL_(Stage_3_Before_DB_Insertion).xml"
+Set CaptureInfo = ..Import(Dir, File)
+d ##classAPPS.VisiDot.impl.Tech).%New().ShowVHoss(CaptureInfo)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CaptureInfo:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[
+	Set VHoss(1,1) = ""
+	
+	Set DetIt = ##class(APPS.VisiDot.impl.DetectionIterator).%New(CaptureInfo)
+	While (DetIt.HasNext()){
+			Set Detection = DetIt.Next()			
+			If (Detection.Selected = ##class(APPS.VisiDot.enu.DetectionTypes).Lade()){
+				Set Dual = Detection.DUAL.GetAt(1)	
+				Set VHoss(Dual.RowInPallet,Dual.ColInPallet) = Detection.Id
+			}
+	}
+	
+	w !
+	/// Vhoss is omgekeerd van rijen
+	For Row = 3 : -1 : 1
+	{
+		w "| "
+		For Col = 1 : 1 : 10	 
+		{
+			If $Data(VHoss(Row,Col)){ w VHoss(Row,Col) } Else { w "     missing    " }
+			w " | "
+		}
+		w "||",!
+	}
+	w !
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: PV VisiDot.prj.xml
===================================================================
diff -u -r2400 -r2494
--- PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 2400)
+++ PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 2494)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV VisiDot" LastModified="2011-09-16 16:09:33">
+<Project name="PV VisiDot" LastModified="2011-10-25 16:00:33">
   <Items>
     <ProjectItem name="APPS.Halux.common.BatchService" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.impl.BatchImpl" type="CLS"/>
@@ -55,7 +55,6 @@
     <ProjectItem name="APPS.VisiDot.impl.VHossSlotDetectionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossSlotIterator" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.ZijkantAfhandelaar" type="CLS"/>
-    <ProjectItem name="APPS.VisiDot.zTryout" type="CLS"/>
     <ProjectItem name="BL.Etiket.TBXLadeInVHoss2D" type="CLS"/>
     <ProjectItem name="BL.Etiket.VHoss2D" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.DocsProPlus" type="CLS"/>
@@ -77,6 +76,7 @@
     <ProjectItem name="vhDeploy.JBL.Deploy20110909x1339" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.Deploy20110912x1020" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.Deploy20110912x1337" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110929x1619" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestCaptureHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestDetectionHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestVHoss" type="CLS"/>
@@ -86,6 +86,7 @@
     <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildQueue" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture" type="CLS"/>
     <ProjectItem name="vhUnitTest.TECH.Print.TestPrintUtils" type="CLS"/>
+    <ProjectItem name="zTryout.JBL.VisiDot.Tryout" type="CLS"/>
     <ProjectItem name="zTryout.JCL.Conflict2" type="CLS"/>
   </Items>
 </Project>
Index: APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml
===================================================================
diff -u -r2091 -r2494
--- APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml	(.../VHossSlotDetectionHelper.cls.xml)	(revision 2091)
+++ APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml	(.../VHossSlotDetectionHelper.cls.xml)	(revision 2494)
@@ -20,6 +20,7 @@
 
 <Method name="BewerkOmschrijving">
 <FormalSpec>Omschrijving</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set Omschrijving=""
 	Set Dual=..Detection.DUAL.GetAt(1)
@@ -33,7 +34,7 @@
 </Method>
 
 <Method name="ZetInfo">
-<FormalSpec>Toelevering,Dossier,Omschrijving</FormalSpec>
+<FormalSpec>Toelevering:%String,Dossier:%String,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
 		
 		Set Dual=..Detection.DUAL.GetAt(1)