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
+
+