Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/OplossingBerekenaar/Test.cls.xml
===================================================================
diff -u -r29059 -r56851
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/OplossingBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/OplossingBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 56851)
@@ -22,6 +22,11 @@
 <Default>999998</Default>
 </Parameter>
 
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
 <Method name="Test">
 <Implementation><![CDATA[
 	Set BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
@@ -85,6 +90,7 @@
 	If $IsObject(..Batch){
 		Do ..Batch.Delete()
 	}
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
 ]]></Implementation>
 </Method>
 
@@ -101,8 +107,12 @@
 	do ..Toelevering.ZetMunt("EUR")
 	do ..Toelevering.ZetReferentie("TESTKLANT VAN HOECK")
 	do ..Toelevering.ZetDueOutTime("2011-03-18 12:00:00")
-	do ..Toelevering.Save()
+	do ..Toelevering.ZetOrderID("1000")
+	
+	Do ..MaakOrder(1000,..#ToeleveringID)
 		
+	do ..Toelevering.Save()
+	
 	do ##class(vhUnitTest.APPS.Halux.BatchUtils).VerwijderBatchMetToelevering(..Toelevering.GeefID())
 	
 	set Toeleveringen = ##class(%ListOfObjects).%New()
@@ -113,6 +123,26 @@
  	Do ##super()
 ]]></Implementation>
 </Method>
+
+<Method name="MaakOrder">
+<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>
 </Class>