Index: APPS/VisiDot/impl/VHossCaptureHelper.cls.xml
===================================================================
diff -u -r2047 -r2079
--- APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 2047)
+++ APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 2079)
@@ -34,16 +34,23 @@
 <Method name="IsLadeDetection">
 <FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
 <Implementation><![CDATA[
-	Quit:Detection.Selected'=##class(APPS.VisiDot.enu.DetectionTypes).Lade() 0
-	Quit ..IsLadeID(Detection.Id)
+	Set IsLadeDetection = 0
+	If (Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Lade()){		
+		Set IsLadeDetection = ..IsLadeID(Detection.Id)
+	}
+	Quit IsLadeDetection
 ]]></Implementation>
 </Method>
 
 <Method name="IsFrameDetection">
 <FormalSpec>Detection:APPS.VisiDot.dto.Detection</FormalSpec>
 <Implementation><![CDATA[
-	Quit:Detection.Selected'=##class(APPS.VisiDot.enu.DetectionTypes).Frame() 0
-	Quit ..IsFrameID(Detection.Id)
+	Set IsFrameDetection = 0
+	If (Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Frame())
+	{
+		Set IsFrameDetection = ..IsFrameID(Detection.Id)		
+	}
+	Quit IsFrameDetection
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/enu/Zijkant.cls.xml
===================================================================
diff -u -r2019 -r2079
--- APPS/VisiDot/enu/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 2019)
+++ APPS/VisiDot/enu/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 2079)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>,A,B</Default>
+<Default>,1,2</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
@@ -16,13 +16,13 @@
 
 <Method name="A">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "A"
+<Implementation><![CDATA[	Quit "1"
 ]]></Implementation>
 </Method>
 
 <Method name="B">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "B"
+<Implementation><![CDATA[	Quit "2"
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml
===================================================================
diff -u -r2047 -r2079
--- APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2047)
+++ APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2079)
@@ -50,7 +50,8 @@
 		While FotoIt.HasNext()
 		{
 			Set Foto = FotoIt.Next()
-			Set BestandLocatie = Foto.OriginalFile
+			Set BestandLocatie = Foto.File
+			Set BestandLocatie = $$REPLACE^vhRtn1(BestandLocatie,"C:\Program Files\Visidot\Reader_Root\Photos","\\VISIDOT_W7\VisiDotPhotos")
 			If '##class(%File).Exists(BestandLocatie) {
 				Set Bericht = "Bestand '"_BestandLocatie_"' bestaat niet."
 				Do ##class(vhLib.Logger).%New("APPS.VisiDot").Warning("KopieerFotos",Bericht)
Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml
===================================================================
diff -u -r1861 -r2079
--- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 1861)
+++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2079)
@@ -168,7 +168,7 @@
 	D ##class(APPS.VisiDot.zTryout).%New().ShowVHoss(CaptureInfo)
 	
 	Set ErrorCode=..Finish(ProcessedData)	
-	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend(),"Capture bevat een ontbrekende lade")
+	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossLadeOntbrekend(),"Capture bevat een ontbrekende lade")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml
===================================================================
diff -u -r1861 -r2079
--- vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml	(.../TestVHoss.cls.xml)	(revision 1861)
+++ vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml	(.../TestVHoss.cls.xml)	(revision 2079)
@@ -80,7 +80,7 @@
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfoStream, .ResultDesc, .ProcessedData)
 
 	Set ErrorCode=..Finish(ProcessedData)	
-	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend(),"Capture bevat een ontbrekende lade")
+	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossLadeOntbrekend(),"Capture bevat een ontbrekende lade")
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r2047 -r2079
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2047)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2079)
@@ -83,7 +83,6 @@
 	If (..BatchID) && (..VHossVolgNr) && (..VHossZijkant) && (..FrameDetectionHelper)
 	{
 		; Stap 2
-		d WLIP^vhDBG(127,"BatchID :"_..BatchID_", VHOssVolgNr: "_..VHossVolgNr_", VhossZijkant:"_..VHossZijkant)
 		Do ..ProductionHelper.InitCache(..BatchID,..VHossVolgNr,..VHossZijkant)
 		Do ..ControleAanwezigeLades() ; de gedetecteerde lades zijn correct
 		Do ..ProductionHelper.SaveCache()
@@ -132,7 +131,7 @@
 		Set DetectionHelper=it.Next()
 		If ..CaptureHelper.IsLegeDetection(DetectionHelper.GeefData())
 		{
-			//Do ..ControleLegeSlot(DetectionHelper)
+			Do ..ControleLegeSlot(DetectionHelper)
 		}
 	}
 ]]></Implementation>
@@ -148,7 +147,7 @@
 		Set QueueHelper=it.Next()
 		If QueueHelper.GeefVHossSlotNr()=VHossSlotNr
 		{
-			Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Ontbrekende lade")
+			Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Oranje(),"Ontbrekende lade")
 			Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossLadeOntbrekend())
 			Do QueueHelper.GeefInfo(.Toelevering,.DossierNr,.Omschrijving)
 			Do DetectionHelper.ZetInfo(Toelevering,DossierNr,Omschrijving)
@@ -172,6 +171,7 @@
 	}
 	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())
@@ -237,13 +237,14 @@
 			}
 			Else
 			{
-				Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Lade reeds gedetecteerd in ander frame "_FrameID_" "_QueueHelper.GeefTijdStip)
+				/// JBL TEMP TIJDSTIP UITGECOMMENTARIEERD ! 
+				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 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())
 		}
 	}
@@ -315,6 +316,7 @@
 		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")
Index: BL/Etiket/VHoss2D.cls.xml
===================================================================
diff -u -r2037 -r2079
--- BL/Etiket/VHoss2D.cls.xml	(.../VHoss2D.cls.xml)	(revision 2037)
+++ BL/Etiket/VHoss2D.cls.xml	(.../VHoss2D.cls.xml)	(revision 2079)
@@ -30,6 +30,13 @@
 		
 		/// VHossID uitschrijven
 		Write VHossID,$C(9)
+		
+		/// Zijkant vertalen
+		Set Zijkant = ""
+		If (..VHossZijkant = 1) { Set Zijkant = "A" }
+		ElseIf (..VHossZijkant = 2) { Set Zijkant = "B" }		
+		
+		Write Zijkant,$C(9)
 		Write $C(13,10)
 		
 		Quit $$$OK
Index: vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml
===================================================================
diff -u -r1839 -r2079
--- vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml	(.../TestVHossCaptureHelper.cls.xml)	(revision 1839)
+++ vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml	(.../TestVHossCaptureHelper.cls.xml)	(revision 2079)
@@ -64,7 +64,11 @@
 	
 	Set Detection = ..GeefDetectie(1,2)
 	Set DetectionHelper = ..CaptureHelper.GeefDetectionHelper(Detection)
-	Do $$$AssertEquals(DetectionHelper.%ClassName(1),..#FrameDetectionClassName,"Correcte DetectionHelper : Lade gekregen.")
+	If ('$IsObject(DetectionHelper)){
+		Do $$$AssertTrue($IsObject(DetectionHelper),"DetectionHelper is object.")
+	}Else {
+		Do $$$AssertEquals(DetectionHelper.%ClassName(1),..#FrameDetectionClassName,"Correcte DetectionHelper : Lade gekregen.")
+	}
 ]]></Implementation>
 </Method>
 
@@ -95,7 +99,7 @@
 	Set IsFrameDetection = ..CaptureHelper.IsFrameDetection(Detection)	
 	Do $$$AssertTrue(IsFrameDetection,"IsFrameDetection heeft correct een detection als Frame geïdentificeerd.") 	
 	
-	Set Detection.Id = "1110000077"		
+	Set Detection.Id = "1120000077"		
 	Set IsFrameDetection = ..CaptureHelper.IsFrameDetection(Detection)	
 	Do $$$AssertFalse(IsFrameDetection,"IsFrameDetection heeft correct een detection als NIET-Frame geïdentificeerd.") 	
 	
Index: APPS/VisiDot/impl/DetectionHelper.cls.xml
===================================================================
diff -u -r1866 -r2079
--- APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 1866)
+++ APPS/VisiDot/impl/DetectionHelper.cls.xml	(.../DetectionHelper.cls.xml)	(revision 2079)
@@ -64,7 +64,12 @@
 <Method name="ZetToolTip">
 <FormalSpec>ToolTip:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..Detection.ToolTip=ToolTip
+<Implementation><![CDATA[
+	If (..Detection.ToolTip '= ""){
+		Set ..Detection.ToolTip = ..Detection.ToolTip_..#ToolTipEndOfLine	
+	}
+	
+	Set ..Detection.ToolTip=..Detection.ToolTip_ToolTip
 ]]></Implementation>
 </Method>