Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r73114 -r73121
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73114)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73121)
@@ -28,6 +28,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalVanProductOpPallet">
+<FormalSpec>ProdutNummer:%String,PalletCode:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalVanProductOpPallet",ProdutNummer,PalletCode)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent">
 <FormalSpec>ToeleveringId:%String,SequentieNummer:%String,ProductNummer:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r73114 -r73121
--- vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73114)
+++ vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73121)
@@ -19,6 +19,13 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefAantalVanProductOpPallet">
+<FormalSpec>ProdutNummer:%String,PalletCode:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletKantABVoorProduct">
 <FormalSpec>ProductNummer:%String,PalletCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator/ValideerPalletCode/Test.cls.xml
===================================================================
diff -u -r60605 -r73121
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator/ValideerPalletCode/Test.cls.xml	(.../Test.cls.xml)	(revision 60605)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/PalletCodeValidator/ValideerPalletCode/Test.cls.xml	(.../Test.cls.xml)	(revision 73121)
@@ -23,6 +23,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: TBPxxxxxA of B -&gt; ok">
+<Implementation><![CDATA[
+	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("TBP12345A"))
+	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("TBP12345B"))
+]]></Implementation>
+</Method>
+
 <Method name="Test: SFSxxxxx -&gt; ok">
 <Implementation><![CDATA[	Do $$$AssertTrue(##class(WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New().ValideerPalletCode("SFS12345"))
 ]]></Implementation>
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>