Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r59714 -r59858 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 59714) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 59858) @@ -51,12 +51,12 @@ #dim IsPallet As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).Pallet(), ##class(DOM.PM.enu.TBXVerpakking).CommissieMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen()) #dim IsVhoss As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen()) - If (..IsKlantDeDecker(KlantId) && ..IsKleurOrionGrijs(TBXLade)) { + If (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade, ProductId)) { + Set ProductieGroep = ..ProductieGroep.Opstartfase + } ElseIf (..IsKlantDeDecker(KlantId) && ..IsKleurOrionGrijs(TBXLade)) { Set ProductieGroep = ..ProductieGroep.TBXOrionGrijs } ElseIf (..IsSpecialsKlant(KlantId, Verpakking)){ Set ProductieGroep = ..ProductieGroep.SpecialsKlant - } ElseIf (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade, ProductId)) { - Set ProductieGroep = ..ProductieGroep.Opstartfase } ElseIf (ODSP '= "") { Set ProductieGroep = ..ProductieGroep.Specials } ElseIf (..IsBuroOfHangmappenLade(TBXLade)) {