Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r74440 -r74548
--- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 74440)
+++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 74548)
@@ -92,8 +92,7 @@
1
%Boolean
@@ -223,8 +222,7 @@
Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet(Toelevering.GeefID())
Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
Set DnaCode.Lijn = Batch.GeefLijn()
- #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)))
+ #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
}