Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r37810 -r37812
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 37810)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 37812)
@@ -546,7 +546,7 @@
 	#dim IsMedewerker As %Boolean
 	set IsMedewerker = ..IsConsument()
 	if IsMedewerker {
-		set IsMedewerker = (..Node3.GeefPiece(10) = 3)
+		set IsMedewerker = (..GeefKwaliteit() = 3)
 	}
 	Quit IsMedewerker
 ]]></Implementation>
@@ -889,11 +889,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKwaliteit">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node3.GeefPiece(10)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKwaliteitStatus">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim KwaliteitStatus As %String = ""
-	#dim Piece As %String = ..Node3.GeefPiece(10)
+	#dim Piece As %String = ..GeefKwaliteit()
 	#dim Activiteit As DOM.VKP.enu.KlantActiviteit = ..GeefActiviteit()
 	If (Piece '= "") && (Activiteit '= "")
 	{