Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r73618 -r74733
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 73618)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 74733)
@@ -240,6 +240,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsIngekortePalletCodeVanABPallet">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim PalletCodeIterator As TECH.Iterator = ..ZoekViaPalletCodeEnRecent(PalletCode)
+	Quit:$$$Not(PalletCodeIterator.HasNext()) $$$False
+	
+	#Dim VolledigePalletCode = PalletCodeIterator.Next()
+	Quit ..IsABPalletCode(VolledigePalletCode)
+]]></Implementation>
+</Method>
+
 <Method name="IsABPalletCode">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <Private>1</Private>