Index: WSimpl/Vhisie4/QRcodeNaarKenmerken.cls.xml
===================================================================
diff -u -r52669 -r52681
--- WSimpl/Vhisie4/QRcodeNaarKenmerken.cls.xml	(.../QRcodeNaarKenmerken.cls.xml)	(revision 52669)
+++ WSimpl/Vhisie4/QRcodeNaarKenmerken.cls.xml	(.../QRcodeNaarKenmerken.cls.xml)	(revision 52681)
@@ -8,14 +8,26 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ConfiguratorService">
+<Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AppsNaarEconConverter">
+<Type>ECONimpl.PM.Maatwerk.AppsConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LadeRegistratieService:APPS.VKP.Maatwerk.LadeRegistratieService</FormalSpec>
+<FormalSpec>LadeRegistratieService:APPS.VKP.Maatwerk.LadeRegistratieService="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",AppsNaarEconConverter:ECONimpl.PM.Maatwerk.AppsConverter=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..LadeRegistratieService = $$$Inject(LadeRegistratieService,##class(APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New())
+	Set ..LadeRegistratieService = $$$Inject(LadeRegistratieService, ##class(APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New())
+	Set ..ConfiguratorService = $$$Inject(ConfiguratorService, ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New())
+	Set ..AppsNaarEconConverter = $$$Inject(AppsNaarEconConverter, ##class(ECONimpl.PM.Maatwerk.AppsConverter).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -32,11 +44,15 @@
 	If RegistratieCode="" {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige data in QRcode '"_QRcodeNaarKenmerkenRequest.QRcodeData_"'"))
 	}
-		
+	
 	#dim ProductNummer = ..LadeRegistratieService.ZoekProductNummerViaRegistratieCode(RegistratieCode)
 	
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(ProductNummer)
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken = ..AppsNaarEconConverter.ConverteerAppsNaarEcon(IngegevenKenmerken).ToArray()
+	Do EconKenmerken.SetAt(1,"Data.Lijn.Aantal")
 	
 	Set Response = ##class(WS.Vhisie4.QRcodeNaarKenmerkenResponse).%New()
+	Set Response.EconConfiguratie = EconKenmerken
 	
 	Quit Response
 ]]></Implementation>
Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml
===================================================================
diff -u -r52669 -r52681
--- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 52669)
+++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 52681)
@@ -8,6 +8,11 @@
 <Default>GHY159</Default>
 </Parameter>
 
+<Parameter name="ProductNummer">
+<Type>%String</Type>
+<Default>1803797</Default>
+</Parameter>
+
 <Property name="Request">
 <Type>WS.Vhisie4.QRcodeNaarKenmerkenRequest</Type>
 <Private>1</Private>
@@ -24,23 +29,34 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaardgedrag">
+<Method name="Test: Standaardgedrag, aantal = 1">
 <Implementation><![CDATA[
 	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
-	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode)
+	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).DanReturn(..#ProductNummer)
 	
-	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerken).%New(LadeRegistratieServiceMock)
+	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	Set ConfiguratorServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.ConfiguratorService).%New()
+	Do ConfiguratorServiceMock.VerwachtMethodCall("GeefOnverwerkteKenmerkenVanProduct",..#ProductNummer).DanReturn(Kenmerken)
 	
+	Set AppsConverterMock = ##class(vhTest.Mock.ECONimpl.PM.Maatwerk.AppsConverter).%New()
+	Do AppsConverterMock.VerwachtMethodCall("ConverteerAppsNaarEcon",Kenmerken).DanReturn(##class(ECON.PM.Maatwerk.dto.TaxKenmerken).%New())
+	
+	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerken).%New(LadeRegistratieServiceMock, ConfiguratorServiceMock, AppsConverterMock)
+	
 	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRNaarKenmerkenService.GeefKenmerken(..Request)
 	
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.Lijn.Aantal"),"1")
+	
 	Do LadeRegistratieServiceMock.Verifieer()
+	Do ConfiguratorServiceMock.Verifieer()
+	Do AppsConverterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: QRcode bevat dubbele dubbele quote -&gt; ok">
 <Implementation><![CDATA[
 	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
-	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode)
+	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).DanReturn(..#ProductNummer)
 
 	Set ..Request.QRcodeData = "https://www.orgalux.com/drawercode?QC="""""_..#RegistratieCode_""""""
 	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerken).%New(LadeRegistratieServiceMock)