Index: WS/Vhisie4/QRcodeNaarKenmerkenResponse/LadeRegistratieData.cls.xml
===================================================================
diff -u -r69205 -r69211
--- WS/Vhisie4/QRcodeNaarKenmerkenResponse/LadeRegistratieData.cls.xml	(.../LadeRegistratieData.cls.xml)	(revision 69205)
+++ WS/Vhisie4/QRcodeNaarKenmerkenResponse/LadeRegistratieData.cls.xml	(.../LadeRegistratieData.cls.xml)	(revision 69211)
@@ -11,7 +11,7 @@
 <Type>TECH.String</Type>
 </Property>
 
-<Property name="Eindklant">
+<Property name="EindklantID">
 <Type>TECH.String</Type>
 </Property>
 
Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml
===================================================================
diff -u -r66018 -r69211
--- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 66018)
+++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 69211)
@@ -72,9 +72,7 @@
 			Try {
 				Set ProductNummer = ..LadeRegistratieService.ZoekProductNummerViaRegistratieCode(RegistratieCode)
 				#dim Registratie As APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie = ..LadeRegistratieService.ZoekViaRegistratieCode(..GeefRegistratieCode(QRdata))
-				Set LadeRegistratieData.VerkoopOrderId = Registratie.OrderID
-				Set LadeRegistratieData.AxVerkoopOrderId = Registratie.AxOrderId
-				
+				Set LadeRegistratieData = ..MaakLadeRegristratieDataMetRegistratie(Registratie)
 			} Catch {
 				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 				If Exception.%IsA(##class(TECH.Exceptions.DataNotFoundException).%ClassName($$$True)) {
@@ -180,6 +178,38 @@
 <Implementation><![CDATA[	Do EconKenmerken.SetAt(InterneBreedte,"Data.BerekendeWaarden.InterneBreedte")
 ]]></Implementation>
 </Method>
+
+<Method name="MaakLadeRegristratieDataMetRegistratie">
+<FormalSpec>Registratie:APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.QRcodeNaarKenmerkenResponse.LadeRegistratieData</ReturnType>
+<Implementation><![CDATA[
+	Set LadeRegistratieData = ##class(WS.Vhisie4.QRcodeNaarKenmerkenResponse.LadeRegistratieData).%New()
+	Set LadeRegistratieData.VerkoopOrderId = Registratie.OrderID
+	Set LadeRegistratieData.AxVerkoopOrderId = Registratie.AxOrderId
+	
+	#dim OorsprongKetting As TECH.String = Registratie.OorsprongKetting
+	If $$$Not(OorsprongKetting = "") {
+		Set OorsprongKetting = $Replace(OorsprongKetting, "((", "")
+		Set OorsprongKetting = $Replace(OorsprongKetting, "))", "")
+		#dim OorsprongKettingLijst As %List = ##class(TECH.ListUtils).PiecesToListbuild(OorsprongKetting, "), (")
+		
+		If $ListLength(OorsprongKettingLijst) > 0 {
+			Set LadeRegistratieData.MultipersonalityID = $Piece($List(OorsprongKettingLijst, 1), ",", 1)
+			
+			#dim EindklantID As TECH.String = $Piece($List(OorsprongKettingLijst, 1), ",", 2)
+			Set EindklantID = $Replace(EindklantID, """", "")
+			Set EindklantID = ##class(TECH.StringUtils).Trim(EindklantID)
+			Set LadeRegistratieData.EindklantID = EindklantID
+			
+			#dim KlantID As TECH.String = $Piece($List(OorsprongKettingLijst, $ListLength(OorsprongKettingLijst)), ",", 2)
+			Set LadeRegistratieData.KlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
+		}
+	}
+	
+	Quit LadeRegistratieData
+]]></Implementation>
+</Method>
 </Class>