Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r59626 -r59636 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 59626) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 59636) @@ -261,6 +261,66 @@ ]]> + + + + + + + + + + + + + + + + Verpakking:DOM.PM.enu.TBXVerpakking=##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen(),OnderdelenSpeciaal:%String="",InbouwBreedte:%Decimal=1324,GeleiderTechnologie:DOM.PM.enu.TBXBlumotion=##class(DOM.PM.enu.TBXBlumotion).Geintegreerd() 1 Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTAX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r57836 -r59636 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTAX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 57836) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTAX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 59636) @@ -104,6 +104,36 @@ ]]> + + + + + + + + + + + + KlantId:%String,Kenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,IsInOpstartFase:%Boolean,VerwachteProductieGroep:APPS.Halux.common.enu.ProductieGroep 1 @@ -115,15 +145,15 @@ Do ProductTypeApiMock.VerwachtMethodCall("GeefMaatwerkProduct", ..#ProductID).DanReturn(MaatwerkProductMock) #dim ProductieOpstartfaseBepalerMock As vhTest.Mock.APPS.Halux.common.impl.ProductieGroepBepaler.ProductieOpstartfaseBepalerTAX = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieGroepBepaler.ProductieOpstartfaseBepalerTAX).%New() - Do ProductieOpstartfaseBepalerMock.VerwachtMethodCall("IsInOpstartfase", MaatwerkProductMock).DanReturn(IsInOpstartFase) + Do ProductieOpstartfaseBepalerMock.IndienMethodCall("IsInOpstartfase", MaatwerkProductMock).DanReturn(IsInOpstartFase) #dim ProductieGroepBepaler As APPS.Halux.common.impl.ProductieGroepBepalerTAX = ##class(APPS.Halux.common.impl.ProductieGroepBepalerTAX).%New(ProductTypeApiMock, ProductieOpstartfaseBepalerMock) #dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep = ProductieGroepBepaler.GeefProductieGroep(KlantId, ..#ProductID) Do $$$AssertEquals(ProductieGroep, VerwachteProductieGroep) Do ProductTypeApiMock.Verifieer() - Do ProductieOpstartfaseBepalerMock.Verifieer() + ///Do ProductieOpstartfaseBepalerMock.Verifieer() Do MaatwerkProductMock.Verifieer() ]]> Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r59626 -r59636 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 59626) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 59636) @@ -53,6 +53,8 @@ If (..IsKlantDeDecker(KlantId) && ..IsKleurOrionGrijs(TBXLade)) { Set ProductieGroep = ..ProductieGroep.TBXOrionGrijs + } ElseIf (..IsSpecialKLT(KlantId, Verpakking)){ + Set ProductieGroep = ..ProductieGroep.SpecialKLT } ElseIf (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade, ProductId)) { Set ProductieGroep = ..ProductieGroep.Opstartfase } ElseIf (ODSP '= "") { Index: APPS/Halux/common/impl/ProductieGroepBepalerTAX.cls.xml =================================================================== diff -u -r58214 -r59636 --- APPS/Halux/common/impl/ProductieGroepBepalerTAX.cls.xml (.../ProductieGroepBepalerTAX.cls.xml) (revision 58214) +++ APPS/Halux/common/impl/ProductieGroepBepalerTAX.cls.xml (.../ProductieGroepBepalerTAX.cls.xml) (revision 59636) @@ -41,7 +41,9 @@ #dim TaxLade As DOM.PM.MaatwerkProduct = ..ProductTypeApi.GeefMaatwerkProduct(ProductId) #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = TaxLade.GeefIngegevenKenmerken() - If (..ProductieOpstartfaseBepaler.IsInOpstartfase(TaxLade)) { + If (..IsSpecialKLT(KlantId, IngegevenKenmerken.VerpakkingType)){ + Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialKLT() + } ElseIf (..ProductieOpstartfaseBepaler.IsInOpstartfase(TaxLade)) { Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Opstartfase() } ElseIf $$$Not(..IsVolledig(IngegevenKenmerken)) { Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() Index: APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml =================================================================== diff -u -r58591 -r59636 --- APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml (.../ProductieGroepBepalerLBX.cls.xml) (revision 58591) +++ APPS/Halux/common/impl/ProductieGroepBepalerLBX.cls.xml (.../ProductieGroepBepalerLBX.cls.xml) (revision 59636) @@ -64,11 +64,12 @@ } ElseIf ..IsKlantHein(KlantId) { Set ProductieGroep = ..ProductieGroep.Specials } Else { - Set ..MaatwerkProduct = ..ProductTypeApi.GeefMaatwerkProduct(ProductId) Set ..IngegevenKenmerken = ..MaatwerkProduct.GeefIngegevenKenmerken() - If (..ProductieOpstartfaseBepaler.IsInOpstartfase(..MaatwerkProduct)) { + If (..IsSpecialKLT(KlantId, ..IngegevenKenmerken.VerpakkingType)){ + Set ProductieGroep = ..ProductieGroep.SpecialKLT + } ElseIf (..ProductieOpstartfaseBepaler.IsInOpstartfase(..MaatwerkProduct)) { Set ProductieGroep = ..ProductieGroep.Opstartfase } ElseIf $$$Not(..IsProductieWijzeVolledig()) { Set ProductieGroep = ..ProductieGroep.Specials Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r58456 -r59636 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 58456) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerLBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 59636) @@ -225,6 +225,39 @@ ]]> + + + + + + + + + + + + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteProductieGroep:APPS.Halux.common.enu.ProductieGroep,FakeKlantID:DOM.VKP.VanHoeckeKlantID="",IsInOpstartFase:%Boolean=0,ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser=""