Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r73584 -r74747
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73584)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 74747)
@@ -201,7 +201,7 @@
 	If Herafdruk {
 		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, SequentieNummer)
 	} ElseIf (IsKlantEtiketSpaceStep && (SequentieNummer > 0)) {
-		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringEnSequentienummer(ToeleveringID, SequentieNummer)
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringEnSequentienummerEnRecent(ToeleveringID, SequentieNummer)
 	} Else {
 		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnStatusEnRecent(ToeleveringID,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
 	}
@@ -360,13 +360,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsIngekortePalletCodeVanABPallet">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+	Quit:$$$Not(DnaCodeIterator.HasNext()) $$$False
+	
+	#Dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+	Quit ..IsABPalletCode(DnaCode.PalletCode)
+]]></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>
+
+<Method name="GeefProductieLijnVoorPallet">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCodeIterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim Lijn As %Integer = ""
+	
+	If DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		Set Lijn = DnaCode.Lijn
+	}
+	
+	Quit Lijn
+]]></Implementation>
+</Method>
 </Class>