Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml =================================================================== diff -u -r1133 -r1296 --- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml (.../ResourceGebruikCalculator.cls.xml) (revision 1133) +++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml (.../ResourceGebruikCalculator.cls.xml) (revision 1296) @@ -157,15 +157,8 @@ Set ActiviteitInfoLijst = ##class(%ListOfObjects).%New() Set ActiviteitInfoIterator = "" - Set KlantKeller = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantKeller() - If ($IsObject(..Toelevering.GeefOrder()) && (KlantKeller.GeefNummer() = ..Toelevering.GeefOrder().GeefKlantNr())) + If ((Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Tandembox()) && (Product.GeefVariant() '= ##class(DOM.PM.enu.LadeVariant).TBXBaliko())) { - Set ActiviteitInfo = ##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("Productie keller lade",0) - Set ActiviteitInfo.ResourceGebruik = ##class(APPS.Halux.Planning.impl.ResourceGebruik).%New() - Do ActiviteitInfoLijst.Insert(ActiviteitInfo) - } - ElseIf ((Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Tandembox()) && (Product.GeefVariant() '= ##class(DOM.PM.enu.LadeVariant).TBXBaliko())) - { Set ActiviteitInfoIterator = ##class(APPS.Halux.Planning.impl.ActiviteitInfoTBX).%New(..Toelevering, ..Batch, Product).GeefActiviteitInfoIterator() } ElseIf (Categorie = ##class(APPS.Halux.Planning.enu.Categorie).Kaderdeur()) || (Categorie = ##class(APPS.Halux.Planning.enu.Categorie).MDS())