Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r72458 -r72485
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 72458)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 72485)
@@ -15,13 +15,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekViaLpnCode">
-<FormalSpec>LpnCode:%String</FormalSpec>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ..ZoekViaFilter("LpnCode = ? ", $LB(LpnCode))
-]]></Implementation>
-</Method>
-
 <Method name="ZoekViaPalletCodeEnRecent">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -65,8 +58,8 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCodeIterator As TECH.DynamicIterator
-	
 	#dim AantalDagenTerug As %Integer = 30
+	
 	If ##class(APPS.VisiDot.impl.Tech).IsFrameID(PalletCode) {
 		Set AantalDagenTerug = 5
 	}
@@ -274,6 +267,7 @@
 <Method name="IsABPalletCode">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ($Length(PalletCode) = 9) && ##class(TECH.StringUtils).Equals($Extract(PalletCode, 9), "A", "B")
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r72411 -r72485
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 72411)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 72485)
@@ -148,13 +148,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekViaLpnCode">
-<FormalSpec>LpnCode:%String</FormalSpec>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaLpnCode",LpnCode)
-]]></Implementation>
-</Method>
-
 <Method name="ZoekViaLpnCodeEnRecent">
 <FormalSpec>LpnCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>