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