Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r73642 -r74261
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73642)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 74261)
@@ -367,6 +367,23 @@
 <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>