Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml =================================================================== diff -u -r1259 -r1296 --- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 1259) +++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 1296) @@ -108,7 +108,14 @@ Set KostItem = BerekeningService.BerekenKostItemsBoom(HalffabItemsBoom,BerekeningsSpecificatie) - Do KostItem.Accept(##this) + If (..ProductieLijnen.Count() = 1) && (..ProductieLijnen.GetAt(1) = ##class(APPS.Halux.common.enu.ProductieLijn).Keller()) + { + Do ..GebruikteActiviteiten.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Keller pro plus",0) ,1) + } + Else + { + Do KostItem.Accept(##this) + } Quit ##class(TECH.ListIterator).%New(..GebruikteActiviteiten) ]]>