Index: APPS/Halux/Machine/BodemSlicing/impl/ProgrammaBepaler.cls.xml
===================================================================
diff -u -r31617 -r31638
--- APPS/Halux/Machine/BodemSlicing/impl/ProgrammaBepaler.cls.xml	(.../ProgrammaBepaler.cls.xml)	(revision 31617)
+++ APPS/Halux/Machine/BodemSlicing/impl/ProgrammaBepaler.cls.xml	(.../ProgrammaBepaler.cls.xml)	(revision 31638)
@@ -4,17 +4,17 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="BepaalProgramma">
-<FormalSpec>Bodem: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(Bodem)
+<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>
 </Method>
 
 <Method name="GeefPlaatAfwerking">
-<FormalSpec>Bodem:DOM.PM.Maatwerk.LadeInfo.BodemPlaat</FormalSpec>
+<FormalSpec>BodemPlaat:DOM.PM.Maatwerk.LadeInfo.BodemPlaat</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor</ReturnType>
 <Implementation><![CDATA[
-	#dim PlaatAfwerking As %String = ##class(DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor).LogicalToDisplay(Bodem.GeefPlaatAfwerking())
+	#dim PlaatAfwerking As %String = ##class(DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor).LogicalToDisplay(BodemPlaat.GeefPlaatAfwerking())
 	set PlaatAfwerking = $$$UCase(PlaatAfwerking)
 	quit $extract(PlaatAfwerking,1,3)
 ]]></Implementation>