Index: APPS/Halux/Machine/BodemSlicing/impl/ProgrammaBepaler.cls.xml
===================================================================
diff -u -r31638 -r31811
--- APPS/Halux/Machine/BodemSlicing/impl/ProgrammaBepaler.cls.xml	(.../ProgrammaBepaler.cls.xml)	(revision 31638)
+++ APPS/Halux/Machine/BodemSlicing/impl/ProgrammaBepaler.cls.xml	(.../ProgrammaBepaler.cls.xml)	(revision 31811)
@@ -5,7 +5,10 @@
 
 <Method name="BepaalProgramma">
 <FormalSpec>BodemPlaat:DOM.PM.Maatwerk.LadeInfo.BodemPlaat,SliceZijde:APPS.Halux.Machine.BodemSlicing.enu.SliceZijde,SliceProfiel:APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel</FormalSpec>
-<Implementation><![CDATA[	quit SliceZijde_"_"_SliceProfiel_"_"_..GeefPlaatAfwerking(BodemPlaat)
+<Implementation><![CDATA[
+	#dim ProgrammaNaam As %String = SliceZijde_"_"_SliceProfiel_"_"_..GeefPlaatAfwerking(BodemPlaat)
+	if SliceZijde = ##class(APPS.Halux.Machine.BodemSlicing.enu.SliceZijde).Front() set ProgrammaNaam = ProgrammaNaam_"_"_BodemPlaat.GeefAantalDelen()
+	quit ProgrammaNaam
 ]]></Implementation>
 </Method>