Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r56500 -r56700
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 56500)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 56700)
@@ -105,13 +105,6 @@
 <Type>APPS.Halux.Planning.enu.ToeleveringSorteerType</Type>
 </Property>
 
-<Property name="IsWegwerppallet">
-<Type>%Boolean</Type>
-<Calculated>1</Calculated>
-<SqlComputeCode>	Set {*}=##class(APPS.Halux.common.impl.BatchImpl).%OpenId({ID}).IsWegwerppallet()</SqlComputeCode>
-<SqlComputed>1</SqlComputed>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>Lijn:APPS.Halux.common.enu.ProductieLijn=""</FormalSpec>
 <Private>1</Private>
@@ -267,8 +260,11 @@
 
 	Set ..ProductieGroep = ##class(APPS.Halux.Planning.impl.BatchService.Utils).%New().GeefProductieGroepen(Toelevering).GetAt(1)
 	Do ..ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Manueel())
-	If (..GeefGeplandOp() = "") Do ..ZetGeplandOpVroegsteGeplandVanToelevering()
 	
+	//Do ##class(APPS.Halux.AAP.DnaCodeService).%New().DnaCodeBijwerkenMetBatchGegevens($this)
+	
+	If (..GeefGeplandOp() = "") Do ..ZetGeplandOpVroegsteGeplandVanToelevering(Toelevering)
+	
 	Do ..SorteerToeleveringenAutomatischIndienNodig()
 ]]></Implementation>
 </Method>
@@ -630,7 +626,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsWegwerppallet">
+<Method name="ZetStatusEnSave">
+<FormalSpec>Status:APPS.Halux.common.enu.BatchStatus</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ZetStatus(Status)
+	Do ..Save()
+]]></Implementation>
+</Method>
+
+<Method name="OnDelete">
+<FormalSpec>oid:%ObjectIdentity</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchRemovedEvent(..%Id())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefIsWegwerpPallet">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsWegwerppallet As %Boolean = $$$False
@@ -650,23 +663,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetStatusEnSave">
-<FormalSpec>Status:APPS.Halux.common.enu.BatchStatus</FormalSpec>
-<Implementation><![CDATA[
-	Do ..ZetStatus(Status)
-	Do ..Save()
-]]></Implementation>
-</Method>
-
-<Method name="OnDelete">
-<FormalSpec>oid:%ObjectIdentity</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchRemovedEvent(..%Id())
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.Halux.common.BatchD</DataLocation>
@@ -711,9 +707,6 @@
 <Value name="10">
 <Value>ToeleveringSorteerType</Value>
 </Value>
-<Value name="11">
-<Value>IsWegwerppallet</Value>
-</Value>
 </Data>
 <Data name="ToeleveringenIndex">
 <Attribute>ToeleveringenIndex</Attribute>