Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r34484 -r34606
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34484)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34606)
@@ -8,13 +8,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Validator">
+<Type>AX.common.impl.Validator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	set ..Validator = ##class(AX.common.impl.Validator).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -66,6 +72,8 @@
 	do Custable.DirParty.Insert(DirParty)
 	
 	do AxKlant.CustTable.Insert(Custable)
+	
+	do ..Validator.Validate(AxKlant)
 
 	quit AxKlant
 ]]></Implementation>
Index: AX/common/impl/Validator.cls.xml
===================================================================
diff -u
--- AX/common/impl/Validator.cls.xml	(revision 0)
+++ AX/common/impl/Validator.cls.xml	(revision 34606)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.common.impl.Validator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Validate">
+<FormalSpec>Object:%Base</FormalSpec>
+<Implementation><![CDATA[	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Object.%ValidateObject($$$true))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>