Index: APPS/EDI/common/impl/ProductConverter.cls.xml
===================================================================
diff -u -r36972 -r36998
--- APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 36972)
+++ APPS/EDI/common/impl/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 36998)
@@ -143,8 +143,9 @@
 	Set Exceptions = ##class(TECH.ExceptionList).%New()
 	Set Iterator = ##class(TECH.ListIterator).%New(Exception.GeefPropertyNamen())
 	While (Iterator.HasNext()) {
-		#dim PropertyNaam As %List = $piece(Iterator.Next()," ",1)
-		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New("output",$classname(IngegevenKenmerken),PropertyNaam,"",PropertyNaam,PropertyNaam)
+		#dim PropertyNaam As %String = $piece(Iterator.Next()," ",1)
+		#dim PropertyFrom As %STring = ..GeefPropertyFrom(PropertyNaam)
+		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New("output",$classname(IngegevenKenmerken),PropertyNaam,"",PropertyFrom,PropertyNaam)
 		Do Exceptions.Insert(Exception)
 	}
 	
@@ -157,6 +158,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPropertyFrom">
+<FormalSpec>PropertyTo:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;Quit ..ConvertData.GeefPropertyFrom(PropertyTo)   ; To be implemented 
+	Quit $S(PropertyTo="KantenbandKleur":"LadeKleur",1:PropertyTo)
+]]></Implementation>
+</Method>
+
 <Method name="GeefGekoppeldMatKenmerk">
 <FormalSpec>Lade:APPS.EDI.common.dto.v001.Lade</FormalSpec>
 <Private>1</Private>