Index: APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml =================================================================== diff -u -r60525 -r61929 --- APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 60525) +++ APPS/Halux/PPS/Activiteit/impl/WerklijstItemsUitvoerder.cls.xml (.../WerklijstItemsUitvoerder.cls.xml) (revision 61929) @@ -115,7 +115,6 @@ WerklijstItemIDs:%ListOfDataTypes -1 %ArrayOfObjects + +BatchID,IsRework + + + De VoerUit method maakt een lijst van werklijstitems aan via de method Index: APPS/Halux/PPS/Activiteit/ProductieSequentieAwareActiviteitGroep.cls.xml =================================================================== diff -u -r61904 -r61929 --- APPS/Halux/PPS/Activiteit/ProductieSequentieAwareActiviteitGroep.cls.xml (.../ProductieSequentieAwareActiviteitGroep.cls.xml) (revision 61904) +++ APPS/Halux/PPS/Activiteit/ProductieSequentieAwareActiviteitGroep.cls.xml (.../ProductieSequentieAwareActiviteitGroep.cls.xml) (revision 61929) @@ -73,7 +73,7 @@ #dim ExceptieLijst As TECH.ExceptionList = ##class(TECH.ExceptionList).%New() While (ActiviteitIterator.HasNext()) { #dim Activiteit As APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit = ActiviteitIterator.Next() - If ($$$Not(Activiteit.GeefOmschrijving() = "TAORbox overzicht batch") && $$$Not(Activiteit.GeefOmschrijving() = "Legrabox overzicht batch") && $$$Not(Activiteit.GeefOmschrijving() = "Tandembox overzicht batch") && $$$Not(Activiteit.GeefOmschrijving() = "Voormontage SpaceStep")) { + If ($$$Not(Activiteit.GeefOmschrijving() = "TAORbox overzicht batch") && $$$Not(Activiteit.GeefOmschrijving() = "Legrabox overzicht batch") && $$$Not(Activiteit.GeefOmschrijving() = "Tandembox overzicht batch") && $$$Not(Activiteit.GeefOmschrijving() = "Voormontage SpaceStep") && $$$Not(Activiteit.GeefOmschrijving() = "Klantetiketten SpaceStep")) { Try { Do ##class(vhLib.Logger).%New().Debug("VerwerkProductieSequentieSubset", "Groep:'"_Activiteit.GeefActiviteitGroepID() _ "'; Code:'"_ Activiteit.GeefCode() _"'; Omschrijving: '"_ Activiteit.GeefOmschrijving() _"'") do Activiteit.VerwerkGroepSequentie(##this, ProductieSequentieSubset ) Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiketSpaceStep.cls.xml =================================================================== diff -u -r61922 -r61929 --- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiketSpaceStep.cls.xml (.../KlantEtiketSpaceStep.cls.xml) (revision 61922) +++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiketSpaceStep.cls.xml (.../KlantEtiketSpaceStep.cls.xml) (revision 61929) @@ -9,10 +9,42 @@ BatchID:%String,ActieParameters:%ListOfDataTypes APPS.Halux.PPS.dto.ActieResultaat - + +1 +%Boolean + + + %Library.CacheStorage KlantEtiketSpaceStepDefaultData