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")