Index: APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml
===================================================================
diff -u -r66622 -r73747
--- APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml	(.../AansturingActieVoorActiviteit.cls.xml)	(revision 66622)
+++ APPS/Halux/PPS/impl/AansturingActieVoorActiviteit.cls.xml	(.../AansturingActieVoorActiviteit.cls.xml)	(revision 73747)
@@ -67,6 +67,11 @@
 <Required>1</Required>
 </Property>
 
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="MaakActie">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,Omschrijving:%String,IsMogelijkZonderBatch:%Boolean,VolgNummer:%Integer,ActiviteitGroepID:%String,IsStandaardActie:%Boolean=0,ActiviteitID:%String,InformatieID:%String="",ActiviteitLijnID:%String=""</FormalSpec>
@@ -156,30 +161,32 @@
 bekomen door een query op ActiviteitgroepID, ActiviteitNaam en BatchID, en
 daarbinnen de wachtende items (werklijststatus = Wachtend).  Als de
 InformatieID ingevuld is, wordt ie ook in de query opgenomen.</Description>
-<FormalSpec>BatchID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
+<FormalSpec>BatchID:%String,ActieParameters:%ListOfDataTypes=""</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActieResultaat</ReturnType>
 <Implementation><![CDATA[
 	#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)
+		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"))
-			}
+			Do Activiteit.VoerUitWerklijstItems(WerklijstItemIDs, ..GeefUitvoeringParameter("Printer"), ActieParameters)
+		}
 	}
 	quit ..GeefGeslaagdAansturingResultaat()
 ]]></Implementation>
@@ -217,10 +224,18 @@
 </Method>
 
 <Method name="GeefParameters">
+<FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.common.Actie.dto.ActieParameter"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim Parameters As List Of APPS.common.Actie.dto.ActieParameter = ##super()	
+	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
+	Set ..Batch = Batch
+	
+	If (..Omschrijving = "Batch naar Objective") {
+		Do ..MaakParameterListVoorBatchNaarObjective(.Parameters)
+	}
+	
 	Quit Parameters
 ]]></Implementation>
 </Method>
@@ -238,15 +253,17 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsProdGroepSpecialOfSpecialPM As %Boolean = ((ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()) || (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM()) )
+	#dim IsProdGroepSpecialOfSpecialPMOfSpecialWorkshop As %Boolean = ((ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Specials()) || (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialsPM()) || (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialWorkshop())  || (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpecialWorkshopSifonlade()))
 	#dim IsProdGroepSST As %Boolean = (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).SpaceStep())
 	#dim IsCategorieTAORbox As %Boolean = (Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox())
 	#dim IsCategorieMerivobox As %Boolean = (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox())
-	#dim IsProductiedetailblad As %Boolean = (..Omschrijving = "Productiedetailblad")
+	#dim IsCategorieTandembox As %Boolean = (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox())
+	#dim IsProductiedetailblad As %Boolean = ((..Omschrijving = "Productiedetailblad") || (..Omschrijving = "Productiedetailblad (nieuw)"))
+	#dim IsSpeciaalDetailbladVanTandembox = (IsCategorieTandembox && ((..Omschrijving = "Productiedetailblad binnenlade (nieuw)") || (..Omschrijving = "Productiedetailblad spoelbak sifon (nieuw)")))
 	#dim IsZaagetiket As %Boolean = (..Omschrijving = "Zaagetiketten")
 	#dim IsAfTeDrukkenProductiedetailblad As %Boolean = $$$False
 	#dim IsAfTeDrukkenZaagetiket As %Boolean = $$$False
-	#dim AndereActieDanDetailBladOfZaagetiket As %Boolean = $$$Not(IsZaagetiket || IsProductiedetailblad)
+	#dim AndereActieDanDetailBladOfZaagetiket As %Boolean = $$$Not(IsZaagetiket || IsProductiedetailblad || IsSpeciaalDetailbladVanTandembox)
 	
 	If (IsProductiedetailblad) {
 		If ((Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee()) || (Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Drie())) {
@@ -256,16 +273,55 @@
 		} Else {
 			Set IsAfTeDrukkenProductiedetailblad = $$$True
 		}
+		
+		If (IsCategorieMerivobox && $$$Not(ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk())) {
+			Set IsAfTeDrukkenProductiedetailblad = $$$False
+		}
+		
+		If (IsCategorieTAORbox) {
+			If (ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Probox()) {
+				Set IsAfTeDrukkenProductiedetailblad = $$$False
+			} Else {
+				Set IsAfTeDrukkenProductiedetailblad = $$$True
+			}
+		}
+				
+		If (IsCategorieTandembox && (..Omschrijving = "Productiedetailblad (nieuw)") && $$$Not(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarDotNet())) {
+			Set IsAfTeDrukkenProductiedetailblad = $$$False
+		}
 	}
 	
+	If ((IsSpeciaalDetailbladVanTandembox) && (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarDotNet())) {
+		Set IsAfTeDrukkenProductiedetailblad = $$$True
+	}
+	
 	If (IsZaagetiket && $$$Not(IsCategorieMerivobox)) {
 		Set IsAfTeDrukkenZaagetiket = $$$True
 	}
 	
-	Quit (IsProdGroepSpecialOfSpecialPM || IsProdGroepSST || IsCategorieTAORbox || IsAfTeDrukkenProductiedetailblad || IsAfTeDrukkenZaagetiket || AndereActieDanDetailBladOfZaagetiket)
+	Quit (IsProdGroepSpecialOfSpecialPMOfSpecialWorkshop || IsProdGroepSST || IsAfTeDrukkenProductiedetailblad || IsAfTeDrukkenZaagetiket || AndereActieDanDetailBladOfZaagetiket)
 ]]></Implementation>
 </Method>
 
+<Method name="MaakParameterListVoorBatchNaarObjective">
+<FormalSpec><![CDATA[&ParameterList:%ListOfObjects(ELEMENTTYPE="APPS.common.Actie.dto.ActieParameter")]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(##class(TECH.StringUtils).Equals(..Batch.GeefProductieGroep(), ##class(APPS.Halux.common.enu.ProductieGroep).Kast(), ##class(APPS.Halux.common.enu.ProductieGroep).MVXSpoelbakVHoss(), ##class(APPS.Halux.common.enu.ProductieGroep).LBXSpoelbakVHoss(),  ##class(APPS.Halux.common.enu.ProductieGroep).TBXOrionGrijsVhoss())) {
+		Set Parameter = ##class(APPS.common.Actie.dto.EnumerationActieParameter).%New("")
+		Set Parameter.Type = ##class(APPS.common.Actie.enu.Type).Enumeratie()
+		
+		#dim Toeleveringen As %ListOfDataTypes = ##class(TECH.ListUtils).CopyListOfDataTypes(..Batch.GeefToeleveringen())
+		Do ##class(TECH.Algo.Sort.InsertionSort).Sort(Toeleveringen,##class(TECH.Comparator.StringComparator).%New())
+		Set Parameter.ActueleWaarden = Toeleveringen
+		Set Parameter.DisplayWaarden = Toeleveringen
+		
+		Set Parameter.Prompt = "Toelevering:"
+		Do ParameterList.Insert(Parameter)
+	}
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>AansturingActieVoorActiviteitDefaultData</DefaultData>
@@ -286,6 +342,12 @@
 <Value name="5">
 <Value>ActiviteitLijnID</Value>
 </Value>
+<Value name="6">
+<Value>ProductieGroep</Value>
+</Value>
+<Value name="7">
+<Value>Batch</Value>
+</Value>
 </Data>
 </Storage>
 </Class>