Index: APPS/Halux/common/SequentieService.cls.xml
===================================================================
diff -u -r2686 -r2731
--- APPS/Halux/common/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 2686)
+++ APPS/Halux/common/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 2731)
@@ -27,12 +27,22 @@
 	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>
+
+<Method name="VerwijderSequentie">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<Implementation><![CDATA[
+	Set blSequencer=##class(BL.PPS.TBX.Sequencer).Instantiate()
+	Do blSequencer.Init(Batch.%Id())
+	Do blSequencer.DeleteBatch()
+]]></Implementation>
+</Method>
 </Class>
 </Export>