Index: APPS/PM/Maatwerk/impl/KenmerkenValidator/IsVolledigException.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/KenmerkenValidator/IsVolledigException.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/KenmerkenValidator/IsVolledigException.cls.xml	(revision 32038)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException">
+<Super>TECH.Exceptions.InvalidInputException</Super>
+
+<Property name="IngegevenKenmerken">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PropertyNamen">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Omschrijving:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,PropertyNamen:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Omschrijving)
+	Set ..IngegevenKenmerken = IngegevenKenmerken
+	Set ..PropertyNamen = PropertyNamen
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPropertyNamen">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ..PropertyNamen
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<FormalSpec>Prefix:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %String = ""
+	#dim Opmerkingen As %ListOfDataTypes = ..MaakOpmerkingenLijst(..PropertyNamen)
+
+	Set Result = Result _ ##class(TECH.ListUtils).ListToPieces(Opmerkingen, $$$CRLF)
+	Set Result = Result _ $$$CRLF _ $$$CRLF
+	Set Result = Result _ ##class(Tools.ObjectDumper.CodeCreator).%New(..IngegevenKenmerken).ToString()
+	
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="MaakOpmerkingenLijst">
+<FormalSpec>PropertyNamen:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Opmerkingen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Set Iterator = ##class(TECH.ListIterator).%New(PropertyNamen)
+	While (Iterator.HasNext()) {
+		#dim PropertyNaam As %List = Iterator.Next()
+		#dim ExtraInfo As %String = $$$Trim($P(PropertyNaam," ",2,999))
+		Set:($L(ExtraInfo)) ExtraInfo = " "_ExtraInfo
+		Do Opmerkingen.Insert($P(PropertyNaam," ",1)_" niet ingevuld"_ExtraInfo_".")
+	}
+	Quit Opmerkingen
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/impl/KenmerkenValidator/Mailer.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/KenmerkenValidator/Mailer.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/KenmerkenValidator/Mailer.cls.xml	(revision 32038)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.KenmerkenValidator.Mailer">
+<Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Method name="VerstuurMail">
+<FormalSpec>Exception:APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException</FormalSpec>
+<Implementation><![CDATA[
+	#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
+	#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMailVoorICT()
+
+	#dim KenmerkenKlasseNaam As %String = Exception.GeefIngegevenKenmerken().%ClassName($$$False)
+	do Mail.ZetVerzender($$$SystemMail(KenmerkenKlasseNaam))
+	do Mail.ZetOnderwerp("IsVolledig")
+	do Mail.ZetInhoud(Exception.ToString())
+	
+	do MailAPI.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>