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
}
}