Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml =================================================================== diff -u -r74194 -r74548 --- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 74194) +++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 74548) @@ -81,12 +81,23 @@ Set Resultaat = ((DnaCode.ProductNummer = ProductID) || ..IsSpaceStepGeneriekProduct(DnaCode, ProductID)) } - Set Resultaat = Resultaat && ((DnaCode.AfdrukTijdstip = "") || Herafdruk) + Set Resultaat = Resultaat && ((DnaCode.AfdrukTijdstip = "") || Herafdruk || ..IsDnaCodeMetInitieelAfdrukTijdstipVoorMes(DnaCode)) Quit Resultaat ]]> + +DnaCode:DOM.Halux.AAP.DnaCode +1 +%Boolean + + + DnaCode:DOM.Halux.AAP.DnaCode,ProductID:%String %Boolean @@ -211,7 +222,8 @@ 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 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 } }