Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r74782 -r74883 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 74782) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 74883) @@ -67,10 +67,19 @@ Set ProductieGroep = ..ProductieGroep.Specials } 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)) { Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r74470 -r74883 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 74470) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 74883) @@ -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).LBXSpoelbak()) + Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) ]]> @@ -71,6 +71,7 @@ Set ToeleveringSplitserMock = ##class(vhTest.Mock.APPS.Halux.common.ToeleveringSplitser).%New() Do ToeleveringSplitserMock.VerwachtMethodCall("IsNodigTeSplitsen",##class(APPS.Halux.common.enu.ProductieGroepGroepering).LBXSpSiSl()).DanReturn($$$True) + Do ToeleveringSplitserMock.VerwachtMethodCall("GeefAantalVerschillendeGroepen").DanReturn(2) Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).LBXSpoelbak(),,,ToeleveringSplitserMock) @@ -85,6 +86,7 @@ Set ToeleveringSplitserMock = ##class(vhTest.Mock.APPS.Halux.common.ToeleveringSplitser).%New() Do ToeleveringSplitserMock.VerwachtMethodCall("IsNodigTeSplitsen",##class(APPS.Halux.common.enu.ProductieGroepGroepering).LBXSpSiSl()).DanReturn($$$True) + Do ToeleveringSplitserMock.VerwachtMethodCall("GeefAantalVerschillendeGroepen").DanReturn(2) Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).LBXSpoelbak(),,,ToeleveringSplitserMock) @@ -97,7 +99,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).LBXSpoelbak()) + Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) ]]> @@ -108,7 +110,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 ToeleveringSplitserMock.VerwachtMethodCall("GeefAantalVerschillendeGroepen").DanReturn(1) Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),,,ToeleveringSplitserMock) @@ -123,6 +125,7 @@ Set ToeleveringSplitserMock = ##class(vhTest.Mock.APPS.Halux.common.ToeleveringSplitser).%New() Do ToeleveringSplitserMock.VerwachtMethodCall("IsNodigTeSplitsen",##class(APPS.Halux.common.enu.ProductieGroepGroepering).LBXSpSiSl()).DanReturn($$$True) + Do ToeleveringSplitserMock.VerwachtMethodCall("GeefAantalVerschillendeGroepen").DanReturn(2) Do ..AssertProductieGroep(IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).LBXSpoelbak(),,,ToeleveringSplitserMock) Index: APPS/Halux/common/impl/ProductieGroepBepalerMVX.cls.xml =================================================================== diff -u -r74665 -r74883 --- APPS/Halux/common/impl/ProductieGroepBepalerMVX.cls.xml (.../ProductieGroepBepalerMVX.cls.xml) (revision 74665) +++ APPS/Halux/common/impl/ProductieGroepBepalerMVX.cls.xml (.../ProductieGroepBepalerMVX.cls.xml) (revision 74883) @@ -69,12 +69,21 @@ Set ProductieGroep = ..ProductieGroep.Specials } ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorMVXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && $$$Not(..IsVHossVerpakking())) { Set ProductieGroep = ..ProductieGroep.MVXSpoelbak + If (..IsV1Verpakking() && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } } ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorMVXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && (..IsVHossVerpakking())) { Set ProductieGroep = ..ProductieGroep.MVXSpoelbakVHoss } ElseIf (..IsSmalleLade() && (..IsAfsplitsenNodigVoorMVXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.MVXSpoelbak + If (..IsV1Verpakking() && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } } ElseIf (..IsSifonlade() && (..IsAfsplitsenNodigVoorMVXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.MVXSpoelbak + If (..IsV1Verpakking() && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } } Else { If (..IsProboxVerpakking()) { Set ProductieGroep = ..ProductieGroep.Probox Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r74782 -r74883 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 74782) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 74883) @@ -33,7 +33,7 @@ @@ -103,6 +103,7 @@ Set ToeleveringSplitserMock = ##class(vhTest.Mock.APPS.Halux.common.ToeleveringSplitser).%New() Do ToeleveringSplitserMock.VerwachtMethodCall("IsNodigTeSplitsen",##class(APPS.Halux.common.enu.ProductieGroepGroepering).TbxManueleBewerking()).DanReturn($$$True).ExactAantalKeer(1) + Do ToeleveringSplitserMock.VerwachtMethodCall("GeefAantalVerschillendeGroepen").DanReturn(2) Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon(),,,ToeleveringSplitserMock, $$$True) @@ -115,7 +116,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).TBXSifon(),,,"") + Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),,,"") ]]> @@ -212,8 +213,9 @@ Set ToeleveringSplitserMock = ##class(vhTest.Mock.APPS.Halux.common.ToeleveringSplitser).%New() Do ToeleveringSplitserMock.VerwachtMethodCall("IsNodigTeSplitsen",##class(APPS.Halux.common.enu.ProductieGroepGroepering).TbxManueleBewerking()).DanReturn($$$True).ExactAantalKeer(1) + Do ToeleveringSplitserMock.VerwachtMethodCall("GeefAantalVerschillendeGroepen").DanReturn(1) - Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).TBXSifon(),,,ToeleveringSplitserMock, $$$True) + Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),,,ToeleveringSplitserMock, $$$True) Do ToeleveringSplitserMock.Verifieer() ]]> @@ -224,7 +226,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).TBXSifon(),,,"", $$$True) + Do ..AssertProductieGroep(TBXLade, IngegevenKenmerken, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),,,"", $$$True) ]]> Index: APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml =================================================================== diff -u -r74665 -r74883 --- APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml (.../ProductieGroepBepalerLBX.cls.xml) (revision 74665) +++ APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml (.../ProductieGroepBepalerLBX.cls.xml) (revision 74883) @@ -77,12 +77,24 @@ Set ProductieGroep = ..ProductieGroep.Specials } ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && $$$Not(..IsVHossVerpakking())) { Set ProductieGroep = ..ProductieGroep.LBXSpoelbak - } ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && (..IsVHossVerpakking())) { + If (..IsV1Verpakking() && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } + } + ElseIf (..IsSpoelbaklade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1)) && (..IsVHossVerpakking())) { Set ProductieGroep = ..ProductieGroep.LBXSpoelbakVHoss - } ElseIf (..IsSmalleLade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { + } + ElseIf (..IsSmalleLade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.LBXSpoelbak - } ElseIf (..IsSifonlade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { + If (..IsV1Verpakking() && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } + } + ElseIf (..IsSifonlade() && (..IsAfsplitsenNodigVoorLBXSpSiSl() || (..GeefAantalVerschillendeProductieGroepen() = 1))) { Set ProductieGroep = ..ProductieGroep.LBXSpoelbak + If (..IsV1Verpakking() && (..GeefAantalVerschillendeProductieGroepen() = 1)) { + Set ProductieGroep = ..ProductieGroep.Stuk + } } Else { If (..IsV1Verpakking()) { Set ProductieGroep = ..ProductieGroep.Stuk