Index: APPS/PM/Maatwerk/impl/KenmerkenValidator/TAX.cls.xml
===================================================================
diff -u -r31728 -r32039
--- APPS/PM/Maatwerk/impl/KenmerkenValidator/TAX.cls.xml	(.../TAX.cls.xml)	(revision 31728)
+++ APPS/PM/Maatwerk/impl/KenmerkenValidator/TAX.cls.xml	(.../TAX.cls.xml)	(revision 32039)
@@ -31,64 +31,47 @@
 <Implementation><![CDATA[
 	set ..TAORKenmerken = TAORKenmerken
 
-	#dim Opmerkingen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim PropertyNamen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 
-	do:(..TAORKenmerken.CorpusBreedte = "") Opmerkingen.Insert("CorpusBreedte niet ingevuld.")
-	do:($$$Not(..TAORKenmerken.IsBinnenbreedte) && (..TAORKenmerken.CorpusWandDikte = "")) Opmerkingen.Insert("CorpusWandDikte niet ingevuld (geen binnenbreedte).")
-	do:(..TAORKenmerken.Draagkracht = "") Opmerkingen.Insert("Draagkracht niet ingevuld.")
-	do:(..TAORKenmerken.IsBinnenbreedte = "") Opmerkingen.Insert("IsBinnenbreedte niet ingevuld.")
-	do:(..TAORKenmerken.IsBinnenlade = "") Opmerkingen.Insert("IsBinnenlade niet ingevuld.")
-	do:(..TAORKenmerken.LadeKleur = "") Opmerkingen.Insert("LadeKleur niet ingevuld.")
-	do:(..TAORKenmerken.LadeHoogte = "") Opmerkingen.Insert("LadeHoogte niet ingevuld.")
-	do:(..TAORKenmerken.LadeDiepte = "") Opmerkingen.Insert("LadeDiepte niet ingevuld.")
-	do:(..TAORKenmerken.HeeftOpvullijstLinks = "") Opmerkingen.Insert("HeeftOpvullijstLinks niet ingevuld.")
-	do:(..TAORKenmerken.HeeftOpvullijstRechts = "") Opmerkingen.Insert("HeeftOpvullijstRechts niet ingevuld.")
-	do:(..TAORKenmerken.HeeftZijstabilisering = "") Opmerkingen.Insert("HeeftZijstabilisering niet ingevuld.")
-	do:((..TAORKenmerken.GeleiderTechnologie = "") && (..TAORKenmerken.HeeftTipon = "")) Opmerkingen.Insert("GeleiderTechnologie/HeeftTipon niet ingevuld.")
-	do:(..TAORKenmerken.GlijderType = "") Opmerkingen.Insert("GlijderType niet ingevuld.")
-	do:(..TAORKenmerken.Uittrekbaarheid = "") Opmerkingen.Insert("Uittrekbaarheid niet ingevuld.")
-	do:(..TAORKenmerken.VerpakkingType = "") Opmerkingen.Insert("VerpakkingType niet ingevuld.")
-	do:(..TAORKenmerken.BodemKleur = "") Opmerkingen.Insert("BodemKleur niet ingevuld.")
-	do:(..TAORKenmerken.KoppelingType = "") Opmerkingen.Insert("KoppelingType niet ingevuld.")
-	do:(..TAORKenmerken.FrontEindkapKleur = "") Opmerkingen.Insert("FrontEindkapKleur niet ingevuld.")
+	do:(..TAORKenmerken.CorpusBreedte = "") PropertyNamen.Insert("CorpusBreedte")
+	do:($$$Not(..TAORKenmerken.IsBinnenbreedte) && (..TAORKenmerken.CorpusWandDikte = "")) PropertyNamen.Insert("CorpusWandDikte (geen binnenbreedte)")
+	do:(..TAORKenmerken.Draagkracht = "") PropertyNamen.Insert("Draagkracht")
+	do:(..TAORKenmerken.IsBinnenbreedte = "") PropertyNamen.Insert("IsBinnenbreedte")
+	do:(..TAORKenmerken.IsBinnenlade = "") PropertyNamen.Insert("IsBinnenlade")
+	do:(..TAORKenmerken.LadeKleur = "") PropertyNamen.Insert("LadeKleur")
+	do:(..TAORKenmerken.LadeHoogte = "") PropertyNamen.Insert("LadeHoogte")
+	do:(..TAORKenmerken.LadeDiepte = "") PropertyNamen.Insert("LadeDiepte")
+	do:(..TAORKenmerken.HeeftOpvullijstLinks = "") PropertyNamen.Insert("HeeftOpvullijstLinks")
+	do:(..TAORKenmerken.HeeftOpvullijstRechts = "") PropertyNamen.Insert("HeeftOpvullijstRechts")
+	do:(..TAORKenmerken.HeeftZijstabilisering = "") PropertyNamen.Insert("HeeftZijstabilisering")
+	do:((..TAORKenmerken.GeleiderTechnologie = "") && (..TAORKenmerken.HeeftTipon = "")) PropertyNamen.Insert("GeleiderTechnologie (HeeftTipon)")
+	do:(..TAORKenmerken.GlijderType = "") PropertyNamen.Insert("GlijderType")
+	do:(..TAORKenmerken.Uittrekbaarheid = "") PropertyNamen.Insert("Uittrekbaarheid")
+	do:(..TAORKenmerken.VerpakkingType = "") PropertyNamen.Insert("VerpakkingType")
+	do:(..TAORKenmerken.BodemKleur = "") PropertyNamen.Insert("BodemKleur")
+	do:(..TAORKenmerken.KoppelingType = "") PropertyNamen.Insert("KoppelingType")
+	do:(..TAORKenmerken.FrontEindkapKleur = "") PropertyNamen.Insert("FrontEindkapKleur")
 
 	if $$$Not(..IsActiefValidator.If.Setting("IsActiefTAORVerpakkingTypeLosseComponentenInBulk").IsInvalid()) {
 		if ((..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk) && (..TAORKenmerken.LosseComponent = "")) {
-			do Opmerkingen.Insert("Volledige lade kan niet gecombineerd worden met VerpakkingType Losse Componenten.")
+			do PropertyNamen.Insert("LosseComponent (Volledige lade kan niet gecombineerd worden met VerpakkingType Losse Componenten)")
 		} 
 	}
 	
-	if (Opmerkingen.Count()) {
-		do ..VerstuurMail(Opmerkingen)
-		do ..ThrowException()	
+	if (PropertyNamen.Count()) {
+		;do ..VerstuurMail(PropertyNamen)
+		do ..ThrowException(PropertyNamen)	
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VerstuurMail">
-<FormalSpec>Opmerkingen:%ListOfDataTypes</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI()
-	#dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMailVoorICT()
-	#dim Inhoud As TECH.String = ##class(TECH.ListUtils).ListToPieces(Opmerkingen, $$$CRLF)
-	#dim ObjectDump As TECH.String = ##class(Tools.ObjectDumper.CodeCreator).%New(..TAORKenmerken).ToString()
-
-	do Mail.ZetVerzender($$$SystemMail("TAORKenmerken"))
-	do Mail.ZetOnderwerp("IsVolledig")
-	do Mail.ZetInhoud(Inhoud _ $$$CRLF _ $$$CRLF _ ObjectDump)
-	
-	do MailAPI.VerstuurMail(Mail)
-]]></Implementation>
-</Method>
-
 <Method name="ThrowException">
+<FormalSpec>PropertyNamen:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Omschrijving As TECH.String = "De kenmerken zijn niet volledig."
-	#dim Exception As TECH.Exceptions.InvalidUserInputException = ##class(TECH.Exceptions.InvalidInputException).%New(Omschrijving)
-		
-	do ##class(TECH.ExceptionHandler).Throw(Exception)
+	#dim Exception = ##class(APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException).%New(Omschrijving, ..TAORKenmerken, PropertyNamen)
+	Do ##class(TECH.ExceptionHandler).Throw(Exception)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml
===================================================================
diff -u -r31351 -r32039
--- APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 31351)
+++ APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 32039)
@@ -111,16 +111,22 @@
 	#dim IsVolledig As %Boolean = $$$False
 	
 	try {
-		do ..Validator.Valideer($this)
+		do ..Valideer()
 		set IsVolledig = $$$True
 	} catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.InvalidInputException")
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException")
+		do ##class(APPS.PM.Maatwerk.impl.KenmerkenValidator.Mailer).%New().VerstuurMail(Exception)
 	}
 	
 	quit IsVolledig
 ]]></Implementation>
 </Method>
 
+<Method name="Valideer">
+<Implementation><![CDATA[	do ..Validator.Valideer($this)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFamilie">
 <ReturnType>DOM.PM.enu.Familie</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.PM.enu.Familie).Lade()