Index: APPS/Halux/common/SequentieService.cls.xml
===================================================================
diff -u -r2469 -r2686
--- APPS/Halux/common/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 2469)
+++ APPS/Halux/common/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 2686)
@@ -18,5 +18,21 @@
 <Implementation><![CDATA[	Quit ..GeefSequentieIterator(BatchID).HasNext()
 ]]></Implementation>
 </Method>
+
+<Method name="MaakSequentie">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<Implementation><![CDATA[
+	Set blSequencer=##class(BL.PPS.TBX.Sequencer).Instantiate()
+	Do blSequencer.Init(Batch.%Id(),Batch.GeefProductieGroep())
+	If (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Kast()) || (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Plus())
+	{
+		Do blSequencer.BldVHossSequence(.QtyLade, .QtyEmpty, .QtyVHoss, .SkippedTekst)
+	}
+	Else
+	{
+		Do blSequencer.BldLeanV1Sequence(.QtyLade)
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>