Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml
===================================================================
diff -u -r63696 -r73611
--- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 63696)
+++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 73611)
@@ -50,7 +50,7 @@
#dim IsProbox As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen())
#dim IsPallet As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).Pallet(), ##class(DOM.PM.enu.TBXVerpakking).CommissieMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen())
#dim IsVhoss As %Boolean = ##class(TECH.StringUtils).Equals(Verpakking , ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen(), ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())
-
+
If (..ProductieOpstartfaseBepaler.IsInOpstartfase(TBXLade, ProductId)) {
Set ProductieGroep = ..ProductieGroep.Opstartfase
} ElseIf (..IsKlantDeDecker(KlantId) && ..IsKleurOrionGrijs(TBXLade)) {
@@ -65,10 +65,12 @@
Set ProductieGroep = ..ProductieGroep.Specials
} ElseIf (..IsBuroOfHangmappenLade(TBXLade)) {
Set ProductieGroep = ..ProductieGroep.Specials
- } ElseIf (..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) {
- Set ProductieGroep = ..ProductieGroep.Specials
+ } ElseIf ((..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) && ..IsAfsplitsenNodigVoorTbxManueleBewerking()) {
+ Set ProductieGroep = ..ProductieGroep.TBXSifon
} ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) {
Set ProductieGroep = ..ProductieGroep.TBXSifon
+ } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSpoelbaklade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) {
+ Set ProductieGroep = ..ProductieGroep.TBXSifon
} ElseIf (IsVhoss) {
set ProductieGroep = ..ProductieGroep.Pallet
If (..IsKastKlant(KlantId)) {
@@ -165,6 +167,16 @@
]]>
+
+HuidigeTbxLade:DOM.PM.TBXProduct.TBXLade
+1
+%Boolean
+
+
+
KlantId:DOM.VKP.VanHoeckeKlantID
1
Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml
===================================================================
diff -u -r60177 -r73611
--- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 60177)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 73611)
@@ -29,22 +29,48 @@
]]>
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+