Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml
===================================================================
diff -u -r54042 -r54069
--- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 54042)
+++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml	(.../QRcodeNaarKenmerkenService.cls.xml)	(revision 54069)
@@ -43,6 +43,8 @@
 	
 	If (##class(TECH.StringUtils).StartsWith(QRdata,"AdminProductnummer")) {
 		Set ProductNummer = $Piece(QRdata,"=",2)
+	} ElseIf (##class(TECH.StringUtils).StartsWith(QRdata,"Ladecode")) {
+		Set ProductNummer = ..BepaalProductNummerViaLadecode($Piece(QRdata,"=",2))
 	} Else {
 		#dim RegistratieCode = ..GeefRegistratieCode(QRdata)
 		If RegistratieCode="" {
@@ -109,6 +111,61 @@
 	Do EconKenmerken.SetAt("V1","Data.Kenmerken.Verpakkingtype")
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalProductNummerViaLadecode">
+<FormalSpec>Ladecode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Ladecode = ##class(TECH.StringUtils).Replace(Ladecode,".","")
+	#dim LadeType As %String = $Extract(Ladecode)
+	Set Ladecode = $Extract(Ladecode,2,5)
+	
+	Set pxCriteria=##class(BL.Prod.sub.pxSearchCriteria).%New()
+	Do ..LegeCriteria(.pxCriteria)
+	Set pxCriteria.Usage="ALL"
+	Set pxCriteria.At="D"
+	Set pxCriteria.SearchTxt=$G(Ladecode)
+	Set pxCriteria.MaxCount=20
+	
+	#dim Producten As %CacheString
+	Do ##class(BL.Prod.Search).SearchIndex(pxCriteria, .Producten)
+	
+	#dim Product As Prod.Product
+	Set ProductRepository = ##class(Prod.ProductRepository).%New()
+	
+	#dim Resultaat As %String = ""
+	#dim Teller As %Integer = 1
+	While Teller <= pxCriteria.SelectCount {
+		Set Product = ProductRepository.GeefViaID(Producten(Teller))
+		If ((Product.GenType = "TBX") && (LadeType = "T") ||
+		   ((Product.GenType = "LBX") && (LadeType = "L")) ||
+		   ((Product.GenType = "TAX") && (LadeType = "H")))
+		{
+			Set Resultaat = Producten(Teller)
+		}
+		Set Teller = Teller + 1
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="LegeCriteria">
+<FormalSpec><![CDATA[&pxCriteria:BL.Prod.sub.pxSearchCriteria]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set pxCriteria.StockType=""
+	Set pxCriteria.ProductType=""
+	Set pxCriteria.Alias=""
+	Set pxCriteria.Active=""
+	Set pxCriteria.Saleable=""
+	Set pxCriteria.Pool=""
+	Set pxCriteria.VerifyCustomer=""
+	Set pxCriteria.LimitCustomer=""
+	Set pxCriteria.LimitSupplier=""
+	Set pxCriteria.CheckCallBack=""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml
===================================================================
diff -u -r54042 -r54069
--- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 54042)
+++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml	(.../Test.cls.xml)	(revision 54069)
@@ -13,6 +13,11 @@
 <Default>1803797</Default>
 </Parameter>
 
+<Parameter name="Ladecode">
+<Type>%String</Type>
+<Default>L.A1.11.5</Default>
+</Parameter>
+
 <Property name="Request">
 <Type>WS.Vhisie4.QRcodeNaarKenmerkenRequest</Type>
 <Private>1</Private>
@@ -169,6 +174,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Input is &apos;Ladecode=xxxxxx&apos; (met puntjes)">
+<Implementation><![CDATA[
+	Set ..Request.QRcodeData = "Ladecode="_..#Ladecode
+	
+	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
+	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).ExactAantalKeer(0)
+	
+	#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","1928724").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.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceMock, ConfiguratorServiceMock, AppsConverterMock)
+	
+	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRNaarKenmerkenService.GeefKenmerken(..Request)
+	
+	Do LadeRegistratieServiceMock.Verifieer()
+	Do ConfiguratorServiceMock.Verifieer()
+	Do AppsConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Input is &apos;Ladecode=xxxxxx&apos; (zonder puntjes)">
+<Implementation><![CDATA[
+	Set ..Request.QRcodeData = "Ladecode="_##class(TECH.StringUtils).Replace(..#Ladecode,".","")
+	
+	Set LadeRegistratieServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.LadeRegistratieService).%New()
+	Do LadeRegistratieServiceMock.VerwachtMethodCall("ZoekProductNummerViaRegistratieCode",..#RegistratieCode).ExactAantalKeer(0)
+	
+	#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","1928724").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.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceMock, ConfiguratorServiceMock, AppsConverterMock)
+	
+	#dim Response As WS.Vhisie4.QRcodeNaarKenmerkenResponse = QRNaarKenmerkenService.GeefKenmerken(..Request)
+	
+	Do LadeRegistratieServiceMock.Verifieer()
+	Do ConfiguratorServiceMock.Verifieer()
+	Do AppsConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Alle niet-meeleverens op &apos;true&apos; indien HerbestellingBijProbleem&apos;">
 <Implementation><![CDATA[
 	Set ..Request.HerbestellingBijProbleem = $$$True