Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml
===================================================================
diff -u -r70552 -r73948
--- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 70552)
+++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 73948)
@@ -567,6 +567,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: OorsprongKetting met lengte &gt; 2 meegegeven -&gt; LadeRegistratieData aangevuld met VH personality">
+<Implementation><![CDATA[
+	#dim OorsprongKetting As TECH.String = ..GeefOorsprongKettingMetLengteGroterDanTwee()
+	Set ..RegistratieDummy.OorsprongKetting = OorsprongKetting
+	
+	Set LadeRegistratieServiceStub = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
+	Do LadeRegistratieServiceStub.IndienMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).DanReturn(..#ProductNummer)
+	Do LadeRegistratieServiceStub.IndienMethodCall("ZoekViaRegistratieCode",..#RegistratieCode).DanReturn(..RegistratieDummy)
+	
+	Set QRcodeNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceStub)
+	
+	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRcodeNaarKenmerkenService.GeefKenmerken(..Request)
+	Do $$$AssertEquals(Response.LadeRegistratieData.EindklantID, $Piece(..#EindklantID, "_", 2))
+	Do $$$AssertEquals(Response.LadeRegistratieData.MultipersonalityID, ..#MultipersonalityID)
+	Do $$$AssertEquals(Response.LadeRegistratieData.KlantNummer, ..#KlantNummer)
+]]></Implementation>
+</Method>
+
 <Method name="Test: OorsprongKetting niet meegegeven -&gt; LadeRegistratieData niet aangevuld">
 <Implementation><![CDATA[
 	Set LadeRegistratieServiceStub = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
@@ -591,6 +609,16 @@
 	Quit OorsprongKetting
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOorsprongKettingMetLengteGroterDanTwee">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim OorsprongKetting As TECH.String = "((PersonalityIdDistributeur, daro_EindklantIdDistributeur, 0123456), (" _ ..#MultipersonalityID _ ", """ _ ..#EindklantID _ ", 1234567), (1, K||" _ ..#KlantNummer _ ", 2345678))"
+	
+	Quit OorsprongKetting
+]]></Implementation>
+</Method>
 </Class>