Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test002.cls.xml
===================================================================
diff -u -r34360 -r34547
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test002.cls.xml	(.../Test002.cls.xml)	(revision 34360)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test002.cls.xml	(.../Test002.cls.xml)	(revision 34547)
@@ -21,6 +21,8 @@
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
+	#define TandemboxMetTOB   1423416   
+	
 	set TandemboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
 	
 	set Tandemboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
@@ -31,7 +33,7 @@
 	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(995454,2) )  
 	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(995455,2) )  
 	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(995456,1) )  
-	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(1423416,1) )
+	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TandemboxMetTOB,1) )
 	do TandemboxenPerToeleveringArray.SetAt(Tandemboxen,..#ToeleveringID2)
 	
 	set Tandemboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()