Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r2079 -r2091
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2079)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2091)
@@ -75,7 +75,8 @@
 	}	
 	
 	/// Opslaan van binnenkomende data in de juiste directory
-	Set BestandNaam = "CaptureInfo_IN.xml"
+	Set BestandNaam = "CaptureInfo_IN"_$tr($h,",")_".xml"
+	//Set BestandNaam = "CaptureInfo_IN.xml"
 	Set VHossSequentie = ##class(APPS.VisiDot.impl.VHossCaptureHelper).MaakVHossSequentie(..VHossVolgNr,..VHossZijkant)
 	Set BestandNaam = VHossSequentie_"_"_BestandNaam
 	Do ##class(APPS.VisiDot.impl.ZijkantAfhandelaar).BewaarData(..CaptureHelper.GeefData(),BestandNaam)
@@ -171,10 +172,12 @@
 	}
 	Quit:LegeSlots=""
 	Set Info = "Er ontbreken laden in volgende vakken : "_LegeSlots
-	/// JBL Tijdelijk uitgecommentarieerd, anders een popup !
-	Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing(),"Ontbrekende laden",Info)
-	Do ..CaptureHelper.ZetGebruikersInfo(Info)
-	Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend())
+	/// JBL uitgecommentarieerd, anders een popup !
+	//Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing(),"Ontbrekende laden",Info)
+	If (^JBL.VisiDot.SlotControle){
+		Do ..CaptureHelper.ZetGebruikersInfo(Info)
+		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend())
+	}
 ]]></Implementation>
 </Method>
 
@@ -192,6 +195,8 @@
 <Method name="ControleAanwezigeLade">
 <FormalSpec>DetectionHelper</FormalSpec>
 <Implementation><![CDATA[
+	
+	d WLIP^vhDBG(127,"-----------------------------")
 	;w DetectionHelper.GeefID()," ",DetectionHelper.GeefSlotNr(),!
 	Set BatchID=DetectionHelper.GeefBatchID()	
 	Set VHossVolgNr=DetectionHelper.GeefVHossVolgNr()
@@ -212,7 +217,7 @@
 	{
 		Set ProductNr=DetectionHelper.GeefProduct()
 		Set VHossSlotNr=DetectionHelper.GeefSlotNr()
-		//w !,"Controle aanwezig: QueueHelper : ",BatchID,",",VHossVolgNr,",",VHossZijkant,",",VHossSlotNr,",",ProductNr
+		
 		Set QueueHelper=..ZoekQueueElement(BatchID,VHossVolgNr,VHossZijkant,VHossSlotNr,ProductNr)
 		If $isObject(QueueHelper)
 		{
@@ -244,8 +249,24 @@
 		}
 		Else
 		{
-			Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"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())
+			If (^JBL.VisiDot.SlotControle){
+				//d WLIP^vhDBG(127,"Controle aanwezig: QueueHelper : BatchID:"_BatchID_",VolgNr:"_VHossVolgNr)
+				//d WLIP^vhDBG(127,",Zijkant:"_VHossZijkant_",SlotNr:"_VHossSlotNr_",PRNr:"_ProductNr)
+				Set ExtraInfo = ""
+				Set Detection = DetectionHelper.GeefData()
+				if $IsObject(Detection){
+					Set Dual = Detection.DUAL.GetAt(1)
+					If ($IsObject(Dual)){
+						Set ExtraInfo = ExtraInfo_"Row:"_Dual.RowInPallet_",Col:"_Dual.ColInPallet	
+					}
+				}
+				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())
+			}Else
+			{
+				Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"JBL (ROW ! COL). BatchID:"_BatchID_", VHossVolgNr:"_VHossVolgNr_", VHossZijkant:"_VHossZijkant_", VHossSlotNr:"_VHossSlotNr_", ProductNr:"_ProductNr)
+				Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Geel())
+			}
 		}
 	}
 ]]></Implementation>
@@ -267,6 +288,12 @@
 			{
 				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)
@@ -313,13 +340,13 @@
 	}
 	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.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Geen VHoss-lade gevonden","Geen enkele VHoss-LADE barcode gevonden.")
 		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.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekend VHoss-frame code","Geen enkele VHoss-FRAME barcode gevonden.")
 		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossGeenFrameID())
 
 	}