Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml
===================================================================
diff -u -r69543 -r70519
--- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 69543)
+++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 70519)
@@ -58,10 +58,12 @@
 	#dim Klantnummer = QRcodeNaarKenmerkenRequest.Header.KlantId
 	#dim QRdata = QRcodeNaarKenmerkenRequest.QRcodeData
 	#dim ProductNummer = ""
+	#dim OpgeroepenMetAdminProductnummer As %Boolean = $$$False
 	Set LadeRegistratieData = ##class(WS.Vhisie4.QRcodeNaarKenmerkenResponse.LadeRegistratieData).%New()
 	
 	If (##class(TECH.StringUtils).StartsWith(QRdata,"AdminProductnummer")) {
 		Set ProductNummer = $Piece(QRdata,"=",2)
+		Set OpgeroepenMetAdminProductnummer = $$$True
 	} ElseIf (##class(TECH.StringUtils).StartsWith(QRdata,"Ladecode")) {
 		Set ProductNummer = ..BarcodeService.GeefProductIDVoorBarcode(##class(TECH.StringUtils).Replace($Piece(QRdata,"=",2),".",""))
 	} Else {
@@ -106,6 +108,7 @@
 		
 		#dim EconKenmerkenArray As %ArrayOfDataTypes = EconKenmerken.ToArray()
 		Do ..ZetServiceSpecifiekeKenmerken(EconKenmerkenArray)
+		Do ..ZetVerpakkingType(IngegevenKenmerken, EconKenmerkenArray, OpgeroepenMetAdminProductnummer)
 		Do ..ZetInterneBreedte(EconKenmerkenArray, ..InbouwBreedteBerekenaar.BerekenInbouwBreedte(IngegevenKenmerken))
 	}
 	Catch {
@@ -162,13 +165,7 @@
 <Method name="ZetServiceSpecifiekeKenmerken">
 <FormalSpec>EconKenmerken:%ArrayOfDataTypes</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	Do EconKenmerken.SetAt(1,"Data.Lijn.Aantal")
-	If (EconKenmerken.GetAt("Data.Kenmerken.Variant") = "TBX") {
-		Do EconKenmerken.SetAt("V1","Data.Verpakkingtype")
-	} Else {
-		Do EconKenmerken.SetAt("V1","Data.Kenmerken.Verpakkingtype")
-	}
+<Implementation><![CDATA[	Do EconKenmerken.SetAt(1,"Data.Lijn.Aantal")
 ]]></Implementation>
 </Method>
 
@@ -179,6 +176,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetVerpakkingType">
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,EconKenmerken:%ArrayOfDataTypes,OpgeroepenMetAdminProductnummer:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Key As %String = "Data.Kenmerken.Verpakkingtype"
+	#dim VerpakkingType As %String = "V1"
+	
+	Set:(EconKenmerken.GetAt("Data.Kenmerken.Variant") = "TBX") Key = "Data.Verpakkingtype"
+	Set:(OpgeroepenMetAdminProductnummer) VerpakkingType = IngegevenKenmerken.VerpakkingType
+	
+	Do EconKenmerken.SetAt(VerpakkingType, Key)
+]]></Implementation>
+</Method>
+
 <Method name="MaakLadeRegistratieDataMetRegistratie">
 <FormalSpec>Registratie:APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml
===================================================================
diff -u -r69465 -r70519
--- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 69465)
+++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 70519)
@@ -105,6 +105,68 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaardgedrag, aantal = 1, opgeroepen via RegistratieCode en verpakking = Probox">
+<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 Kenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()
+	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(vhTest.Utils.ECON.PM.Maatwerk.dto.TaxKenmerken).StandaardLade())
+	
+	Set InbouwBreedteBerekenaarMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar).%New()
+	Do InbouwBreedteBerekenaarMock.VerwachtMethodCall("BerekenInbouwBreedte", Kenmerken).DanReturn("666666")
+	
+	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceMock, ConfiguratorServiceMock, AppsConverterMock, , , InbouwBreedteBerekenaarMock)
+	
+	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRNaarKenmerkenService.GeefKenmerken(..Request)
+	
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.Lijn.Aantal"),"1")
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.Kenmerken.Verpakkingtype"),"V1")
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.BerekendeWaarden.InterneBreedte"),"666666")
+	
+	Do LadeRegistratieServiceMock.Verifieer()
+	Do ConfiguratorServiceMock.Verifieer()
+	Do InbouwBreedteBerekenaarMock.Verifieer()
+	Do AppsConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardgedrag, aantal = 1, opgeroepen via AdminProductnummer en verpakking = Probox">
+<Implementation><![CDATA[
+	Set QRcodeNaarKenmerkenRequest = ##class(WS.Vhisie4.QRcodeNaarKenmerkenRequest).%New()
+	Set QRcodeNaarKenmerkenRequest.QRcodeData = "AdminProductnummer=" _ ..#ProductNummer
+	
+	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	Set Kenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()
+	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(vhTest.Utils.ECON.PM.Maatwerk.dto.TaxKenmerken).StandaardLade())
+	
+	Set InbouwBreedteBerekenaarMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar).%New()
+	Do InbouwBreedteBerekenaarMock.VerwachtMethodCall("BerekenInbouwBreedte", Kenmerken).DanReturn("666666")
+	
+	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(, ConfiguratorServiceMock, AppsConverterMock, , , InbouwBreedteBerekenaarMock)
+	
+	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRNaarKenmerkenService.GeefKenmerken(QRcodeNaarKenmerkenRequest)
+	
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.Lijn.Aantal"),"1")
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.Kenmerken.Verpakkingtype"),"Probox")
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.BerekendeWaarden.InterneBreedte"),"666666")
+	
+	Do ConfiguratorServiceMock.Verifieer()
+	Do InbouwBreedteBerekenaarMock.Verifieer()
+	Do AppsConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaardgedrag TBX, verpakkingtype V1 in andere key">
 <Implementation><![CDATA[
 	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
@@ -131,6 +193,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaardgedrag TBX, verpakkingtype Probox in andere key">
+<Implementation><![CDATA[
+	Set QRcodeNaarKenmerkenRequest = ##class(WS.Vhisie4.QRcodeNaarKenmerkenRequest).%New()
+	Set QRcodeNaarKenmerkenRequest.QRcodeData = "AdminProductnummer=" _ ..#ProductNummer
+	
+	#dim Kenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerken).StandaardLade()
+	Set Kenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Probox()
+	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(vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken).StandaardLade())
+	
+	Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(, ConfiguratorServiceMock, AppsConverterMock)
+	
+	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRNaarKenmerkenService.GeefKenmerken(QRcodeNaarKenmerkenRequest)
+	
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.Lijn.Aantal"),"1")
+	Do $$$AssertEquals(Response.EconConfiguratie.GetAt("Data.Verpakkingtype"),"Probox")
+	
+	Do ConfiguratorServiceMock.Verifieer()
+	Do AppsConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Exception in ConfiguratorService -&gt; doorsmijten">
 <Implementation><![CDATA[
 	Set LadeRegistratieServiceStub = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()