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