Index: APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml =================================================================== diff -u -r68141 -r68857 --- APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml (.../AansturingActieVoorActiviteit.cls.xml) (revision 68141) +++ APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml (.../AansturingActieVoorActiviteit.cls.xml) (revision 68857) @@ -164,22 +164,23 @@ #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) + 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() ]]>