Index: DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r37810 -r37812
--- DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 37810)
+++ DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 37812)
@@ -384,6 +384,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefKwaliteit">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefKwaliteitStatus">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
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 '= "")
 	{
Index: vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r37810 -r37812
--- vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 37810)
+++ vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 37812)
@@ -184,6 +184,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKwaliteit">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKwaliteit")
+]]></Implementation>
+</Method>
+
 <Method name="GeefKwaliteitStatus">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKwaliteitStatus")
Index: AXBizTalk/Customer.cls.xml
===================================================================
diff -u -r37810 -r37812
--- AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37810)
+++ AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37812)
@@ -63,6 +63,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="Kwaliteit">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>CustomerState</State>
@@ -107,6 +111,9 @@
 <Value name="13">
 <Value>Kwantitatief</Value>
 </Value>
+<Value name="14">
+<Value>Kwaliteit</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37810 -r37812
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37810)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37812)
@@ -40,6 +40,7 @@
 	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn("Verantwoordelijke")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
 </Method>
@@ -212,6 +213,30 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950008")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Kwaliteit: indien bekend, omzetten">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"969950001")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kwaliteit: indien onbekend, leeg maken">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Kwaliteit,"")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37810 -r37812
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37810)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37812)
@@ -133,6 +133,13 @@
 		"0"			: "969950014",
 					: "969950014"
 		)
+	Set ..Customer.Kwaliteit = $Case(..Klant.GeefKwaliteit(),
+		"1"			: "969950000",
+		"2"			: "969950001",
+		"3"			: "969950002",
+		"4"			: "969950003",
+					: ""
+		)
 ]]></Implementation>
 </Method>
 </Class>