Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r72033 -r73114
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72033)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73114)
@@ -314,6 +314,40 @@
 <Implementation><![CDATA[	Quit ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, Sequentienummer)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPalletKantABVoorProduct">
+<FormalSpec>ProductNummer:%String,PalletCode:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PalletKantAB = ""
+	
+	Try {
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+		#dim DnaCode As DOM.Halux.AAP.DnaCode
+		
+		While DnaCodeIterator.HasNext() {
+			Set DnaCode = DnaCodeIterator.Next()
+			
+			If ((DnaCode.ProductNummer = ProductNummer) && ..IsABPalletCode(DnaCode.PalletCode) && $$$Not(##class(TECH.StringUtils).Contains(PalletKantAB, $Extract(DnaCode.PalletCode, 9)))) {
+				Set PalletKantAB = PalletKantAB _ $Extract(DnaCode.PalletCode, 9)
+			}
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Error("APPS.Halux.AAP.DnaCodeService", Exception)
+	}
+	
+	Quit PalletKantAB
+]]></Implementation>
+</Method>
+
+<Method name="IsABPalletCode">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (($Length(PalletCode) = 9) && (($Extract(PalletCode, 9) = "A") || ($Extract(PalletCode, 9) = "B")))
+]]></Implementation>
+</Method>
 </Class>