Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r73114 -r73121
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73114)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73121)
@@ -315,6 +315,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalVanProductOpPallet">
+<FormalSpec>ProdutNummer:%String,PalletCode:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 0
+	#dim DnaCodeIterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	
+	While DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		Set:(DnaCode.ProductNummer = ProdutNummer) Aantal = Aantal + 1
+	}
+	
+	Quit Aantal
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletKantABVoorProduct">
 <FormalSpec>ProductNummer:%String,PalletCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>