Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r35161 -r35170 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 35161) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 35170) @@ -15,10 +15,8 @@ If (ODSP '= "") { Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() - } ElseIf (TBXLade.GeefAantalHangmappen() > 0) { + } ElseIf (..IsBuroOfHangmappenLade(TBXLade)) { Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() - } ElseIf (..GeefKlasse(ProductID) = ##class(DOM.PM.enu.TBXKlas).Buro()) { - Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() } ElseIf (..IsBijzonderGroteLade(TBXLade)) { Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() } ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())) { @@ -40,6 +38,7 @@ ProductID:%String +1 %String + +TBXLade:DOM.PM.TBXProduct.TBXLade +1 +%Boolean + 0) $$$True + Quit:(..GeefKlasse(TBXLade.GeefPRNr()) = ##class(DOM.PM.enu.TBXKlas).Buro()) $$$True + Quit $$$False +]]> + + TBXLade:DOM.PM.TBXProduct.TBXLade 1