Index: vhUnitTest/TECH/ObjectUtils/ObjectConverter/Object.cls.xml
===================================================================
diff -u -r2202 -r2217
--- vhUnitTest/TECH/ObjectUtils/ObjectConverter/Object.cls.xml	(.../Object.cls.xml)	(revision 2202)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverter/Object.cls.xml	(.../Object.cls.xml)	(revision 2217)
@@ -5,6 +5,7 @@
 
 <Property name="AsString">
 <Type>%String</Type>
+<Required>1</Required>
 </Property>
 
 <Property name="AsInteger">
Index: TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml
===================================================================
diff -u -r2213 -r2217
--- TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml	(.../Validator.cls.xml)	(revision 2213)
+++ TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml	(.../Validator.cls.xml)	(revision 2217)
@@ -6,7 +6,17 @@
 <Method name="IsValid">
 <FormalSpec>Object:%CacheString,PropertyName:%String,Value:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit (Value="") || ($method(Object,PropertyName_"IsValid",Value))
+<Implementation><![CDATA[
+	#dim IsValid As %Boolean = $$$true
+
+	if IsValid {
+		 #dim CompiledProperty As %Dictionary.CompiledProperty = ##class(%Dictionary.CompiledProperty).%OpenId(Object.%ClassName(1)_"||"_PropertyName)
+		 if (CompiledProperty.Required) set IsValid = $$$Not(Value="")
+	}
+	
+	set:IsValid IsValid = (Value="") || ($method(Object,PropertyName_"IsValid",Value))
+	
+	quit IsValid
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml
===================================================================
diff -u -r2211 -r2217
--- vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2211)
+++ vhUnitTest/TECH/ObjectUtils/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2217)
@@ -75,6 +75,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Conversie vereist veld">
+<Implementation><![CDATA[
+	try {
+
+		set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+		do ConversionData.Add("AsString","AsString","Set Output = """"")
+
+		set ObjectTo = ##class(vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object).%New()
+
+		do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
+	
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		do $$$AssertEquals(Exception.%ClassName(1),"TECH.ObjectUtils.ObjectConverterException")
+		
+		#dim ExceptionList As TECH.ExceptionList = Exception.GeefInnerExcepties()
+		if $$$AssertEquals(ExceptionList.Count(),1) {
+			do $$$AssertEquals(ExceptionList.GetAt(1).%ClassName(1),"TECH.ObjectUtils.ObjectConverterPropertyException")
+			do $$$AssertEquals(ExceptionList.GetAt(1).GeefOmschrijving(),"Invalid output validation. Value '' not valid for 'AsString' on 'vhUnitTest.TECH.ObjectUtils.ObjectConverter.Object'.")
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test: Conversie opgegeven waarde bevat een conversie script">
 <Implementation><![CDATA[
 	set ConversionData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
@@ -84,7 +108,7 @@
 
 	do ..ObjectConverter.Convert(..GetObjectFrom(),ObjectTo,ConversionData)
 	
-	do $$$AssertEquals(ObjectTo.AsInteger,2)
+	do $$$AssertEquals(ObjectTo.AsString,"")
 ]]></Implementation>
 </Method>