Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r31988 -r31989
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 31988)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 31989)
@@ -139,10 +139,8 @@
 
 <Method name="MaakVHossSequentie">
 <Implementation><![CDATA[
-	Do ..SequentieItems.Clear()
+	Do ..Init()
 	
-	Do ..WisVoorBatchID(..BatchID)
-	Do ##class(vhLib.OldSchool).InitVars()
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	
 	Set ToeleveringIDs = ##class(%ListOfDataTypes).%New()
@@ -302,10 +300,13 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.ProductieSequentieItem</ReturnType>
 <Implementation><![CDATA[
-	Set Item = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	Do ..FrequentieTabel.Verhoog(Toelevering.GeefID())
+	
+	Set Item = ##class(APPS.Halux.common.ProductieSequentieItem).%New()	
 	Set Item.ProductID = ProductID
 	Set Item.ToeleveringID = Toelevering.GeefID()
 	Set Item.ToeleveringLijnID = ProductLijn.GeefID()
+	Set Item.ToeleveringSequentieNummer = ..FrequentieTabel.GeefFrequentieVanItem(Toelevering.GeefID())
 	Set Item.DeelAantal = DeelAantal
 	Set Item.TotaalAantal = ProductLijn.GeefAantal()
 	Set Item.BatchID = ..BatchID