Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r41110 -r41985 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 41110) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 41985) @@ -3,6 +3,24 @@ APPS.Halux.common.impl.ProductieGroepBepaler + +APPS.Halux.common.impl.ProductieGroepBepaler.ProductieOpstartfaseBepalerTBX +1 + + + +ProductieOpstartfaseBepaler:APPS.Halux.common.impl.ProductieGroepBepaler.ProductieOpstartfaseBepalerTBX="" +1 +1 +%Status +1 + + + KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String APPS.Halux.common.enu.ProductieGroep @@ -13,7 +31,9 @@ #dim Verpakking As DOM.PM.enu.TBXVerpakking = TBXLade.GeefVerpakking() #dim ODSP As %String = TBXLade.GeefOnderdelenSpeciaal() - If (ODSP '= "") { + If (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade,ProductID)) { + Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM() + } ElseIf (ODSP '= "") { Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() } ElseIf (..IsBuroOfHangmappenLade(TBXLade)) { Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r41110 -r41985 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 41110) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 41985) @@ -124,8 +124,10 @@ // Assign #dim DummyKlantID As DOM.VKP.VanHoeckeKlantID = $$$DummyString #dim MockProductID As %String = ..#ProductID + Set ProductieOpstartfaseBepalerStub = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieGroepBepaler.ProductieOpstartfaseBepalerTBX).%New() + Do ProductieOpstartfaseBepalerStub.VerwachtMethodCall("IsInOpstartfase",TBXLade,MockProductID).DanReturn($$$False) #dim ProductTypeAPI As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance() - Set ProductieGroepBepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerTBX).%New(ProductTypeAPI) + Set ProductieGroepBepaler = ##class(APPS.Halux.common.impl.ProductieGroepBepalerTBX).%New(ProductieOpstartfaseBepalerStub) Do ProductTypeAPI.IndienMethodCall("GeefTandemboxProduct",MockProductID).DanReturn(TBXLade) @@ -134,6 +136,8 @@ // Assert Do $$$AssertEquals(ProductieGroep,VerwachteProductieGroep) + + Do ProductieOpstartfaseBepalerStub.Verifieer() ]]>