Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r63696 -r75036 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 63696) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 75036) @@ -50,7 +50,7 @@ #dim IsProbox As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen()) #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 (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade, ProductId)) { Set ProductieGroep = ..ProductieGroep.Opstartfase } ElseIf (..IsKlantDeDecker(KlantId) && ..IsKleurOrionGrijs(TBXLade)) { @@ -65,10 +65,21 @@ Set ProductieGroep = ..ProductieGroep.Specials } ElseIf (..IsBuroOfHangmappenLade(TBXLade)) { Set ProductieGroep = ..ProductieGroep.Specials - } ElseIf (..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) { - Set ProductieGroep = ..ProductieGroep.Specials - } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) { + } ElseIf ((..IsBijzonderSmalleLade(TBXLade)) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.TBXSifon + If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } + } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1)))) { + Set ProductieGroep = ..ProductieGroep.TBXSifon + If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } + } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSpoelbaklade(TBXLade) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1)))) { + Set ProductieGroep = ..ProductieGroep.TBXSifon + If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } } ElseIf (IsVhoss) { set ProductieGroep = ..ProductieGroep.Pallet If (..IsKastKlant(KlantId)) { @@ -111,19 +122,11 @@ ]]> - -TBXLade:DOM.PM.TBXProduct.TBXLade -1 -%Boolean - - - TBXLade:DOM.PM.TBXProduct.TBXLade 1 %Boolean - 210) + @@ -165,6 +168,16 @@ ]]> + +HuidigeTbxLade:DOM.PM.TBXProduct.TBXLade +1 +%Boolean + + + KlantId:DOM.VKP.VanHoeckeKlantID 1 @@ -182,6 +195,15 @@ + + +1 +%Boolean + +