Index: APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml
===================================================================
diff -u -r2783 -r2942
--- APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2783)
+++ APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2942)
@@ -16,19 +16,18 @@
 <Method name="Verwerk">
 <FormalSpec><![CDATA[&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <Implementation><![CDATA[
-	
 	Set ..ProcessedData = ProcessedData
 	Set ..CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(..ProcessedData,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
 	
 	Do ..RecepteerVHoss()
 	Do ..KopieerFotos()
-	Do ..KopieerVerpakkingsDocument(..ProcessedData)
+	Do ..KopieerVerpakkingsDocument(..ProcessedData)	
 	
-	
 	Set VHossSequentie = ..CaptureHelper.GeefVHossSequentie()
 	Set BestandNaam = VHossSequentie_"_CaptureInfo_OUT_"_$tr($h,",")_".xml"
 	Do ..BewaarData(ProcessedData,BestandNaam)
 	Set ProcessedData = ..CaptureHelper.GeefData()
+	Quit
 ]]></Implementation>
 </Method>
 
@@ -49,6 +48,7 @@
 <Method name="KopieerFotos">
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set $ZTRAP = "CatchKopieerFotos"
 	Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(..ProcessedData)
 	Set VHossSequenceNr = CaptureHelper.GeefVHossSequentie()
 	
@@ -66,7 +66,13 @@
 			JOB ClassMethod^vhLib("TECH.Files","CopyFile",2,BestandLocatie,DoelLocatie)
 		}
 	}
+	Set $ZTRAP = ""
 	Quit
+CatchKopieerFotos
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do ##class(vhLib.Logger).%New("APPS.VisiDot").WarningMail("KopieerFotos mislukt.",Exception.ToString())
+	Quit
 ]]></Implementation>
 </Method>
 
@@ -84,14 +90,15 @@
 </Description>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set $ZTRAP = "CatchRecepteerVHoss"
+	
 	Set BatchService = ##class(APPS.Halux.common.BatchService).%New()
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Status = '$$$OK
 	
 	/// Enkel uitvoeren als er een batch te discoveren is.	
 	If (..CaptureHelper.GeefBatchID()){
 		Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
-		
 		Set FrameDetectionHelper = ..CaptureHelper.GeefFrameDetectionHelper()
 		Set FrameID = FrameDetectionHelper.GeefID()			
 		Set BatchID = ..CaptureHelper.GeefBatchID()
@@ -109,7 +116,6 @@
 				Set Order = Toelevering.GeefOrder()
 				Set KlantID = Order.GeefKlantNr()	
 				
-				
 				Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
 				Set VHossID = FrameID
 				
@@ -125,7 +131,21 @@
 		}
 		Set Status = $$$OK			
 	}
+	Set $ZTRAP = ""
 	Quit Status
+	
+CatchRecepteerVHoss
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Set FrameID = ""
+	Set FrameDetectionHelper = ..CaptureHelper.GeefFrameDetectionHelper()
+	If $IsObject(FrameDetectionHelper) {
+		Set FrameID = FrameDetectionHelper.GeefID()	
+	}
+	Set Bericht = "Recepteer VHoss mislukt voor FrameID : '"_FrameID_"'"_$C(13,10)
+	Set Bericht = Bericht_Exception.ToString()
+	Do ##class(vhLib.Logger).%New("APPS.VisiDot").WarningMail("RecepteerVHoss mislukt.",Bericht)
+	Quit 0
 ]]></Implementation>
 </Method>
 </Class>