Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml
===================================================================
diff -u -r54390 -r54405
--- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 54390)
+++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 54405)
@@ -13,6 +13,11 @@
 <Default>1803797</Default>
 </Parameter>
 
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>150000</Default>
+</Parameter>
+
 <Parameter name="Ladecode">
 <Type>%String</Type>
 <Default>LA1112</Default>
@@ -28,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="RegistratieDummy">
+<Type>APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -37,13 +47,17 @@
 	Set ..Request.Header.KlantId = 1000
 	Set ..Request.QRcodeData = "https://www.orgalux.com/drawercode?QC="""_..#RegistratieCode_""""
 	Set ..Request.HerbestellingBijProbleem = ""
+	
+	Set ..RegistratieDummy = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New("","")
+	Set ..RegistratieDummy.OrderID = ..#OrderID
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Standaardgedrag, aantal = 1 en verpakking = V1">
 <Implementation><![CDATA[
 	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
 	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).DanReturn(..#ProductNummer)
+	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekViaRegistratieCode",..#RegistratieCode).DanReturn(..RegistratieDummy)
 	
 	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set ConfiguratorServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
@@ -69,6 +83,7 @@
 <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 ConfiguratorServiceStub = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
 	Do ConfiguratorServiceStub.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct",..#ProductNummer).DanException($$$DummyException)
@@ -86,6 +101,7 @@
 <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)
 	
 	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set ConfiguratorServiceStub = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
@@ -107,6 +123,7 @@
 <Implementation><![CDATA[
 	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
 	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).DanReturn(..#ProductNummer)
+	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekViaRegistratieCode",..#RegistratieCode).DanReturn(..RegistratieDummy)
 
 	Set ..Request.QRcodeData = "https://www.orgalux.com/drawercode?QC="""""_..#RegistratieCode_""""""
 	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceMock)
@@ -121,6 +138,7 @@
 <Implementation><![CDATA[
 	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
 	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).DanReturn(..#ProductNummer)
+	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekViaRegistratieCode",..#RegistratieCode).DanReturn(..RegistratieDummy)
 
 	Set ..Request.QRcodeData = """ghy 159"""
 	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceMock)
@@ -178,6 +196,7 @@
 	
 	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
 	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).ExactAantalKeer(0)
+	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekViaRegistratieCode",..#RegistratieCode).ExactAantalKeer(0)
 	
 	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set ConfiguratorServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
@@ -258,6 +277,7 @@
 	
 	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
 	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).DanReturn(..#ProductNummer)
+	Do LadeRegistratieServiceMock.IndienMethodCall("ZoekViaRegistratieCode",..#RegistratieCode).DanReturn(..RegistratieDummy)
 	
 	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set ConfiguratorServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml
===================================================================
diff -u -r54390 -r54405
--- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 54390)
+++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 54405)
@@ -46,6 +46,7 @@
 	#dim Klantnummer = QRcodeNaarKenmerkenRequest.Header.KlantId
 	#dim QRdata = QRcodeNaarKenmerkenRequest.QRcodeData
 	#dim ProductNummer = ""
+	Set LadeRegistratieData = ##class(WS.Vhisie4.QRcodeNaarKenmerkenResponse.LadeRegistratieData).%New()
 	
 	If (##class(TECH.StringUtils).StartsWith(QRdata,"AdminProductnummer")) {
 		Set ProductNummer = $Piece(QRdata,"=",2)
@@ -58,6 +59,7 @@
 		} Else {
 			Try {
 				Set ProductNummer = ..LadeRegistratieService.ZoekProductNummerViaRegistratieCode(RegistratieCode)
+				Set LadeRegistratieData.VerkoopOrderId = ..LadeRegistratieService.ZoekViaRegistratieCode(..GeefRegistratieCode(QRdata)).OrderID
 			} Catch {
 				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 				If Exception.%IsA(##class(TECH.Exceptions.DataNotFoundException).%ClassName($$$True)) {
@@ -83,6 +85,8 @@
 	Set Response = ##class(WS.Vhisie4.QRcodeNaarKenmerkenResponse).%New()
 	Set Response.EconConfiguratie = EconKenmerkenArray
 	
+	Set Response.LadeRegistratieData = LadeRegistratieData
+
 	Quit Response
 ]]></Implementation>
 </Method>