Index: vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r40198 -r65204
--- vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml	(.../TestResourceGebruikCalculator.cls.xml)	(revision 40198)
+++ vhUnitTest/APPS/Halux/Planning/TestResourceGebruikCalculator.cls.xml	(.../TestResourceGebruikCalculator.cls.xml)	(revision 65204)
@@ -13,23 +13,23 @@
 	
 	Do ..OnAfterAllTests()
 	
-	&SQL(DELETE FROM APPS_Halux_Planning_impl.ToeleveringInfo WHERE ID = 296195)
+	&SQL(DELETE FROM APPS_Halux_Planning_impl.ToeleveringInfo WHERE ID = 291141)
 	
 	Set ^KOD(6279,"F",118153,0)=103
 	Set ^KOD(6279,"F",118153,1)="\02.02.11\45263 cuisine cote basque\\\6279\DI2;1`DI2;2`DI2;3`DI2;4`DI2;5\1087#1096#62124,64781\\ygransart@lmc.tm.fr\\\\1\\\\EUR\\\00\2\\1087#62124,64781#118153\\\\\\\\\\\\\\\\\\\\\62124,64781"
 	Set ^KOD(6279,"F",118153,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KOD(6279,"F",118153,3)="0\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KOD(6279,"F",118153,4)=2
-	Set ^KOD(6279,"F",118153,101)="703100 \629192\1\\\59.60\40#0\0\59.60\59.60\703100 \L\\\100\59.60\KF0\\\\E1\EUR\\\62138\\296195\101\62143\\\\\\\\\\\\\\\\\1\\"
-	Set ^KOD(6279,"F",118153,102)="703100 \629192\1\\\59.60\40#0\0\59.60\59.60\703100 \L\\\200\59.60\KF0\\\\E1\EUR\\\62138\\296195\102\62143\\\\\\\\\\\\\\\\\1\\"
+	Set ^KOD(6279,"F",118153,101)="703100 \629192\1\\\59.60\40#0\0\59.60\59.60\703100 \L\\\100\59.60\KF0\\\\E1\EUR\\\62138\\291141\101\62143\\\\\\\\\\\\\\\\\1\\"
+	Set ^KOD(6279,"F",118153,102)="703100 \629192\1\\\59.60\40#0\0\59.60\59.60\703100 \L\\\200\59.60\KF0\\\\E1\EUR\\\62138\\291141\102\62143\\\\\\\\\\\\\\\\\1\\"
 	do ##class(vhUnitTest.DataHelper).MaakOrderCompleet(6279,118153)
 
-	Set ^KTO(6332,296195,0)=103
-	Set ^KTO(6332,296195,1)="\02.02.11\KOMM. OPTIMA PACK\\\6332\118153\6279\\\\\\\\\\EUR\62137,43200\\\2\\\\"
-	Set ^KTO(6332,296195,4)=2
-	Set ^KTO(6332,296195,101)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\101\\\\\\\\"
-	Set ^KTO(6332,296195,102)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\200\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\102\\\\\\\\"
-	do ##class(vhUnitTest.DataHelper).MaakToeleveringCompleet(6332,296195)
+	Set ^KTO(6332,291141,0)=103
+	Set ^KTO(6332,291141,1)="\02.02.11\KOMM. OPTIMA PACK\\\6332\118153\6279\\\\\\\\\\EUR\62137,43200\\\2\\\\"
+	Set ^KTO(6332,291141,4)=2
+	Set ^KTO(6332,291141,101)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\101\\\\\\\\"
+	Set ^KTO(6332,291141,102)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\200\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\102\\\\\\\\"
+	do ##class(vhUnitTest.DataHelper).MaakToeleveringCompleet(6332,291141)
 	
 	Set ^KPR(529744,0) = "TB8CIE.PFJS350x771   SWWI\Tandembox voorraadlade\89322\\8\\93.2885\C#A\0\703100\intivo CL;D:350xB:771;bodem:Wit\\\0\\\0##0\6\46.1032\\\\\\\\"
 	Set ^KPR(529744,1) = "10\3\\\\\1\\\\\\10757.51\\\\\\\\0#0\Tiroir-casserole rehaussé\0#0#0\999#0#0\\\"
@@ -88,7 +88,7 @@
 
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
-	do ##class(vhUnitTest.DataHelper).VerwijderToelevering(296195)
+	do ##class(vhUnitTest.DataHelper).VerwijderToelevering(291141)
 	do ##class(vhUnitTest.DataHelper).VerwijderOrder(118153)
 	
 	do ##super()
@@ -98,7 +98,7 @@
 <Method name="TestResourceGebruikProduct">
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.Product
-	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(629192)
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(2908607)
 	Set ActiviteitInfoALU = ##class(APPS.Halux.Planning.impl.ActiviteitInfoALU).%New(Product)
 	#dim ResourceGebruik As APPS.Halux.Planning.impl.ResourceGebruik = ActiviteitInfoALU.GeefActiviteitInfoIterator().Next().ResourceGebruik
 	
@@ -108,7 +108,7 @@
 	
 	// De producten die berekend moeten worden zitten niet in deze toelevering.
 	// Dit is niet echt noodzakelijk omdat voor de berekening enkel een klantnummer nodig is.
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(296195)
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(291141)
 	#dim Batch As %String = ""
 	
 	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(599536)
@@ -135,7 +135,7 @@
 
 <Method name="TestCalculator">
 <Implementation><![CDATA[
-	#dim ToeleveringID As %String = 296195
+	#dim ToeleveringID As %String = 291614
 	
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT ID FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = ?")