Index: vhTest/Integratie/Productie/Planning/Batches/AutoBatch/TestKaderdeuren.cls.xml
===================================================================
diff -u -r56852 -r56933
--- vhTest/Integratie/Productie/Planning/Batches/AutoBatch/TestKaderdeuren.cls.xml	(.../TestKaderdeuren.cls.xml)	(revision 56852)
+++ vhTest/Integratie/Productie/Planning/Batches/AutoBatch/TestKaderdeuren.cls.xml	(.../TestKaderdeuren.cls.xml)	(revision 56933)
@@ -43,6 +43,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DataHelper).VerwijderToeleveringenGeplandOp(..ReferentieDatum)
+	do ##class(vhUnitTest.DataHelper).VerwijderOrder(1000)
+]]></Implementation>
+</Method>
+
 <Method name="Test">
 <Implementation><![CDATA[
 	set PlanningBatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
@@ -94,6 +101,10 @@
 	do Toelevering.ZetOrderID(1000)
 	do Toelevering.Save()
 	do ..Toeleveringen.Insert(Toelevering.GeefID())
+	
+	Do ..MaakToeleveringInfo(Toelevering.GeefID(),Toelevering.GeefDueOutTime())
+	
+	Do ..MaakOrder(1000, Toelevering.GeefID())
 ]]></Implementation>
 </Method>
 
@@ -109,6 +120,10 @@
 	do Toelevering.ZetOrderID(1000)
 	do Toelevering.Save()
 	do ..Toeleveringen.Insert(Toelevering.GeefID())
+	
+	Do ..MaakToeleveringInfo(Toelevering.GeefID(),Toelevering.GeefDueOutTime())
+	
+	Do ..MaakOrder(1000, Toelevering.GeefID())
 ]]></Implementation>
 </Method>
 
@@ -124,19 +139,60 @@
 	do Toelevering.ZetOrderID(1000)
 	do Toelevering.Save()
 	do ..Toeleveringen.Insert(Toelevering.GeefID())
+	
+	Do ..MaakToeleveringInfo(Toelevering.GeefID(),Toelevering.GeefDueOutTime())
+	
+	Do ..MaakOrder(1000, Toelevering.GeefID())
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderToelevering">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set itToeleveringen = ##class(TECH.ListIterator).%New()
-	while itToeleveringen.HasNext() {
+	Set itToeleveringen = ##class(TECH.ListIterator).%New()
+	While itToeleveringen.HasNext() {
 		#dim ToeleveringID As %String = itToeleveringen.Next()
-		do ##class(vhUnitTest.DataHelper).VerwijderToelevering(ToeleveringID)
+		Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(ToeleveringID)
+		Do ..VerwijderToeleveringInfo(ToeleveringID)
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="MaakToeleveringInfo">
+<FormalSpec>ToeleveringID:%String,Datum:%Date</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(ToeleveringID) {
+		Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringID)
+	} Else {
+		Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%New()
+	}
+	
+	Set ToeleveringInfo.ToeleveringNummer = ToeleveringID
+	Set ToeleveringInfo.Gepland = ##class(TECH.DateTime).HorologToTimeStamp(Datum)
+	Do ToeleveringInfo.Save()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToeleveringInfo">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(APPS.Halux.Planning.impl.ToeleveringInfo).DeleteId(ToeleveringID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrder">
+<FormalSpec>OrderID:%String,ToeleveringID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^KOD(1000,"F",OrderID,1)="\10.03.11\TEST\\\1000\EX;1`EX;3`EX;5\1111#2042#62160,53165\\cw@vanhoecke.be\\\\\\\\EUR\\\60\2\\DIV#62160,53165#123348\\\\\\\\\\\\\\\\\\\\\62160,53165"
+	Set ^KOD(1000,"F",OrderID,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",OrderID,3)="1\TESTKLANT VAN HOECKE nv\\FIRMA\Europark noord 9\9100\Sint-Niklaas\1019\N\\\\\\\\\\.\\\\test cw\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(1000,"F",OrderID,4)=3
+	Set ^KOD(1000,"F",OrderID,101)="703100 \1002\1\\\97.14\0#\8\97.14\97.14\703100 \L\\\100\97.14\KF0\\\\E1\EUR\\1\62171\\"_ToeleveringID_"\101\\\\\\\\\\\\\\\\\\1\\"
+ 	Do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(1000,OrderID)
+]]></Implementation>
+</Method>
 </Class>