Index: APPS/Halux/PPS/impl/AansturingActie/Tandembox/Wizardblad.cls.xml =================================================================== diff -u -r29059 -r60241 --- APPS/Halux/PPS/impl/AansturingActie/Tandembox/Wizardblad.cls.xml (.../Wizardblad.cls.xml) (revision 29059) +++ APPS/Halux/PPS/impl/AansturingActie/Tandembox/Wizardblad.cls.xml (.../Wizardblad.cls.xml) (revision 60241) @@ -4,23 +4,28 @@ APPS.Halux.PPS.impl.AansturingActie.Wizardblad + +VoerUit voor onderandere TBX proddetailblad 1 BatchID:%String,ActieParameters:%ListOfDataTypes APPS.Halux.PPS.dto.ActieResultaat @@ -83,6 +88,16 @@ ]]> + +Lijn:APPS.Halux.common.enu.ProductieLijn,ProductieGroep:APPS.Halux.common.enu.ProductieGroep +1 +%Boolean + + + %Library.CacheStorage Index: APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml =================================================================== diff -u -r34171 -r60241 --- APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml (.../AansturingActieVoorActiviteit.cls.xml) (revision 34171) +++ APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml (.../AansturingActieVoorActiviteit.cls.xml) (revision 60241) @@ -153,26 +153,28 @@ BatchID:%String,ActieParameters:%ListOfDataTypes APPS.Halux.PPS.dto.ActieResultaat 0 { - #dim Activiteit As APPS.Halux.PPS.Activiteit.Activiteit = ##class(APPS.Halux.PPS.Activiteit.Activiteit).OpenId(ActiviteitID) - Do Activiteit.VoerUitWerklijstItems(WerklijstItemIDs, ..GeefUitvoeringParameter("Printer")) + #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID) + If (..DocumentMagWordenAfgedrukt(Batch.GeefLijn(), Batch.GeefCategorie(), Batch.GeefProductieGroep())) { + #dim ActiviteitGroepID As %String = ..ActiviteitGroepID + #dim ActiviteitID As %String = ..ActiviteitID + #dim IsRework As %Boolean = ..GeefReworkFlag() + #dim Info As %String = "" + set Info = "Batch : "_BatchID _$C(13,10)_ + "Actie : "_..Omschrijving_" ("_..GeefID()_")"_$C(13,10)_ + "ActiviteitGroepID : "_ActiviteitGroepID_$C(13,10)_ + "ActiviteitID : "_ActiviteitID_$C(13,10)_ + "InformatieID : "_$S($Length(..InformatieID):..InformatieID,1:"Allemaal")_$C(13,10) + Set Info = Info_"ActieParameters : "_$C(13,10)_$C(9)_##class(TECH.ListUtils).ListToPieces(ActieParameters,$C(13,10)_$C(9))_$C(13,10) + Set Info = Info_"Commando : Do ##class("_..%ClassName(1)_").OpenId("_..%Id()_").VoerUit("_BatchID_",##class(%ListOfObjects).%New())" + do ##class(vhLib.Logger).%New("APPS.Halux.AansturingService").Info("VoerUit",Info) + + #dim WerklijstItemIDs As %ListOfDataTypes = ..MaakWerklijstItemIDLijst(BatchID, IsRework) + + If WerklijstItemIDs.Count() > 0 { + #dim Activiteit As APPS.Halux.PPS.Activiteit.Activiteit = ##class(APPS.Halux.PPS.Activiteit.Activiteit).OpenId(ActiviteitID) + Do Activiteit.VoerUitWerklijstItems(WerklijstItemIDs, ..GeefUitvoeringParameter("Printer")) + } } - quit ..GeefGeslaagdAansturingResultaat() ]]> @@ -226,6 +228,16 @@ ]]> + +Lijn:APPS.Halux.common.enu.ProductieLijn,Categorie:APPS.Halux.common.enu.Categorie,ProductieGroep:APPS.Halux.common.enu.ProductieGroep +1 +%Boolean + + + %Library.CacheStorage AansturingActieVoorActiviteitDefaultData