Index: APPS/OV/OrderAanvraagChecker.cls.xml
===================================================================
diff -u -r29059 -r39487
--- APPS/OV/OrderAanvraagChecker.cls.xml	(.../OrderAanvraagChecker.cls.xml)	(revision 29059)
+++ APPS/OV/OrderAanvraagChecker.cls.xml	(.../OrderAanvraagChecker.cls.xml)	(revision 39487)
@@ -6,14 +6,45 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
+<Property name="Meldingen">
+<Type>TECH.ExceptionList</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="MailNietVerwerkteAanvragen">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#dim Status As %Status = ##class(APPS.OV.impl.AanvraagChecker.Order).%New().MailNietVerwerkteAanvragen()
-	Set:('$$$ISERR(Status)) Status = ##class(APPS.OV.impl.AanvraagChecker.Offerte).%New().MailNietVerwerkteAanvragen()
+	#dim Status As %Status = $$$OK
+	
+	Do ..Meldingen.Clear()
+	
+	Do ..CheckAanvragen(##class(APPS.OV.impl.AanvraagChecker.Order).%New())
+	Do ..CheckAanvragen(##class(APPS.OV.impl.AanvraagChecker.Offerte).%New())
+	
+	If ..Meldingen.Count() {
+		Set Status = $$$ERROR($$$GeneralError,"AanvraagChecker heeft probleem gemeld. Zie log/mail.")
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("AanvraagChecker heeft probleem gemeld.")
+		Do Exception.VoegToeInnerExcepties(..Meldingen)
+		Do ##class(vhLib.Logger).%New().LogEnMailExceptie(Exception)
+	}
+	
 	Quit Status
 ]]></Implementation>
 </Method>
+
+<Method name="CheckAanvragen">
+<FormalSpec>AanvraagChecker:APPS.OV.impl.AanvraagChecker</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+		#dim Status As %Status = AanvraagChecker.MailNietVerwerkteAanvragen()
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Meldingen.Insert(Exception)
+	}
+]]></Implementation>
+</Method>
 </Class>