Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r57121 -r72201
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 57121)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 72201)
@@ -261,13 +261,6 @@
 	Set ..ProductieGroep = ##class(APPS.Halux.Planning.impl.BatchService.Utils).%New().GeefProductieGroepen(Toelevering).GetAt(1)
 	Do ..ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Manueel())
 	
-	Try {
-		Do ##class(APPS.Halux.AAP.DnaCodeService).%New().DnaCodeBijwerkenMetBatchGegevens($this)
-	} Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(vhLib.Logger).%New().Error("DnaCode","DnaCodes konden niet worden bijgewerkt vanuit batch"_$C(13,10)_Exception.GeefOmschrijving())
-	}
-	
 	If (..GeefGeplandOp() = "") Do ..ZetGeplandOpVroegsteGeplandVanToelevering()
 	
 	Do ..SorteerToeleveringenAutomatischIndienNodig()
@@ -459,7 +452,7 @@
 
 <Method name="IsActief">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).Gestart() ) && ( ..GeefToeleveringen().Count() > 0 )
+<Implementation><![CDATA[	Quit ((..GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).Gestart()) || (..GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten())) && ( ..GeefToeleveringen().Count() > 0 )
 ]]></Implementation>
 </Method>
 
@@ -677,17 +670,17 @@
 </Method>
 
 <Method name="GeefIsWegwerpPallet">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsWegwerppallet As %Boolean = $$$False
 	
 	#dim ToeleveringIterator As TECH.Iterator = ..GeefToeleveringIterator()
-	// Kijkt enkel naar de Klant van de 1e toelevering => Klanten die wegwerppalletten willen worden apart in batches gestoken
-	If (ToeleveringIterator.HasNext()) {
+	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		#dim Klant As DOM.VKP.Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Toelevering.GeefKlantID())
 		#dim KlantOrderInstellingen As DOM.VKP.KlantOrderInstellingen = Klant.GeefKlantOrderInstellingen()
-		If (KlantOrderInstellingen.MoetOpWegwerppallet()) {
+		If (KlantOrderInstellingen.MoetOpWegwerppallet() && (ToeleveringId = Toelevering.GeefID())) {
 			Set IsWegwerppallet = $$$True
 		}
 	}