Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r63696 -r73611 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 63696) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 73611) @@ -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,12 @@ Set ProductieGroep = ..ProductieGroep.Specials } ElseIf (..IsBuroOfHangmappenLade(TBXLade)) { Set ProductieGroep = ..ProductieGroep.Specials - } ElseIf (..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) { - Set ProductieGroep = ..ProductieGroep.Specials + } ElseIf ((..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) && ..IsAfsplitsenNodigVoorTbxManueleBewerking()) { + Set ProductieGroep = ..ProductieGroep.TBXSifon } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) { Set ProductieGroep = ..ProductieGroep.TBXSifon + } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSpoelbaklade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) { + Set ProductieGroep = ..ProductieGroep.TBXSifon } ElseIf (IsVhoss) { set ProductieGroep = ..ProductieGroep.Pallet If (..IsKastKlant(KlantId)) { @@ -165,6 +167,16 @@ ]]> + +HuidigeTbxLade:DOM.PM.TBXProduct.TBXLade +1 +%Boolean + + + KlantId:DOM.VKP.VanHoeckeKlantID 1 Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r60177 -r73611 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 60177) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 73611) @@ -29,22 +29,48 @@ ]]> - + - + + + + + + + + + + + + + + + + +