Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml
===================================================================
diff -u -r67515 -r68121
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 67515)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 68121)
@@ -140,7 +140,8 @@
 <Implementation><![CDATA[
 	#dim LeverancierNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierNummerVoorPartijID(##class(DOM.AKP.enu.Leverancier).Halux())
 	
-	Quit ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer, QueueList, 1000)
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(222222)
+	Quit ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer, QueueList, 1000, 222222)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r56855 -r68121
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 56855)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 68121)
@@ -17,14 +17,16 @@
 Return : ToeleveringID
 </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LeverancierID:%Integer,ProductLijst:%String,OrderID:%String=""</FormalSpec>
+<FormalSpec>LeverancierID:%Integer,ProductLijst:%String,OrderID:%String="",ToeleveringID:%String=""</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	/// Waarden opzetten om oude routines te kunnen gebruiken.
 	Do ##class(vhLib.OldSchool).InitVars()
 
 	/// Nieuw ToeleveringID opvragen
-	#dim ToeleveringID As %String = $$GETNUM^FLOW("KTO","KTO1")	
+	If ToeleveringID = "" {
+		Set ToeleveringID = $$GETNUM^FLOW("KTO","KTO1")	
+	}
 	
 	/// Datum
 	#dim CreatieDatum As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()