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>
 
 
Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml
===================================================================
diff -u -r73933 -r73948
--- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 73933)
+++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 73948)
@@ -207,18 +207,23 @@
 		#dim OorsprongKettingLijst As %List = ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKetting, "), (")
 		
 		If $ListLength(OorsprongKettingLijst) > 0 {
-			#dim PersonalityID = $Piece($List(OorsprongKettingLijst, 1), ",", 1)
-			Set LadeRegistratieData.MultipersonalityID = PersonalityID
-			
+			#dim PersonalityID As %String = $Piece($List(OorsprongKettingLijst, 1), ",", 1)
 			#dim KlantID As TECH.String = $Piece($List(OorsprongKettingLijst, $ListLength(OorsprongKettingLijst)), ",", 2)
+			#dim EindklantID As TECH.String = $Piece($List(OorsprongKettingLijst, 1), ",", 2)
+			
+			If ($ListLength(OorsprongKettingLijst) > 2) {
+				Set PersonalityID = $Piece($List(OorsprongKettingLijst, $ListLength(OorsprongKettingLijst) - 1), ",", 1)
+				Set EindklantID = $Piece($List(OorsprongKettingLijst, $ListLength(OorsprongKettingLijst) - 1), ",", 2)
+			}
 			Set KlantID = $Replace(KlantID, """", "")
+			Set EindklantID = $Replace(EindklantID, """", "")
+			
+			Set LadeRegistratieData.MultipersonalityID = PersonalityID
 			Set LadeRegistratieData.KlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
 			
 			#dim HandelPersonalityRepository = ##class(DOM.common.impl.HandelPersonalityRepository).%New()
 			#dim HandelPersonality As DOM.common.Personality = HandelPersonalityRepository.GeefViaID(PersonalityID)
 			
-			#dim EindklantID As TECH.String = $Piece($List(OorsprongKettingLijst, 1), ",", 2)
-			Set EindklantID = $Replace(EindklantID, """", "")
 			If (##class(TECH.StringUtils).Contains(EindklantID, HandelPersonality.GeefPrefix())) {
 				Set EindklantID = $Piece(EindklantID, HandelPersonality.GeefPrefix(), 2)
 			}
@@ -230,13 +235,6 @@
 	Quit LadeRegistratieData
 ]]></Implementation>
 </Method>
-
-<Method name="GeefPersonalityPrefix">
-<FormalSpec>OorsprongKetting:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
 </Class>