Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml
===================================================================
diff -u -r64421 -r69213
--- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 64421)
+++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 69213)
@@ -33,6 +33,21 @@
 <Default>L.A1.11.2</Default>
 </Parameter>
 
+<Parameter name="EindklantID">
+<Type>%String</Type>
+<Default>daro_TEST</Default>
+</Parameter>
+
+<Parameter name="MultipersonalityID">
+<Type>%Integer</Type>
+<Default>10</Default>
+</Parameter>
+
+<Parameter name="KlantNummer">
+<Type>%Integer</Type>
+<Default>23968</Default>
+</Parameter>
+
 <Property name="Request">
 <Type>WS.Vhisie4.QRcodeNaarKenmerkenRequest</Type>
 <Private>1</Private>
@@ -446,6 +461,49 @@
 	Do LadeRegistratieServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: OorsprongKetting meegegeven -&gt; LadeRegistratieData aangevuld">
+<Implementation><![CDATA[
+	#dim OorsprongKetting As TECH.String = ..GeefOorsprongKetting()
+	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 QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceStub)
+	
+	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRNaarKenmerkenService.GeefKenmerken(..Request)
+	Do $$$AssertEquals(Response.LadeRegistratieData.EindklantID, ..#EindklantID)
+	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()
+	Do LadeRegistratieServiceStub.IndienMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).DanReturn(..#ProductNummer)
+	Do LadeRegistratieServiceStub.IndienMethodCall("ZoekViaRegistratieCode",..#RegistratieCode).DanReturn(..RegistratieDummy)
+	
+	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceStub)
+	
+	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRNaarKenmerkenService.GeefKenmerken(..Request)
+	Do $$$AssertEquals(Response.LadeRegistratieData.EindklantID, "")
+	Do $$$AssertEquals(Response.LadeRegistratieData.MultipersonalityID, "")
+	Do $$$AssertEquals(Response.LadeRegistratieData.KlantNummer, "")
+]]></Implementation>
+</Method>
+
+<Method name="GeefOorsprongKetting">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim OorsprongKetting As TECH.String = "((" _ ..#MultipersonalityID _ ", """ _ ..#EindklantID _ ", 123456), (1, K||" _ ..#KlantNummer _ ", 234567))"
+	
+	Quit OorsprongKetting
+]]></Implementation>
+</Method>
 </Class>