Index: APPS/Halux/common/impl/ToeleveringSplitser.cls.xml =================================================================== diff -u -r58453 -r74470 --- APPS/Halux/common/impl/ToeleveringSplitser.cls.xml (.../ToeleveringSplitser.cls.xml) (revision 58453) +++ APPS/Halux/common/impl/ToeleveringSplitser.cls.xml (.../ToeleveringSplitser.cls.xml) (revision 74470) @@ -31,6 +31,12 @@ = ..#MinimumAantalLades) ]]> + + +%Numeric + + Index: APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml =================================================================== diff -u -r62035 -r74470 --- APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml (.../ProductieGroepBepalerLBX.cls.xml) (revision 62035) +++ APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml (.../ProductieGroepBepalerLBX.cls.xml) (revision 74470) @@ -75,13 +75,13 @@ Set ProductieGroep = ..ProductieGroep.SpecialsKlant } ElseIf $$$Not(..IsProductieWijzeVolledig()) { Set ProductieGroep = ..ProductieGroep.Specials - } ElseIf (..IsSpoelbaklade() && ..IsAfsplitsenNodigVoorLBXSpSiSl() && $$$Not(..IsVHossVerpakking())) { + } ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && $$$Not(..IsVHossVerpakking())) { Set ProductieGroep = ..ProductieGroep.LBXSpoelbak - } ElseIf (..IsSpoelbaklade() && ..IsAfsplitsenNodigVoorLBXSpSiSl() && (..IsVHossVerpakking())) { + } ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && (..IsVHossVerpakking())) { Set ProductieGroep = ..ProductieGroep.LBXSpoelbakVHoss - } ElseIf (..IsSmalleLade() && ..IsAfsplitsenNodigVoorLBXSpSiSl()) { + } ElseIf (..IsSmalleLade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.LBXSpoelbak - } ElseIf (..IsSifonlade() && ..IsAfsplitsenNodigVoorLBXSpSiSl()) { + } ElseIf (..IsSifonlade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.LBXSpoelbak } Else { If (..IsV1Verpakking()) { @@ -189,6 +189,15 @@ + + +1 +%Boolean + + Index: APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml =================================================================== diff -u -r63331 -r74470 --- APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml (.../AantallenInToeleveringTeller.cls.xml) (revision 63331) +++ APPS/Halux/common/impl/AantallenInToeleveringTeller.cls.xml (.../AantallenInToeleveringTeller.cls.xml) (revision 74470) @@ -59,6 +59,12 @@ + + +%Numeric + + Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r73611 -r74470 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 73611) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 74470) @@ -46,7 +46,7 @@ @@ -67,7 +67,7 @@ @@ -149,7 +149,7 @@ #dim TBXLade As DOM.PM.TBXProduct.TBXLade = ..GeefTBXLade() #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).SifonLadeMet1Uitsparing() - Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),,,"") + Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon(),,,"") ]]> @@ -207,7 +207,7 @@ #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).SifonLadeMet1Uitsparing() Set IngegevenKenmerken.VerpakkingType = Verpakking - Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Probox(),,,"", $$$True) + Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon(),,,"", $$$True) ]]> @@ -235,7 +235,7 @@ #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).SifonLadeMet1Uitsparing() Set IngegevenKenmerken.VerpakkingType = Verpakking - Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Pallet(),,,"", $$$True) + Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon(),,,"", $$$True) ]]> @@ -258,7 +258,7 @@ #dim TBXLade As DOM.PM.TBXProduct.TBXLade = ..GeefTBXLade() #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).SpoelbakladeVoorHerwerkingBOMBOL() - Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),,,"", $$$True) + Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon(),,,"", $$$True) ]]> Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r62038 -r74470 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 62038) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 74470) @@ -60,7 +60,7 @@ #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).CSpoelbakLadeZijwandTypeFree() Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1() - Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) + Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).LBXSpoelbak()) ]]> @@ -97,7 +97,7 @@ #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).SmalleLade() Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1() - Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) + Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).LBXSpoelbak()) ]]> @@ -108,6 +108,7 @@ Set ToeleveringSplitserMock = ##class(vhTest.Mock.APPS.Halux.common.ToeleveringSplitser).%New() Do ToeleveringSplitserMock.VerwachtMethodCall("IsNodigTeSplitsen",##class(APPS.Halux.common.enu.ProductieGroepGroepering).LBXSpSiSl()).DanReturn($$$False) + Do ToeleveringSplitserMock.VerwachtMethodCall("GeefAantalVerschillendeGroepen").DanReturn(2) Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),,,ToeleveringSplitserMock) @@ -133,7 +134,7 @@ Index: APPS/Halux/common/impl/ProductieGroepBepalerMVX.cls.xml =================================================================== diff -u -r66014 -r74470 --- APPS/Halux/common/impl/ProductieGroepBepalerMVX.cls.xml (.../ProductieGroepBepalerMVX.cls.xml) (revision 66014) +++ APPS/Halux/common/impl/ProductieGroepBepalerMVX.cls.xml (.../ProductieGroepBepalerMVX.cls.xml) (revision 74470) @@ -67,13 +67,13 @@ Set ProductieGroep = ..ProductieGroep.SpecialsKlant } ElseIf $$$Not(..IsProductieWijzeVolledig()) { Set ProductieGroep = ..ProductieGroep.Specials - } ElseIf (..IsSpoelbaklade() && ..IsAfsplitsenNodigVoorMVXSpSiSl() && $$$Not(..IsVHossVerpakking())) { + } ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorMVXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && $$$Not(..IsVHossVerpakking())) { Set ProductieGroep = ..ProductieGroep.MVXSpoelbak - } ElseIf (..IsSpoelbaklade() && ..IsAfsplitsenNodigVoorMVXSpSiSl() && (..IsVHossVerpakking())) { + } ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorMVXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && (..IsVHossVerpakking())) { Set ProductieGroep = ..ProductieGroep.MVXSpoelbakVHoss - } ElseIf (..IsSmalleLade() && ..IsAfsplitsenNodigVoorMVXSpSiSl()) { + } ElseIf (..IsSmalleLade() && (..IsAfsplitsenNodigVoorMVXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.MVXSpoelbak - } ElseIf (..IsSifonlade() && ..IsAfsplitsenNodigVoorMVXSpSiSl()) { + } ElseIf (..IsSifonlade() && (..IsAfsplitsenNodigVoorMVXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.MVXSpoelbak } Else { If (..IsProboxVerpakking()) { @@ -164,6 +164,15 @@ Quit $$$False ]]> + + +1 +%Boolean + + Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerMVX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r62413 -r74470 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerMVX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 62413) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerMVX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 74470) @@ -67,16 +67,31 @@ + + + + Key:%String %Numeric + + +1 +%Numeric + Index: APPS/Halux/common/ToeleveringSplitser.cls.xml =================================================================== diff -u -r58212 -r74470 --- APPS/Halux/common/ToeleveringSplitser.cls.xml (.../ToeleveringSplitser.cls.xml) (revision 58212) +++ APPS/Halux/common/ToeleveringSplitser.cls.xml (.../ToeleveringSplitser.cls.xml) (revision 74470) @@ -8,6 +8,11 @@ Key:%String %Boolean + + +1 +%Numeric + Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r73611 -r74470 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 73611) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 74470) @@ -65,11 +65,11 @@ Set ProductieGroep = ..ProductieGroep.Specials } ElseIf (..IsBuroOfHangmappenLade(TBXLade)) { Set ProductieGroep = ..ProductieGroep.Specials - } ElseIf ((..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) && ..IsAfsplitsenNodigVoorTbxManueleBewerking()) { + } ElseIf ((..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.TBXSifon - } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) { + } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1)))) { Set ProductieGroep = ..ProductieGroep.TBXSifon - } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSpoelbaklade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) { + } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSpoelbaklade(TBXLade) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1)))) { Set ProductieGroep = ..ProductieGroep.TBXSifon } ElseIf (IsVhoss) { set ProductieGroep = ..ProductieGroep.Pallet @@ -194,6 +194,15 @@ + + +1 +%Boolean + + Index: vhTest/Fake/APPS/Halux/common/ToeleveringSplitser.cls.xml =================================================================== diff -u -r58212 -r74470 --- vhTest/Fake/APPS/Halux/common/ToeleveringSplitser.cls.xml (.../ToeleveringSplitser.cls.xml) (revision 58212) +++ vhTest/Fake/APPS/Halux/common/ToeleveringSplitser.cls.xml (.../ToeleveringSplitser.cls.xml) (revision 74470) @@ -13,6 +13,12 @@ + + +%Numeric + + Index: vhTest/Mock/APPS/Halux/common/ToeleveringSplitser.cls.xml =================================================================== diff -u -r58212 -r74470 --- vhTest/Mock/APPS/Halux/common/ToeleveringSplitser.cls.xml (.../ToeleveringSplitser.cls.xml) (revision 58212) +++ vhTest/Mock/APPS/Halux/common/ToeleveringSplitser.cls.xml (.../ToeleveringSplitser.cls.xml) (revision 74470) @@ -14,6 +14,12 @@ + + +%Numeric + +