Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml
===================================================================
diff -u -r35161 -r35170
--- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 35161)
+++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 35170)
@@ -15,10 +15,8 @@
If (ODSP '= "") {
Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
- } ElseIf (TBXLade.GeefAantalHangmappen() > 0) {
+ } ElseIf (..IsBuroOfHangmappenLade(TBXLade)) {
Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
- } ElseIf (..GeefKlasse(ProductID) = ##class(DOM.PM.enu.TBXKlas).Buro()) {
- Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
} ElseIf (..IsBijzonderGroteLade(TBXLade)) {
Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()
} ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())) {
@@ -40,6 +38,7 @@
ProductID:%String
+1
%String
+
+TBXLade:DOM.PM.TBXProduct.TBXLade
+1
+%Boolean
+ 0) $$$True
+ Quit:(..GeefKlasse(TBXLade.GeefPRNr()) = ##class(DOM.PM.enu.TBXKlas).Buro()) $$$True
+ Quit $$$False
+]]>
+
+
TBXLade:DOM.PM.TBXProduct.TBXLade
1