Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62253 -r62410
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62253)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62410)
@@ -165,7 +165,7 @@
 			If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw() {
 				Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
 				Set DnaCode.Lijn = Batch.GeefLijn()
-				Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()
+				Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet(Toelevering.GeefID())
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 			}
 		}
@@ -195,7 +195,7 @@
 	}
 	If $IsObject(Batch) {
 		Set DnaCode.BatchId = Batch.GeefID()
-		Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet()
+		Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet(Toelevering.GeefID())
 		Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
 		Set DnaCode.Lijn = Batch.GeefLijn()
 	}