Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r70541 -r72803
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 70541)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 72803)
@@ -38,8 +38,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.impl.BatchService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService,MatService:APPS.Halux.PPS.MatService,DocumentGeneratorService:APPS.Halux.PPS.DocumentGeneratorService</FormalSpec>
+<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService,MatService:APPS.Halux.PPS.MatService,DocumentGeneratorService:APPS.Halux.PPS.DocumentGeneratorService,BatchService:APPS.Halux.common.impl.BatchService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -52,6 +57,7 @@
 	Set ..DnaCodeService =  $$$Inject(DnaCodeService,##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService"))
 	Set ..MatService = $$$Inject(MatService, ##class(APPS.Halux.PPS.MatService).%New())
 	Set ..DocumentGeneratorService = $$$Inject(DocumentGeneratorService, ##class(APPS.Halux.PPS.DocumentGeneratorService).%New())
+	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -72,6 +78,7 @@
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
 	Quit:$$$Not(..ControleerBatchStatus(Batch))
+	Quit:$$$Not(..ControleerToeleveringenSlechtsInEenBatch(Batch))
 
 	Try {
 		Do ..Logger.Info("StartBatch", "Starten van batch ("_Batch.GeefID()_") is begonnen.")
@@ -112,6 +119,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerToeleveringenSlechtsInEenBatch">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %Boolean = $$$True
+	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	#dim Toelevering As DOM.AKP.Toelevering
+	
+	While ToeleveringIterator.HasNext()
+	{
+		Set Toelevering = ToeleveringIterator.Next()
+		If (..BatchService.GeefAantalBijhorendeBatchesVoorToelevering(Toelevering.GeefID()) > 1) {
+			Do ..Logger.ErrorMail("StartBatch","Batch "_Batch.GeefID()_" kan niet starten want toelevering " _ Toelevering.GeefID() _ "zit in meerdere batchen, dit zorgt voor fouten. Zie query SELECT ID as BatchID FROM APPS_Halux_common_impl.BatchImpl WHERE FOR SOME %ELEMENT(Toeleveringen) (%VALUE = <PlaceholderToeleveringID>)")
+			Set Result = $$$False
+		}
+	}
+	Quit Result
+]]></Implementation>
+</Method>
+
 <Method name="GeefBatchOverzicht">
 <FormalSpec>MaatWerkBatch:APPS.Halux.Planning.dto.MaatwerkBatch</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.BatchOverzicht</ReturnType>