Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test003ProcomEnPallet.cls.xml
===================================================================
diff -u -r29666 -r35172
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test003ProcomEnPallet.cls.xml	(.../Test003ProcomEnPallet.cls.xml)	(revision 29666)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Tandembox/Aansturing/Test003ProcomEnPallet.cls.xml	(.../Test003ProcomEnPallet.cls.xml)	(revision 35172)
@@ -21,22 +21,29 @@
 <Method name="GeefProductenPerToeleveringArray">
 <ReturnType>vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray</ReturnType>
 <Implementation><![CDATA[
+	#define TandemboxSifonLadeDLY      680059
+	#define TandemboxBuroMetHangmap   1059487
+
+	#define TandemboxSpoelbakCMS2     1258077
+	#define TandemboxSpoelbakDLS2      469278
+	#define TandemboxCMetHangmap       677014
+	
 	set TandemboxenPerToeleveringArray = ##class(vhTest.Integratie.Productie.Setup.ProductenPerToeleveringArray).%New()
 	
 	set Tandemboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(680059,2) )
-	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(1059487,2) )    
+	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TandemboxSifonLadeDLY, 2) )
+	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TandemboxBuroMetHangmap, 2) )    
 	do TandemboxenPerToeleveringArray.SetAt(Tandemboxen,..#ToeleveringID1)
 	
 	set Tandemboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(1258077,2) )   ; OLD : 434292 (TBXplus) 
-	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(469278,2) )  
-	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(677014,1) )  
+	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TandemboxSpoelbakCMS2,2) )
+	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TandemboxSpoelbakDLS2,2) )   ; = intivo 
+	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TandemboxCMetHangmap,1) )  
 	do TandemboxenPerToeleveringArray.SetAt(Tandemboxen,..#ToeleveringID2)
 	
 	set Tandemboxen = ##class(vhTest.Integratie.Productie.Setup.ProductInfoLijst).%New()
-	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(680059,1) )
-	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(1059487,1) )    
+	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TandemboxSifonLadeDLY,1) )
+	do Tandemboxen.Insert( ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New($$$TandemboxBuroMetHangmap,1) )    
 	do TandemboxenPerToeleveringArray.SetAt(Tandemboxen,..#ToeleveringID3)
 	
 	quit TandemboxenPerToeleveringArray