Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r29942 -r29954
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 29942)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 29954)
@@ -98,6 +98,7 @@
 <Implementation><![CDATA[
 	Do ..SequentieItems.Clear()
 	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
+	Do ..WisVoorBatchID(..BatchID)
 	Do ##class(vhLib.OldSchool).InitVars()
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	#dim Sort As MultiDimensional
@@ -138,6 +139,7 @@
 <Implementation><![CDATA[
 	Do ..SequentieItems.Clear()
 	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
+	Do ..WisVoorBatchID(..BatchID)
 	Do ##class(vhLib.OldSchool).InitVars()
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	
@@ -322,7 +324,6 @@
 
 <Method name="Save">
 <Implementation><![CDATA[
-	Do ..WisVoorBatchID(..BatchID)
 	Do ##super()
 	#dim ItemIterator As TECH.Iterator = ..GeefItemIterator()
 	While (ItemIterator.HasNext()) {