Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml =================================================================== diff -u -r74429 -r74440 --- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 74429) +++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 74440) @@ -223,7 +223,9 @@ Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet(Toelevering.GeefID()) Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch() Set DnaCode.Lijn = Batch.GeefLijn() - If (..MESService.IsActiefVoorMes(DnaCode.Lijn)) { + #dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI() + #dim CategorTLM As %Boolean = ((ProductTypeAPI.IsLegraboxProduct(DnaCode.ProductNummer) || ProductTypeAPI.IsMerivoboxProduct(DnaCode.ProductNummer) || ProductTypeAPI.IsTandemboxProduct(DnaCode.ProductNummer))) + If (..MESService.IsActiefVoorMes(DnaCode.Lijn) && CategorTLM) { Set DnaCode.AfdrukTijdstip = DnaCode.AanmaakTijdstip } }