Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r2216 -r2317
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2216)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2317)
@@ -197,10 +197,19 @@
 	Set VHossVolgNr=DetectionHelper.GeefVHossVolgNr()
 	Set VHossZijkant=DetectionHelper.GeefVHossZijkant()
 	
+	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	
+		}
+	}
+	
 	; controle op foutieve batch
 	If ..BatchID'=BatchID
 	{
-		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Lade van batch "_BatchID_" behoort niet tot geselecteerde batch "_..BatchID)
+		Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),ExtraInfo_" "_"Lade van batch "_BatchID_" behoort niet tot geselecteerde batch "_..BatchID)
 	}
 	; controle op foutieve VHoss
 	ElseIf (..VHossVolgNr'=VHossVolgNr)||(..VHossZijkant'=VHossZijkant)
@@ -214,6 +223,7 @@
 		Set VHossSlotNr=DetectionHelper.GeefSlotNr()
 		
 		Set QueueHelper=..ZoekQueueElement(BatchID,VHossVolgNr,VHossZijkant,VHossSlotNr,ProductNr)
+		
 		If $isObject(QueueHelper)
 		{
 			; extra info toevoegen
@@ -246,14 +256,7 @@
 		{
 			//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())
 		}
@@ -361,7 +364,7 @@
 	Set:..FrameDetectionHelper="" ..FrameDetectionHelper=DetectionHelper
 	If DetectionHelper.GeefID()'=..FrameDetectionHelper.GeefID()
 	{
-		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).SysteemFout(),"Meerdere Frame code","De frame bevat meerdere verschillende frame "_DetectionHelper.GeefID()_"<->"_..FrameDetectionHelper.GeefID())
+		Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"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())
 	}