Index: APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml
===================================================================
diff -u -r2942 -r3451
--- APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2942)
+++ APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 3451)
@@ -100,34 +100,38 @@
 	If (..CaptureHelper.GeefBatchID()){
 		Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
 		Set FrameDetectionHelper = ..CaptureHelper.GeefFrameDetectionHelper()
-		Set FrameID = FrameDetectionHelper.GeefID()			
-		Set BatchID = ..CaptureHelper.GeefBatchID()
-		Set Batch = BatchService.GeefBatch(BatchID)
 		
-		If ($IsObject(Batch)){
-		
-			/// Normaal bij batch voor VHoss, maar één klant.
-			/// Maar voor zekerheid in toekomst, deze toch overlopen mocht dit naar meerdere klanten kunnen.
+		/// Als er geen FrameID is gedetecteerd, dan komt er melding op het scherm en moet deze afhandeing niet doen.
+		If ($IsObject(FrameDetectionHelper)){
+			Set FrameID = FrameDetectionHelper.GeefID()		
+			Set BatchID = ..CaptureHelper.GeefBatchID()
+			Set Batch = BatchService.GeefBatch(BatchID)
 			
-			Set ToeleveringIt = Batch.GeefToeleveringIterator()
-			While ToeleveringIt.HasNext()
-			{
-				Set Toelevering = ToeleveringIt.Next()
-				Set Order = Toelevering.GeefOrder()
-				Set KlantID = Order.GeefKlantNr()	
+			If ($IsObject(Batch)){
+			
+				/// Normaal bij batch voor VHoss, maar één klant.
+				/// Maar voor zekerheid in toekomst, deze toch overlopen mocht dit naar meerdere klanten kunnen.
 				
-				Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
-				Set VHossID = FrameID
-				
-				/// VHoss recepteren, dit kan later (als productie flow verandert) verplaats worden, wanneer de VHOSS binnen komt in onze gebouwen
-				/// Momenteel wordt een VHoss maar op één moment ingescand. En moet dus op dat moment worden vrijgegeven van bij de vorige klant.
-				Do VHossService.RecepteerVHoss(VHossID)
-						
-				Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)				
-				If ('IsVHossGeregistreerd){
-					Do VHossService.LeenUitVHoss(KlantID, VHossID)
-				}			
-			}	
+				Set ToeleveringIt = Batch.GeefToeleveringIterator()
+				While ToeleveringIt.HasNext()
+				{
+					Set Toelevering = ToeleveringIt.Next()
+					Set Order = Toelevering.GeefOrder()
+					Set KlantID = Order.GeefKlantNr()	
+					
+					Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
+					Set VHossID = FrameID
+					
+					/// VHoss recepteren, dit kan later (als productie flow verandert) verplaats worden, wanneer de VHOSS binnen komt in onze gebouwen
+					/// Momenteel wordt een VHoss maar op één moment ingescand. En moet dus op dat moment worden vrijgegeven van bij de vorige klant.
+					Do VHossService.RecepteerVHoss(VHossID)
+							
+					Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)				
+					If ('IsVHossGeregistreerd){
+						Do VHossService.LeenUitVHoss(KlantID, VHossID)
+					}			
+				}	
+			}
 		}
 		Set Status = $$$OK			
 	}