Index: APPS/Halux/common/impl/ProductieGroepBepalerTAX.cls.xml =================================================================== diff -u -r54153 -r54563 --- APPS/Halux/common/impl/ProductieGroepBepalerTAX.cls.xml (.../ProductieGroepBepalerTAX.cls.xml) (revision 54153) +++ APPS/Halux/common/impl/ProductieGroepBepalerTAX.cls.xml (.../ProductieGroepBepalerTAX.cls.xml) (revision 54563) @@ -42,24 +42,45 @@ #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = TaxLade.GeefIngegevenKenmerken() If (..ProductieOpstartfaseBepaler.IsInOpstartfase(TaxLade)) { - Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM() + + Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM() + + } ElseIf $$$Not(..IsVolledig(IngegevenKenmerken)) { + + Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() + } ElseIf IngegevenKenmerken.SpecialType = ##class(DOM.PM.enu.SpecialType).SpecialPM() { + Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM() + } ElseIf ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) { + Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM() - } ElseIf ..IsSpecials(IngegevenKenmerken,KlantID) { + + } ElseIf ..IsKlantHein(KlantID) { + Set ..ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials() + } Else { + Do ..Verwerk(IngegevenKenmerken.VerpakkingType) + } Quit ..ProductieGroep ]]> - -IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,KlantID:DOM.VKP.VanHoeckeKlantID + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken 1 -%Boolean + Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTAX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r52275 -r54563 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTAX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 52275) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTAX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 54563) @@ -37,6 +37,17 @@ ]]> + + + + - + + + + +