Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml
===================================================================
diff -u -r63696 -r75036
--- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 63696)
+++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 75036)
@@ -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,21 @@
Set ProductieGroep = ..ProductieGroep.Specials
} ElseIf (..IsBuroOfHangmappenLade(TBXLade)) {
Set ProductieGroep = ..ProductieGroep.Specials
- } ElseIf (..IsBijzonderGroteLade(TBXLade)) || (..IsBijzonderSmalleLade(TBXLade)) {
- Set ProductieGroep = ..ProductieGroep.Specials
- } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && ..IsAfsplitsenNodigVoorTbxManueleBewerking())) {
+ } ElseIf ((..IsBijzonderSmalleLade(TBXLade)) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1))) {
Set ProductieGroep = ..ProductieGroep.TBXSifon
+ If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) {
+ Set ProductieGroep = ..ProductieGroep.Stuk
+ }
+ } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSifonlade(TBXLade) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1)))) {
+ Set ProductieGroep = ..ProductieGroep.TBXSifon
+ If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) {
+ Set ProductieGroep = ..ProductieGroep.Stuk
+ }
+ } ElseIf $$$Not(IsVhoss) && (TBXLade.HeeftProductSpecificatie() && (..IsSpoelbaklade(TBXLade) && (..IsAfsplitsenNodigVoorTbxManueleBewerking() || (..GeefAantalVerschillendeProductieGroepen() = 1)))) {
+ Set ProductieGroep = ..ProductieGroep.TBXSifon
+ If ($$$Not(IsProbox) && $$$Not(IsPallet) && $$$Not(IsVhoss) && (..GeefAantalVerschillendeProductieGroepen() = 1)) {
+ Set ProductieGroep = ..ProductieGroep.Stuk
+ }
} ElseIf (IsVhoss) {
set ProductieGroep = ..ProductieGroep.Pallet
If (..IsKastKlant(KlantId)) {
@@ -111,19 +122,11 @@
]]>
-
-TBXLade:DOM.PM.TBXProduct.TBXLade
-1
-%Boolean
-
-
-
TBXLade:DOM.PM.TBXProduct.TBXLade
1
%Boolean
- 210)
+
@@ -165,6 +168,16 @@
]]>
+
+HuidigeTbxLade:DOM.PM.TBXProduct.TBXLade
+1
+%Boolean
+
+
+
KlantId:DOM.VKP.VanHoeckeKlantID
1
@@ -182,6 +195,15 @@
+
+
+1
+%Boolean
+
+