Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r73701 -r73827
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73701)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 73827)
@@ -88,6 +88,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MESService">
+<Type>APPS.Halux.PPS.MES.MESService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",PalletCodeValidator:WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator="",InventarisService:APPS.MAG.Inventaris.impl.InventarisService,DocsV1:BL.PPS.TBX.DocsV1="",KlantinstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository="",VerkoopAPI:DOM.VKP.VerkoopAPI="",AantalGescandeVhossSequentieItemsBepaler:WSimpl.Halux.AAP.DnaCodeService.AantalGescandeVhossSequentieItemsBepaler="",DnaCodeInVhossKastBepaler:WSimpl.Halux.AAP.DnaCodeService.DnaCodeInVhossKastBepaler="",SequentieService:APPS.Halux.common.impl.SequentieService="",RondAfVhossKastHelper:WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper="",ToeleveringService:DOM.AKP.ToeleveringService="",DocumentGenerator:APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective="",DnaCodeHelper:APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper=""</FormalSpec>
 <Private>1</Private>
@@ -111,6 +116,7 @@
 	Set ..BufferHelper = ##class(WSimpl.Halux.AAP.DnaCodeService.BufferHelper).%New()
 	Set ..DocumentGenerator = $$$Inject(DocumentGenerator, ##class(APPS.Halux.Afmelden.impl.DocumentLadeGerecepteerdNaarObjective).%New())
 	Set ..DnaCodeHelper = $$$Inject(DnaCodeHelper, ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New())
+	Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -381,10 +387,14 @@
 				
 				Do ..DnaCodeRepository.Bewaar(DnaCode)
 				
-				#dim IsDnaCodeVoorSpaceStep As %Boolean = ..DnaCodeHelper.IsSpaceStepGeneriekProduct(DnaCode, DnaCode.ProductNummer)
-				If $$$Not(IsDnaCodeVoorSpaceStep) {
-					Do ..DocumentGenerator.GenereerDocumentVoorObjective(DnaCode.DnaCode)	
-				}				
+				#dim MesFaseActief As %Integer = 1
+				#dim Batch As APPS.Halux.common.Batch  = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(DnaCodeAfmeldenRequest.BatchId)
+				If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) {				
+					#dim IsDnaCodeVoorSpaceStep As %Boolean = ..DnaCodeHelper.IsSpaceStepGeneriekProduct(DnaCode, DnaCode.ProductNummer)
+					If $$$Not(IsDnaCodeVoorSpaceStep) {
+						Do ..DocumentGenerator.GenereerDocumentVoorObjective(DnaCode.DnaCode)	
+					}
+				}			
 				
 				If ..IsGeldigeVhossCode(DnaCodeAfmeldenRequest.PalletCode) {
 					Set Response = ..AantalGescandeVhossSequentieItemsBepaler.BepaalAantalGescandeVhossSequentieItems(DnaCode)