Index: zTryout/THB/MVX/ProductieAansturing.cls.xml
===================================================================
diff -u
--- zTryout/THB/MVX/ProductieAansturing.cls.xml	(revision 0)
+++ zTryout/THB/MVX/ProductieAansturing.cls.xml	(revision 63057)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.MVX.ProductieAansturing">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BatchId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="VoerUit">
+<Description>
+d ##class(zTryout.THB.MVX.ProductieAansturing).%New().VoerUit()</Description>
+<Implementation><![CDATA[
+	#dim GeplandOp As %Date = $$INTDATE^vhLib.DataTypes(##class(TECH.DateTime).CurrentHorolog())
+	#dim Batch As APPS.Halux.common.Batch = ..MaakEnGeefNieuweLegeBatch(GeplandOp, ..GeefCategorie())
+	
+	Do Batch.Save()
+	Set ..BatchId = Batch.GeefID()
+	
+	Do ..VoegToeToeleveringenAanBatch(..GeefToeleveringen())
+	
+	;#dim BatchService As APPS.Halux.Planning.impl.BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
+	;Do ..StartBatch(BatchService)
+	Do ..StartBatchViaBatchStarter(Batch)
+]]></Implementation>
+</Method>
+
+<Method name="StartBatch">
+<FormalSpec>BatchService:APPS.Halux.Planning.impl.BatchService</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	;Do ..InitialiseSettings("StartBatch")
+	/*
+	If (..Configuratie.AansturingActies) {
+		Do ##class(TECH.Context).Instance().GeefFileAPI().GeefDirectoryUtils().CreateIfNotExists(..GeefBestandLocatieVoorStartBatch())
+		Do ..DocumentAfdrukker.ZetBestandLocatie(..GeefBestandLocatieVoorStartBatch())
+	}
+	*/
+	Do BatchService.StartBatch(..BatchId)
+	
+	;Set ..StartBatchActieIDs = ..VoerUitAansturingsActies()
+]]></Implementation>
+</Method>
+
+<Method name="StartBatchViaBatchStarter">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BatchService = ##class(APPS.Halux.Planning.impl.BatchStarter).%New()
+	
+	Do BatchService.StartBatch(Batch)
+	
+	;Set ..StartBatchActieIDs = ..VoerUitAansturingsActies()
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringen">
+<Private>1</Private>
+<ReturnType>DOM.AKP.ToeleveringLijst</ReturnType>
+<Implementation><![CDATA[
+	#define ToeleveringID 286398
+	
+	Set Toeleveringen = ##class(DOM.AKP.ToeleveringLijst).%New()
+	
+	#dim Toelevering As DOM.AKP.Toelevering = ..OpenEnGeefToelevering($$$ToeleveringID)
+	Do Toeleveringen.Insert(Toelevering)
+		
+	Quit Toeleveringen
+]]></Implementation>
+</Method>
+
+<Method name="OpenEnGeefToelevering">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.AKP.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(ToeleveringID)
+	
+	Quit Toelevering
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeToeleveringenAanBatch">
+<FormalSpec>Toeleveringen:DOM.AKP.ToeleveringLijst</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+ 	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
+ 	
+	#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBatch(..BatchId)
+ 	Do Batch.ZetLijn(..GeefBatchProductieLijn())
+ 	Do Batch.VoegToeToeleveringen(Toeleveringen)
+ 	Do Batch.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="MaakEnGeefNieuweLegeBatch">
+<FormalSpec>GeplandOp:%Date,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.Batch</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.BatchFactory).MaakNieuweLegeBatch(GeplandOp, ..GeefCategorie())
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategorie">
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.enu.Categorie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.enu.Categorie).Merivobox()
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchProductieLijn">
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.enu.ProductieLijn</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.enu.ProductieLijn).Vier()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>