Index: APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml =================================================================== diff -u -r66935 -r66954 --- APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml (.../AansturingActieVoorActiviteit.cls.xml) (revision 66935) +++ APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml (.../AansturingActieVoorActiviteit.cls.xml) (revision 66954) @@ -242,11 +242,13 @@ #dim IsProdGroepSST As %Boolean = (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpaceStep()) #dim IsCategorieTAORbox As %Boolean = (Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) #dim IsCategorieMerivobox As %Boolean = (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) + #dim IsCategorieTandembox As %Boolean = (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) #dim IsProductiedetailblad As %Boolean = ((..Omschrijving = "Productiedetailblad") || (..Omschrijving = "Productiedetailblad (nieuw)")) + #dim IsSpeciaalDetailbladVanTandembox = (IsCategorieTandembox && ((..Omschrijving = "Productiedetailblad binnenlade (nieuw)") || (..Omschrijving = "Productiedetailblad spoelbak sifon (nieuw)"))) #dim IsZaagetiket As %Boolean = (..Omschrijving = "Zaagetiketten") #dim IsAfTeDrukkenProductiedetailblad As %Boolean = $$$False #dim IsAfTeDrukkenZaagetiket As %Boolean = $$$False - #dim AndereActieDanDetailBladOfZaagetiket As %Boolean = $$$Not(IsZaagetiket || IsProductiedetailblad) + #dim AndereActieDanDetailBladOfZaagetiket As %Boolean = $$$Not(IsZaagetiket || IsProductiedetailblad || IsSpeciaalDetailbladVanTandembox) If (IsProductiedetailblad) { If ((Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee()) || (Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Drie())) { @@ -256,8 +258,16 @@ } Else { Set IsAfTeDrukkenProductiedetailblad = $$$True } + + If (IsCategorieTandembox && (..Omschrijving = "Productiedetailblad (nieuw)") && $$$Not(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarDotNet())) { + Set IsAfTeDrukkenProductiedetailblad = $$$False + } } + If ((IsSpeciaalDetailbladVanTandembox) && (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarDotNet())) { + Set IsAfTeDrukkenProductiedetailblad = $$$True + } + If (IsZaagetiket && $$$Not(IsCategorieMerivobox)) { Set IsAfTeDrukkenZaagetiket = $$$True }