Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml
===================================================================
diff -u -r2686 -r2808
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 2686)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 2808)
@@ -59,11 +59,11 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="TOENrGezaagd">
+<Property name="TOENrSpecials">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="TOENrSpecials">
+<Property name="TOENrWerkpost">
 <Type>%Integer</Type>
 </Property>
 
@@ -142,6 +142,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakToelevering4Werkpost">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
+	Set SlotLabel=0
+	Set KLNr=4682
+	Set SequenceNr=0
+	
+	/// QueueList : item1\item2\item3 
+	/// met volgende inhoud : PRNr,Aantal,VHossID	/// 
+	Set QueueList = ..#TBX1_";1\"_..#TBXSpoelbak_";1\"_..#TBXTipOn_";1\"_..#TBXSyfon_";1"
+
+
+	/// Toelevering opzetten
+	Set LeverancierID = ..ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
+	Set ..TOENrWerkpost = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList)
+]]></Implementation>
+</Method>
+
 <Method name="MaakBatch">
 <FormalSpec>lbTOENrs:%List</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.BatchImpl</ReturnType>
@@ -183,5 +202,10 @@
 <Implementation><![CDATA[	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..TOENrSpecials)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderToelevering4Werkpost">
+<Implementation><![CDATA[	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..TOENrWerkpost)
+]]></Implementation>
+</Method>
 </Class>
 </Export>