Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/External_SQL.DB_BodemSlicingData.xml
===================================================================
diff -u -r31638 -r31639
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/External_SQL.DB_BodemSlicingData.xml	(.../External_SQL.DB_BodemSlicingData.xml)	(revision 31638)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/External_SQL.DB_BodemSlicingData.xml	(.../External_SQL.DB_BodemSlicingData.xml)	(revision 31639)
@@ -19,13 +19,13 @@
 PrintEnd3 = ""
 PrintEnd4 = ""
 PrintEnd5 = ""
-ProgLeft1 = R_ST_FIN
+ProgLeft1 = R_CL_FIN
 ProgLeft2 = R_ST_FIN
 ProgLeft3 = ""
 ProgLeft4 = ""
 ProgLeft5 = ""
 ProgRight1 = F_ST_FIN
-ProgRight2 = F_ST_FIN
+ProgRight2 = F_CL_FIN
 ProgRight3 = ""
 ProgRight4 = ""
 ProgRight5 = ""
@@ -52,13 +52,13 @@
 PrintEnd3 = ""
 PrintEnd4 = ""
 PrintEnd5 = ""
-ProgLeft1 = R_ST_MEL
+ProgLeft1 = R_CL_MEL
 ProgLeft2 = R_ST_MEL
 ProgLeft3 = ""
 ProgLeft4 = ""
 ProgLeft5 = ""
 ProgRight1 = F_ST_MEL
-ProgRight2 = F_ST_MEL
+ProgRight2 = F_CL_MEL
 ProgRight3 = ""
 ProgRight4 = ""
 ProgRight5 = ""
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/SlicingDataAanvuller.cls.xml
===================================================================
diff -u -r31638 -r31639
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/SlicingDataAanvuller.cls.xml	(.../SlicingDataAanvuller.cls.xml)	(revision 31638)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Bodem/SlicingDataAanvuller.cls.xml	(.../SlicingDataAanvuller.cls.xml)	(revision 31639)
@@ -42,8 +42,11 @@
 	if UitvoeringInfo.BodemSlicingData.NbrOfSlices > 1 {
 		#dim Counter As %String 
 		for Counter = 1 : 1 : UitvoeringInfo.BodemSlicingData.NbrOfSlices {	
-			set $property(UitvoeringInfo.BodemSlicingData,"ProgLeft"_Counter) = ..ProgrammaBepaler.BepaalProgramma(..BodemPlaat,##class(APPS.Halux.Machine.BodemSlicing.enu.SliceZijde).Rug(),"ST")
-		    set $property(UitvoeringInfo.BodemSlicingData,"ProgRight"_Counter) = ..ProgrammaBepaler.BepaalProgramma(..BodemPlaat,##class(APPS.Halux.Machine.BodemSlicing.enu.SliceZijde).Front(),"ST")
+			#dim ProfielFrontZijde As APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel = $select(Counter=1:##class(APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel).Recht(),1:##class(APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel).Click())
+			#dim ProfielRugZijde As APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel = $select(Counter=UitvoeringInfo.BodemSlicingData.NbrOfSlices:##class(APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel).Recht(),1:##class(APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel).Click())
+			
+			set $property(UitvoeringInfo.BodemSlicingData,"ProgLeft"_Counter) = ..ProgrammaBepaler.BepaalProgramma(..BodemPlaat,##class(APPS.Halux.Machine.BodemSlicing.enu.SliceZijde).Rug(),ProfielRugZijde)
+		    set $property(UitvoeringInfo.BodemSlicingData,"ProgRight"_Counter) = ..ProgrammaBepaler.BepaalProgramma(..BodemPlaat,##class(APPS.Halux.Machine.BodemSlicing.enu.SliceZijde).Front(),ProfielFrontZijde)
 		}
 	}
 ]]></Implementation>