Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml
===================================================================
diff -u -r2494 -r2783
--- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2494)
+++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2783)
@@ -8,6 +8,20 @@
 <Super>vhUnitTest.APPS.VisiDot.VHossTestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>9999999</Default>
+</Parameter>
+
+<Parameter name="KLNr">
+<Type>%String</Type>
+<Default>1239</Default>
+</Parameter>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -22,6 +36,23 @@
 	Set QueueList = QueueList_"418703;1;1.1\418589;2;1.1\418703;1;1.1\418582;1;1.1\418581;2;1.1\418582;1;1.1\418715;1;1.1\418588;1;1.1\"
 	Set QueueList = QueueList_"418589;3;1.1\418703;2;1.1\418582;1;1.1\418703;1;1.1\418704;1;1.1\418715;1;1.1\418704;1;1.1"
 	
+		/// Order opzetten
+	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\\235601\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\\235601\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") = ""
+	
+	/// Toelevering opzetten
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set LeverancierID = ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
+	Set ..ToeleveringID = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList, ..#OrderID)
+	
 	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
 	
@@ -141,6 +172,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
+	k ^UPRCP("B","TB")
+	k ^KOD(1239,"F",..#OrderID)
+	k ^KO1(..#OrderID)
+	
+	Quit ##super(aTestName)
+]]></Implementation>
+</Method>
+
 <Method name="TestNormalReadAllOK">
 <Implementation><![CDATA[
 	Set Dir = "Stage2_NormalRead_AllOk\"