Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r37688 -r56850
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 37688)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 56850)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.common.Toelevering">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="MaakToelevering">
 <Description>
@@ -30,6 +30,11 @@
 	#dim CreatieDatum As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
 	#dim Datum As %String = ##class(TECH.DateTime).GeefDatumInPuntNotatie(CreatieDatum)
 	
+	/// misschien order maken
+	If $$$HasLength(OrderID) {
+		Do ..MaakOrder(OrderID, ToeleveringID)
+	}
+	
 	/// Hoofding voor Toelevering aanmaken	
 	Set ^KTO(LeverancierID, ToeleveringID, 1) = "\" _ Datum _ "\STOCK\\\" _ ToeleveringID _ "\" _ OrderID _ "\\\\\\\\\\\EUR"
 	/// Index
@@ -65,6 +70,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderID:%String="",ToeleveringID:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	/// Order opzetten
+	#dim KLNr As %String = 6332
+	
+	Set ^KOD(KLNr,"F",OrderID,0)="313"
+	Set ^KOD(KLNr,"F",OrderID,1)="\03.11.11\EDI 305452/TBX\\\1239\OD5;1`OD5;2`OD5;3`OD5;4`OD5;5\1055#1100#62398,31366\\\\\\1\\\\EUR\\\00\2\\1055#62398,31378#116943\\\\\\\\\vh1  45 /d 4\\305452\\\\\\\\\\62398,31378"
+ 	Set ^KOD(KLNr,"F",OrderID,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(KLNr,"F",OrderID,3)="1\KELLER\KEUKENFABRIEK\B.V.\ETTENSEWEG 74\NL-4706-PB\ROOSENDAAL\1147\N\\\\\\\\\\.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(KLNr,"F",OrderID,4)="213"
+	Set ^KOD(KLNr,"F",OrderID,101)="703100 \418689\2\\\19.51\40#1\0\39.02\39.02\703100 \L\\\100\39.02\KF0\\\\E1\EUR\\\62402\\"_ToeleveringID_"\101\\\\\\\1.0.0\1\SBMKWU120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;11316"
+	Set ^KOD(KLNr,"F",OrderID,102)="703100 \418754\1\\\25.04\40#1\0\25.04\25.04\703100 \L\\\110\25.04\KF0\\\\E1\EUR\\\62402\\"_ToeleveringID_"\102\\\\\\\2.0.0\1\SBMLBW120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;5658"
+	
+	Set ^KO1(OrderID,"F") = "1239\Leveringsnummer"
+	Set ^KO1(OrderID,"F","Leveringsnummer") = ""
+ 	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(6332,1000)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderToelevering">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringID:%String</FormalSpec>
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml
===================================================================
diff -u -r33369 -r56850
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 33369)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 56850)
@@ -140,7 +140,7 @@
 <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)
+	Quit ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierNummer, QueueList, 1000)
 ]]></Implementation>
 </Method>